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

5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	1	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	3	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	4
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	5	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	6	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	7	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	8	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	9	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	10	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	11	"
4226 44e2f83cc526 initial checkin penk parents: diff changeset	12	"{ Package: 'stx:libtool' }"
44e2f83cc526 initial checkin penk parents: diff changeset	13
44e2f83cc526 initial checkin penk parents: diff changeset	14	ApplicationModel subclass:#AbstractSettingsApplication
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	15	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	16	requestor'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	17	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	18	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	19	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	20	!
44e2f83cc526 initial checkin penk parents: diff changeset	21
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	22	AbstractSettingsApplication subclass:#BuildSettingsAppl
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	23	instanceVariableNames:'buildDirectory localBuild'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	24	classVariableNames:''
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	25	poolDictionaries:''
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	26	privateIn:AbstractSettingsApplication
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	27	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	28
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	29	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	30	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	31	warnUnderscore warnCompatibility warnUnusedVars
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	32	warnAboutWrongVariableNames warnAboutBadComments
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	33	warnInconsistentReturnValues
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	34	warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	35	allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	36	allowUnderscore allowDolphinExtensions allowSqueakExtensions
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	37	allowVisualAgeESSymbolLiterals allowFixedPointLiterals
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	38	justInTimeCompilation canLoadBinaries constantFoldingSelection
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	39	keepSource constantFolding constantFoldingOptions
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	40	fullDebugSupport immutableArrays enableUnderscore enableDollar
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	41	allowEmptyStatements warnAboutPossibleSTCCompilationProblems
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	42	warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	43	warnAboutPossiblyUnimplementedSelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	44	allowExtendedBinarySelectors'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	45	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	46	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	47	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	48	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	49
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	50	AbstractSettingsApplication subclass:#CodeGeneratorSettingsAppl
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	51	instanceVariableNames:'generateComments generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	52	generateCommentsForSetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	53	classVariableNames:''
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	54	poolDictionaries:''
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	55	privateIn:AbstractSettingsApplication
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	56	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	57
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	58	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	59	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	60	allowSendMailFromDebugger useNewLayoutInDebugger'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	61	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	62	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	63	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	64	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	65
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	66	AbstractSettingsApplication subclass:#DisplaySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	67	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	68	clipEncodingListSelection sizeX monitorList ditherList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	69	clipEncodingList ditherListSelection deepIcons monitorSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	70	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	71	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	72	screenDepthVisualLabelHolder maxCopyBufferSize'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	73	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	74	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	75	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	76	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	77
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	78	AbstractSettingsApplication subclass:#EditSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	79	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	80	searchDialogIsModal startTextDragWithControl
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	81	extendedWordSelectMode whitespaceWordSelectMode
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	82	enforceContentsDropForFiles'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	83	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	84	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	85	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	86	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	87
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	88	AbstractSettingsApplication subclass:#FontSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	89	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	90	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	91	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	92	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	93	inputFieldLabel inputFieldDef inputFieldFontLabelHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	94	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	95	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	96	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	97	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	98
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	99	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	100	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	101	searchDialogIsModal startTextDragWithControl catchClassRedefs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	102	fullHistoryUpdate historyLines keepSourceSelection keepSource
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	103	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	104	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	105	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	106	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	107	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	108
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	109	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	110	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	111	hasCreatedServerChannel useFcgiHolder'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	112	classVariableNames:'CreatedServers'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	113	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	114	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	115	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	116
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	117	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	118	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	119	labelTextHolder functionKeyList rawKeyList mappings'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	120	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	121	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	122	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	123	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	125	AbstractSettingsApplication subclass:#LanguageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	126	instanceVariableNames:'languageHolder languageIndexHolder languageList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	127	languageListHolder listOfLanguages translatedLanguages
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	128	noticeLabelHolder currentFlagAndLanguageChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	129	currentLanguageLabel perLanguageResources'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	130	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	131	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	132	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	133	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	135	AbstractSettingsApplication subclass:#MemorySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	136	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	137	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	138	igcFreeAmount stackLimit supportsJustInTimeCompilation'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	139	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	140	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	141	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	142	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	143
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	144	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	145	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	146	windowMigrationPassword windowMigrationAuthenticate
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	147	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	148	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	149	removeHostEnabled acceptChannel smtpServerName
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	150	dotNetBridgeVerbose dotNetBridgeRunsInIDE'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	151	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	152	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	153	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	154	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	155
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	156	AbstractSettingsApplication subclass:#MiscDisplay2SettingsAppl
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	157	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	158	opaqueTableColumnResize lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	159	lowerOnShiftClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	160	classVariableNames:''
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	161	poolDictionaries:''
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	162	privateIn:AbstractSettingsApplication
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	163	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	164
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	165	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	166	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	167	beepEnabled takeFocus activateOnClick
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	168	formatHostNameinWindowLabels hostNameInLabelHolder
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	169	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	170	selectOnRightClick popUpMenuOnRelease
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	171	showRightButtonMenuOnRelease formatHostNameWindowLabel1
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	172	formatHostNameWindowLabel2 allowMouseWheelZoom'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	173	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	174	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	175	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	176	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	177
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	178	AbstractSettingsApplication subclass:#OsiSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	179	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	180	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	181	osiCMISEMessageLogging osiACSEDataLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	182	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	183	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	184	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	185	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	186	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	187
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	188	AbstractSettingsApplication subclass:#PrinterSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	189	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	190	landscape pageFormatList pageFormat unitList leftMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	191	possiblePrinters printerType printerTypeSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	192	printCommandList commandList printCommand printFilename
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	193	enableFormat enablelandscape enableMargins enableColorBox
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	194	printerIsDrivenByCommand printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	195	supportsPageFormatSetting supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	196	supportsColorSetting'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	197	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	198	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	199	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	200	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	201
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	202	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	203	instanceVariableNames:'dynamicPrios preemptive'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	204	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	205	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	206	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	207	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	208
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	209	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	210	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	211	rDoitErrorDebugging rDoitServerPortOrPath scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	212	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	213	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	214	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	215	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	216	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	217	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	218
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	219	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	220	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	221	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	222	sqlServerPort sqlStatementLogging'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	223	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	224	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	225	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	226	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	227
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	228	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	229	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	230	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	231	stcCompilationSelection stcCompilationList makeCommand'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	232	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	233	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	234	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	235	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	236
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	237	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	238	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	239	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	240	blockArgumentsOnNewLine spaceAfterReturnToken
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	241	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	242	oldUserPreferences reformatLocked'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	243	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	244	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	245	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	246	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	247
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	248	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	249	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	250	setupSourceCodeManager checkClassesWhenCheckingIn
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	251	formattingConfiguration flushSourceCache localSourceFirst
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	252	repositoryHolder manager repository listOfModules
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	253	cvsRootPrototypeList addPerModuleRoot removeEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	254	perModuleRootModule acceptChannel removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	255	perModuleRoot cvsRootHolder selectedPerModuleRoot
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	256	cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	257	cvsLoginInModuleEnabled cvsLoginEnabled
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	258	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	259	managerIsStoreSourceCodeManager storeLoginEnabled
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	260	storeHostPrototypeList storeHostnameHolder storeUsernameHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	261	storePasswordHolder perStoreModuleHostnameHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	262	perStoreModuleUsernameHolder perStoreModulePasswordHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	263	perStoreModuleRoot perStoreModuleRootModule
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	264	selectedPerStoreModuleRoot storeConnectEnabled
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	265	storeConnectInModuleEnabled perModuleFieldsEnableHolder
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	266	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	267	selectedPerSmallTeamModuleRoot
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	268	perSmallTeamModuleFieldsEnableHolder perSmallTeamModuleRoot
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	269	perSmallTeamModuleRootModule perSmallTeamModuleHostnameHolder
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	270	smallTeamHostnameHolder verboseSourceCodeAccess'
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	271	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	272	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	273	LastStorePassword'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	274	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	275	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	276	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	278	AbstractSettingsApplication subclass:#StyleSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	279	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	280	styleDirectoryContents infoLabelHolder noticeLabelHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	281	previewVisibleHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	282	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	283	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	284	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	285	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	286
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	287	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	288	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	289	fullSelectorCheck syntaxColoring oldUserPreferences
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	290	syntaxFontSelector syntaxFonts syntaxElementList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	291	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	292	emphasisDictionary resetListDictionary'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	293	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	294	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	295	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	296	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	297
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	298	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	299	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser'
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	300	classVariableNames:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	301	poolDictionaries:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	302	privateIn:AbstractSettingsApplication
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	303	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	304
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	305	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	306	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	307	changeFileName beepForInfoDialog beepForWarningDialog
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	308	beepForErrorDialog flyByHelp beepEnabled beepInEditor'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	309	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	310	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	311	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	312	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	313
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	314	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	315	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	316	showClockInLauncher useNewChangesBrowser useNewFileBrowser
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	317	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	318	useProcessMonitorV2 useSmalltalkDocumentViewer
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	319	showTipOfTheDayAtStartup autoRaiseTranscript'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	320	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	321	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	322	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	323	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	324
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	325	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	326
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	327	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	328	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	329	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	330	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	331
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	332	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	333	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	334	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	335	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	336	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	337	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	338	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	339	!
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	340
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	341	documentation
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	342	"
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	343	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	344	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	345	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	346	and someone who specifies the hierarchy of settings-pages in a spec.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	347	(as an example, see NewLauncher class>>defaultSettingsApplicationList)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	348
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	349	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	350
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	351	\|settingsList settingsApp\|
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	352
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	353	settingsList := NewLauncher settingsList.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	354
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	355	settingsApp := SettingsDialog new.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	356	'settingsApp requestor:requestingApplication'.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	357	settingsApp installSettingsEntries:settingsList.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	358	settingsApp allButOpen.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	359	settingsApp window label:('ST/X Settings').
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	360	settingsApp openWindow.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	361
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	362	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	363	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	364
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	365	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	366
68504047f229 * empty log message * penk parents: 4286 diff changeset	367	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	368
68504047f229 * empty log message * penk parents: 4286 diff changeset	369	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	370	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	371
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	372	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	373	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	374	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	375
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	376	^ AbstractLauncherApplication resourcePackName
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	377	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	378
5283 9264c15059e7 category change penk parents: 5280 diff changeset	379	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	380
9264c15059e7 category change penk parents: 5280 diff changeset	381	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	382	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	383	! !
9264c15059e7 category change penk parents: 5280 diff changeset	384
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	385	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	386
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	387	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	388	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	389	(to allow start of a change browser via double-click in the browser)"
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	390
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	391	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	392	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	393	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	394
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	395	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	396
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	397	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	398	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	400	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	401	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	402
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	403	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	404	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	405	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	406
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	407	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	408	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	409	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	410
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	411	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	412
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	413	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	414	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	415	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	416	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	417	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	418
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	419	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	420	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	421
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	422	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	423	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	424
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	425	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	426	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	427
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	428	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	429	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	430	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	431	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	432	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	433	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	434	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	435	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	436	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	437
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	438	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	439	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	440	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	441
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	442	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	443	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	444
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	445	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	446	askForChangeOnRelease ifTrue:[
8036 0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	447	result := self confirmWithCancel:(self resources
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	448	string:'Apply changes made in %1 ?'
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	449	with:(resources string:settingsString) allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	450	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	451	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	452	].
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	453
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	454	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	455	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	456	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	457	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	458	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	459	] ifFalse:[
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	460	"/ reload current settings to show the right thing when re-entering.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	461	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	462	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	463	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	464	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	465
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	466	"Modified: / 20-09-2006 / 23:56:25 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	467	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	468
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	469	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	470	self basicSaveSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	471
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	472	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	473	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	474
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	475	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	476	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	477	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	478	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	479	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	480	!
c72e35116b13 instable state penk parents: 5040 diff changeset	481
c72e35116b13 instable state penk parents: 5040 diff changeset	482	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	483	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	484	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	485
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	486	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	487
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	488	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	489
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	490	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	491	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	492	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	493	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	494	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	495
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	496	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	497
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	498	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	499	"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	500	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	501	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	502	Using this, and a list of aspect selectors replaces code like:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	503	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	504	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	505	...
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	506	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	507	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	508	Prerequisite:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	509	local aspects must be named like corresponding aspect methods in the flag-provider.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	510	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	511
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	512	aListOfAspects do:[:eachAspectSymbol \|
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	513	(self perform:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	514	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	515	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	516	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	517
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	518	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	519	"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	520	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	521	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	522	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	523	self aspect1 value:(someone aspect1).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	524	self aspect2 value:(someone aspect2).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	525	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	526	self aspectN value:(someone aspectN).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	527	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	528	local aspects must be named like corresponding aspect methods in the flag-provider.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	529	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	530
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	531	aListOfAspects do:[:eachAspectSymbol \|
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	532	(self perform:eachAspectSymbol) value:(anAspectProvider perform:eachAspectSymbol)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	533	].
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	534	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	535
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	536	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	537	"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	538	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	539	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	540	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	541	someone aspect1:(self aspect1 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	542	someone aspect2:(self aspect2 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	543	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	544	someone aspectN:(self aspectN value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	545	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	546	local aspects must be named like corresponding aspect methods in the flag-provider.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	547	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	548
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	549	aListOfAspects do:[:eachAspectSymbol \|
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	550	anAspectProvider perform:(eachAspectSymbol,':')asSymbol with:(self perform:eachAspectSymbol) value
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	551	].
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	552	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	553
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	554	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	555
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	556	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	557	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	558	resources := self class classResources.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	559	self initializeCurrentUserPreferences.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	560	settingsString := (UISpecification from:(self class windowSpec)) window label.
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	561	"/ self readSettings.
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	562	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	563
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	564	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	565	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	566	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	567
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	568	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	569
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	570	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	571	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	572	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	573
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	574	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	575
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	576	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	577	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	578	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	579
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	580	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	581	self subclassResponsibility
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	582	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	583
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	584	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	585
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	586	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	587	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	588
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	589	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	590	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	591
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	592	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	593	filename isNil ifTrue:[
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	594	self warn:(self resources string:'Sorry - no Help available here.').
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	595	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	596	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	597	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	598	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	599	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	600	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	601
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	602	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	603	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	604	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	605	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	606
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	607	Smalltalk isStandAloneApp ifFalse:[
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	608	self subclassResponsibility.
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	609	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	610	^ nil.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	611	! !
44e2f83cc526 initial checkin penk parents: diff changeset	612
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	613	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	614
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	615	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	616
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	617	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	618	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	619
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	620	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	621	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	622
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	623	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	624	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	625
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	626	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	627	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	628	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	629
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	630	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	631
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	632	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	633	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	634
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	635	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	636
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	637	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	638	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	639
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	640	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	641
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	642	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	643	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	644	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	645
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	646	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	647	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	648
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	649	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	650	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	651	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	652	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	653	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	654
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	655	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	656
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	657	^
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	658	#(FullSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	659	name: windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	660	window:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	661	(WindowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	662	label: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	663	name: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	664	min: (Point 10 10)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	665	bounds: (Rectangle 0 0 659 551)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	666	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	667	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	668	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	669	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	670	(VerticalPanelViewSpec
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	671	name: 'VerticalPanel3'
8947 d70205e7b1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 8922 diff changeset	672	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	673	horizontalLayout: fit
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	674	verticalLayout: top
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	675	horizontalSpace: 3
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	676	verticalSpace: 4
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	677	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	678	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	679	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	680	(FramedBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	681	label: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	682	name: 'FramedBox1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	683	labelPosition: topLeft
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	684	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	685	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	686	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	687	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	688	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	689	name: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	690	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	691	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	692	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	693	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	694	(LabelSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	695	label: 'Build Directory:'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	696	name: 'BuildDirDirLabel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	697	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	698	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	699	adjust: right
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	700	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	701	(FilenameInputFieldSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	702	name: 'FilenameEntryField1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	703	layout: (LayoutFrame 221 0 0 0 0 1 22 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	704	enableChannel: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	705	model: buildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	706	acceptOnReturn: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	707	acceptOnTab: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	708	acceptOnLostFocus: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	709	acceptOnPointerLeave: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	710	viewClassName: FilenameWidgetWithHistory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	711	postBuildCallback: postBuildDirectoryField:
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	712	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	713	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	714
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	715	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	716	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	717	(HorizontalPanelViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	718	name: 'ActionsHorizontalPanel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	719	layout: (LayoutFrame 62 0.25 27 0 0 1 56 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	720	horizontalLayout: fitSpace
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	721	verticalLayout: center
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	722	horizontalSpace: 3
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	723	verticalSpace: 3
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	724	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	725	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	726	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	727	(ActionButtonSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	728	label: 'Cleanup Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	729	name: 'CleanupBuildDirectoryButton'
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	730	translateLabel: true
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	731	tabable: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	732	model: cleanupBuildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	733	extent: (Point 401 22)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	734	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	735	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	736
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	737	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	738	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	739	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	740
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	741	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	742	extent: (Point 659 91)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	743	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	744	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	745	name: 'LocalBuild'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	746	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	747	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	748	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	749	(CheckBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	750	label: 'Local Build (Do not use Repository)'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	751	name: 'CheckBox4'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	752	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	753	enableChannel: hasSourceCodeManager
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	754	model: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	755	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	756	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	757	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	758
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	759	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	760	extent: (Point 659 25)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	761	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	762	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	763
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	764	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	765	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	766	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	767
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	768	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	769	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	770	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	771
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	772	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	773
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	774	basicReadSettings
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	775	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	776	readAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	777	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	778	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	779	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	780	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	781	from:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	782	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	783
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	784	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	785	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	786
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	787	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	788	buildDir notEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	789	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	790	buildDir isDirectory ifFalse:[
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	791	(Dialog confirm:(resources
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	792	stringWithCRs:'Build directory %1 does not exist.\\Create?'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	793	with:buildDir pathName allBold))
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	794	ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	795	buildDir makeDirectory.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	796	]
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	797	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	798	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	799
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	800	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	801	writeAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	802	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	803	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	804	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	805	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	806	to:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	807	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	808
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	809	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	810	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	811
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	812	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	813	buildDir isEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	814	^ self.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	815	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	816	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	817	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	818	buildDir recursiveRemove.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	819	buildDir makeDirectory.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	820	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	821	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	822
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	823	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	824
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	825	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	826	buildDirectory isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	827	buildDirectory := ValueHolder new.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	828	buildDirectory onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	829	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	830	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	831	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	832
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	833	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	834	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	835	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	836
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	837	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	838	localBuild isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	839	localBuild := UserPreferences current localBuild asValue.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	840	localBuild onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	841	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	842	^ localBuild.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	843	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	844
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	845	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	846
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	847	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	848	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	849	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	850
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	851	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	852
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	853	postBuildDirectoryField:aField
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	854	aField historyList value:(Array
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	855	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	856	with:(Filename currentDirectory construct:'stx_build') pathName)
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	857	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	858
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	859	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	860
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	861	hasUnsavedChanges
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	862	(self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	863	hasChangedAspectIn:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	864	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	865	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	866	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	867	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	868	asComparedTo:currentUserPrefs) ifTrue:[^ true].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	869
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	870	^ false
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	871	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	872
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	873	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	883	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	884
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	885	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	886
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	887	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	888	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	889
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	890	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	891
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	892	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	893	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	894
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	895	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	896	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	897	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	898
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	899	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	900	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	901
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	902	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	903	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	904	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	905	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	906	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	907
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	908	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	909
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	910	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	911	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	912	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	913	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUPJ(EW@CUR""QWDCUQ"!!UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	914	CUPJ!!UWICUQR!!UWJCUQR!!QWACUPFTEW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); 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	915	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	916
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	917	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	918	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	919	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	920
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	921	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	922	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	923
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	924	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	925	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	926	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	927	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	928	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	929
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	930	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	931
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	932	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	933	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	934	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	935	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	936	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	937	@@@@@@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	938	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	939	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	940	@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	941	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	942	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	943
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	944	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	945	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	946	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	947
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	948	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	949	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	950
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	951	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	952	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	953	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	954	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	955	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	956
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	957	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	958
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	959	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	960	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	961	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	962	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	963	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	964	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	965	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	966	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	967	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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	968	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:((Depth1Image 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]
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	969	!
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	970
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	971	defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	972	"This resource specification was automatically generated
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	973	by the ImageEditor of ST/X."
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	974
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	975	"Do not manually edit this!! If it is corrupted,
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	976	the ImageEditor may not be able to read the specification."
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	977
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	978	"
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	979	self defaultIcon4 inspect
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	980	ImageEditor openOnClass:self andSelector:#defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	981	Icon flushCachedIcons
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	982	"
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	983
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	984	<resource: #image>
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	985
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	986	^Icon
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	987	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon4'
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	988	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	989	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	990	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	991	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	992	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	993	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	994	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PD@0PD@0PD@0PC@0PD@0PD@0PCA@PDA@PCA@LD@0PD@0PD@PPCA@LD@0PCA@PDA@PCA@LD@0PD@0PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	995	@0PCA@LD@0PCA@PDA@PD@0PD@0PD@0PD@0PD@0PD@0PCA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image 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@D%$(J$(J$(D$$(') ; yourself); yourself]
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	996	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	997
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	998	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	999	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1000	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1001
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1002	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1003	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1004
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1005	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1006	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1007	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1008	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1009	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1010
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1011	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1012
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1013	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1014	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon5'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1015	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1016	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	1017	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	1018	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	1019	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	1020	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
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1021	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PC@0LC@0LD@0PC@0PC@@LC@0LC@0PDA@PC@@@@@@LD@0PD@PPC@@LD@@@@@0PDA@PCA@@@@@LD@0PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1022	@@PC@@LD@@P@@0PDA@PC@0LC@0LD@0LC@0LC@@LC@0LC@0PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image 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@O5+<HT*DHTJDO7;<') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1023	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1024
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1025	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1027	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1028	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1029	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1030
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1031	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1032	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1034	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1035	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1036	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1037	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1038	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1040	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1042	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1043	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1044	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1045	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1046	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1047	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1048	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1049	min: (Point 10 10)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1050	bounds: (Rectangle 0 0 665 706)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1051	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1052	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1053	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1054	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1055	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1056	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1057	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1058	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1059	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1060	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1061	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1062	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1063	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1064	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1065	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1066	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1067	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1068	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1069	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1070	extent: (Point 665 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1071	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1072	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1073	name: 'Separator3'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1074	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1075	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1076	(ViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1077	name: 'Box1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1078	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1079	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1080	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1081	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1082	name: 'VerticalPanel1_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1083	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1084	horizontalLayout: fit
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1085	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1086	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1087	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1088	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1089	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1090	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1091	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1092	label: 'Allow Underscore in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1093	name: 'AllowUnderscoreInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1094	model: allowUnderscoreInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1095	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1096	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1097	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1098	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1099	label: 'Allow Dollar in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1100	name: 'AllowDollarInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1101	model: allowDollarInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1102	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1103	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1104	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1105	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1106	label: 'Allow VW3 QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1107	name: 'AllowVW3QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1108	model: allowQualifiedNames
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1109	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1110	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1111	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1112	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1113	label: 'Allow OldStyle Assignment (_)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1114	name: 'AllowOldStyleAssignment'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1115	model: allowOldStyleAssignment
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1116	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1117	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1118	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1119	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1120	label: 'Allow Reserved Words as Selector (self)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1121	name: 'AllowReservedWordsAsSelector'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1122	model: allowReservedWordsAsSelectors
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1123	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1124	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1125	)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1126	(CheckBoxSpec
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1127	label: 'Allow Extended Binary Selectors'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1128	name: 'CheckBox4'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1129	model: allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1130	translateLabel: true
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1131	extent: (Point 313 22)
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1132	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1133	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1134
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1135	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1136	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1137	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1138	name: 'VerticalPanel1_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1139	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1140	horizontalLayout: left
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1141	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1142	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1143	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1144	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1145	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1146	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1147	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1148	label: 'Allow Squeak Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1149	name: 'AllowSqueakExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1150	model: allowSqueakExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1151	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1152	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1153	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1154	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1155	label: 'Allow Dolphin Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1156	name: 'AllowDolphinExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1157	model: allowDolphinExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1158	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1159	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1160	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1161	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1162	label: 'Allow VisualAge ES-Symbols'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1163	name: 'AllowVisualAgeESSymbolLiterals'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1164	model: allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1165	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1166	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1167	)
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1168	(CheckBoxSpec
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1169	label: 'Allow FixedPoint-Number Literals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1170	name: 'AllowFixedPointLiterals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1171	model: allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1172	translateLabel: true
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1173	extent: (Point 665 22)
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1174	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1175	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1176	label: 'Allow Empty Statements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1177	name: 'AllowEmptyStatements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1178	model: allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1179	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1180	extent: (Point 665 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1181	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1182	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1183
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1184	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1185	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1186	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1187
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1188	)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1189	extent: (Point 665 137)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1190	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1191	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1192	name: 'Separator4'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1193	extent: (Point 665 1)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1194	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1195	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1196	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1197	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1198	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1199	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1200	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1201	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1202	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1203	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1204	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1205	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1206	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1207	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1208	name: 'VerticalPanel2_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1209	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1210	horizontalLayout: fit
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1211	verticalLayout: top
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1212	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1213	verticalSpace: 0
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1214	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1215	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1216	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1217	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1218	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1219	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1220	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1221	model: warnSTXSpecials
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1222	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1223	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1224	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1225	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1226	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1227	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1228	enableChannel: enableUnderscore
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1229	model: warnUnderscoreInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1230	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1231	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1232	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1233	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1234	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1235	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1236	enableChannel: enableDollar
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1237	model: warnDollarInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1238	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1239	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1240	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1241	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1242	label: 'OldStyle Assignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1243	name: 'OldStyleAssignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1244	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1245	model: warnOldStyleAssignment
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1246	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1247	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1248	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1249	(CheckBoxSpec
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1250	label: 'Possible Incompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1251	name: 'PossibleIncompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1252	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1253	model: warnPossibleIncompatibilities
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1254	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1255	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1256	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1257	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1258	label: 'Possible STC Compilation Problems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1259	name: 'PossibleSTCCompilationProblems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1260	enableChannel: warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1261	model: warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1262	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1263	extent: (Point 313 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1264	)
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1265	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1266	label: 'Reference to Private Class'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1267	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1268	enableChannel: warnings
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1269	model: warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1270	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1271	extent: (Point 313 22)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1272	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1273	(CheckBoxSpec
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1274	label: 'Possibly Unimplemented Selectors'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1275	name: 'CheckBox3'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1276	enableChannel: warnings
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1277	model: warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1278	translateLabel: true
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1279	extent: (Point 313 22)
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1280	)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1281	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1282
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1283	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1284	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1285	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1286	name: 'VerticalPanel2_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1287	layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1288	horizontalLayout: left
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1289	verticalLayout: top
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1290	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1291	verticalSpace: 0
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1292	component:
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1293	(SpecCollection
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1294	collection: (
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1295	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1296	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1297	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1298	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1299	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1300	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1301	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1302	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1303	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1304	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1305	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1306	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1307	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1308	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1309	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1310	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1311	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1312	label: 'Bad (non-English) Variable Names'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1313	name: 'BadVariableNames'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1314	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1315	model: warnAboutWrongVariableNames
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1316	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1317	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1318	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1319	(CheckBoxSpec
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1320	label: 'Bad (Non-Lowercase) Local Variable Names'
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1321	name: 'BadLocalVariableNames'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1322	enableChannel: warnings
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1323	model: warnAboutNonLowercaseLocalVariableNames
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1324	translateLabel: true
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1325	extent: (Point 600 22)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1326	)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1327	(CheckBoxSpec
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1328	label: 'Bad (Short) Local Variable Names'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1329	name: 'CheckBox2'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1330	enableChannel: warnings
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1331	model: warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1332	translateLabel: true
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1333	extent: (Point 600 22)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1334	)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1335	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1336	label: 'Bad (empty) Comments'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1337	name: 'BadComments'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1338	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1339	model: warnAboutBadComments
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1340	translateLabel: true
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1341	extent: (Point 600 22)
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1342	)
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1343	(CheckBoxSpec
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1344	label: 'Inconsistent Return Values'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1345	name: 'InconsistentReturnValues'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1346	enableChannel: warnings
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1347	model: warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1348	translateLabel: true
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1349	extent: (Point 600 22)
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1350	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1351	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1352
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1353	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1354	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1355	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1356
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1357	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1358	extent: (Point 665 181)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1359	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1360	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1361	name: 'Separator5'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1362	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1363	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1364	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1365	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1366	name: 'LiteralArraysAreImmutable'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1367	model: arraysAreImmutable
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1368	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1369	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1370	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1371	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1372	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1373	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1374	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1375	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1376	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1377	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1378	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1379	name: 'Separator6'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1380	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1381	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1382	(ViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1383	name: 'Box3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1384	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1385	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1386	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1387	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1388	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1389	name: 'ConstantFoldingLabel'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	1390	layout: (LayoutFrame 0 0 0 0 229 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1391	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1392	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1393	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1394	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1395	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1396	name: 'ConstantFolding'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	1397	layout: (LayoutFrame 234 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1398	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1399	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1400	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1401	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1402	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1403	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1404
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1405	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1406	extent: (Point 665 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1407	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1408	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1409
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1410	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1418	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1420	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1421	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1422	readAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1423	from:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1424
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1425	self constantFoldingSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1426	value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1427	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1428	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1429	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1430	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1431	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1432	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1433	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1434	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1435	self justInTimeCompilation value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1436	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1437
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1438	"Modified: / 20-11-2006 / 22:37:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1439	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1440
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1441	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1442	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1443	writeAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1444	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1445
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457	justInTime ifTrue:[
6662 3deee4183f1d code cleanup: use new Smalltalk>>allMethodsDo: Claus Gittinger <cg@exept.de> parents: 6638 diff changeset	1458	Smalltalk allMethodsDo:[:m \| m checked:false].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1460	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1461	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1463
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1464	"Modified: / 20-11-2006 / 22:37:36 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1466
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1467	simpleAspects
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1468	^
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1469	#(
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1470	warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1471	warnCommonMistakes
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1472	warnPossibleIncompatibilities
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1473	warnDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1474	warnOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1475	warnSTXSpecials
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1476	warnUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1477	warnUnusedVars
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1478	warnAboutWrongVariableNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1479	warnAboutBadComments
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1480	warnInconsistentReturnValues
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1481	warnAboutNonLowercaseLocalVariableNames
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1482	warnAboutShortLocalVariableNames
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1483	warnAboutPossibleSTCCompilationProblems
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1484	warnAboutReferenceToPrivateClass
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1485	warnAboutPossiblyUnimplementedSelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1486
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1487	allowDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1488	allowDolphinExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1489	allowOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1490	allowQualifiedNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1491	allowReservedWordsAsSelectors
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1492	allowSqueakExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1493	allowUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1494	allowVisualAgeESSymbolLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1495	allowFixedPointLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1496	allowEmptyStatements
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1497	allowExtendedBinarySelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1498
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1499	arraysAreImmutable
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1500	)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1501
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1502	"Created: / 20-11-2006 / 22:37:17 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1503	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1504
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1510	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1511
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1512	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	allowDollar isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1515	allowDollar := ParserFlags allowDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1516	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1519	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1522	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	allowDolphinExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1525	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1526	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1531	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1532
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1533	allowEmptyStatements isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1534	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1535	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1536	"/ allowEmptyStatements addDependent:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1537	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1538	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1539
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1540	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1541	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1542
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1543	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1544
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1545	allowExtendedBinarySelectors isNil ifTrue:[
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1546	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1547	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1548	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1549	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1550	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1551
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1552	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1553
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1554	allowFixedPointLiterals isNil ifTrue:[
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1555	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1556	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1557	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1558	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1559	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1560
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	allowOldStyleAssignment isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1564	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1565	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	allowQualifiedNames isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1573	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1574	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	allowReservedWordsAsSelectors isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1582	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1583	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	allowSqueakExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1591	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1592	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1597	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	allowUnderscore isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1600	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1601	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1607	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1608
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1609	allowVisualAgeESSymbolLiterals isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1610	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1611	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1612	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1613	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1614	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1615
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1616	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1617
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1618	immutableArrays isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1619	immutableArrays := ParserFlags arraysAreImmutable asValue.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1620	immutableArrays onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1621	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1622	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1623	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1624
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1647	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1676	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1689	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1694	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1695	warnAboutBadComments isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1696	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1697	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1698	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1699	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1700	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1701
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1702	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1703	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1704	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1705	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1706	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1707	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1708
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1709	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1710	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1711
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1712	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1713
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1714	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1715	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1716	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1717	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1718	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1719
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1720	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1721	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1722
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1723	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1724
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1725	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1726	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1727	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1728	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1729	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1730
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1731	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1732	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1733
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1734	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1735	warnAboutReferenceToPrivateClass isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1736	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1737	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1738	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1739	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1740	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1741
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1742	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1743	warnAboutShortLocalVariableNames isNil ifTrue:[
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1744	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1745	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1746	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1747	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1748	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1749
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1750	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1751	warnAboutWrongVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1752	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1753	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1754	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1755	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1756	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1757
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	warnCommonMistakes isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1761	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1762	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1767	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769	warnDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1770	warnDollar := ParserFlags warnDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1771	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1776	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1777	warnInconsistentReturnValues isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1778	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1779	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1780	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1781	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1782	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1783
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1784	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786	warnOldStyle isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1787	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1788	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1793	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1794	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1795	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1796
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1797	warnCompatibility isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1798	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1799	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1800	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1801	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1802	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1803
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1804	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1806	warnSTX isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1807	warnSTX := ParserFlags warnSTXSpecials asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1808	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1809	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1810	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1811	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1812
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1813	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1815	warnUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1816	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1817	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1818	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1819	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1820	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1824	warnUnusedVars isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1825	warnUnusedVars := ParserFlags warnUnusedVars asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1826	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833	warnings isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1834	warnings := ParserFlags warnings asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1837	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1842	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1846	changedObject value ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1847	self enableUnderscore value:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1848	self enableDollar value:self allowDollarInIdentifier value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1855	(changedObject == self allowDollarInIdentifier or:[changedObject == self allowUnderscoreInIdentifier]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1863	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1864
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1865	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1866	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1867	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1868
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1869	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1872	(self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1873	hasChangedAspectIn:(self simpleAspects)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1874	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1875
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1876	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1877	((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	1878	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1879	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1880
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1881	"Modified: / 20-11-2006 / 22:38:41 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1889	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1890
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1891	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1892	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1893	by the ImageEditor of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1894
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1895	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1896	the ImageEditor may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1897
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1898	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1899	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1900	ImageEditor openOnClass:self andSelector:#defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1901	Icon flushCachedIcons
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1902	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1903
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1904	<resource: #image>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1905
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1906	^Icon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1907	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl class defaultIcon'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1908	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1909	B (JB (JB (JB (JB (JB (JB (JB (HB@ HB@ HB@ HB@ HB@ HB@$JB (JB@ EAPTEAPTEAPTEAPTEAPTIB@@@B HAP(JB TEAPTEAPTEAPTEBP @@@(H
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1910	B@TJAPTEAPTEAPTEAPTEAP$H@@@JB@ EB TEAPTEAPTQAPTEAPTIB@@@B HAP(JB TEAPTQD!!DEAPTEBP @@@(HB@TEAPTEDQDEDQLQAQDQAP$H@@@JB@ E
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1911	APTEDQPUDQTVEQDUEADIB@@@B HAPTEAPTQE1 YF!!$XE1DEBP @@@(HB@TEAPTEAQDUF ,ZEQDEAP$H@@(JB@ EAPTEAPTQEQ(KF!!TQAPTIB@@JB HAPTE
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1912	APTQE1 YF!!$XE1DEA@ JB (HB@TEAPTQEATQEQXUDQTTDPPHB (JB@ EAPTEAQDQAQDSDPTQDPTDB@(JB HAP(JB TEAPTQD!!DEAPTEA@ JB (HB@TEAP(E
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1913	APTEAQDEAPTEAPPHB (JB@ EAPTJAPTEAPTEAPTEAPTDB@(JB HAP(JB TEAPTEAPTEAPTEA@ JB (HB@TEAPTEAPTEAPTEAPTEAPPHB (JB@$DA@PDA@PD
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1914	A@PDA@PDA@PDB@(JB (HB@ HB@ HB@ HB@ HB@ HB@ JB @a') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160 255 248 248 207 216 240 240 240 248 239 232 240 48 88 176 224 224 232 240 144 24 255 248 48 255 248 96 255 248 24 240 208 24 255 248 152 255 248 88 255 248 136 255 248 176 255 248 200]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); 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]
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1915	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1916
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1917	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1918
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1919	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1920	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1921	by the UIPainter of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1922
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1923	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1924	the UIPainter may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1925
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1926	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1927	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1928	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1929	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1930	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1931
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1932	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1933
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1934	^
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1935	#(FullSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1936	name: windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1937	window:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1938	(WindowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1939	label: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1940	name: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1941	min: (Point 10 10)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1942	bounds: (Rectangle 0 0 607 786)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1943	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1944	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1945	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1946	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1947	(VerticalPanelViewSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1948	name: 'VerticalPanel2'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1949	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1950	horizontalLayout: fit
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1951	verticalLayout: top
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1952	horizontalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1953	verticalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1954	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1955	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1956	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1957	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1958	label: 'Generate Comments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1959	name: 'GenerateComments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1960	activeHelpKey: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1961	model: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1962	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1963	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1964	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1965	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1966	label: 'Generate Comments In Getters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1967	name: 'GenerateCommentsInGetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1968	activeHelpKey: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1969	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1970	model: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1971	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1972	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1973	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1974	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1975	label: 'Generate Comments In Setters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1976	name: 'GenerateCommentsInSetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1977	activeHelpKey: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1978	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1979	model: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1980	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1981	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1982	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1983	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1984
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1985	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1986	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1987	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1988
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1989	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1990	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1991	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1992
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1993	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'actions'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1994
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1995	basicReadSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1996	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1997	readAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1998	from:currentUserPrefs.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	1999	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2000
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2001	basicSaveSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2002	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2003	writeAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2004	to:currentUserPrefs.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2005	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2006
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2007	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2008
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2009	aspectSelectors
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2010	^ #(
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2011	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2012	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2013	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2014	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2015	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2016
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2017	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2018	generateComments isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2019	generateComments := UserPreferences current generateComments asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2020	generateComments onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2021	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2022	^ generateComments.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2023	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2024
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2025	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2026	generateCommentsForGetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2027	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2028	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2029	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2030	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2031	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2032
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2033	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2034	generateCommentsForSetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2035	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2036	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2037	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2038	^ generateCommentsForSetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2039	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2040
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2041	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2042
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2043	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2044	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2045	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2046
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2047	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'queries'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2048
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2049	hasUnsavedChanges
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2050	(self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2051	hasChangedAspectIn:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2052	asComparedTo:currentUserPrefs) ifTrue:[^ true].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2053	^ false.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2054	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2055
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2056	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2057
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2058	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2059	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2060
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2061	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2062	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2063
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2064	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2065
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2066	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2067	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2070	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2071	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2072
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2073	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2074	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2075	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2076	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2077	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2081	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2082	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2083	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2084	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2085	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2086	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2087	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2088	min: (Point 10 10)
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2089	bounds: (Rectangle 0 0 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2091	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2092	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2093	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2094	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2095	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2096	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2097	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2098	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2099	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2100	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2101	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2102	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2103	collection: (
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2104	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2105	name: 'ShowErrorNotifierBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2106	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2107	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2108	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2109	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2110	label: 'Show Error Notifier before Opening Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2111	name: 'ShowErrorNotifierCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2112	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2113	model: showErrorNotifier
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2114	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2115	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2116	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2117
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2118	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2119	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2120	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2121	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2122	name: 'ShowVerboseStackBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2123	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2124	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2125	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2126	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2127	label: 'Verbose Backtrace by Default in Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2128	name: 'ShowVerboseStackCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2129	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2130	model: verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2131	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2132	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2133	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2134
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2135	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2136	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2137	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2138	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2139	name: 'UseNewLayoutInDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2140	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2141	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2142	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2143	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2144	label: 'Use New Layout'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2145	name: 'UseNewLayoutInDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2146	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2147	model: useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2148	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2149	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2150	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2151
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2152	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2153	extent: (Point 600 29)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2154	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2155	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2156	name: 'AllowSendingMailFromDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2157	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2158	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2159	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2160	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2161	label: 'Allow Sending of Error Reports from Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2162	name: 'AllowSendingMailFromDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2163	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2164	model: allowSendMailFromDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2165	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2166	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2167	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2168
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2169	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2170	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2171	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2172	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2174	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2175	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2176	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2177
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2178	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2179	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2180	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2182	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2183
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2184	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2185	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2186	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2187	self verboseBacktraceInDebugger value:(currentUserPrefs verboseBacktraceInDebugger).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2188	self useNewLayoutInDebugger value:(currentUserPrefs useNewLayoutInDebugger).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2189	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2190
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2191	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2192	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2193	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2194	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2195	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2196	].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2197	currentUserPrefs allowSendMailFromDebugger:(self allowSendMailFromDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2198	currentUserPrefs verboseBacktraceInDebugger:(self verboseBacktraceInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2199	currentUserPrefs useNewLayoutInDebugger:(self useNewLayoutInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2200
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2201	Debugger newDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2202	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2203
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2204	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2205
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2206	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2207
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2208	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2209	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2210	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2211	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2212	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2213	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2214
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2215	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2216
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2217	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	2218	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2219	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2220	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2221	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2222	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2223
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2224	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2225
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2226	useNewLayoutInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2227	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2228	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2229	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2230	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2231	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2232
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2233	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2234
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2235	verboseBacktraceInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2236	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger ? false) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2237	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2238	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2239	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2240	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2241
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2242	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2243
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2244	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2245	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2246	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2247
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2248	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2249
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2250	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2251	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2252	currentUserPrefs verboseBacktraceInDebugger ~= self verboseBacktraceInDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2253	currentUserPrefs allowSendMailFromDebugger ~= self allowSendMailFromDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2254	currentUserPrefs useNewLayoutInDebugger ~= self useNewLayoutInDebugger value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2255	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2256	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2257
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2259
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2260	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2267	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2268	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2270	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2272	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2273	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2275	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2277	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2278	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2280	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2282	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2283	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2285	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2286
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2287	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2288	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2289
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2290	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2291
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2292	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2293	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2294
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2295	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2296	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2297
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2298	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2300	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2301	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2302	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2303
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2304	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2305	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2306
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2307	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2311	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2313	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2315	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2316	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2317	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2318	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2319	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2320	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2321	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2322	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2323	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2324	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2325	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2326	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2327	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2328	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2329	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2330	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2331	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2332	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2333	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2334	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2335	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2336	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2337	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2338	layout: (LayoutFrame 0 0 39 0 163 0 61 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2339	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2340	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2341	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2342	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2343	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2344	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2345	layout: (LayoutFrame 170 0 39 0 -5 1 61 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2346	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2347	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2348	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2349	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2350	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2351	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2352	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2353	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2354	layout: (LayoutFrame 0 0 72 0 163 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2355	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2356	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2357	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2358	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2359	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2360	layout: (LayoutFrame 170 0 72 0 237 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2361	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2362	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2363	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2364	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2365	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2366	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2367	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2368	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2369	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2370	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2371	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2372	layout: (LayoutFrame 238 0 72 0 271 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2373	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2374	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2375	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2376	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2377	layout: (LayoutFrame 272 0 72 0 339 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2378	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2379	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2380	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2381	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2382	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2383	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2384	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2386	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2387	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2388	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2389	layout: (LayoutFrame 351 0 72 0 397 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2390	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2391	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2393	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2394	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2395	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2397	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2398	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2399	layout: (LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2400	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2401	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2402	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2403	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2404	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2405	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2406	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2407	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2408	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2409	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2410	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2411	layout: (LayoutFrame 5 0 150 0 250 0 172 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2412	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2413	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2414	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2415	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2416	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2417	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2418	layout: (LayoutFrame 5 0 175 0 301 0 197 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2419	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2420	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2421	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2422	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2423	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2424	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2425	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2426	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2427	layout: (LayoutFrame 5 0 201 0 301 0 223 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2428	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2429	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2430	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2431	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2433	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2434	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2435	name: 'ImageDisplayLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2436	layout: (LayoutFrame 0 0 230 0 255 0 252 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2437	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2438	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2440	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2441	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2442	name: 'DitherListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2443	layout: (LayoutFrame 255 0 230 0 -5 1 252 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2444	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2445	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2446	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2447	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2448	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2450	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2451	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2452	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2453	layout: (LayoutFrame 5 0 262 0 301 0 284 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2454	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2455	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2457	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2458	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2459	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2461	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2462	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2463	name: 'ClipBoardEncodingLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2464	layout: (LayoutFrame 0 0 303 0 255 0 325 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2465	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2466	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2468	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2469	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2470	name: 'ClipEncodingListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2471	layout: (LayoutFrame 255 0 303 0 -5 1 325 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2472	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2473	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2474	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2475	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2477	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2478	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2479	layout: (LayoutFrame 0 0.0 360 0 0 1.0 364 0)
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2480	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2481	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2482	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2483	name: 'MaxCopyBufferSizeLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2484	layout: (LayoutFrame 0 0 330 0 255 0 352 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2485	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2486	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2487	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2488	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2489	name: 'MaxCopyBufferEntryField'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2490	layout: (LayoutFrame 255 0 330 0 350 0 352 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2491	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2492	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2493	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2494	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2495	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2496	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2497	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2507	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2508	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2509	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2510	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2511	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2512	self sizeY value:screen heightInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2513	self deepIcons value:screen supportsDeepIcons.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2514	ditherSyms notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2515	self ditherListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2516	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2517	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2518	self clipEncodingListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2519	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2520	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2521	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2522
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2523	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2524
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2525	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2526
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2527	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2528	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2529	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2530	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2531	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2532	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2533	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2534	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2535	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2536	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2537
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2538	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2539	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2540	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2541	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2542	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2543	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2544	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2545	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2546	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2547	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2548	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2549	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2550	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2551
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2552	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2553	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2554	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2555	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2556
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2557	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2558	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2559	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2560
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2561	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2580	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2581	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2590	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2611	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2628	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2629	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2631	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2633	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2634
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2635	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2636	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2637	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2638	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2639	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2640	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2641	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2642	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2643
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2652	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2654	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2655	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2656	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2657	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2662
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2665	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2666	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2680	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2685	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2691	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2700	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2717	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2734	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2739	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2741	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2743	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2747	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2748	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2749	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2750	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2751	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2752	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2755	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2757	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2758	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2759	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2760	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2761	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2762	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2763	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2764	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2765	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2767	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2768	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2769	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2771	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2772	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2773	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2774	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2775	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2777	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2778	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2779
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2780	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2781
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2782	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2783	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2784	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2785
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2786	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2788	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2790	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2791
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2792	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2793
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2794	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2795	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2796	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2797	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2798	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2799	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2800	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2801	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2802	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2803	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2804	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2805	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2807	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2808	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2809	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2810	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2811	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2812	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2813	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2814	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2815	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2817	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2818
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2819	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2821	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2823	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2824	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2825	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2826	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2827	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2828	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2829
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2830	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2831	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2832	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2833	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2834	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	2835	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2836	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2837
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2838	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2839
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2840	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2841	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2842
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2843	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2844	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2845
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2846	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2848	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2849	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2850	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2851
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2852	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2853	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2855	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2856	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2857	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2858	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2859	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2861	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2862
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2863	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2864	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2865	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2866	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2867	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2868	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2869	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2870	min: (Point 10 10)
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	2871	bounds: (Rectangle 0 0 600 320)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2872	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2873	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2874	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2875	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2876	(VerticalPanelViewSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2877	name: 'VerticalPanel1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2878	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2879	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2880	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2881	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2882	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2883	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2884	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2885	collection: (
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2886	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2887	label: 'CTRL-Key to Start TextDrag'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2888	name: 'CTRLKeyStTextDragCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2889	model: startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2890	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2891	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2892	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2893	(CheckBoxSpec
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2894	label: 'Always Paste the Contents when Dropping a File (Do not Ask) '
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2895	name: 'EnforceContentsDropForFiles'
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2896	model: enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2897	translateLabel: true
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2898	extent: (Point 600 23)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2899	)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2900	(CheckBoxSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2901	label: 'SearchBox is Modal'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2902	name: 'SearchBoxModalCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2903	model: searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2904	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2905	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2906	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2907	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2908	label: 'Tab Stops in Multiples of 4'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2909	name: 'TabStopsMultiples4CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2910	model: tabsIs4
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2911	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2912	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2913	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2914	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2915	label: 'Double Click Select Behavior as in ST80'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2916	name: 'DoubleClickSelectBehaviorST80CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2917	model: st80DoubleClickSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2918	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2919	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2920	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2921	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2922	label: 'Cursor has ST80 Line-end Behavior'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2923	name: 'CursorST80LineEndBehaviorCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2924	model: st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2925	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2926	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2927	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2928	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2929	label: 'Treat Underscore as Letter in Word-Select'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2930	name: 'UnderscoreIsLetterCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2931	model: extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2932	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2933	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2934	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2935	(CheckBoxSpec
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	2936	label: 'Any non-Whitespace in Word-Select'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2937	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2938	model: whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2939	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2940	extent: (Point 600 23)
6860 9992480933a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	2941	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2942	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2944	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2945	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2946	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2950	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2952	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2953
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2954	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2955	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2956	readAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2957	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2958
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2959	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2960	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	2961	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2962	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2963
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2964	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2965	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2966	writeAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2967	to:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	2968
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2969	self enforceContentsDropForFiles value ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2970	currentUserPrefs enforcedDropModeForFiles:#text
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2971	] ifFalse:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2972	currentUserPrefs enforcedDropModeForFiles:nil
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2973	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	2974
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	2975	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2976	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	2977	ListView userDefaultTabPositions:(self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	2978	ifTrue:[ListView tab4Positions]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	2979	ifFalse:[ListView tab8Positions]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2980	ListView allSubInstancesDo:[:eachKindOfListView \|
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	2981	self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	2982	ifTrue:[eachKindOfListView setTab4]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	2983	ifFalse:[eachKindOfListView setTab8]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2984	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2985	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2986	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2987
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2988	commonAspects
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2989	^ #(
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2990	#searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2991	#startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2992	#st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2993	#extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2994	#whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	2995	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2996	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2998	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2999
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3000	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3001	enforceContentsDropForFiles isNil ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3002	enforceContentsDropForFiles := true asValue.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3003	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3004	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3005	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3006	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3007
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3008	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3009	extendedWordSelectMode isNil ifTrue:[
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3010	extendedWordSelectMode := true asValue.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3011	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3012	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3013	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3014	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3015
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3016	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3017	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3019	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3020	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3021	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3024	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3025	st80DoubleClickSelectMode isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3026	st80DoubleClickSelectMode := true asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3027	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3028	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3029	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3030	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3031
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3032	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3033	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3035	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3037	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3043	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3044	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3045	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3047
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3049	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3050	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3051	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3052	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3053	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3054	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3055
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3056	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3057	whitespaceWordSelectMode isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3058	whitespaceWordSelectMode := true asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3059	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3060	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3061	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3062	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3063
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3064	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3065
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3066	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3067	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3068	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3069
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3070	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3071
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3072	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3073	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3074	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3075	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3076	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3077	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3078	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3079	].
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3080
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3081	(self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3082	hasChangedAspectIn:self commonAspects
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3083	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3084
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3085	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3086	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3088	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3092	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3099	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3102	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3103
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3104	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3105	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3106
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3107	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3108	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3109
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3110	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3111	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3112	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3113
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3114	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3115	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3116
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3117	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3118	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3119	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3120	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3121	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3122
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3123	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3124
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3125	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3126	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3127	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3128	@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3129	ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3130	P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3131	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3132
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3154	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3155	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3156	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3157	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3162	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3163	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3164	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3165	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3166	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3167	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3168	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3169	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3170	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3171	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3172	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3173	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3174	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3175	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3176	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3177	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3178	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3179	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3180	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3181	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3182	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3183	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3184	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3185	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3186	name: 'AllBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3187	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3188	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3189	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3190	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3191	label: 'All (Others)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3192	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3193	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3194	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3195	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3196	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3197	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3198	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3199	name: 'AllFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3200	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3201	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3202	labelChannel: allFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3203	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3204	postBuildCallback: postBuildAllFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3205	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3206	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3207	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3208	name: 'ChangeAll'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3209	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3210	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3211	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3212	model: changeAllFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3213	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3214	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3215	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3216	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3217	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3218	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3219
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3220	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3221	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3222	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3223	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3224	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3225	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3226	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3227	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3228	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3229	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3230	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3231	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3232	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3233	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3234	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3235	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3236	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3237	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3238	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3239	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3240	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3241	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3242	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3243	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3244	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3245	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3246	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3247	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3248	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3249	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3250	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3251	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3252	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3253	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3254	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3255	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3256	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3257
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3258	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3259	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3260	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3261	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3262	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3263	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3264	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3265	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3266	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3267	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3268	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3269	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3270	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3271	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3272	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3273	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3274	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3275	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3276	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3277	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3278	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3279	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3280	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3281	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3282	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3283	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3284	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3285	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3286	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3287	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3288	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3289	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3290	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3291	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3292	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3294	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3295
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3296	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3297	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3298	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3299	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3300	name: 'ListsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3301	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3302	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3303	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3304	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3305	label: 'Lists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3306	name: 'Lists'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3307	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3308	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3309	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3310	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3311	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3312	label: 'Lists Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3313	name: 'ListsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3314	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3315	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3316	labelChannel: listsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3317	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3318	postBuildCallback: postBuildListsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3319	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3320	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3321	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3322	name: 'ChangeLists'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3323	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3324	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3325	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3326	model: changeListsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3327	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3328	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3329	name: 'Separator8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3330	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3331	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3332	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3333
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3334	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3335	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3336	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3337	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3338	name: 'MenusBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3339	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3340	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3341	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3342	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3343	label: 'Menus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3344	name: 'Menus'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3345	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3346	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3347	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3348	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3349	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3350	label: 'Menus Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3351	name: 'MenusFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3352	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3353	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3354	labelChannel: menusFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3355	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3356	postBuildCallback: postBuildMenuesFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3357	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3358	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3359	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3360	name: 'ChangeMenus'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3361	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3362	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3363	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3364	model: changeMenusFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3365	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3366	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3367	name: 'Separator9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3368	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3369	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3370	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3371
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3372	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3373	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3374	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3375	(ViewSpec
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3376	name: 'InputFieldsBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3377	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3378	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3379	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3380	(LabelSpec
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3381	label: 'Input Fields'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3382	name: 'Input Fields'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3383	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3384	translateLabel: true
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3385	adjust: left
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3386	)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3387	(LabelSpec
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3388	label: 'InputFields Font'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3389	name: 'InputFieldsFont'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3390	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3391	translateLabel: true
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3392	labelChannel: inputFieldFontLabelHolder
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3393	adjust: left
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3394	postBuildCallback: postBuildInputFieldFontLabel:
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3395	)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3396	(ActionButtonSpec
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3397	label: 'Change...'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3398	name: 'ChangeText'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3399	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3400	translateLabel: true
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3401	tabable: true
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3402	model: changeInputFieldFont
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3403	)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3404	(DividerSpec
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3405	name: 'Separator10'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3406	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3407	)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3408	)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3409
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3410	)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3411	extent: (Point 506 50)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3412	)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3413	(ViewSpec
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3414	name: 'CodeBox'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3415	component:
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3416	(SpecCollection
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3417	collection: (
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3418	(LabelSpec
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3419	label: 'Code'
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3420	name: 'Label1'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3421	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3422	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3423	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3424	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3425	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3426	label: 'Text Font'
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3427	name: 'Label2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3428	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3429	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3430	labelChannel: textFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3431	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3432	postBuildCallback: postBuildTextFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3433	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3434	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3435	label: 'Change...'
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3436	name: 'Button1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3437	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3438	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3439	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3440	model: changeTextFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3441	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3442	(DividerSpec
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3443	name: 'Separator11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3444	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3445	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3446	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3447
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3448	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3449	extent: (Point 506 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3473	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3474	"/ View readStyleSheetAndUpdateAllStyleCaches.
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3475	self allOfThem value:View defaultFont.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3476	self labelDef value:Label defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3477	self buttonDef value:Button defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3478	self listDef value:SelectionInListView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3479	self menuDef value:MenuView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3480	self textDef value:TextView defaultFont.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3481	self inputFieldDef value:EditField defaultFont.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3482	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3483
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3484	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3485	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3486
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3487	View defaultFont:self allOfThem value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3488	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3489
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3490	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3491	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3492	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3493
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3494	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3495	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3496
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3497	fn := self inputFieldDef value.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3498	EditField withAllSubclasses do:[:cls \| cls defaultFont:fn].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3499
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3500	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3501	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3502
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3503	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3504	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3505	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3506	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3507	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3508	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3509	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3510
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3519	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3520	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3521	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3522	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3523	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3524	self textDef value:(f onDevice:textLabel device).
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3525	self inputFieldDef value:(f onDevice:inputFieldLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3534	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3535	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3538	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3542	changeInputFieldFont
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3543	\|f\|
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3544
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3545	f := FontPanel
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3546	fontFromUserInitial:(self inputFieldDef value)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3547	title:(resources string:'Font for %1' with:'Input Fields')
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3548	filter:filter.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3549	f notNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3550	self inputFieldDef value:(f onDevice:inputFieldLabel device).
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3551	]
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3552	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3553
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3555	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3562	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3563	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3574	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3586	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3595	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3598	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3635	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3640	inputFieldDef
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3641	inputFieldDef isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3642	inputFieldDef := ValueHolder new.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3643	inputFieldDef addDependent:self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3644	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3645	^ inputFieldDef
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3646	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3647
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3648	inputFieldFontLabelHolder
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3649
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3650	inputFieldFontLabelHolder isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3651	inputFieldFontLabelHolder := '' asValue.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3652	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3653	^ inputFieldFontLabelHolder.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3654	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3655
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3669	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3687	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3705	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3723	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3730	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3731	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3732	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3733	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3734	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3735	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3736	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3737	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3738	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3740	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3741	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3742	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3743	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3744	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3745	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3746	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3748	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3749	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3750	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3751	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3752	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3753	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3754	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3755	].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3756	changedObject == self inputFieldDef ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3757	self updateFontOfLabel:inputFieldLabel andFontNameHolder:(self inputFieldFontLabelHolder) from:changedObject.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3758	^ self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3759	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3760	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3762	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3763
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3764	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3765	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3766	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3767	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3768	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3769	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3770	self update:#value with:nil from:self textDef.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3771	self update:#value with:nil from:self inputFieldDef.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3772	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3773
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3774	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3775	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3776
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3777	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3778	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3779	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3780	''
c72e35116b13 instable state penk parents: 5040 diff changeset	3781	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	3782	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	3783	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3784	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3785	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3788	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3789
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3790	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3791	^ 'Launcher/fontSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3792	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3793
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3806	postBuildInputFieldFontLabel:aWidget
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3807
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3808	inputFieldLabel := aWidget.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3809	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3810
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3831	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3832	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3833	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	3834	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3840	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3841	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3842	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3843	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3844	self textDef value ~= TextView defaultFont ifTrue:[^ true].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3845	self inputFieldDef value ~= EditField defaultFont ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3846	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3849	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3850
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3851	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3852
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3853	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3854	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3855
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3856	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3857
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3858	^ #('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	3859	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3860
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3861	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3862
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3863	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	3864	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	3865
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3866	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	3867
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	3868	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3869	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3870
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3871	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3872	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3873	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3874
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3875	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3876	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3877
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3878	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3879	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3880	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3881	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3882	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3883
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3884	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3885
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3886	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3887	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3888	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3889	@@@@@@@@C??????@CUUUUUW@CZ**''@CZ''CCZ''@CVWKCVW@CU)WJCU)W@CUZ%W@CUZ%WACUVUW@CUV*UWDCUU)UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3890	CUU*)UWICUUZ%UWJCUUZ%UWACUUVUUW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); 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	3891	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3892
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3893	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3894	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3895	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3896
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3897	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3898	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3899
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3900	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3901	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3902	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3903	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3904	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3905
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3906	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3907
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3908	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3909	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3910	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3911	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	3912	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	3913	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	3914	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	3915	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	3916	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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	3917	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:((Depth1Image 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]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3918	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3919
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3920	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3921
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3922	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3923	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3924	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3925
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3926	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3927	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3928
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3929	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3930	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3931	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3932	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3933	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3934
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3935	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3936
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3937	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3938	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3939	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3940	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3941	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3942	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3943	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3944	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3945	max: (Point 1024 768)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3946	bounds: (Rectangle 14 46 614 366)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3947	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3948	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3949	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3950	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3951	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3952	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3953	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3954	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3955	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3956	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3957	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3958	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3959	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3960	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3961	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3962	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3963	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3964	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3965	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3966	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3967	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3968	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3969	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3970	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3971	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3972	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3973	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3974	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3975	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3976	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3977	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3978	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3979	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3980	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3981	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3982	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3983	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3984	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3985	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3986	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3987	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3988	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3989	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3990	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3991	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3992	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3993	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3994	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3995	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3996	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3997	name: 'KeepSourceSelection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3998	layout: (LayoutFrame 200 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3999	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4000	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4001	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4002	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4003	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4004	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4005	label: 'FileIn Source Mode:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4006	name: 'FileInSourceModeLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4007	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4008	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4009	adjust: right
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4010	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4011	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4012
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4013	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4014	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4015	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4016	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4017	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4018	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4019	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4020	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4021	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4022	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4023	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4024	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4025	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4026	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4027	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4028	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4029
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4030	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4031	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4032	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4033
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4034	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4035	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4036	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4037
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4038	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4039
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4040	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4041	self keepSourceSelection value:(self class keepSourceOptions
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4042	indexOf:ClassCategoryReader sourceMode
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4043	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4044	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4045	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4046	self canLoadBinaries ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4047	self loadBinaries value:Smalltalk loadBinaries
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4048	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4049	self loadBinaries value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4050	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4051	self hasHistoryManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4052	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4053	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4054	self fullHistoryUpdate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4055	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4056	self historyLines value:self hasHistoryManager.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4057	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4058
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4059	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4060
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4061	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4062	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4063	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4064	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4065	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4066	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4067	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4068	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4069	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4070	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4071	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4072	Smalltalk loadBinaries:self loadBinaries value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4073	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4074
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4075	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4076
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4077	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4078
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4079	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4080	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4081	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4082	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4083	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4084
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4085	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4086
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4087	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4088	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4089	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4090	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4091	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4092	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4093
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4094	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4095
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4096	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4097	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4098	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4099	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4100	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4101	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4102
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4103	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4104
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4105	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4106	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4107	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4108	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4109	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4110	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4111	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4112	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4113	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4114	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4115
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4116	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4117
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4118	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4119	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4120
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4121	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4122
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4123	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4124	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4125	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4126	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4127	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4128	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4129
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4130	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4131
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4132	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4133	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4134	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4135	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4136	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4137
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4138	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4139
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4140	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4141	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4142	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4143	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4144	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4145	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4146
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4147	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4148
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4149	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4150	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4151	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4152	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4153	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4154	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4155	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4156	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4157	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4158	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4159
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4160	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4161
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4162	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4163	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4164	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4165
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4166	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4167
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4168	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4169	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4170	((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	4171	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4172	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4173	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4174	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4175	^ false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4176	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4177
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4178	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4179
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4180	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4181	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4182	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4183
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4184	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4185	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4186
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4187	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4188	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4189	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4190	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4191	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4192
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4193	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4194
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4195	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4196	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4197	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4198	@@@@@@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	4199	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	4200	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	4201	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	4202	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4203	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a') ; 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]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); 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	4204	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4205
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4206	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4207
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4208	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4209	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4210	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4211
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4212	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4213	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4214
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4215	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4216	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4217	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4218	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4219	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4220
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4221	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4222
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4223	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4224	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4225	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4226	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4227	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4228	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4229	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4230	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4231	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4232	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4233	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4234	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4235	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4236	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4237	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4238	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4239	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4240	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4241	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4242	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4243	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4244	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4245	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4246	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4247	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4248	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4249	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4250	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4251	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4252	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4253	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4254	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4255	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4256	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4257	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4258	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4259	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4260	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4261	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4262	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4263	layout: (LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4264	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4265	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4266	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4267	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4268	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4269	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4270
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4271	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4272	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4273	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4274	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4275	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4276	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4277	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4278	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4279	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4280	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4281	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4282	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4283	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4284	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4285	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4286	layout: (LayoutFrame 3 0 21 0 40 0 43 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4287	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4288	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4289	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4290	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4291	name: 'EntryField1'
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4292	layout: (LayoutFrame 40 0 20 0 111 0 42 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4293	enableChannel: hasHTTPServerClass
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4294	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4295	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4296	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4297	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4298	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4299	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4300	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4301	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4302	(VerticalPanelViewSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4303	name: 'VerticalPanel5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4304	layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4305	horizontalLayout: fit
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4306	verticalLayout: spreadSpace
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4307	horizontalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4308	verticalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4309	component:
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4310	(SpecCollection
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4311	collection: (
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4312	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4313	label: 'Create new HTTP Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4314	name: 'Button4'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4315	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4316	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4317	model: createServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4318	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4319	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4320	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4321	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4322	label: 'Create new FastCGI Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4323	name: 'Button7'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4324	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4325	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4326	model: createFcgiServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4327	enableChannel: hasFCGIServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4328	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4329	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4330	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4331	label: 'Create Server from Settings File...'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4332	name: 'Button6'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4333	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4334	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4335	model: createServerFromFile
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4336	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4337	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4338	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4339	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4340	label: 'Remove all Servers'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4341	name: 'Button5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4342	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4343	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4344	model: removeAllServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4345	enableChannel: hasCreatedServerChannel
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4346	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4347	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4348	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4349
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4350	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4351	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4352	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4353
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4354	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4355	extent: (Point 539 142)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4356	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4357	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4358
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4359	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4360	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4361	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4362	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4363
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4364	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4365	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4366	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4367
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4368	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4369	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4370	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4371
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4372	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4373
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4374	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4375	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4376	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4377
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4378	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4379	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4380	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4381	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4382	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4383	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4384
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4385	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4386	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4387	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4388
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4389	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	4390	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4391	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4392
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4393	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4394
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4395	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4396	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4397
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4398	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4399	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4400	self serverClass runningServers
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4401	removeDependent:self;
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4402	addDependent:self.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4403	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4404	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4405	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4406
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4407	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4408	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4409
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4410	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	4411	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4412
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4413	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4414	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4415
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4416	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4417	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4418
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4419	FCGIServer isNil ifTrue:[
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4420	self warn:'The FCGIServer-class is missing - cannot create server.'.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4421	^ self.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4422	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4423	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4424
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4425	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4426	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4427
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4428	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4429	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4430
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4431	HTTPServer isNil ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4432	self warn:'The HTTPServer-class is missing - cannot create server.'.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4433	^ self.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4434	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4435	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4436
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4437	"Modified: / 25-01-2007 / 16:41:38 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4438	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4439
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4440	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4441	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4442
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4443	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4444	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4445	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4446	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4447	].
8593 c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4448	HTTPServerSettingsAppl notNil ifTrue:[
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4449	settingsApp := HTTPServerSettingsAppl basicNew.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4450	settingsApp settingsDialog:self settingsDialog.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4451	settingsApp httpServerInstance:aServerInstance.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4452	settingsApp defaultSettingsApplication:false.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4453	settingsApp basicInitialize.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4454	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4455	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4456	newItem application:settingsApp.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4457	self createdServerChanged.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4458	self settingsDialog expandItemForApplication:self.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4459	settingsApp readSettings.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4460	settingsApp initialize.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4461	].
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4462	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4463
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4464	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4465
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4466	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4467
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4468	serverClass isNil ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4469	self warn:'The server class is missing - cannot create server.'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4470	^ self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4471	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4472
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4473	self withWaitCursorDo:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4474	port := self portNumberChannel value.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4475	runningServers := serverClass runningServers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4476	runningServers notEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4477	runningServers do:[:aServer \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4478	aServer port = port asInteger ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4479	Dialog warn:'There is already a server for port ', port asString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4480	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4481	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4482	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4483	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4484	runningServers addDependent:self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4485
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4486	(port = serverClass defaultPort) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4487	newServer := serverClass newServerWithDefaultServiceListOn:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4488	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4489	newServer := serverClass newServerOnPort:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4490	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4491	self class addCreatedServer:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4492	self createServerApplicationFor:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4493	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4494	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4495
5049 3df132763949 instable state penk parents: 5044 diff changeset	4496	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4497	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4498
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4499	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4500	fileName := Dialog requestFileName:'Select a Server Settings File'
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4501	default:(serverClass settingsFilename)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4502	pattern:'*.xml'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4503
5049 3df132763949 instable state penk parents: 5044 diff changeset	4504	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4505	self withWaitCursorDo:[
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4506	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4507	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	4508	newServerPort := newServer port.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4509	runningServers := serverClass runningServers.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4510	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	4511	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	4512	answer := Dialog
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4513	request:('There is already a server for port <1p>. Please select another one' expandMacrosWith:newServerPort)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4514	initialAnswer:self portNumberChannel value printString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4515	answer isEmptyOrNil ifTrue:[
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4516	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	4517	].
8674 58aef376b077 asNumber eliminated Claus Gittinger <cg@exept.de> parents: 8659 diff changeset	4518	newServerPort := Number readFromString:answer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	4519	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4520	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	4521	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	4522	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4523	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4524	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	4525	].
3df132763949 instable state penk parents: 5044 diff changeset	4526	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4527
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4528	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	4529	!
3df132763949 instable state penk parents: 5044 diff changeset	4530
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4531	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4532	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4533
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4534	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4535
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4536	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4537	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4538	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4539
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4540	serverToStart := serverClass runningServers asSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4541	serverToStart addAll:self class createdServers.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4542	serverToStart isEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4543	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4544	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4545	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4546	serverToStart do:[:eachServerInstance \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4547	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4548	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4549
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4550	"Modified: / 25-01-2007 / 16:40:21 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4551	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4552
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4553	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4554	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4555
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4556	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4557	^ serverClass notNil
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4558	and:[ serverClass runningServers
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4559	contains:[:eachServer\| eachServer port = newServerPort]].
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4560
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4561	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4562	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	4563
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4564	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4565	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4566	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4567
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4568	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4569	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4570
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4571	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4572	serverClass isLoaded ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4573	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4574	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4575	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4576	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4577	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4578
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4579	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4580	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4581
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4582	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4583	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4584
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4585	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4586	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4587	instances := serverClass runningServers asSet.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4588	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4589	collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	4590	highestUsedPortNr := instances
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4591	inject:(serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4592	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4593
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4594	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4595	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4596	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4597	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4598	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4599
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4600	"Modified: / 25-01-2007 / 16:38:45 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4601	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4602
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4603	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4604
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4605	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4606	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4607	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4608	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4609	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4610	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4611
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4612	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4613	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4614	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4615	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4616	'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	4617	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4618
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4619	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	4620	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4621	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4622
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4623	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4624
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4625	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4626	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4627	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4628	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4629	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4630
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4631	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4632
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4633	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4634
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4635	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4636	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4637	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4638
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4639	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4640	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4641	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4642	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4643
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4644	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4645	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4646
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4647	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4648	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4649	self runningServersChanged.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4650	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4651	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4652	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4653
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4654	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4655	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4656
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4657	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4658
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4659	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4660	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4661	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4662
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4663	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4664
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4665	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4666	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4667
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4668	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4669	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4670	serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	4671	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4672
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4673	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4674	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4675
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4676	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4678	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4679	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4680	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4681	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4682
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4683	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4684	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4685
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4686	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4687	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4688
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4689	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4690	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4691
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4692	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4693	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4694
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4695	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4696
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4697	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4698	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4699
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4700	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4701	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4702	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4703	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4704	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4705
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4706	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4707	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4708	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4709
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4710	serverClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4711	"answer the default class for instanciating servers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4712	Note that we may instanciate FCGIServer as well"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4713
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4714	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4715	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4716
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4717	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4718	^ 'there is no HTTPServer class in the system'
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4719
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4720	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4721	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4722
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4723	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4724
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4725	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4726	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4727
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4728	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4729	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4730
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4731	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4732
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4733	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4734	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4735	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4740	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4741	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4742	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4743	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4749	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4750	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4751	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4752	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4753	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4754	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4755	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4756	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4758	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4759	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4760	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4761	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4762	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4763	layout: (LayoutFrame 0 0.0 80 0 0 1.0 0 1.0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4764	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4765	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4766	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4767	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4768	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4769	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4770	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4771	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4772	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4773	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4774	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4775	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4776	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4777	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4778	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4779	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4780	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4781	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4782	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4783	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4784	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4785	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4786	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4791	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4792	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4793	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4794	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4795	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4796	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4797	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4798	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4799	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4800	layout: (LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4801	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4802	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4803	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4804	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4805	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4806	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4807	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4808	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4809	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4810	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4811	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4812	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4813	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4815	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4816	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4817	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4820	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4821	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4822	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4823	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4824	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	4825	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 80 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4826	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4827	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4828	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4829	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4830	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4834	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4835	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4837	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4838
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4839	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4840	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4841	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4842
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4843	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	4844	"nothing done here"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4845	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4847	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4848
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4849	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4850	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4851	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4852	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4853	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4854	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4855
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4856	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4857	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4858	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4859	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4860	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4861	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4862
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4863	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4864	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4865	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4867	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4868	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4869
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4870	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4872	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4873	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4874	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4875	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4876	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4877
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4878	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4880	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4881	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4882	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4883	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4884	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4885	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4886
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4887	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4889	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4890	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4891	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4892	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4893	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4894	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4896	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4897
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4898	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4900	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4901	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4903	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4904
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4905	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4907	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4909	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4910	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4911	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4912	].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	4913	macro := currentUserPrefs functionKeySequences
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4914	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4915	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4916	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4917	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4918	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4919	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4921	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	4922	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4923	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4924	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4925	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4926	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4927	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4928	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4929	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4930	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4931	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4932	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4933	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4934	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4935	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4936	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4937	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4938	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4939	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4940
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4941	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4942	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4944	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4945	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4946	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4947	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4948	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4949	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4950	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4951	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4952	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4953	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4954
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4955	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4956	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4957	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4958	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4959	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4960	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4961	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4962	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4963	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4964	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4965	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4966	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4967
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4968	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4969
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4970	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4971	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4972	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4973
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4974	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4975
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4976	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4977
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4978	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4980	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4981
8679 d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	4982	rawKeyList := (mappings keys collect:[:key \| key asString] as:Array) sort.
d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	4983	functionKeyList := (mappings values asSet collect:[:key \| key asString] as:Array) sort.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4984
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4985	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4986	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4988	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4990	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4992	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4993	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4994
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4995	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4996
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4997	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4998	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4999
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5000	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5001	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5002
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5003	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5005	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5006	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5007	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5009	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5010	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5012	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5013	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5014	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5015	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5016	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5018	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5020	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5021	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5022	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5023	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5024	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5025	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5026	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5027	min: (Point 10 10)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5028	bounds: (Rectangle 0 0 571 878)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5029	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5030	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5031	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5032	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5033	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5034	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5035	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	5036	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5037	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5038	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5039	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5040	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5041	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5042	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5043	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5044	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	5045	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5046	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5047	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5048	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5049	)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5050	(TextEditorSpec
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5051	name: 'TextEditor1'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5052	layout: (LayoutFrame 0 0 24 0 0 1.0 181 0)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5053	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5054	model: noticeLabelHolder
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5055	hasHorizontalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5056	hasVerticalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5057	miniScrollerHorizontal: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5058	autoHideScrollBars: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5059	isReadOnly: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5060	hasKeyboardFocusInitially: false
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5061	viewClassName: 'TextView'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5062	postBuildCallback: postBuildHelpLabel:
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5063	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5064	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5065	name: 'EntryField1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5066	layout: (LayoutFrame 2 0.0 180 0 -2 1.0 204 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5067	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5068	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5069	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5070	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5071	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5072	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5073	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5074	name: 'List1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5075	layout: (LayoutFrame 2 0.0 206 0 -2 1.0 -30 1.0)
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5076	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5077	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5078	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5079	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5080	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5081	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5082	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5083	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5084	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5085	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5086	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5087	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5088	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5089	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5090	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5091	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5092	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5093	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5094	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5095	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5096	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5097	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5098	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5099	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5100	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5101	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5102
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5103	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5104	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5105	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5107	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5108	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5109	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5111	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5112
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5113	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5114	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5116	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5117	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5118
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5119	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5120
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5121	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5122	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5123	self currentFlagAndLanguageChannel value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5124	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5125
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5126	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5127	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5128	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5129
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5130	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5131	languageString := translatedLanguages at:(self languageIndexHolder value).
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	5132	language := self languageHolder value asString string.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5133	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5134	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5135	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5136	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5137	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5138	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5139	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5140	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5142	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5143	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5144	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5145
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	5146	oldLanguage := UserPreferences current language.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5147	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5148	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5149
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5150	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5151	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5152	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5153	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5154	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5155	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5156	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5157	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5158	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5159	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5160	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5161
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5162	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5163	fontPrefs := fontPrefs collect:[:each \| (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	5164	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5165	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5166	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5167	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5168	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5169
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	5170	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5171	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5172	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5175	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5176	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5177	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5178	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5179	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5180	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5181	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5182	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5183	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5184	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5185	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5186	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5187	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5188	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5189	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5191	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5192	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5193	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5194	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5195
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5196	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5199	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5200	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5201	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5202	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5203	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5204	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5207	string:'Your display does not seem to offer any appropriate font.\\Change the language anyway ?\ (Texts will probably be unreadable then)'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5210	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5211	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5212	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5213	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5214	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5215	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5216	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	5218	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5219	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5220	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5221	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5222	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5223	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	5224	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5225	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5226	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5227	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5228	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5230	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5231	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5232	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5233	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5234	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5235	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5236	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5237	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5238	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	5239	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5240	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5241	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5242	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5243	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5244	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5245	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5246
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5247	"Modified: / 19-10-2006 / 22:17:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5248	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5249
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5250	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5251	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5252	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5253
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5254	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5255	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5256	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5257	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5258	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5259	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5260
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5261	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5262	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5263
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5264	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5265	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5266	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5267
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5268	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5269	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	5270	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5271	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5272	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5273	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5274	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5275	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5277	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5278
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5279	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5280	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5281	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5282	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5283	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5284	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5285
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5286	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5287	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5288	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5289	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5290	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5291	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5292	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5293
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5294	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5295	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5296	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5297	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5298	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5299	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5300	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5301
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5302	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5303	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5304
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5305	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5306	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5307	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5308	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5309
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5310	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5311	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5312	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5313	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5314	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5315	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5316	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5317
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5318	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5319	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5320	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5321	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5322	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5323	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5325	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5326	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5327	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5328	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5329	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5330	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5331	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5332
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5333	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5334	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5335	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5336
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5337	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5338	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5339	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5340	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5341
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5342	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5343
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5344	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5345	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5346	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5347
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5348	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5349
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5350	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5351	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5352	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5353	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5354
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5355	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5356	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5357
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5358	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5359	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5360	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5361	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5362
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5363	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5364	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5365	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5366	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5367	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5368	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5369
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5370	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5371	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5372
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5373	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5374	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5375	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5376	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5377	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5378	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5379
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5380	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5381	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5382	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5383	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5384	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5385	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5386	LanguageTerritory := terr asSymbol.
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5387	rsc := ResourcePack for:(self class) cached:false.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5388	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5389	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5390	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5391	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5392	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5393	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5394	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5395	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5396
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5397	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5398
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5399	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5400	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5401	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5402	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5403	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5405	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5406	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5407	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5408	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5409	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5410	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5411	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5412
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5413	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5414	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5415	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5416	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5417	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5418	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5419	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5420	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5421	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5422	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5423	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5424	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	5425	item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5426	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5427
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5428	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5429	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5430	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5431	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5432
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5433	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5434	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5435	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5436	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5438	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5439	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5440	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5441	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5442	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5443	] ifFalse:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	5444	item := resources string:('LANG_' , lang).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5445	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5446	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5447	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5448	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5449	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5450	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5453	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5454	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5455	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5456	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5457	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5458	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5459	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5460	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5461	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5462	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5463
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5464
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5465	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5466	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5467
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5468	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5469	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5470	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5471
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5472	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5473	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5474	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5475	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5476	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5477	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5478	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5479	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5480	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5481
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5482	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5483	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5484	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5485
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5486	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5487	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5488
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5489	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5490	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5491	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5496	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5497	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5498	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5499
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5500	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5501	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5502	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5503
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5504	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5505	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5506
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5507	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5508	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5509	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5510	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5511	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5512	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5513	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5514	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5515	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5516	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5517
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5518	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5519	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5520	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5521	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5522	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5523	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5524	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5525
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5526	hasUnsavedChanges
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5527	^ (self languageHolder value string) ~= (self currentLanguageCode)
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	5528
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	5529	"Modified: / 17-10-2006 / 17:51:09 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5530	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5532	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5533
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5534	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5535	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5536
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5537	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5538	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5539
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5540	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5541
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5542	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5543	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5544	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5545
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5546	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5547	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5548
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5549	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5550	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5551	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5552	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5553	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5554
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5555	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5556
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5557	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5558	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5559	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5560	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5561	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5562	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5563	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5564	min: (Point 10 10)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5565	bounds: (Rectangle 13 23 465 745)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5566	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5567	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5568	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	5569	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5570	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5571	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5572	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5573	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5574	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5575	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5576	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5577	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5578	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5579	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5580	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5581	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5582	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5583	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5584	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5585	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5586	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5587	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5588	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5589	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5590	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5591	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5592	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5593	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5594	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5595	name: 'EntryField23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5596	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5597	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5598	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5599	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5600	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5601	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5602	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5603	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5604	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5605	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5606	name: 'Label44'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5607	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5608	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5609	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5610	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5611	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5612	label: 'Size of newSpace where objects are created'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5613	name: 'Label45'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5614	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5615	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5616	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5617	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5618	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5619	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5620	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5621	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5622	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5623
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5624	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5625	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5626	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5627	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5628	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5629	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5630	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5631	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5632	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5633	name: 'EntryField24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5634	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5635	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5636	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5637	formatString: ''
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5638	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5639	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5640	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5641	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5642	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5643	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5644	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5645	name: 'Label46'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5646	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5647	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5648	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5649	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5650	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5651	label: 'Never allocate more than this amount of memory'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5652	name: 'Label47'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5653	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5654	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5655	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5656	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5657	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5658	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5659	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5660	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5661	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5662
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5663	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5664	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5665	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5666	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5667	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5668	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5669	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5670	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5671	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5672	name: 'EntryField14'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5673	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5674	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5675	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5676	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5677	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5678	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5679	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5680	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5681	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5682	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5683	name: 'Label26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5684	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5685	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5686	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5687	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5688	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5689	label: 'Quickly allocate more memory (suppress GC) up to this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5690	name: 'Label27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5691	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5692	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5693	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5694	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5695	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5696	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5697	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5698	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5699	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5700
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5701	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5702	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5703	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5704	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5705	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5706	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5707	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5708	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5709	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5710	name: 'EntryField25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5711	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5712	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5713	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5714	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5715	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5716	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5717	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5718	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5719	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5720	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5721	name: 'Label48'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5722	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5723	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5724	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5725	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5726	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5727	label: 'Start IGC whenever this amount has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5728	name: 'Label49'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5729	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5730	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5731	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5732	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5733	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5734	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5735	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5736	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5737	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5738
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5739	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5740	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5741	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5742	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5743	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5744	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5745	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5746	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5747	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5748	name: 'EntryField26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5749	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5750	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5751	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5752	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5753	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5754	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5755	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5756	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5757	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5758	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5759	name: 'Label50'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5760	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5761	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5762	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5763	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5764	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5765	label: 'Start IGC whenever freespace drops below this'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5766	name: 'Label51'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5767	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5768	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5769	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5770	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5771	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5772	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5773	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5774	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5775	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5776
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5777	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5778	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5779	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5780	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5781	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5782	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5783	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5784	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5785	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5786	name: 'EntryField17'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5787	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5788	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5789	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5790	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5791	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5792	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5793	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5794	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5795	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5796	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5797	name: 'Label32'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5798	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5799	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5800	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5801	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5802	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5803	label: 'Try to keep this amount for peak requests'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5804	name: 'Label33'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5805	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5806	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5807	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5808	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5809	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5810	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5811	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5812	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5813	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5814
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5815	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5816	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5817	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5818	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5819	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5820	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5821	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5822	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5823	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5824	name: 'EntryField18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5825	layout: (LayoutFrame -95 1 3 0 -5 1.0 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5826	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5827	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5828	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5829	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5830	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5831	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5832	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5833	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5834	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5835	name: 'Label34'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5836	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5837	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5838	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5839	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5840	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5841	label: 'Increase oldSpace in chunks of this size'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5842	name: 'Label35'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5843	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5844	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5845	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5846	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5847	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5848	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5849	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5850	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5851	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5852
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5853	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5854	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5855	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5856	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5857	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5858	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5859	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5860	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5861	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5862	name: 'EntryField19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5863	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5864	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5865	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5866	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5867	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5868	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5869	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5870	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5871	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5872	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5873	name: 'Label36'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5874	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5875	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5876	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5877	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5878	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5879	label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5880	name: 'Label37'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5881	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5882	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5883	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5884	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5885	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5886	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5887	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5888	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5889	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5890
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5891	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5892	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5893	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5894	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5895	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5896	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5897	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5898	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5899	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5900	name: 'EntryField20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5901	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5902	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5903	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5904	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5905	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5906	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5907	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5908	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5909	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5910	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5911	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5912	name: 'Label38'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5913	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5914	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5915	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5916	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5917	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5918	label: 'Trigger recursionInterrupt if more stack is used by a process'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5919	name: 'Label39'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5920	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5921	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5922	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5923	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5924	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5925	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5926	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5927	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5928	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5929
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5930	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5931	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5932	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5933	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5934	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5935	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5936	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5937	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5938	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5939	name: 'EntryField21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5940	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5941	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5942	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5943	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5944	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5945	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5946	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5947	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5948	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5949	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5950	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5951	name: 'Label40'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5952	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5953	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5954	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5955	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5956	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5957	label: 'Flush dynamic compiled code to stay within this limit'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5958	name: 'Label41'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5959	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5960	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5961	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5962	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5963	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5964	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5965	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5966	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5967	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5968
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5969	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5970	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5971	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5972	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5973	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5974	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5975	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5976	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5977	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5978	name: 'EntryField22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5979	layout: (LayoutFrame -95 1 3 0 -5 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5980	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5981	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5982	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5983	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5984	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5985	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5986	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5987	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5988	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5989	name: 'Label42'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5990	layout: (LayoutFrame 0 0 3 0 -95 1 23 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5991	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5992	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5993	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5994	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5995	label: 'Start incremental GC whenever this amount of code has been allocated'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5996	name: 'Label43'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5997	layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5998	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	5999	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6000	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6001	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6002	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6003	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6004	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6005	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6006
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6007	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6008	extent: (Point 452 43)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6009	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6010	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6011
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6012	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6013	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6014	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6015
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6016	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6017	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6018	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6020	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6021
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6022	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6023	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6024	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6025	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6026	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6027	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6028	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6029	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6030
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6031	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6032	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6033	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6034	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6035	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6036	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6037	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6038	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6039
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6040	self stackLimit value:Process defaultMaximumStackSize.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6041	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6042
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6043	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6044	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6045	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6046	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6047	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6048	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6049	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6050	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6051
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6052	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6053	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6054	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6055	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6056	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6057	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6058	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6059	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6060
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6061	Process defaultMaximumStackSize:self stackLimit value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6062	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6064	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6065
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6066	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6067
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6068	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6069	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6070	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6071	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6072	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6073	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6074
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6075	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6076
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6077	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6078	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6079	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6080	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6081	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6082	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6083
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6084	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6085
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6086	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6087	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6088	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6089	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6090	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6091	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6092
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6093	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6094
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6095	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6096	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6097	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6098	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6099	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6100	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6101
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6102	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6103
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6104	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6105	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6106	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6107	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6108	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6109	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6111	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6112
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6113	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6114	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6115	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6116	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6117	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6118	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6119
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6120	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6121
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6122	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6123	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6124	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6125	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6126	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6127	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6128
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6129	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6130
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6131	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6132	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6133	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6134	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6135	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6136	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6137
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6138	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6139
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6140	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6141	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6142	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6143	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6144	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6145	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6146
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6147	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6149	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6150	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6151	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6152	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6153	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6154	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6155
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6156	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6158	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6159	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6160	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6161	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6162	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6163	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6164
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6165	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6167	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6168	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6169
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6170	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6172	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6173	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6174	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6175	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6176	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6177
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6178	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6179
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6180	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6181	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6182	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6183
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6184	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6186	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6187	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	6188	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6189	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6190	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6191	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6192	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6193	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6194
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6195	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6197	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6198	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6199	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6200	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6201	newSpaceSize
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6202	maxOldSpace
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6203	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6204	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6205
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6206	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6207	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6208	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6209	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6210	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6211	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6212	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6213	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6214
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6215	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6216	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6217	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6218
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6219	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6220
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6221	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6222	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6223	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6224
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6225	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6226	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6227
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6228	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6229	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6230	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6231	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6232	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6233
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6234	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6235
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6236	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6237	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6238	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	6239	@@!!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	6240	]QD$Q5IVI5ERQ5 !!TVPW]BUBEQIF$REXPT^FY1HV!!@$''HXPXIWU"]!!!!%@GI(BAFGUV\&!!FT@UGQ"PQEW^D]EYP@@PFHHETU5A@U%@@@@I@BGTRT@U%@@@@AH
a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	6241	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@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 new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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	6242	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6243
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6246	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6254	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6255	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6256	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6262	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6263	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6264	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6265	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6266	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6267	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6268	min: (Point 10 10)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6269	bounds: (Rectangle 0 0 732 586)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6271	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6272	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6273	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6274	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6275	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6276	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6277	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6278	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6279	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6280	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6281	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6282	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6283	collection: (
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6284	(FramedBoxSpec
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6285	label: 'SMTP Server'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6286	name: 'SMTPServerBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6287	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6288	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6289	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6290	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6291	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6292	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6293	name: 'Box5'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6294	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6295	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6296	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6297	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6298	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6299	label: 'SMTP Server:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6300	name: 'SMTPLabel'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6301	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6302	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6303	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6304	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6305	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6306	name: 'SMTPServer'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6307	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6308	model: smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6309	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6310	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6311	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6312	acceptOnPointerLeave: false
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6313	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6314	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6315
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6316	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6317	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6318	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6319
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6320	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6321	extent: (Point 732 58)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6322	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6323	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6324	label: 'Window migration'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6325	name: 'WindowMicrationSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6326	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6327	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6328	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6329	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6330	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6331	(VerticalPanelViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6332	name: 'VerticalPanel2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6333	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6334	horizontalLayout: left
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6335	verticalLayout: center
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6336	horizontalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6337	verticalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6338	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6339	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6340	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6341	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6342	name: 'Box2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6343	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6344	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6345	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6346	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6347	label: 'Window migration enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6348	name: 'CheckBox2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6349	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6350	enableChannel: hasWindowMigrationServer
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6351	model: windowMigrationEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6352	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6353	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6354	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6355
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6356	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6357	extent: (Point 696 23)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6358	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6359	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6360	name: 'Box3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6361	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6362	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6363	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6364	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6365	label: 'Password check'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6366	name: 'CheckBox3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6367	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6368	enableChannel: enablePasswordCheck
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6369	model: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6370	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6371	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6372	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6373
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6374	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6375	extent: (Point 696 22)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6376	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6377	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6378	name: 'Box4'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6379	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6380	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6381	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6382	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6383	label: 'Password:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6384	name: 'Label3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6385	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6386	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6387	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6388	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6389	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6390	name: 'EntryField1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6391	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6392	enableChannel: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6393	model: windowMigrationPassword
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6394	type: password
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6395	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6396	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6397	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6398	acceptOnPointerLeave: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6399	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6400	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6401
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6402	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6403	extent: (Point 696 22)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6404	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6405	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6406
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6407	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6408	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6409	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6410
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6411	)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6412	extent: (Point 732 118)
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6413	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6414	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6415	label: 'Remote Browsing'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6416	name: 'RemoteBrowsingSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6417	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6418	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6419	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6420	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6421	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6422	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6423	name: 'Box1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6424	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6425	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6426	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6427	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6428	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6429	label: 'Remote browsing enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6430	name: 'CheckBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6431	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6432	enableChannel: hasRemoteBrowsingSupport
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6433	model: remoteBrowsingEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6434	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6435	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6436	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6437
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6438	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6439	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6440	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6441
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6442	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6443	extent: (Point 732 59)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6444	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6445	(FramedBoxSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6446	label: 'SmallTeam Change Distribution'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6447	name: 'SmallTeamSetupBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6448	visibilityChannel: managerIsCVSSourceCodeManager
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6449	labelPosition: topLeft
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6450	translateLabel: true
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6451	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6452	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6453	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6454	(ViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6455	name: 'enableBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6456	layout: (LayoutFrame 0 0 8 0 0 1 31 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6457	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6458	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6459	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6460	(CheckBoxSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6461	label: 'SmallTeam Server enabled'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6462	name: 'CheckBox4'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6463	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6464	enableChannel: smallTeamServerAvailable
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6465	model: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6466	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6467	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6468	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6469
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6470	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6471	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6472	(LabelSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6473	label: 'SmallTeam Hosts:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6474	name: 'smallTeamHostsLabel'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6475	layout: (LayoutFrame 0 0.0 37 0 60 0.25 59 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6476	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6477	adjust: right
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6478	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6479	(SequenceViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6480	name: 'smallTeamHostsList'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6481	layout: (LayoutFrame 64 0.25 37 0 0 1 156 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6482	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6483	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6484	model: selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6485	hasHorizontalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6486	hasVerticalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6487	miniScrollerHorizontal: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6488	useIndex: false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6489	sequenceList: listOfSmallTeamHosts
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6490	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6491	(LabelSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6492	label: 'Host:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6493	name: 'hostLabel'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6494	layout: (LayoutFrame 0 0.0 166 0 60 0.25 183 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6495	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6496	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6497	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6498	(InputFieldSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6499	name: 'smallTeamHostEntryField'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6500	layout: (LayoutFrame 64 0.25 162 0 0 1 184 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6501	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6502	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6503	model: smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6504	acceptChannel: acceptChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6505	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6506	)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6507	(HorizontalPanelViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6508	name: 'HorizontalPanel2'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6509	layout: (LayoutFrame 64 0.25 189 0 -1 1 214 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6510	horizontalLayout: fitSpace
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6511	verticalLayout: center
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6512	horizontalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6513	verticalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6514	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6515	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6516	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6517	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6518	label: 'Add'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6519	name: 'addButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6520	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6521	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6522	model: addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6523	enableChannel: addHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	6524	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6525	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6526	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6527	label: 'Remove'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6528	name: 'removeButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6529	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6530	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6531	model: removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6532	enableChannel: removeHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	6533	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6534	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6535	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6536
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6537	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6538	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6539	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6540
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6541	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6542	extent: (Point 732 244)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6543	)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6544	(FramedBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6545	label: '.NET Bridge'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6546	name: 'FramedBox1'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6547	labelPosition: topLeft
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6548	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6549	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6550	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6551	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6552	(VerticalPanelViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6553	name: 'VerticalPanel3'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6554	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6555	horizontalLayout: left
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6556	verticalLayout: center
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6557	horizontalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6558	verticalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6559	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6560	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6561	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6562	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6563	name: 'Box6'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6564	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6565	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6566	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6567	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6568	label: 'Verbose'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6569	name: 'CheckBox5'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6570	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6571	enableChannel: hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6572	model: dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6573	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6574	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6575	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6576
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6577	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6578	extent: (Point 696 23)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6579	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6580	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6581	name: 'Box7'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6582	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6583	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6584	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6585	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6586	label: 'Bridge Runs in IDE'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6587	name: 'CheckBox6'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6588	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6589	enableChannel: hasDotNetBridge
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	6590	model: dotNetBridgeRunsInIDE
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6591	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6592	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6593	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6594
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6595	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6596	extent: (Point 696 22)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6597	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6598	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6599
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6600	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6601	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6602	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6603
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6604	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6605	extent: (Point 732 75)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6606	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6607	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6608
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6609	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6610	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6611	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6612
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6613	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6614	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6615	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6616
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6617	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6618
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6619	basicReadSettings
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6620	\|pw auth\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6621
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6622	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6623	readAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6624	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6625	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6626	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6627	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6628	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6629	from:currentUserPrefs.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6630
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6631	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6632	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6633	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6634	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6635
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6636	self remoteBrowsingEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6637	value:(self hasRemoteBrowsingSupport
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6638	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6639
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6640	self windowMigrationEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6641	value:(self hasWindowMigrationServer
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6642	and:[ WindowMigrationServer isLoaded
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6643	and:[ WindowMigrationServer serverRunning ]]).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6644
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6645
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6646	pw := nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6647	auth := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6648	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6649	pw := WindowMigrationServer password.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6650	auth := self windowMigrationPassword value notNil
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6651	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6652
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6653	self windowMigrationPassword value:pw.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6654	self windowMigrationAuthenticate value:auth
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6655
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6656	"Modified: / 20-09-2007 / 16:04:59 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6657	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6658
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6659	basicSaveSettings
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6660	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6661	writeAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6662	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6663	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6664	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6665	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6666	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6667	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6668
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6669	(SmallTeam notNil) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6670	SmallTeam connectedHosts copy do:[:host \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6671	(self listOfSmallTeamHosts includes:host) ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6672	SmallTeam removeHost:host.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6673	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6674	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6675
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6676	self listOfSmallTeamHosts do:[:eachHost \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6677	SmallTeam addHost:eachHost.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6678	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6679	self smallTeamServerEnabled value ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6680	SmallTeam startServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6681	] ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6682	SmallTeam stopServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6683	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6684	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6685
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6686	self hasRemoteBrowsingSupport ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6687	self remoteBrowsingEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6688	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6689	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6690	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6691	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	6692	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6693	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6694	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6695	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6696	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6697	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6698	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6699	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6700	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6701	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6702	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6703
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6704	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6705	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6706	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6707	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6708	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6709	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6710	self windowMigrationEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6711	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6712	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6713	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6714	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	6715	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6716	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6717	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6718	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6719	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6720	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6721	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6722	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6723	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6724	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6725	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6726
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6727	"Modified: / 20-09-2007 / 16:05:01 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6728	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6729
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6730	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6731
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6732	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6733
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6734	acceptChannel isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6735	acceptChannel := TriggerValue new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6736	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6737	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6738
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6739	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6740	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6741
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6742	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6743
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6744	dotNetBridgeRunsInIDE isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6745	dotNetBridgeRunsInIDE := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6746	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6747	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6748	^ dotNetBridgeRunsInIDE.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6749	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6750
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6751	dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6752
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6753	dotNetBridgeVerbose isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6754	dotNetBridgeVerbose := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6755	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6756	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6757	^ dotNetBridgeVerbose.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6758	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6759
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6760	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6761
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6762	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	6763	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6764	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	6765	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6766	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6767	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6768	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6769	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6770	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6771
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6772	hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6773	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6774	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6775
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6776	listOfSmallTeamHosts
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6777
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6778	listOfSmallTeamHosts isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6779	listOfSmallTeamHosts := List new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6780	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6781	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6782	^ listOfSmallTeamHosts.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6783
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6784	"Created: / 12-11-2006 / 19:06:35 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6785	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6786
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6787	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6788
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6789	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6790	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6791	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6792	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6793	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6794	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6795
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6796	removeHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6797	^ BlockValue
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6798	forLogical:self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6799	and:(BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	6800	with:[:h \| h notEmptyOrNil]
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6801	argument:self selectedSmallTeamHost)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6802
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6803	"Created: / 12-11-2006 / 19:01:42 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	6804	"Modified: / 08-03-2007 / 23:02:36 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6805	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6806
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6807	selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6808
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6809	selectedSmallTeamHost isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6810	selectedSmallTeamHost := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6811	selectedSmallTeamHost addDependent:self
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6812	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6813	^ selectedSmallTeamHost.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6814
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6815	"Created: / 12-11-2006 / 19:11:01 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6816	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6817
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6818	smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6819
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6820	smallTeamHostEntry isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6821	smallTeamHostEntry := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6822	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6823	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6824	^ smallTeamHostEntry.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6825
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6826	"Created: / 12-11-2006 / 19:07:06 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6827	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6828
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6829	smallTeamServerAvailable
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6830	^ SmallTeam notNil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6831
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6832	"Created: / 12-11-2006 / 18:56:20 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6833	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6834
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6835	smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6836
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6837	smallTeamServerEnabled isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6838	smallTeamServerEnabled := false asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6839	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6840	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6841	^ smallTeamServerEnabled.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6842
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6843	"Created: / 12-11-2006 / 18:56:11 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6844	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6845
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6846	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6847
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6848	smtpServerName isNil ifTrue:[
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6849	smtpServerName := '' asValue.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6850	smtpServerName onChangeSend:#updateModifiedChannel to:self.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6851	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6852	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6853
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6854	"Created: / 20-09-2007 / 16:04:39 / cg"
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6855	!
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6856
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6857	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6858
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6859	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6860	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6861	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6862	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6863	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6864	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6865
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6866	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6867
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6868	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6869	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6870	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6871	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6872	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6873	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6874
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6875	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6876
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6877	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6878	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6879	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6880	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6881	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6882	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6883
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6884	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6885
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6886	selectedSmallTeamHostChanged
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6887	self acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6888	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6889
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6890	"Created: / 12-11-2006 / 19:09:49 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6891	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6892
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6893	update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6894	changedObject == selectedSmallTeamHost ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6895	self selectedSmallTeamHostChanged.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6896	^ self
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6897	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6898
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6899	super update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6900
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6901	"Created: / 12-11-2006 / 19:09:40 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6902	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6903
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6904	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6905
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6906	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6907	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6908	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6909
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6910	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6911
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6912	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6913	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6914	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6915	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6916
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6917	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6918
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6919	addHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6920	^ self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6921
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6922	"Created: / 12-11-2006 / 19:01:37 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6923	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6924
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6925	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6926
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6927	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6928	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6929
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6930	hasUnsavedChanges
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6931	(self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6932	hasChangedAspectIn:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6933	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6934	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6935	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	6936	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6937	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6938	asComparedTo:currentUserPrefs) ifTrue:[^ true].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6939
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6940	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6941	self smallTeamServerEnabled value ~= (SmallTeam isLoaded and:[SmallTeam serverRunning]) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6942	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6943	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6944
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6945	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6946	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6947	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6948	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6949	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6950	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6951	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6952	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6953	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6954	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6955	(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6956	(self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	6957	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6958	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6959
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6960	"Modified: / 20-09-2007 / 16:04:56 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6963	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6967
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6968	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'user actions'!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6969
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6970	addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6971	\|host\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6972
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6973	acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6974
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6975	host := self smallTeamHostEntry value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6976
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6977	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6978	self listOfSmallTeamHosts add:host
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6979	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6980
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6981	"Modified: / 12-11-2006 / 19:06:22 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6982	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6983
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6984	removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6985	\|host\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6986
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6987	acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6988
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6989	host := self selectedSmallTeamHost value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6990
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6991	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6992	self selectedSmallTeamHost value:nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6993	self listOfSmallTeamHosts remove:host ifAbsent:[ self window beep ].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6994	self smallTeamHostEntry value:''.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6995	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6996
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6997	"Modified: / 12-11-2006 / 19:15:05 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6998	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6999
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7000	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7001
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7002	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7003	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7004	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7005
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7006	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7007	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7008
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7009	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7010	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7011	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7012	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7013	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7014
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7015	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7016
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7017	^Icon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7018	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7019	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7020	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A @F@@@@@@@@@@@@@@@@@@@@@@@@@@X@A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7021	@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP4MCP4MCP4MCP4MCP4M@@@@@@@@@04B@0<ODADRD!!LT@ LCCP@@@@@@@@LM@ LOC1@QD!!HSE@HC@04@@@@@@@@CCPLN
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7022	EQTUE!!XVE1\CC 8M@@@@@@@@@0TB@ HB@ HB@ HBB (JAP@@@@@@@@LE@ HB@ HB@ HB@ (JB T@@A(XF@@CAPHB@ HB@ HB@ (JB (E@ @@@@@@@0TB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7023	@ HB@ HJB (JAPH@@A @@@LE@ HB@ HB@ HBB (JB T@@@@X@@@CAPHB@ HB@ HB@ (JB (E@@@@F@@@@0TB@ HB@ HB@ (JB (JAP@@F!!(X@@LE@ HB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7024	@ HBB (JB T@@A(XF@@CAPHB@ HB@ HBB (JB (E@@@ZFA @@0TEAPTEAPTEAPTEAPTEAP@@F!! X@@LC@0LC@0LC@0LC@0LC@0@@@A(ZF@@@@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7025	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; 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 100 100 100 127 127 127 255 255 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@8@@@8@@@P@@@P_?<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@') ; yourself); yourself]
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7026	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7027
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7028	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7029
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7030	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7031	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7032	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7034	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7035	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7037	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7038	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7039	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7040	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7041	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7043	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7045	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7046	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7047	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7048	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7049	(WindowSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7050	label: 'Display settings 2'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7051	name: 'Display settings 2'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7052	min: (Point 10 10)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7053	bounds: (Rectangle 0 0 445 401)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7054	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7055	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7056	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7057	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7058	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7059	name: 'VerticalPanel1'
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7060	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7061	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7062	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7063	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7064	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7065	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7066	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7067	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7068	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7069	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7070	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7071	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7072	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7073	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7074	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7075	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7076	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7077	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7078	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7079	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7080	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7081	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7082	extent: (Point 435 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7083	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7084	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7085	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7086	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7087	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7088	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7089	name: 'Separator1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7090	extent: (Point 435 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7091	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7092	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7093	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7094	extent: (Point 435 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7095	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7096	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7097	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7098	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7099	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7100	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7101	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7102	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7103	(CheckBoxSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7104	label: 'Opaque Variable Panel Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7105	name: 'opaqueVariablePanelResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7106	model: opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7107	translateLabel: true
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7108	extent: (Point 435 22)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7109	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7110	(CheckBoxSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7111	label: 'Opaque Table Column Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7112	name: 'opaqueTableColumnResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7113	model: opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7114	translateLabel: true
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7115	extent: (Point 435 22)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7116	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7117	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7118	name: 'SeparatingSpace3'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7119	extent: (Point 435 4)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7120	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7121	(DividerSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7122	name: 'Separator3'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7123	extent: (Point 435 3)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7124	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7125	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7126	name: 'SeparatingSpace4'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7127	extent: (Point 435 3)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7128	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7129	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7130	label: 'Right-Click in Title brings Window to Back'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7131	name: 'lowerOnRightClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7132	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7133	model: lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7134	translateLabel: true
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7135	extent: (Point 435 21)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7136	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7137	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7138	label: 'Shift-Click in Title brings Window to Back'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7139	name: 'lowerOnShiftClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7140	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7141	model: lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7142	translateLabel: true
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7143	extent: (Point 435 21)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7144	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7145	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7146
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7147	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7148	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7149	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7150
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7151	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7152	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7153	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7154
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7155	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7156
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7157	aspectsFromUserPreferences
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7158	^ #(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7159	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7160	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7161	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7162	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7163
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7164	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7165	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7166
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7167	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7168
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7169	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7170	readAspects:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7171	#(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7172	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7173	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7174	)
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7175	from:currentScreen.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7176
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7177	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7178	readAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7179	from:currentUserPrefs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7180
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7181	self shadows value:PopUpView shadows.
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7182
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7183	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7184	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7185	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7186	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7187	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7188
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7189	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7190	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7191
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7192	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7193
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7194	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7195
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7196	self displaySupportsNativeWidgets ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7197	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7198	mustReopenTools := true.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7199	currentScreen nativeWidgets:self nativeWidgets value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7200	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7201	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7202	self displaySupportsNativeDialogs ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7203	currentScreen nativeDialogs:self nativeDialogs value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7204	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7205	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7206
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7207	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7208	writeAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7209	to:currentUserPrefs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7210
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7211	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7212	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7213	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7214	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7215
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7216	mustReopenTools ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7217	self reopenToolsAfterChangedViewStyleSetting.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7218	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7219	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7220
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7221	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7222
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7223	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7224	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7225	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7226
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7227	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7228	^ Screen current supportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7229	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7230
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7231	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7232	lowerOnRightClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7233	lowerOnRightClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7234	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7235	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7236	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7237	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7238
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7239	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7240	lowerOnShiftClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7241	lowerOnShiftClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7242	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7243	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7244	^ lowerOnShiftClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7245	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7246
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7247	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7248	nativeDialogs isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7249	nativeDialogs := Screen current nativeDialogs asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7250	nativeDialogs onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7251	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7252	^ nativeDialogs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7253	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7254
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7255	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7256	nativeWidgets isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7257	nativeWidgets := Screen current nativeWidgets asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7258	nativeWidgets onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7259	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7260	^ nativeWidgets.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7261	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7262
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7263	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7264	opaqueTableColumnResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7265	opaqueTableColumnResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7266	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7267	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7268	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7269	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7270
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7271	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7272	opaqueVariablePanelResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7273	opaqueVariablePanelResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7274	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7275	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7276	^ opaqueVariablePanelResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7277	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7278
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7279	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7280	shadows isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7281	shadows := PopUpView shadows asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7282	shadows onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7283	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7284	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7285	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7286
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7287	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7288
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7289	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7290	^ 'Launcher/miscSettings.html'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7291	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7292
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7293	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7294
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7295	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7296	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7297
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7298	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7299
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7300	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7301	hasChangedAspectIn:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7302	#(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7303	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7304	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7305	)
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7306	asComparedTo:currentScreen) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7307
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7308	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7309	hasChangedAspectIn:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7310	asComparedTo:currentUserPrefs) ifTrue:[^ true].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7311
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7312	self shadows value ~= PopUpView shadows ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7313
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7314	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7315	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7316	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7317	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7318	^ false
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7319	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7320
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7321	isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7322	^ Screen current platformName = 'WIN32'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7323	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7324
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7325	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7326
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7327	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7328	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7329	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7330
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7331	"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	7332	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	7333
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7334	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7335	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7336	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7337	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7338	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7339
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7340	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7341
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7342	^Icon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7343	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7344	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7345	@@@@@@@@@@@@@@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	7346	@@@@@@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	7347	@ 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	7348	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	7349	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7350	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; 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]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7351	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7352
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7353	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7354
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7355	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7356	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7357	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7358
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7359	"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	7360	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	7361
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7362	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7363	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7364	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7365	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7366	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7367
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7368	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7369
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7370	^
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7371	#(FullSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7372	name: windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7373	window:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7374	(WindowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7375	label: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7376	name: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7377	min: (Point 10 10)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7378	bounds: (Rectangle 0 0 445 497)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7379	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7380	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7381	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7382	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7383	(VerticalPanelViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7384	name: 'VerticalPanel1'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7385	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7386	horizontalLayout: fitSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7387	verticalLayout: topSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7388	horizontalSpace: 5
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7389	verticalSpace: 3
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7390	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7391	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7392	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7393	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7394	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7395	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7396	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7397	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7398	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7399	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7400	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7401	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7402	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7403	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7404	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7405	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7406	)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	7407	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7408	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7409	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	7410	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	7411	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7412	name: 'Separator1'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7413	extent: (Point 435 3)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	7414	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	7415	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7416	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7417	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7418	)
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7419	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7420	label: 'Keyboard Focus Follows Mouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7421	name: 'focusFollowsMouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7422	model: focusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7423	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7424	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7425	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7426	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7427	label: 'Views Catch Focus when Mapped'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7428	name: 'takeFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7429	model: takeFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7430	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7431	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7432	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7433	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7434	label: 'Boxes Return Focus to Previously Active View'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7435	name: 'returnFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7436	model: returnFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7437	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7438	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7439	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7440	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7441	label: 'Raise & Activate Windows on Click'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7442	name: 'activateOnClick'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7443	model: activateOnClick
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7444	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7445	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7446	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7447	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7448	name: 'SeparatingSpace3'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7449	extent: (Point 435 4)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7450	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7451	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7452	name: 'Separator2'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7453	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7454	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7455	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7456	name: 'SeparatingSpace4'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7457	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7458	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7459	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7460	label: 'MouseWheel Focus Follows Mouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7461	name: 'mouseWheelFocusFollowsMouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7462	enableChannel: mouseWheelFocusFollowsMouseEnabled
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7463	model: mouseWheelFocusFollowsMouse
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7464	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7465	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7466	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7467	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7468	label: 'CTRL-MouseWheel is Zoom'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7469	name: 'CheckBox1'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7470	model: allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7471	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7472	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7473	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7474	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7475	name: 'SeparatingSpace5'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7476	extent: (Point 435 4)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7477	)
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7478	(DividerSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7479	name: 'Separator3'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7480	extent: (Point 435 4)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7481	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7482	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7483	name: 'SeparatingSpace6'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7484	extent: (Point 435 3)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7485	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7486	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7487	label: 'Select on Right-Button-Press'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7488	name: 'selectOnRightClick'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7489	model: selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7490	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7491	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7492	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7493	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7494	label: 'Menu on Right-Button-Release'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7495	name: 'showRightButtonMenuOnRelease'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7496	model: showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7497	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7498	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7499	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7500	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7501	name: 'SeparatingSpace7'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7502	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7503	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7504	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7505	name: 'Separator4'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7506	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7507	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7508	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7509	name: 'SeparatingSpace8'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7510	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7511	)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7512	(ViewSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7513	name: 'Box1'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7514	component:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7515	(SpecCollection
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7516	collection: (
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7517	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7518	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7519	name: 'Label1'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7520	layout: (LayoutFrame 0 0 0 0 167 0 17 0)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7521	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7522	labelChannel: formatHostNameWindowLabel
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7523	adjust: right
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7524	useDefaultExtent: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7525	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7526	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7527	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7528	name: 'Label2'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7529	layout: (LayoutFrame 0 0.3 30 0 0 0.6 0 1)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7530	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7531	labelChannel: formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7532	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7533	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7534	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7535	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7536	name: 'Label3'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7537	layout: (LayoutFrame 0 0.6 30 0 0 1 0 1)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7538	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7539	labelChannel: formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7540	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7541	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7542	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7543
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7544	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7545	extent: (Point 435 92)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7546	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7547	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7548	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7549	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7550	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7551	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7552	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7553	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7554	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7555	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7556	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7557	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7558	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7559	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7560	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7561	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7562	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7563	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7564	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7565	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7566	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7567	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7568	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7569	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7570	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7571
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7572	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7573	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7575	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7577	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7578	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7579	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7581	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7582	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7583	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7584
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7585	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7586
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7587	aspectsFromUserPreferences
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7588	^ #(
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7589	beepEnabled
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7590	focusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7591	mouseWheelFocusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7592	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7593	selectOnRightClick
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7594	allowMouseWheelZoom
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7595	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7596	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7597
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7598	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7599	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7600	readAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7601	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7602
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7603	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7604	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7605	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7606	self takeFocus value:StandardSystemView takeFocusWhenMapped.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7607	self activateOnClick value:(Display activateOnClick:nil).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7608	self showAccelerators value:MenuView showAcceleratorKeys.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7609	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7610
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7611	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7612	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	7613
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	7614	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	7615
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7616	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7617	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7618	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7619	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7620	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7621	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7622
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7623	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7624	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7625	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7626
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7627	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7628	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7629	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7630	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7631	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7632	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7633	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7634	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7635	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7636
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7637	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7638	writeAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	7639	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7640
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7641	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7642	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	7643	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7644
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7645	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7646
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7647	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7648	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7649
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7650	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7651	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	7652
c72e35116b13 instable state penk parents: 5040 diff changeset	7653	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	7654	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	7655	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	7656	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	7657	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	7658	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	7659	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	7660	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7661	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7662
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7663	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7664
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7665	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7666	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7667	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7668	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7669	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7670	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7672
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7673	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7674	allowMouseWheelZoom isNil ifTrue:[
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7675	allowMouseWheelZoom := true asValue.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7676	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7677	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7678	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7679	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	7680
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7681	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7682	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7683	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7684	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7685	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7686	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7687	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7688
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	7689	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	7690	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	7691	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	7692
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7693	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7694	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7695	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7696
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7697	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7698	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7699	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7700	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7701	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7702	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7703	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7704
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7705	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7706	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7707	formatHostNameWindowLabel :=
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7708	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7709	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7710	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7711
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	7712	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	7713	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7714	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7715
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7716	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7717	formatHostNameWindowLabel1 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7718	formatHostNameWindowLabel1 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7719	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7720	'%1 - Label
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7721	%2 - Hostname
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7722	%3 - Username')
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7723	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7724	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7725
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7726	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7727	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7728	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7729
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7730	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7731	formatHostNameWindowLabel2 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7732	formatHostNameWindowLabel2 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7733	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7734	'%4 - ProcessId
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7735	%5 - TOP-Directory
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7736	%6 - TOP-Path').
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7737	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7738	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7739
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7740	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7741	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7742	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7743
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7744	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7745	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7746	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7747	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7748	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7749	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7750	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7751
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7752	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7753	mouseWheelFocusFollowsMouse isNil ifTrue:[
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7754	mouseWheelFocusFollowsMouse := true asValue.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7755	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7756	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7757	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7758	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7759
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7760	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7761	^ BlockValue
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7762	forLogicalNot:(self focusFollowsMouse).
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7763	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	7764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7765	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7766	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7767	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7768	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7769	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7770	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7771
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7772	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7773	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7774
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7775	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7776	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7777	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7778	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7779	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7780	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7781	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7782
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7783	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7784	selectOnRightClick isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7785	selectOnRightClick := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7786	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7787	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7788	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7789	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7790
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7791	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7792	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7793	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7794	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7795	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7796	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7797	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7798
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7799	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7800	showRightButtonMenuOnRelease isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7801	showRightButtonMenuOnRelease := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7802	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7803	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7804	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7805	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7807	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7808	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7809	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7810	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7811	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7812	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7813	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7814
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7815	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7816
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7817	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7818	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7819	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7820
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7821	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7823	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	7824	(self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	7825	hasChangedAspectIn:(self aspectsFromUserPreferences)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	7826	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	7827
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7828	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7829	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7830	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7831	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7832	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7833	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	7834	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7835	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7836
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7837	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7838
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7839	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7840	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7841
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7842	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7843	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7844
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7845	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7846
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7847	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7848	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7849	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7850
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7851	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7852	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7853
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7854	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7855	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7856	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7857	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7858	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7859
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7860	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7861
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7862	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7863	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7864	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7865	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7866	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7867	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7868	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7869	min: (Point 10 10)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7870	bounds: (Rectangle 14 46 614 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7871	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7872	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7873	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7874	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7875	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7876	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7877	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7878	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7879	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7880	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7881	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7882	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7883	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7884	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7885	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7886	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7887	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7888	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7889	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7890	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7891	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7892	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7893	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7894	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7895	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7896	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7897	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7898	name: 'CheckBox1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7899	layout: (LayoutFrame 5 0 0 0 -2 0.33 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7900	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7901	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7902	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7903	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7904	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7905	label: 'Log Connections'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7906	name: 'CheckBox2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7907	layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7908	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7909	model: osiACSEConnectionLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7910	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7911	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7912	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7913	label: 'Log Data Xfer'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7914	name: 'CheckBox3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7915	layout: (LayoutFrame 2 0.66 0 0 -2 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7916	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7917	model: osiACSEDataLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7918	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7919	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7920	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7921
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7922	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7923	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7924	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7925	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7926	name: 'Box9'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7927	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7928	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7929	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7930	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7931	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7932	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7933	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7934	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7935	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7936	name: 'Box4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7937	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7938	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7939	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7940	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7941	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7942	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7943	layout: (LayoutFrame 5 0 0 0 -2 0.33 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7944	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7945	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7946	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7947	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7948	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7949	label: 'Log Invoactions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7950	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7951	layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7952	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7953	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7954	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7955	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7956	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7957	label: 'Log Responses'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7958	name: 'CheckBox6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7959	layout: (LayoutFrame 0 0.66 0 0 -2 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7960	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7961	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7962	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7963	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7964	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7965
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7966	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7967	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7968	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7969	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7970	name: 'Box6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7971	extent: (Point 600 23)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7972	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7973	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7974	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7975	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7976	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7977	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7978	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7979	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7980	name: 'Box7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7981	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7982	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7983	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7984	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7985	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7986	name: 'CheckBox7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7987	layout: (LayoutFrame 2 0 0 0 -2 0.33 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7988	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7989	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7990	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7991	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7992	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7993	label: 'Log Messages'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7994	name: 'CheckBox8'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7995	layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7996	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7997	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7998	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	7999	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8000	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8001
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8002	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8003	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8004	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8005	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8006
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8007	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8008	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8009	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8010
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8011	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8012	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8013	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8014
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8015	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8016
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8017	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8018	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8019	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8020	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8021	self osiACSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8022	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8023	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8024	self osiACSEDataLogging value:OSI::ACSE dataLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8025	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8026	self osiROSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8027	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8028	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8029	self osiROSEResponseLogging value:OSI::ROSE responseLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8030	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8031	self osiCMISEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8032	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8033	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8034	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8035	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8036
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8037	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8038
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8039	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8040	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8041	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8042	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8043	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8044	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8045	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8046	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8047	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8048	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8049	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8050	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8051	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8052	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8053	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8054
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8055	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8056
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8057	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8058	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8059	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8060	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8061	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8062	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8063
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8064	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8065
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8066	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8067	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8068	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8069	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8070	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8071
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8072	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8073	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8074	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8075	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8076	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8077	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8078
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8079	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8080	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8081	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8082	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8083	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8084	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8085
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8086	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8087	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8088	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8089	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8090	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8091	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8092
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8093	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8094	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8095	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8096	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8097	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8098	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8100	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8101	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8102	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8103	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8104	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8105	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8106
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8107	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8108	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8109	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8110	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8111	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8112	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8113
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8114	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8115	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8116	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8117	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8118	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8119	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8120
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8121	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8122
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8123	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8124	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8125	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8126	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8127	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8128
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8129	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8130
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8131	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8132	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8133	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8134	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8135	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8136
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8137	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8138
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8139	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8140	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8141	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8142
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8143	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8144
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8145	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8146
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8147	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8148	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8149	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8150	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8151	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8152	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8153	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8154	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8155	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8156	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8157	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8158	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8159	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8160
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8161	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8162
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8163	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8164	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8165
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8166	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8167	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8168
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8169	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8170
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8171	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8172	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8173	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8174
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8175	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8176	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8178	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8179	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8180	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8181	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8182	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8183
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8184	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8185
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8186	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8187	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8188	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8189	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8190	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8191	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8192	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8193	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8194	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8195	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8196	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8197	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8198	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8199	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8200	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8201	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8202	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8203	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8204	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8205	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8206	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8207	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8208	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8209	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8210	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8211	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8212	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8213	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8214	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8215	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8216	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8217	layout: (LayoutFrame 0 0 5 0 181 0 27 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8218	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8219	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8220	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8221	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8222	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8223	layout: (LayoutFrame 183 0 5 0 -5 1 27 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8224	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8225	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8226	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8227	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8228	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8229	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8230	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8231	layout: (LayoutFrame 0 0 31 0 181 0 53 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8232	visibilityChannel: printerIsDrivenByCommand
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8233	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8234	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8235	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8236	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8237	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8238	layout: (LayoutFrame 183 0 31 0 -5 1 53 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8239	visibilityChannel: printerIsDrivenByCommand
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8240	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8241	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8242	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8243	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8244	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8245	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8246	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8247	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8248	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8249	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8250	layout: (LayoutFrame 0 0 57 0 181 0 79 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8251	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8252	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8253	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8254	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8255	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8256	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8257	layout: (LayoutFrame 183 0 57 0 -5 1 79 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8258	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8259	model: printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8260	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8261	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8262	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8263	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8264	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8265	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8266
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8267	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8268	extent: (Point 616 84)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8269	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8270	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8271	name: 'FormatBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8272	visibilityChannel: supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8273	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8274	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8275	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8276	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8277	name: 'Separator1'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8278	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8279	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8280	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8281	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8282	name: 'PageFormatLabel'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8283	layout: (LayoutFrame 0 0 7 0 181 0 29 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8284	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8285	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8286	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8287	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8288	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8289	name: 'PageFormatPopUpList'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8290	layout: (LayoutFrame 183 0 7 0 333 0 29 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8291	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8292	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8293	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8294	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8295	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8296	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8297	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8298	name: 'LandscapeCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8299	layout: (LayoutFrame 380 0 7 0 -5 1 29 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8300	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8301	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8302	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8303	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8304	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8305
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8306	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8307	extent: (Point 616 30)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8308	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8309	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8310	name: 'MarginBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8311	visibilityChannel: supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8312	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8313	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8314	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8315	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8316	name: 'Separator5'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8317	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8318	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8319	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8320	name: 'VerticalPanel2'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8321	layout: (LayoutFrame 0 0.0 4 0.0 0 1.0 4 1.0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8322	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8323	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8324	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8325	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8326	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8327	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8328	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8329	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8330	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8331	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8332	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8333	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8334	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8335	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8336	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8337	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8338	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8339	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8340	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8341	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8342	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8343	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8344	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8345	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8346	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8347	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8348	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8349	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8350	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8351	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8352	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8353	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8354	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8355	layout: (LayoutFrame -155 1 0 0 -5 1 21 0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8356	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8357	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8358	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8359	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8360	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8361	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8362
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8363	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8364	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8365	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8366	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8367	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8368	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8369	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8370	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8371	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8372	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8373	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8374	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8375	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8376	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8377	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8378	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8379	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8380	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8381	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8382	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8383	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8384	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8385	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8386	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8387	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8388	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8389	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8390
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8391	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8392	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8393	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8394	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8395	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8396	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8397	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8398	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8399	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8400	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8401	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8402	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8403	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8404	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8405	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8406	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8407	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8408	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8409	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8410	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8411	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8412	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8413	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8414	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8415	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8416	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8417	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8418
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8419	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8420	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8421	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8422	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8423	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8424	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8425	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8426	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8427	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8428	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8429	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8430	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8431	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8432	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8433	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8434	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8435	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8436	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8437	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8438	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8439	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8440	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8441	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8442	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8443	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8444	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8445	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8446
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8447	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8448	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8449	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8450	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8451
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8452	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8453	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8454	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8455
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8456	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8457	extent: (Point 616 100)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8458	)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8459	(ViewSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8460	name: 'ColorBox'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8461	visibilityChannel: supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8462	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8463	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8464	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8465	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8466	name: 'Separator6'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8467	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8468	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8469	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8470	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8471	name: 'ColorPrinterCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8472	layout: (LayoutFrame 183 0 4 0 782 0 25 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8473	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8474	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8475	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8476	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8477	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8478
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8479	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8480	extent: (Point 616 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8481	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8482	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8484	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8485	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8486	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8487
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	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8492	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8493
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8494	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8495	Printer notNil ifTrue:[
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8496	self
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8497	readAspects:
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8498	#(
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8499	topMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8500	bottomMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8501	leftMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8502	rightMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8503	landscape
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8504	printCommand
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8505	printFilename
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8506	supportsColor
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8507	)
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8508	from:Printer.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8509	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8510
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8511	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8512	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8513	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8514
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8515	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8516	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8517
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8518	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8519
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8520	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8521
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8522	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8523	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8524
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8525	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8526	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8527	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8528	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8529	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8530	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8531	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8532	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8533	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8534	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8535	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8536	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8537	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8538	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8539	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8540	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8541	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8542	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8543	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8544	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8546	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8548	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8550	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8551	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8552	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8553	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8554	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8555	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8556
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8557	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8558
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8559	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8560	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8561	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8562	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8563	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8564
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8565	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8566
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8567	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8568	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8569	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8570	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8571	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8572
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8573	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8574
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8575	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8576	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8577	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8578	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8579	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8580
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8581	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8582
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8583	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8584	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8585	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8586	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8587	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8588
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8589	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8591	landscape isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8592	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8593	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8594	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8595	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8596
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8597	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 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	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8601
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8602	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8603	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8604	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8605	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8606	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8607	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8608
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8609	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8611	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8612	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8613	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8614	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8615	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8616	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8617	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8618	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8619	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8620	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8621	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8622	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8623	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8624
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8625	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8627	pageFormatList isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8628	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8629	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8630	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8631
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8632	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8633	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8634
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8635	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8637	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8638	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8639	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8640	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8641	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8642	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8643
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8644	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8645	^ BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8646	with:[:m \| m isEmptyOrNil]
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8647	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8648
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8649	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8650	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8651
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8652	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8653
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8654	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8655	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8656	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8657	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8658	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8659
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8660	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8661	printFilename isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8662	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8663	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8664	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8665	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8666
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8667	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8668	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8669
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8670	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8671	printerIsDrivenByCommand isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8672	printerIsDrivenByCommand := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8673	with:[:m \| (self possiblePrinters at:m) isDrivenByCommand ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8674	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8675	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8676	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8677
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8678	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8679	"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	8680	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8681
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8682	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8683	printerSupportsPrintingToFile isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8684	printerSupportsPrintingToFile := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8685	with:[:m \| (self possiblePrinters at:m) supportsPrintingToFile ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8686	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8687	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8688	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8689
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8690	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8691	"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	8692	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8693
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8694	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8695	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8696	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8697	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8698	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8699	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8700
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8701	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8702	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8703
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8704	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8706	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8707	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8708	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8709	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8710	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8711	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8712	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8713
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8714	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8715	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8716
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8717	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8719	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8720	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8721	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8722	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8723	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8724	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8725
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8726	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8728	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8729	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8730	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8731	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8732	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8733	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8734	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8735	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8736
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8737	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8739	supportsColor isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8740	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8741	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8742	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8743	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8744
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8745	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8746	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8747
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8748	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8749	supportsColorSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8750	supportsColorSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8751	with:[:m \| (self possiblePrinters at:m) supportsColor ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8752	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8753	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8754	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8755
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8756	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8757	"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	8758	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8759
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8760	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8761	supportsMarginSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8762	supportsMarginSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8763	with:[:m \| (self possiblePrinters at:m) supportsMargins ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8764	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8765	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8766	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8767
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8768	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8769	"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	8770	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8771
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8772	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8773	supportsPageFormatSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8774	supportsPageFormatSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8775	with:[:m \| (self possiblePrinters at:m) supportsPageSizes ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8776	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8777	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8778	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8779
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8780	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	8781	"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	8782	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8783
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8784	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8786	topMargin isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8787	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8788	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8790	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8791
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8792	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8793	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8794
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8795	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8797	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8798	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8799	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8800	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8801	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8803	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8804
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8805	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8806	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8807
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	8808	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8809	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8810	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8811	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8812	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8813	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8814	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8816	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8817
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8818	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8819	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8821	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8822	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8823	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8824	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8825	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8826	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8827	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8828	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8829	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8830	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8831	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8832	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8833	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8834	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8835	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8836	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8837	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8838	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8839	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8840	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8841	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8842	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8843
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	8844	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	8845	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	8846	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	8847	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8849	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8850	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8851	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8853	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8854	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8855	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8856	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8857	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8858	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8859	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8860	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8861	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8862	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8863	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8864	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8865	printerSupportsPostscript ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8866	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8867	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8868	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8869	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8870
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8871	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8872	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8873
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8874	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8875	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8876
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8877	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8878	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8879	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8880	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8881	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8882
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8883	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8884	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8885
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8886	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8887
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8888	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8889	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8890	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8891
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8892	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8893
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8894	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8895	commandList isNil ifTrue:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	8896	commandList := resources string:'PRINT_COMMANDS' default:nil.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8897	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8898	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8899	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	8900	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8901	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	8902	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	8903	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8904	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8905	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8906	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8907	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8908	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8909
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8910	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8911	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8912
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8913	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8914
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8915	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8916	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8917	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8918	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8919	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8920	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8921
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8922	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8923
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8924	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8925	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8926
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8927	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8928	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8929	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8930	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8931	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8932	Printer topMargin ~= ((UnitConverter convert:(self topMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8933	Printer leftMargin ~= ((UnitConverter convert:(self leftMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8934	Printer rightMargin ~= ((UnitConverter convert:(self rightMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8935	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8936	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8937	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8938	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8939	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8940	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8941
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	8942	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8943	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8944
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8945	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8946	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8947	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8948	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8949	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8950	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8951
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8952	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8953
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8954	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8955	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8956	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8957
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8958	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8959	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8960
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8961	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8962	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8963	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8964	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8965	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8966
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8967	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8968
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8969	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8970	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8971	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8972	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8973	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8974	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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	8975	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8976
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8977	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8978
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8979	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8980	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8981	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8982
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8983	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8984	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8985
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8986	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8987	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8988	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8989	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8990	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8991
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8992	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8993
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8994	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8995	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8996	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8997	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8998	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8999	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9000	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9001	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9002	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9003	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9004	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9005	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9006	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9007	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9008	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9009	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9010	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9011	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9012	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9013	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9014	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9015	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9016	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9017	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9018	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9019	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9020	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9021	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9022	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9023	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9024	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9025	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9026	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9027	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9028	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9029	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9030	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9031	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9032	layout: (LayoutFrame 30 0.0 0 0 0 1.0 22 0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9033	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9034	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9035	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9036	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9037	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9038
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9039	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9040	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9041	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9042	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9043
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9044	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9045	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9046	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9047
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9048	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9049	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9050	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9051
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9052	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9053
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9054	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9055	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9056	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9057	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9059	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9060
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9061	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9062	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9063	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9064	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9065	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9066	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9067	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9068	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9069	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9070	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9071	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9072
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9073	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9074
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9075	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9076	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9077	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9078	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9079	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9080	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9081	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9082
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9083	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9084	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9085	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9086	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9087	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9088	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9089	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9090
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9091	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9092
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9093	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9094	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9095	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9096
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9097	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9098
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9099	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9100	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9101	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9102	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9103	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9104
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9105	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9106
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9107	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9108	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9109	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9110
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9111	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9112	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9113
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9114	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9115	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9116	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9117	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9118	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9119
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9120	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9121
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9122	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9123	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9124	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9125	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	9126	''#L3L38Q6,1P@@&[L3L8 @]7''E@@BYE3NH (@@_LT@@I$WNBBDAH L1P@@&Q]8P$IB"@3E@@BY4W $ B$@CLT@@L3L $!!H@$"@1P@@3L2DJB DJHCE@@@@UV
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9127	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; 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]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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	9128	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9129
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9130	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9131
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9132	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9133	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9134	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9135
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9136	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9137	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9138
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9139	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9140	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9141	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9142	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9143	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9144
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9145	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9146
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9147	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9148	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9149	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9150	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9151	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9152	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9153	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9154	min: (Point 10 10)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9155	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9156	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9157	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9158	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9159	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9160	(FramedBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9161	label: 'RDoIt'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9162	name: 'RDoItFramedBox'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9163	layout: (LayoutFrame 0 0 0 0 0 1 189 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9164	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9165	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9166	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9167	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9168	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9169	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9170	name: 'VerticalPanel2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9171	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9172	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9173	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9174	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9175	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9176	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9177	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9178	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9179	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9180	name: 'Box1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9181	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9182	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9183	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9184	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9185	label: 'Remote doits enabled'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9186	name: 'CheckBox1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9187	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9188	enableChannel: hasRDoitServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9189	model: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9190	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9191	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9192	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9193
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9194	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9195	extent: (Point 568 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9196	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9197	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9198	name: 'Box2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9199	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9200	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9201	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9202	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9203	label: 'Port/Path:'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9204	name: 'Label2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9205	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9206	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9207	adjust: right
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9208	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9209	(InputFieldSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9210	name: 'EntryField1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9211	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9212	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9213	model: rDoitServerPortOrPath
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9214	acceptOnReturn: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9215	acceptOnTab: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9216	acceptOnLostFocus: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9217	acceptOnPointerLeave: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9218	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9219	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9220	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9221	name: 'Label3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9222	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9223	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9224	adjust: left
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9225	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9226	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9227
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9228	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9229	extent: (Point 568 60)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9230	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9231	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9232	name: 'Box3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9233	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9234	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9235	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9236	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9237	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9238	name: 'CheckBox2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9239	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9240	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9241	model: rDoitErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9242	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9243	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9244	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9245
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9246	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9247	extent: (Point 568 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9248	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9249	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9250	name: 'Box4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9251	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9252	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9253	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9254	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9255	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9256	name: 'CheckBox3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9257	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9258	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9259	model: rDoitLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9260	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9261	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9262	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9263
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9264	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9265	extent: (Point 568 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9266	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9267	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9268	name: 'Box5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9269	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9270	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9271	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9272	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9273	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9274	name: 'CheckBox4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9275	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9276	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9277	model: rDoitErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9278	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9279	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9280	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9281
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9282	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9283	extent: (Point 568 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9284	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9285	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9286
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9287	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9288	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9289	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9290
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9291	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9292	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9293	(FramedBoxSpec
9174 841e5c387e0b * empty log message * Claus Gittinger <cg@exept.de> parents: 9167 diff changeset	9294	label: 'JavaScript-Scripting via Telnet'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9295	name: 'ScriptingFramedBox'
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9296	layout: (LayoutFrame 0 0 189 0 0 1 404 0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9297	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9298	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9299	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9300	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9301	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9302	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9303	name: 'VerticalPanel3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9304	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9305	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9306	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9307	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9308	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9309	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9310	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9311	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9312	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9313	name: 'Box6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9314	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9315	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9316	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9317	(CheckBoxSpec
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9318	label: 'JavaScript-Scripting enabled'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9319	name: 'CheckBox5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9320	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9321	enableChannel: hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9322	model: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9323	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9324	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9325	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9326
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9327	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9328	extent: (Point 568 25)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9329	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9330	(ViewSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9331	name: 'Box12'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9332	component:
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9333	(SpecCollection
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9334	collection: (
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9335	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9336	label: 'Port:'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9337	name: 'Label4'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9338	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9339	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9340	adjust: right
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9341	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9342	(InputFieldSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9343	name: 'EntryField2'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9344	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9345	enableChannel: rDoitsEnabled
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9346	model: scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9347	isReadOnly: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9348	acceptOnReturn: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9349	acceptOnTab: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9350	acceptOnLostFocus: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9351	acceptOnPointerLeave: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9352	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9353	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9354	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9355	name: 'Label5'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9356	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9357	initiallyInvisible: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9358	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9359	adjust: left
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9360	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9361	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9362
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9363	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9364	extent: (Point 568 60)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9365	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9366	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9367	name: 'Box11'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9368	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9369	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9370	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9371	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9372	label: 'Local Connections Only'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9373	name: 'CheckBox9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9374	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9375	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9376	model: scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9377	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9378	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9379	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9380
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9381	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9382	extent: (Point 568 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9383	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9384	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9385	name: 'Box8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9386	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9387	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9388	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9389	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9390	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9391	name: 'CheckBox6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9392	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9393	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9394	model: scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9395	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9396	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9397	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9398
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9399	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9400	extent: (Point 568 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9401	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9402	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9403	name: 'Box9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9404	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9405	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9406	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9407	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9408	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9409	name: 'CheckBox7'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9410	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9411	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9412	model: scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9413	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9414	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9415	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9416
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9417	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9418	extent: (Point 568 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9419	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9420	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9421	name: 'Box10'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9422	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9423	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9424	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9425	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9426	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9427	name: 'CheckBox8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9428	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9429	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9430	model: scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9431	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9432	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9433	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9434
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9435	)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9436	extent: (Point 568 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9437	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9438	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9439
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9440	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9441	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9442	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9443
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9444	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9445	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9446	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9447
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9448	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9449	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9450	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9451
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9452	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9453
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9454	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9455	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9456	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9457	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9458
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9459	rDoitsEnabled := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9460	rDoitLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9461	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9462	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9463	rDoitServerPortOrPath := ''.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9464
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9465	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9466	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9467
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9468	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9469	rDoitsEnabled := RDoItServer serverRunning.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9470	rDoitLogging := RDoItServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9471	rDoitErrorLogging := RDoItServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9472	rDoitErrorDebugging := RDoItServer isErrorCatching not.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9473	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9474	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9475
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9476	(STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9477	and:[ STXScriptingServer isLoaded ]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9478	scriptingEnabled := STXScriptingServer serverRunning.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9479	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9480	scriptingLogging := STXScriptingServer isLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9481	scriptingErrorLogging := STXScriptingServer isErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9482	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9483	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9484
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9485	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9486	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9487	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9488	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9489	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9490
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9491	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9492	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9493	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9494	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9495	self scriptingErrorDebugging value:scriptingErrorDebugging.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9496	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9497
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9498	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	9499	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	9500
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9501	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	9502
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9503	self hasRDoitServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9504	RDoItServer defaultPortNumberOrPath:portOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9505	RDoItServer logging:self rDoitLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9506	RDoItServer errorLogging:self rDoitErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9507	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9508	shouldRun := self rDoitsEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9509	shouldRun ~~ RDoItServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9510	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9511	RDoItServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9512	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9513	RDoItServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9514	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9515	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9516	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9517	RDoItServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9518	self warn:'RDoit startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9519	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9520	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9521	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9522	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9523
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9524	self hasScriptingServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9525	STXScriptingServer logging:self scriptingLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9526	STXScriptingServer errorLogging:self scriptingErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9527	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9528	shouldRun := self scriptingEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9529	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9530	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9531	STXScriptingServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9532	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9533	STXScriptingServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9534	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9535	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9536	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9537	STXScriptingServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9538	self warn:'STXScripting startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9539	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9540	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9541	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9542	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9543	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9544
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9545	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9546	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9547
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9548	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9549	portOrPath isNumber ifFalse:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9550	"a numeric string means it is a TCP port number"
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9551	nrOrNil := Integer readFrom:portOrPath onError:nil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9552	nrOrNil notNil ifTrue:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9553	portOrPath := nrOrNil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9554	]
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9555	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9556	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9557	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9558
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9559	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9560
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9561	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9562	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9563	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9564	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9565	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9566	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9567	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9568
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9569	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9570	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9571	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9572	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9573	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9574	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9575	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9576
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9577	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9578	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9579	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9580	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9581	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9582	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9583	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9584
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	9585	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	9586	rDoitServerPortOrPath isNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9587	rDoitServerPortOrPath := nil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9588	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	9589	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	9590	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9591	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9592
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9593	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9594	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9595	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	9596	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9597	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9598	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9599	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9600
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9601	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9602	scriptingEnabled isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9603	scriptingEnabled := false asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9604	scriptingEnabled onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9605	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9606	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9607	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9608
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9609	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9610	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9611	scriptingEnabledOnlyViaLocalConnection := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9612	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9613	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9614	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9615	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9616
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9617	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9618	scriptingErrorDebugging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9619	scriptingErrorDebugging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9620	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9621	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9622	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9623	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9624
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9625	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9626	scriptingErrorLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9627	scriptingErrorLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9628	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9629	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9630	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9631	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9632
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9633	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9634	scriptingLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9635	scriptingLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9636	scriptingLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9637	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9638	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9639	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9640
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9641	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9642	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9643
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9644	"automatically generated by UIPainter ..."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9645
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9646	"*** the code below creates a default model when invoked."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9647	"*** (which may not be the one you wanted)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9648	"*** Please change as required and accept it in the browser."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9649	"*** (and replace this comment by something more useful ;-)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9650
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9651	scriptingServerPortOrPath isNil ifTrue:[
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9652	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9653	"/ if your app needs to be notified of changes, uncomment one of the lines below:
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9654	"/ scriptingServerPortOrPath addDependent:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9655	"/ scriptingServerPortOrPath onChangeSend:#scriptingServerPortOrPathChanged to:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9656	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	9657	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9658	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9659
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9660	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9661
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9662	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9663	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9664	self rDoitsEnabled value ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9665	RDoItServer autoload.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	9666	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9667	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9668	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9669	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9670	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9671
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9672	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9673
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9674	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9675	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9676	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9677
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9678	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9679
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9680	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9681	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9682	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9684	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	9685	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	9686	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	9687
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9688	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9689	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9690	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9691
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9692	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9693	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9694	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9695
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9696	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9697	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9698	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9699	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9700	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9701	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9702	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	9703	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9704	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9705	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9706	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9707	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9708	STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9709	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9710	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9711	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9712	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9713	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9714	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9715	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9716	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9717
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9718	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9719
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9720	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9721	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9722	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9723
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9724	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9725	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9726
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9727	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9728	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9729	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9730	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9731	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9732
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9733	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9734
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9735	^Icon
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9736	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9737	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9738	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9739	@@@@@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	9740	@@@@@@@@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	9741	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	9742	@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	9743	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"@@@@@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9744	@@@@@@@@@@@@@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:((Depth1Image 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	9745	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9746
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9747	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9748	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9749	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9750
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9751	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9752	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9753
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9754	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9755	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9756	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9757	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9758	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9759
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9760	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9761
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9762	^Icon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9763	constantNamed:'Object class dbIcon2'
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9764	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9765	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9766	@@@@@@@@@@@@@@@@@@@@!!!!"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	9767	"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	9768	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	9769	@@@@@@@@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	9770	W@@@@@@@@@@@@@@@@@B@_$X!!#H0!!Q'':@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9771	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@_>@@??@@?? @?? @?? @?? @?? @?? @?? @?? @?? @?? @?? @_? @O?@@@@@@@@@@@@@@@@@') ; yourself); yourself]
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9772	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9773
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9774	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9775	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9776
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9777	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	9778	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9779	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9780
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9781	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9782
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9783	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9784	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9785	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9786
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9787	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9788	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9789
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9790	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9791	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9792	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9793	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9794	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9795
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9796	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9797
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9798	^
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9799	#(FullSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9800	name: windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9801	window:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9802	(WindowSpec
6428 76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	9803	label: 'SQL Server Settings'
76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	9804	name: 'SQL Server Settings'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9805	min: (Point 10 10)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9806	bounds: (Rectangle 0 0 600 550)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9807	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9808	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9809	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9810	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9811	(VerticalPanelViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9812	name: 'VerticalPanel2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9813	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9814	horizontalLayout: fit
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9815	verticalLayout: top
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9816	horizontalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9817	verticalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9818	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9819	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9820	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9821	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9822	name: 'EnableBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9823	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9824	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9825	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9826	(CheckBoxSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9827	label: 'SQL Server Enabled'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9828	name: 'EnableCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9829	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9830	enableChannel: hasSQLServerClass
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9831	model: sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9832	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9833	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9834	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9835
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9836	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9837	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9838	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9839	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9840	name: 'PortBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9841	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9842	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9843	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9844	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9845	label: 'MySQL Port:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9846	name: 'Label2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9847	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9848	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9849	adjust: right
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9850	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9851	(InputFieldSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9852	name: 'EntryField1'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9853	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9854	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9855	model: sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9856	acceptOnReturn: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9857	acceptOnTab: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9858	acceptOnLostFocus: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9859	acceptOnPointerLeave: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9860	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9861	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9862	label: 'MySQL Port-Number (ODBC)'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9863	name: 'Label3'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9864	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9865	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9866	adjust: left
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9867	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9868	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9869
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9870	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9871	extent: (Point 600 72)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9872	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9873	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9874	name: 'LogErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9875	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9876	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9877	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9878	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9879	label: 'Log Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9880	name: 'ErrorLoggingCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9881	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9882	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9883	model: sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9884	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9885	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9886	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9887
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9888	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9889	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9890	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9891	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9892	name: 'LogDataBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9893	component:
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9894	(SpecCollection
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9895	collection: (
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9896	(CheckBoxSpec
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9897	label: 'Log Data'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9898	name: 'LogDataCheckBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9899	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9900	enableChannel: sqlServerEnabled
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9901	model: sqlDataLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9902	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9903	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9904	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9905
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9906	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9907	extent: (Point 600 23)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9908	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9909	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9910	name: 'LogRequestsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9911	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9912	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9913	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9914	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9915	label: 'Log Requests'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9916	name: 'LogRequestsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9917	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9918	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9919	model: sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9920	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9921	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9922	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9923
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9924	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9925	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9926	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9927	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9928	name: 'LogSQLBox'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9929	component:
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9930	(SpecCollection
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9931	collection: (
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9932	(CheckBoxSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9933	label: 'Log SQL'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9934	name: 'CheckBox1'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9935	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9936	enableChannel: sqlServerEnabled
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9937	model: sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9938	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9939	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9940	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9941
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9942	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	9943	extent: (Point 600 24)
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9944	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9945	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9946	name: 'DebugErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9947	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9948	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9949	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9950	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9951	label: 'Debug Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9952	name: 'DebugErrorsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9953	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9954	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9955	model: sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9956	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9957	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9958	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9959
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9960	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9961	extent: (Point 600 23)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9962	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9963	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9964	name: 'Box1'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9965	extent: (Point 600 10)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9966	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9967	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9968	name: 'EnableSmalltalkBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9969	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9970	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9971	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9972	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	9973	label: 'Virtual Smalltalk Tables Enabled'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9974	name: 'EnableSmalltalkCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9975	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9976	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9977	model: sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9978	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9979	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9980	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9981
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9982	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9983	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9984	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9985	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9986
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9987	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9988	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9989	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9990
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9991	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9992	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9993	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9994
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9995	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9996
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9997	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9998	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	9999
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10000	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10001	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10002	self sqlServerEnabled value:sqlServerClass serverRunning.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10003	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10004	self sqlLogging value:sqlServerClass isLogging.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10005	self sqlStatementLogging value:sqlServerClass isSQLLogging.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10006	self sqlErrorLogging value:sqlServerClass isErrorLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10007	self sqlDataLogging value:sqlServerClass isDataLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10008	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10009	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10010	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10011	self sqlServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10012	self sqlSmalltalkServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10013	self sqlLogging value:false.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10014	self sqlStatementLogging value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10015	self sqlErrorLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10016	self sqlDataLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10017	self sqlErrorDebugging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10018	self sqlServerPort value:nil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10019	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10020
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10021	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10022	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10023
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10024	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10025	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10026
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10027	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10028
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10029	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10030	port isNumber ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10031	port := port asInteger.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10032	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10033
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10034	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10035	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10036	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10037	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10038	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10039	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10040	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10041
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10042	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10043	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10044	shouldRun ifFalse:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10045	sqlServerClass stop
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10046	] ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10047	sqlServerClass start.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10048	"/ must wait a bit; give it a chance to
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10049	"/ really start (before checking)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10050	Delay waitForSeconds:1.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10051	sqlServerClass serverRunning ifFalse:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10052	self warn:'SQLServer startup failed (see stderr).'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10053	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10054	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10055	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10056
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10057	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10058	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10059
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10060	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10061
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10062	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10063	sqlDataLogging isNil ifTrue:[
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10064	sqlDataLogging := true asValue.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10065	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10066	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10067	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10068	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10069
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10070	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10071	sqlErrorDebugging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10072	sqlErrorDebugging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10073	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10074	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10075	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10076	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10077
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10078	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10079	sqlErrorLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10080	sqlErrorLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10081	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10082	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10083	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10084	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10085
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10086	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10087	sqlLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10088	sqlLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10089	sqlLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10090	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10091	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10092	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10093
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10094	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10095	sqlServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10096	sqlServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10097	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10098	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10099	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10100	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10101
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10102	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10103	sqlServerPort isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10104	sqlServerPort := ValueHolder new.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10105	sqlServerPort onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10106	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10107	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10108	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10109
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10110	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10111	sqlSmalltalkServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10112	sqlSmalltalkServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10113	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10114	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10115	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10116	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10117
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10118	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10119	sqlStatementLogging isNil ifTrue:[
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10120	sqlStatementLogging := true asValue.
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10121	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10122	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10123	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10124	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10125
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10126	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10127
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10128	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10129	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10130	self sqlServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10131	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10132	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10133	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10134	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10135
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10136	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10137	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10138
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10139	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10140	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10141	self sqlSmalltalkServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10142	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10143	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10144	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10145	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10146
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10147	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10148	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10149
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10150	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10151
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10152	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10153	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10154	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10155
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10156	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10157
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10158	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10159	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10160
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10161	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10162	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10163
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10164	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10165	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10166
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10167	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10168	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10169
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10170	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10171	sqlServerClass serverRunning ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10172	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10173	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10174	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10175	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10176	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10177	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10178	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10179	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10180	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10181
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10182	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10183	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10184
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10185	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10186	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10187
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10188	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10189	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10190
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10191	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10192
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10193	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10194	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10195	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10196
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10197	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10198
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10199	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10200	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10201
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10202	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10203
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10204	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10205	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10206
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10207	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10208
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10209	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10210	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10211
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10212	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10213	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10214	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10215
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10216	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10217	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10218
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10219	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10220	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10221	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10222	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10223	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10224
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10225	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10226
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10227	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10228	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	10229	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	10230	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUV(JUW@CUV""UWDCUU")UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	10231	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); 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	10232	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10233
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10234	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10235	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10236	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10237
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10238	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10239	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10240
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10241	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10242	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10243	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10244	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10245	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10246
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10247	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10248
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10249	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10250	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10251	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10252	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	10253	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	10254	@@@@@@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	10255	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	10256	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	10257	@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	10258	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	10259	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10260
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10261	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10262	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10263	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10264
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10265	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10266	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10267
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10268	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10269	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10270	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10271	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10272	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10273
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10274	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10275
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10276	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10277	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10278	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10279	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	10280	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	10281	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	10282	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	10283	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	10284	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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10285	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:((Depth1Image 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	10286	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10287
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10288	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10289	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10290	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10291
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10292	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10293	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10294
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10295	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10296	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10297	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10298	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10299	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10300
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10301	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10302
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10303	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10304	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10305	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10306	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	10307	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	10308	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	10309	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	10310	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	10311	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
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10312	@@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:((Depth1Image 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	10313	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10314
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10315	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10316
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10317	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10318	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10319	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10320
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10321	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10322	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10323
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10324	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10325	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10326	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10327	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10328	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10329
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10330	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10331
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10332	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10333	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10334	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10335	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10336	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10337	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10338	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10339	min: (Point 10 10)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10340	bounds: (Rectangle 0 0 600 478)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10341	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10342	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10343	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10344	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10345	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10346	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10347	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10348	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10349	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10350	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10351	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10352	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10353	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10354	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10355	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10356	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10357	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10358	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10359	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10360	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10361	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10362	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10363	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10364	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10365	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10366	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10367	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10368	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10369	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10370	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10371	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10372	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10373	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10374	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10375	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10376	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10377	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10378	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10379	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10380	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10381	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10382
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10383	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10384	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10385	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10386	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10387	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10388	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10389	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10390	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10391	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10392	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10393	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10394	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10395	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10396	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10397	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10398	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10399	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10400	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10401	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10402	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10403	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10404	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10405	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10406	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10407	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10408	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10409	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10410
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10411	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10412	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10413	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10414	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10415	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10416	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10417	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10418	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10419	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10420	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10421	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10422	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10423	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10424	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10425	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10426	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10427	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10428	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10429	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10430	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10431	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10432	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10433	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10434	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10435	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10436	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10437	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10438
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10439	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10440	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10441	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10442	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10443	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10444	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10445	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10446	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10447	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10448	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10449	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10450	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10451	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10452	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10453	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10454	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10455	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10456	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10457	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10458	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10459	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10460	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10461	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10462	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10463	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10464	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10465	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10466
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10467	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10468	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10469	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10470	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10471	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10472	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10473	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10474	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10475	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10476	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10477	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10478	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10479	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10480	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10481	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10482	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10483	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10484	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10485	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10486	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10487	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10488	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10489	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10490	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10491	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10492	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10493	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10494
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10495	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10496	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10497	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10498	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10499	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10500	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10501	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10502	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10503	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10504	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10505	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10506	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10507	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10508	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10509	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10510	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10511	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10512	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10513	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10514	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10515	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10516	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10517	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10518	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10519	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10520	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10521	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10522
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10523	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10524	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10525	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10526	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10527	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10528	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10529	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10530	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10531	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10532	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10533	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10534	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10535	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10536	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10537	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10538	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10539	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10540	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10541	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10542	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10543	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10544	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10545	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10546	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10547	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10548	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10549	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10550
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10551	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10552	extent: (Point 600 34)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10553	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10554	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10555	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10556	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10557	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10558	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10559	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10560	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10561	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10562	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10563	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10564	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10565	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10566	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10567	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10568	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10569	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10570	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10571	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10572	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10573	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10574	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10575	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10576	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10577	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10578
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10579	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10580	extent: (Point 600 33)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10581	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10582	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10583	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10584	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10585	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10586	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10587	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10588	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10589	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10590	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10591	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10592	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10593	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10594	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10595	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10596	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10597	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10598	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10599	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10600	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10601	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10602	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10603	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10604	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10605	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10606
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10607	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10608	extent: (Point 600 32)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10609	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10610	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10611	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10612	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10613	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10614	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10615	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10616	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10617	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10618	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10619	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10620	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10621	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10622	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10623	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10624	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10625	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10626	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10627	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10628	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10629	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10630	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10631	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10632	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10633	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10634
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10635	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10636	extent: (Point 600 31)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10637	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10638	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10639	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10640	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10641	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10642	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10643	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10644	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10645	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10646	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10647	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10648	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10649	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10650	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10651	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10652	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10653	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10654	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10655	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10656	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10657	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10658	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10659	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10660	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10661	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10662
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10663	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10664	extent: (Point 600 31)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10665	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10666	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10667	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10668	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10669	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10670	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10671	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10672	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10673	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10674	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10675	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10676	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10677	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10678	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10679	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	10680	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10681	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10682	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10683	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10684	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10685	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10686	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10687	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10688	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10689	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10690
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10691	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	10692	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10693	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10694	(ViewSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	10695	name: 'MakeCommandBox'
ec908ed4b944 make command fm parents: 6860 diff changeset	10696	component:
ec908ed4b944 make command fm parents: 6860 diff changeset	10697	(SpecCollection
ec908ed4b944 make command fm parents: 6860 diff changeset	10698	collection: (
ec908ed4b944 make command fm parents: 6860 diff changeset	10699	(LabelSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	10700	label: 'Make Command:'
ec908ed4b944 make command fm parents: 6860 diff changeset	10701	name: 'Label13'
ec908ed4b944 make command fm parents: 6860 diff changeset	10702	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
ec908ed4b944 make command fm parents: 6860 diff changeset	10703	translateLabel: true
ec908ed4b944 make command fm parents: 6860 diff changeset	10704	adjust: right
ec908ed4b944 make command fm parents: 6860 diff changeset	10705	)
ec908ed4b944 make command fm parents: 6860 diff changeset	10706	(InputFieldSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	10707	name: 'EntryField12'
ec908ed4b944 make command fm parents: 6860 diff changeset	10708	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	10709	model: makeCommand
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10710	acceptOnLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	10711	acceptOnReturn: true
ec908ed4b944 make command fm parents: 6860 diff changeset	10712	acceptOnTab: true
ec908ed4b944 make command fm parents: 6860 diff changeset	10713	acceptOnLostFocus: true
ec908ed4b944 make command fm parents: 6860 diff changeset	10714	acceptOnPointerLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	10715	)
ec908ed4b944 make command fm parents: 6860 diff changeset	10716	)
ec908ed4b944 make command fm parents: 6860 diff changeset	10717
ec908ed4b944 make command fm parents: 6860 diff changeset	10718	)
ec908ed4b944 make command fm parents: 6860 diff changeset	10719	extent: (Point 600 29)
ec908ed4b944 make command fm parents: 6860 diff changeset	10720	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10721	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10722
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10723	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10724	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10725	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10726
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10727	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10728	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10729
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	10730	"Modified: / 09-08-2006 / 19:31:38 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10731	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10732
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10733	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10734
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10735	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10736	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10737
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10738	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10739	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10740
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10741	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10742	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10743	self stcOptions value:ParserFlags stcCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10744	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10745	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10746	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10747	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10748
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10749	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10750	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10751	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10752
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10753	(t := ParserFlags searchedLibraries) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10754	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10755	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10756	(t := ParserFlags libPath) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10757	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10758	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10759
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10760	self stcCompilationSelection value:(self class stcCompilationOptions
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10761	indexOf:(ParserFlags stcCompilation)
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10762	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10763
ec908ed4b944 make command fm parents: 6860 diff changeset	10764	"Modified: / 09-08-2006 / 18:49:38 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10765	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10766
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10767	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10768
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10769	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10770	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10771	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10772	ParserFlags stcCompilationOptions:self stcOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10773	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10774	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	10775	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10776
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10777	self stc value ~= ParserFlags stcPath ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10778	ParserFlags stcPath:self stc value
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10779	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10780	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10781	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10782	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10783	self stcLibraries value notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10784	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10785	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10786	stcLibraryPath notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10787	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10788	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10789
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	10790	"Modified: / 09-08-2006 / 19:33:10 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10791	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10792
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10793	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10794
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10795	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10796
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10797	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10798	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10799	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10800	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10801	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10802
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10803	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10804
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10805	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10806	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10807	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10808	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10809	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10810	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10811
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10812	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10813
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10814	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10815	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10816	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10817	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10818	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10819	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10820
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10821	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10822
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10823	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10824	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10825
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10826	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10827
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10828	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10829	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10830	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10831	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10832	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10833	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10834
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10835	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10836
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10837	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10838	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10839	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10840	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10841	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10842	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10843
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10844	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10845
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10846	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10847	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10848	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10849	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10850	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10851	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	10852
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10853	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	10854
ec908ed4b944 make command fm parents: 6860 diff changeset	10855	makeCommand isNil ifTrue:[
ec908ed4b944 make command fm parents: 6860 diff changeset	10856	makeCommand := ValueHolder new.
ec908ed4b944 make command fm parents: 6860 diff changeset	10857	makeCommand onChangeSend:#updateModifiedChannel to:self.
ec908ed4b944 make command fm parents: 6860 diff changeset	10858	].
ec908ed4b944 make command fm parents: 6860 diff changeset	10859	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	10860
ec908ed4b944 make command fm parents: 6860 diff changeset	10861	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	10862	!
ec908ed4b944 make command fm parents: 6860 diff changeset	10863
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10864	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10865
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10866	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10867	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10868	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10869	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10870	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10871	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10872
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10873	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10874
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10875	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10876	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10877	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10878	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10879	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10880
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10881	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10882
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10883	stcCompilationSelection isNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10884	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10885	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10886	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10887	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10888	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10889
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10890	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10891
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10892	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10893	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10894	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10895	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10896	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10897	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10898
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10899	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10900
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10901	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10902	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10903	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10904	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10905	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10906	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10907
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10908	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10909
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10910	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10911	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10912	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10913	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10914	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10915	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10916
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10917	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10918
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10919	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10920	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10921	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10922	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10923	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10924	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10925
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10926	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10927
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10928	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10929	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10930	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10931	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10932	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10933	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10934
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10935	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10936
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10937	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10938	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10939	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10940
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10941	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10942
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10943	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10944	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10945
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10946	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10947	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10948	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10949	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10950	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10951	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10952	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10953	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10954	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10955	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10956	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10957	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	10958	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10959
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10960	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10961	searchedLibs notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	10962	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10963	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10964	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	10965
ec908ed4b944 make command fm parents: 6860 diff changeset	10966	"Modified: / 09-08-2006 / 18:50:36 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10967	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10968
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10969	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10970
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10971	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10972
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10973	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10974	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10975	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10976
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10977	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10978
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10979	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	10980	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10981	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10982	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10983	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10984	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10985	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10986	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10987	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10988	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10989	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10990	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10991	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10992	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10993	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10994	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10995	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10996	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10997	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10998	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10999	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11000	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11001	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11002	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11003	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11004	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11005	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11006	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11007	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11008	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11009	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11010	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11011	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11012	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11013	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11014
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11015	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11016
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11017	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11018	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11019	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11020
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11021	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11022	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11023
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11024	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11025	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11026	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11027	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11028	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11029
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11030	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11031
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11032	^Icon
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11033	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11034	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11035	*************("H"H"H"H"H"Z"EUUUUUUUUUY @HV)UUUUUUU&@B(!!ZUUUUUUUUVX@J"E)UUUUUUUUY @HV)UUUUUUU&@B(!!UUUV****%VX@J"E
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11036	UUUUUUUUUY @HUUUU**)U&@B(!!UUUUUUUUUVXB"EUUUZ***UY JHUUUUUUUUUURJ(!!UUUV*%UH"EUUUUUUUUUT"*HV)UUUUUUURJ*(!!UV%
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11037	UUUUUUUH"EUZUUUUUUUT"HV)UUUUUUURJ(!!UUUUUUUUUUH"TQDQDQDQDQD"("H"H"H"H"H"J(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); 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	11038	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11039
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11040	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11041
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11042	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11043	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11044	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11045
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11046	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11047	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11048
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11049	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11050	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11051	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11052	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11053	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11054
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11055	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11056
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11057	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11058	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11059	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11060	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11061	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11062	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11063	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11064	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11065	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11066	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11067	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11068	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11069	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11070	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11071	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11072	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11073	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11074	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11075	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11076	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11077	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11078	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11079	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11080	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11081	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11082	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11083	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11084	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11085	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11086	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11087	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11088	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11089	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11090	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11091	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11092	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11093	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11094	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11095	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11096	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11097	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11098	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11099	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11100	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11101	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11102	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11103	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11104	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11105	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11106	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11107	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11108	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11109
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11110	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11111	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11112	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11113	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11114	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11115	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11116	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11117	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11118	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11119	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11120	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11121	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11122	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11123	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11124	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11125	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11126	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11127	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11128	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11129	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11130	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11131	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11132	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11133
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11134	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11135	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11136	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11137	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11138	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11139	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11140	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11141	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11142	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11143	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11144	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11145	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11146	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11147	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11148	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11149	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11150	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11151	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11152	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11153	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11154	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11155	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11156	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11157
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11158	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11159	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11160	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11161	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11162	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11163	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11164	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11165	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11166	(CheckBoxSpec
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11167	label: 'C-Style Blocks'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11168	name: 'CheckBox8'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11169	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11170	model: cStyleBlocks
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11171	translateLabel: true
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11172	)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11173	(CheckBoxSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11174	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11175	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11176	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11177	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11178	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11179	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11180	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11181
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11182	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11183	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11184	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11185	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11186	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11187	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11188	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11189	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11190	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11191	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11192	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11193	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11194	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11195	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11196	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11197	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11198	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11199	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11200	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11201	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11202	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11203	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11204	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11205	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11206	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11207	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11208
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11209	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11210	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11211	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11212	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11213	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11214	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11215	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11216	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11217	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11218	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11219	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11220	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11221	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11222	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11223	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11224	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11225	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11226	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11227	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11228	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11229	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11230	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11231	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11232	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11233	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11234	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11235
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11236	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11237	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11238	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11239	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11240	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11241	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11242	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11243	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11244	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11245	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11246	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11247	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11248	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11249	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11250	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11251	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11252	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11253	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11254	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11255	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11256	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11257	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11258	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11259	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11260	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11261	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11262	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11263	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11265
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11266	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11267	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11268	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11269	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11270
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11271	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11272	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11273	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11274	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11275	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11276	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11277	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11278	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11279	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11280	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11281	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11282	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11283	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11284	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11285	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11286	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11287	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11288	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11289	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11290	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11291	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11292	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11293	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11294	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11295	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11296	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11297	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11298	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11299	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11300
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11301	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11302	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11303	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11304	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11305	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	11306	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11307	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11308	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11309	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11310	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11311	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11312	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11313	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11314	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11315	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11316
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11317	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11318	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11319	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11320
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11321	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11322	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11323	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11324
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11325	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11326
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11327	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11328	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11329
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11330	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11331	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11332	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11333	tabIndent
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11334	spaceAroundTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11335	emptyLineAfterTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11336	spaceAfterReturnToken
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11337	spaceAfterKeywordSelector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11338	spaceAfterBlockStart
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11339	spaceBeforeBlockEnd
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11340	cStyleBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11341	blockArgumentsOnNewLine
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11342	maxLengthForSingleLineBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11343	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11344	from:RBFormatter.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	11345
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11346	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11347	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11348	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11349	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11350	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11351
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11352	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11353
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11354	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11355	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11356	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11357	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11358	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11359	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11360	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11361	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11362	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11363	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11364	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11365	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11366	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11367	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11368	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11369	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11370	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11371	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11372	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11373	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11374	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	11375	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11376	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11377
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11378	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11379
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11380	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11381	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11382	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11383	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11384
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11385	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11386	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11387	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11388	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11389	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11390	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11391	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11392	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11393	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11394	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11395	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11396	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11397	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11398	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11399
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11400	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11401	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11402	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11403	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11404	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11405	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11406	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11407	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11408	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11409	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11410	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11411
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11412	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11413	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11414	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11415	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11416	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11417	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11418	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11419	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11420	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	11421	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11422
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11423	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11424	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11425	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11426	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11427	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11428	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11429	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11430	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11431	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11432	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11433	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11434	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11435	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11436
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11437	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11438
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11439	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11440	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11441	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11442	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11443	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11444	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11445	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11446	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11447	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11448	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11449	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11450	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11451	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11452	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11453
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11454	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11455
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11456	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11457	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11458	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11459	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11460	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11461	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11462	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11463	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11464	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11465	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11466	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11467	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11468	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11469	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11470
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11471	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11472
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11473	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11474
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11475	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11476	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11477	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11478	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11479	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11480	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11482	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11483
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11484	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11485	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11486	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11487	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11488	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11489	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11491	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11492
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11493	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11494	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11495	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11496	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11497	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11498	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11500	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11501
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11502	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11503	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11504	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11505	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11506	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11507
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11508	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11509
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11510	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11511	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11512	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11513	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11514	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11515	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11516
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11517	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11518
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11519	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11520	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11521	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11522	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11523	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11524	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11525
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11526	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11527
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11528	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11529	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11530	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11531	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11532	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11533	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11535	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11536
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11537	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11538	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11539	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11540	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11541	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11542	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11543
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11544	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11545
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11546	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11547	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11548	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11549	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11550	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11551	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11552
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11553	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11554
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11555	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11556	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11557	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11558	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11559	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11560	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11561
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11562	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11563
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11564	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11565	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11566	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11567	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11568	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11569	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11570
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11571	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11572
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11573	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11574	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11575	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11576	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11577	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11578	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11579
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11580	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11581
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11582	update:something with:aParameter from:changedObject
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11583	(changedObject == self blockArgumentsOnNewLine
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11584	or:[ changedObject == self cStyleBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11585	or:[ changedObject == self emptyLineAfterTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11586	or:[ changedObject == self maxLengthForSingleLineBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11587	or:[ changedObject == self spaceAfterKeywordSelector
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11588	or:[ changedObject == self spaceAfterReturnToken
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11589	or:[ changedObject == self spaceAfterBlockStart
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11590	or:[ changedObject == self spaceBeforeBlockEnd
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11591	or:[ changedObject == self spaceAroundTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11592	or:[ changedObject == self tabIndent]]]]]]]]])
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	11593	ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11594	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11595	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11596	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	11597	].
c72e35116b13 instable state penk parents: 5040 diff changeset	11598	super
c72e35116b13 instable state penk parents: 5040 diff changeset	11599	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	11600	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	11601	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11602	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11603
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11604	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11605
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11606	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11607	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11608	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11609
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11610	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11611
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11612	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11613	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11614	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11615	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11616	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11617	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11618	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11619	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11620	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11621	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11622
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11623	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11624
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11625	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11626	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11627	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11628
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11629	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11631	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11632	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11633
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11634	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11635	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11636	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11637	tabIndent
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11638	spaceAroundTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11639	emptyLineAfterTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11640	spaceAfterReturnToken
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11641	spaceAfterKeywordSelector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11642	spaceAfterBlockStart
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11643	spaceBeforeBlockEnd
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11644	cStyleBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11645	blockArgumentsOnNewLine
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11646	maxLengthForSingleLineBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11647	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11648	asComparedTo:RBFormatter) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	11649
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11650	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11651	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11652
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11653	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11654
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11655	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11656	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11657	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11658
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11659	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11660	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11661
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11662	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11663	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11664	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11665	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11666	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11667
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11668	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11669
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11670	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11671	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11672	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11673	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11674	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11675	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11676	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11677	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11678	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; 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]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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	11679	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11680
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11681	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11682
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11683	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11684	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11685	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11687	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11688	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11690	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11691	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11692	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11693	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11694	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11696	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11698	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11699	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11700	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11701	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11702	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11703	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11704	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11705	min: (Point 10 10)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	11706	bounds: (Rectangle 0 0 659 551)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11707	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11708	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11709	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11710	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11711	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11712	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11713	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11714	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11715	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11716	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11717	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11718	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11719	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11720	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11721	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11722	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11723	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11724	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11725	horizontalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11726	verticalSpace: 4
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11727	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11728	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11729	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11730	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11731	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11732	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11733	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11734	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11735	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11736	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11737	name: 'SourcecodeManagementCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11738	layout: (LayoutFrame 5 0 5 0.0 300 0 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11739	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11740	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11741	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11742	(ComboListSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11743	name: 'ComboList1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11744	layout: (LayoutFrame -200 1 5 0 -5 1 27 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11745	visibilityChannel: moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11746	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11747	model: selectedManagerTypeIndexHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11748	comboList: availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11749	useIndex: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11750	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11751	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11752
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11753	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	11754	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11755	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11756	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11757	name: 'ManagerSetupBoxx'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11758	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11759	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11760	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	11761	(FramedBoxSpec
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11762	label: 'Store-DB Repository Setup'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11763	name: 'StoreSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11764	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11765	visibilityChannel: managerIsStoreSourceCodeManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11766	labelPosition: topLeft
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11767	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11768	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11769	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11770	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11771	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11772	name: 'HostBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11773	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11774	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11775	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11776	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11777	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11778	label: 'DB or DB@Host:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11779	name: 'StoreHostLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11780	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11781	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11782	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11783	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11784	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11785	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11786	name: 'StoreHostComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11787	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11788	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11789	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11790	model: storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11791	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11792	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11793	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11794	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11795	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11796	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11797	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11798	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11799	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11800	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11801
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11802	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11803	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11804	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11805	name: 'UserBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11806	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11807	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11808	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11809	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11810	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11811	label: 'Username:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11812	name: 'StoreUserLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11813	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11814	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11815	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11816	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11817	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11818	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11819	name: 'StoreUserEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11820	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11821	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11822	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11823	model: storeUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11824	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11825	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11826	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11827	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11828
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11829	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11830	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11831	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11832	name: 'PasswordBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11833	layout: (LayoutFrame 0 0.0 54 0 0 1 79 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11834	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11835	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11836	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11837	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11838	label: 'Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11839	name: 'Label7'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11840	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11841	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11842	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11843	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11844	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11845	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11846	name: 'PasswordEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11847	layout: (LayoutFrame 44 0.25 0 0 -130 1 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11848	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11849	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11850	model: storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11851	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11852	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11853	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11854	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11855	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11856
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11857	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11858	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11859	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11860	name: 'HorizontalPanel4'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11861	layout: (LayoutFrame -130 1 51 0 0 1 82 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11862	horizontalLayout: fitSpace
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11863	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11864	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11865	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11866	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11867	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11868	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11869	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11870	label: 'Try to Connect'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	11871	name: 'TryConnectButton1'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11872	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11873	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11874	model: storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11875	enableChannel: storeConnectEnabled
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11876	extent: (Point 124 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11877	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11878	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11879
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11880	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11881	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11882	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11883	label: 'DB per Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11884	name: 'Label4'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11885	layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11886	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11887	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11888	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11889	(SequenceViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11890	name: 'List2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11891	layout: (LayoutFrame 44 0.25 82 0 0 1 180 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11892	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11893	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11894	model: selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11895	hasHorizontalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11896	hasVerticalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11897	miniScrollerHorizontal: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11898	useIndex: false
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11899	sequenceList: listOfModules
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11900	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11901	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11902	label: 'Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11903	name: 'perModuleModuleLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11904	layout: (LayoutFrame 0 0.0 186 0 40 0.25 203 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11905	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11906	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11907	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11908	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11909	name: 'perModuleModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11910	layout: (LayoutFrame 44 0.25 182 0 0 1 204 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11911	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11912	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11913	model: perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11914	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11915	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11916	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11917	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11918	label: 'DB:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11919	name: 'perModuleDBLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11920	layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11921	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11922	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11923	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11924	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11925	name: 'perModuleModuleHostComboBox2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11926	layout: (LayoutFrame 44 0.25 207 0 0 1 229 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11927	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11928	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11929	model: perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11930	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11931	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11932	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11933	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11934	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11935	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11936	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11937	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11938	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11939	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11940	label: 'User / Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11941	name: 'perModuleUserPasswordLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11942	layout: (LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11943	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11944	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11945	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11946	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11947	name: 'perModuleUserEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11948	layout: (LayoutFrame 44 0.25 232 0 -2 0.65 254 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11949	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11950	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11951	model: perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11952	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11953	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11954	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11955	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11956	name: 'perModulePasswordEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11957	layout: (LayoutFrame 5 0.65 232 0 0 1 254 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11958	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11959	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11960	model: perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11961	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11962	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11963	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11964	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11965	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11966	name: 'HorizontalPanel5'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11967	layout: (LayoutFrame 44 0.25 -25 1 -10 0.65 6 1)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11968	horizontalLayout: fit
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11969	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11970	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11971	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11972	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11973	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11974	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11975	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11976	label: 'Add/Apply'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	11977	name: 'AddButton2'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11978	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11979	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11980	model: addPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11981	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	11982	extent: (Point 96 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11983	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11984	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11985	label: 'Remove'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	11986	name: 'RemoveButton3'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11987	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11988	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11989	model: removePerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11990	enableChannel: removeEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	11991	extent: (Point 97 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	11992	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11993	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11994
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11995	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11996	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11997	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11998	name: 'HorizontalPanel6'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	11999	layout: (LayoutFrame 10 0.65 -25 1 0 1 6 1)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12000	horizontalLayout: fit
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12001	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12002	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12003	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12004	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12005	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12006	collection: (
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12007	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12008	label: 'Try to Connect'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12009	name: 'ConnectPerStoreModuleButton'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12010	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12011	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12012	model: connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12013	enableChannel: storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12014	extent: (Point 103 22)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12015	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12016	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12017	label: 'Browse'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12018	name: 'BrowsePerStoreModuleButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12019	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12020	tabable: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12021	model: browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12022	enableChannel: storeConnectInModuleEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12023	extent: (Point 103 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12024	)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12025	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12026
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12027	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12028	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12029	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12030
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12031	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12032	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12033	(FramedBoxSpec
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12034	label: 'SmallTeam Setup'
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12035	name: 'SmalltalkSmallTeamSetupBox'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12036	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12037	visibilityChannel: managerIsSmallTeamSourceCodeManager
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12038	labelPosition: topLeft
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12039	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12040	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12041	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12042	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12043	(ViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12044	name: 'HostBoxSS'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12045	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12046	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12047	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12048	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12049	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12050	label: 'Host:'
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12051	name: 'SmallTeamHostLabel'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12052	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12053	level: 0
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12054	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12055	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12056	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12057	(ComboBoxSpec
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12058	name: 'SmallTeamHostComboBox'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12059	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12060	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12061	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12062	model: smallTeamHostnameHolder
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12063	immediateAccept: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12064	acceptOnLeave: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12065	acceptOnReturn: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12066	acceptOnTab: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12067	acceptOnLostFocus: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12068	acceptChannel: acceptChannel
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12069	acceptOnPointerLeave: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12070	comboList: smallTeamHostPrototypeList
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12071	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12072	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12073
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12074	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12075	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12076	(HorizontalPanelViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12077	name: 'HorizontalPanel7'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12078	layout: (LayoutFrame -130 1 51 0 0 1 82 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12079	horizontalLayout: fitSpace
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12080	verticalLayout: center
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12081	horizontalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12082	verticalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12083	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12084	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12085	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12086	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12087	label: 'Try to Connect'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12088	name: 'TryConnectButton4'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12089	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12090	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12091	model: smallTeamConnect
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12092	enableChannel: storeConnectEnabled
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12093	extent: (Point 124 22)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12094	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12095	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12096
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12097	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12098	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12099	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12100	label: 'Host per Module:'
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12101	name: 'perSmallTeamModuleLabel'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12102	layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12103	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12104	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12105	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12106	(SequenceViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12107	name: 'List3'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12108	layout: (LayoutFrame 44 0.25 82 0 0 1 180 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12109	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12110	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12111	model: selectedPerSmallTeamModuleRoot
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12112	hasHorizontalScrollBar: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12113	hasVerticalScrollBar: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12114	miniScrollerHorizontal: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12115	useIndex: false
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12116	sequenceList: listOfModules
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12117	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12118	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12119	label: 'Module:'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12120	name: 'Label12'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12121	layout: (LayoutFrame 0 0.0 186 0 40 0.25 203 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12122	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12123	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12124	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12125	(InputFieldSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12126	name: 'EntryField3'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12127	layout: (LayoutFrame 44 0.25 182 0 0 1 204 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12128	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12129	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12130	model: perSmallTeamModuleRoot
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12131	acceptChannel: acceptChannel
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12132	acceptOnPointerLeave: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12133	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12134	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12135	label: 'Host:'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12136	name: 'Label13'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12137	layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12138	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12139	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12140	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12141	(ComboBoxSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12142	name: 'ComboBox2'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12143	layout: (LayoutFrame 44 0.25 207 0 0 1 229 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12144	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12145	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12146	model: perSmallTeamModuleHostnameHolder
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12147	immediateAccept: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12148	acceptOnLeave: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12149	acceptOnReturn: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12150	acceptOnTab: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12151	acceptOnLostFocus: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12152	acceptChannel: acceptChannel
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12153	acceptOnPointerLeave: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12154	comboList: smallTeamHostPrototypeList
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12155	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12156	(HorizontalPanelViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12157	name: 'HorizontalPanel8'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12158	layout: (LayoutFrame 44 0.25 -25 1 -10 0.65 6 1)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12159	horizontalLayout: fit
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12160	verticalLayout: center
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12161	horizontalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12162	verticalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12163	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12164	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12165	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12166	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12167	label: 'Add/Apply'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12168	name: 'AddButton5'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12169	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12170	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12171	model: addPerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12172	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12173	extent: (Point 96 22)
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12174	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12175	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12176	label: 'Remove'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12177	name: 'RemoveButton6'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12178	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12179	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12180	model: removePerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12181	enableChannel: removeEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12182	extent: (Point 97 22)
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12183	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12184	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12185
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12186	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12187	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12188	(HorizontalPanelViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12189	name: 'HorizontalPanel9'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12190	layout: (LayoutFrame 10 0.65 -25 1 0 1 6 1)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12191	horizontalLayout: fit
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12192	verticalLayout: center
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12193	horizontalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12194	verticalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12195	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12196	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12197	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12198	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12199	label: 'Try to Connect'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12200	name: 'ConnectButton7'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12201	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12202	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12203	model: connectPerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12204	enableChannel: storeConnectInModuleEnabled
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12205	extent: (Point 103 22)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12206	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12207	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12208	label: 'Browse'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12209	name: 'BrowseButton8'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12210	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12211	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12212	model: browsePerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12213	enableChannel: storeConnectInModuleEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12214	extent: (Point 103 22)
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12215	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12216	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12217
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12218	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12219	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12220	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12221
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12222	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12223	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12224	(FramedBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12225	label: 'CVS Sourcecode Manager Setup'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12226	name: 'CVSSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12227	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12228	visibilityChannel: managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12229	labelPosition: topLeft
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12230	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12231	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12232	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12233	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12234	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12235	name: 'Box1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12236	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12237	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12238	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12239	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12240	(LabelSpec
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	12241	label: 'CVS Command or Path:'
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12242	name: 'Label1'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12243	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12244	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12245	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12246	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12247	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12248	(InputFieldSpec
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	12249	name: 'CVSExecutableField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12250	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12251	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12252	tabable: true
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	12253	model: cvsExecutableHolder
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12254	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12255	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12256	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12257	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12258
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12259	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12260	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12261	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12262	name: 'Box7'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12263	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12264	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12265	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12266	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12267	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12268	label: 'CVSRoot default:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12269	name: 'defaultCvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12270	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12271	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12272	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12273	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12274	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12275	(ComboBoxSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12276	name: 'cvsRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12277	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12278	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12279	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12280	model: cvsRootHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12281	immediateAccept: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12282	acceptOnLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12283	acceptOnReturn: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12284	acceptOnTab: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12285	acceptOnLostFocus: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12286	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12287	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12288	comboList: cvsRootPrototypeList
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12289	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12290	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12291
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12292	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12293	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12294	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12295	name: 'HorizontalPanel3'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12296	layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12297	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12298	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12299	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12300	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12301	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12302	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12303	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12304	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12305	name: 'Box8'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12306	extent: (Point 102 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12307	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12308	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12309	name: 'Box9'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12310	extent: (Point 102 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12311	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12312	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12313	name: 'Box10'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12314	extent: (Point 102 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12315	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12316	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12317	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12318	name: 'loginButton1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12319	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12320	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12321	model: loginCVSRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12322	enableChannel: cvsLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12323	extent: (Point 103 22)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12324	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12325	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12326
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12327	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12328	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12329	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12330	label: 'CVSRoot per Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12331	name: 'knownModulesLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12332	layout: (LayoutFrame 0 0.0 82 0 60 0.25 104 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12333	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12334	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12335	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12336	(SequenceViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12337	name: 'List1'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12338	layout: (LayoutFrame 64 0.25 82 0 0 1 201 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12339	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12340	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12341	model: selectedPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12342	hasHorizontalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12343	hasVerticalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12344	miniScrollerHorizontal: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12345	useIndex: false
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12346	sequenceList: listOfModules
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12347	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12348	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12349	label: 'Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12350	name: 'moduleLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12351	layout: (LayoutFrame 0 0.0 211 0 60 0.25 228 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12352	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12353	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12354	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12355	(InputFieldSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12356	name: 'perModuleRootModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12357	layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12358	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12359	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12360	model: perModuleRootModule
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12361	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12362	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12363	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12364	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12365	label: 'CVSRoot:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12366	name: 'cvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12367	layout: (LayoutFrame 0 0.0 236 0 60 0.25 253 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12368	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12369	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12370	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12371	(ComboBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12372	name: 'perModuleRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12373	layout: (LayoutFrame 64 0.25 232 0 0 1.0 254 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12374	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12375	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12376	model: perModuleRoot
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12377	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12378	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12379	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12380	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12381	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12382	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12383	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12384	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12385	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12386	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12387	name: 'HorizontalPanel2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12388	layout: (LayoutFrame 64 0.25 -25 1 -1 1 0 1)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12389	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12390	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12391	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12392	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12393	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12394	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12395	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12396	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12397	label: 'Add/Apply'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12398	name: 'addButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12399	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12400	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12401	model: addPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12402	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12403	extent: (Point 97 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12404	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12405	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12406	label: 'Remove'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12407	name: 'removeButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12408	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12409	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12410	model: removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12411	enableChannel: removeEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12412	extent: (Point 97 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12413	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12414	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12415	name: 'Box11'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12416	extent: (Point 97 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12417	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12418	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12419	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12420	name: 'loginButton2'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12421	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12422	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12423	model: loginPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12424	enableChannel: cvsLoginInModuleEnabled
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12425	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12426	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12427	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12428
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12429	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12430	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12431	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12432
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12433	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12434	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12435	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12436
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12437	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12438	extent: (Point 659 327)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12439	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12440	(FramedBoxSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12441	label: 'Source Cache'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12442	name: 'FramedBox1'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12443	labelPosition: topLeft
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12444	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12445	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12446	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12447	collection: (
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12448	(ViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12449	name: 'SourceCacheDirBox'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12450	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12451	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12452	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12453	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12454	(LabelSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12455	label: 'Source Cache Dir:'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12456	name: 'SourceCacheDirLabel'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12457	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12458	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12459	adjust: right
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12460	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12461	(InputFieldSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12462	name: 'SourceCacheDirEntryField'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12463	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12464	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12465	model: sourceCacheDir
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12466	immediateAccept: false
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12467	acceptOnReturn: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12468	acceptOnTab: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12469	acceptOnLostFocus: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12470	acceptOnPointerLeave: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12471	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12472	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12473
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12474	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12475	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12476	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12477	name: 'CacheActionsHorizontalPanel'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12478	layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12479	horizontalLayout: fitSpace
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12480	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12481	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12482	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12483	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12484	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12485	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12486	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12487	label: 'Flush Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12488	name: 'FlushCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12489	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12490	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12491	model: flushSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12492	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12493	extent: (Point 208 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12494	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12495	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12496	label: 'Condense Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12497	name: 'CondenseCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12498	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12499	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12500	model: condenseSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12501	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12502	extent: (Point 208 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12503	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12504	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12505
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12506	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12507	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12508	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12509
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12510	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12511	extent: (Point 659 95)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12512	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12513	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12514	name: 'UseLocalSourceBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12515	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12516	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12517	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12518	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12519	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12520	name: 'CheckBox4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12521	layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12522	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12523	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12524	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12525	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12526	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12527
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12528	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12529	extent: (Point 659 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12530	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12531	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12532	name: 'CheckForHaltSendsBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12533	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12534	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12535	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12536	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12537	label: 'Check for halt/error-Sends when Checking in'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12538	name: 'CheckBox5'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12539	layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12540	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12541	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12542	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12543	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12544	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12545
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12546	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12547	extent: (Point 659 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12548	)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12549	(ViewSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12550	name: 'VerboseBox'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12551	component:
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12552	(SpecCollection
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12553	collection: (
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12554	(CheckBoxSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12555	label: 'Verbose (Trace Access on Transcript)'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12556	name: 'CheckBox6'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12557	layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12558	enableChannel: useManager
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12559	model: verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12560	translateLabel: true
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12561	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12562	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12563
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12564	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12565	extent: (Point 659 25)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12566	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12567	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12568
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12569	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12570	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12571	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12572	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12574	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12575	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12576	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12578	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12579	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12580	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12581
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12582	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12583
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12584	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12586	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12587	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12588
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12589	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12590
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12591	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12592	(self listOfModules includes:module) ifFalse:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12593	self listOfModules add:module; sort.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12594	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12595	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12596
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12597	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12598
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12599	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12600	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12601
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12602	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12603	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12604
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12605	self hasManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12606	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12607	self localSourceFirst value:Class tryLocalSourceFirst.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12608	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12609
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12610	manager notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12611	manager forgetDisabledModules.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12612	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12613	repository := manager repositoryName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12614	repositoryHolder := (repository ? '') asValue
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12615	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12616	manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12617	self storeHostnameHolder value: (manager hostAndDBName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12618	self storeUsernameHolder value: (manager userName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12619	self storePasswordHolder value: (manager password).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12620	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12621	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12622	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12623	self useManager value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12624	self localSourceFirst value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12625	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12626
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12627	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12628	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12629
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12630	infoPerModule := eachManager repositoryInfoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12631	infoPerModule keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12632	rootsPerModule at:module put:(Array with:eachManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12633	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12634	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12635
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	12636	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	12637
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12638	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12639	self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	12640	self cvsExecutableHolder value:CVSSourceCodeManager cvsExecutable.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12641	self verboseSourceCodeAccess value:CVSSourceCodeManager verboseSourceCodeAccess.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12642
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12643	rootsPerModule notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12644	self listOfModules removeAll.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12645	listOfModules addAll:rootsPerModule keys asList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12646	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12647	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12648
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	12649	"Modified: / 21-09-2006 / 16:52:47 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12650	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12651
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12652	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12653	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12654
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12655	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12656	Class tryLocalSourceFirst:self localSourceFirst value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12657
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12658	(self hasManager and:[self useManager value]) ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12659	manager ~~ self selectedManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12660	manager := nil.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12661	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12662
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12663	manager isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	12664	manager := self selectedManager.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	12665	manager isNil ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	12666	manager := self availableManagers first.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	12667	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12668	].
7513 bd3461e85387 * empty log message * Michael Beyl <mb@exept.de> parents: 7506 diff changeset	12669	Smalltalk at:#SourceCodeManager put:manager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12670	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12671	\| nm fn\|
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12672
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12673	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12674	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12675	(fn := nm asFilename) exists ifFalse:[
4874 688a33043459 Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 4873 diff changeset	12676	(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
8659 66979cd4db3b recursive dir-make Claus Gittinger <cg@exept.de> parents: 8623 diff changeset	12677	fn recursiveMakeDirectory;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12678	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12679	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12680	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12681	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12682	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	12683	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12684	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	12685	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12686	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12687	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12688	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12689	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12690	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12691	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12692
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12693	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12694	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12695	modules := rootsPerModule select:[:entry \| entry first == eachManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12696	infoPerModule := Dictionary new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12697	modules keysAndValuesDo:[:module :entry \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12698	entry first == eachManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12699	infoPerModule at:module put:(entry second).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12700	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12701	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12702	eachManager repositoryInfoPerModule:infoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12703	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12704
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12705	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12706	self basicSaveCVSSettings.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12707	] ifFalse:[ manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12708	self basicSaveStoreSettings.
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12709	] ifFalse:[ manager isSmallTeam ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12710	self basicSaveSmallTeamSettings.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12711	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12712	self error.
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12713	]]].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12714
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	12715	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12716
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12717	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12718	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12719	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12720	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12721
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12722	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12723
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12724	"Modified: / 09-11-2006 / 14:56:52 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12725	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12726
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12727	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12728	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12729	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12730
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12731	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12732	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12733
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12734	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12735	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12736	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12737
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	12738	"Modified: / 28-11-2006 / 12:21:21 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12739	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12740
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12741	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12742
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12743	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12744
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12745	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12746	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	12747	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12748	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12749	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12750	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	12751	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12752	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12753
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12754	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12755
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12756	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12757	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12758	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12759	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12760	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12761	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12762
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12763	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12764	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12765
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12766	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - cvs'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12767
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12768	addPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12769	\|module cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12770
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12771	acceptChannel value:true.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12772
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12773	module := self perModuleRootModule value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12774	cvsRoot := self perModuleRoot value.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12775
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12776	cvsRoot size > 0 ifTrue:[
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12777	self addModule:module withData:(Array with:CVSSourceCodeManager with:cvsRoot).
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12778	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12779
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12780	"Modified: / 08-11-2006 / 19:27:39 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12781	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12782
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12783	basicSaveCVSSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12784	\|cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12785
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12786	repositoryHolder notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12787	repositoryHolder value size > 0 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12788	manager notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12789	manager initializeForRepository:repositoryHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12790	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12791	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12792	].
7347 4df230873b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	12793	CVSSourceCodeManager cvsExecutable:((self cvsExecutableHolder value ? '') withoutSeparators).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12794	CVSSourceCodeManager initializeForRepository:(cvsRoot := self cvsRootHolder value).
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12795	CVSSourceCodeManager verboseSourceCodeAccess: verboseSourceCodeAccess value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12796
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12797	RecentlyUsedCVSRoots isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12798	RecentlyUsedCVSRoots := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12799	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12800	(RecentlyUsedCVSRoots includes:cvsRoot) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12801	RecentlyUsedCVSRoots addFirst:cvsRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12802	RecentlyUsedCVSRoots size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12803	RecentlyUsedCVSRoots removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12804	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12805	].
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	12806
7347 4df230873b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	12807	"Modified: / 29-09-2006 / 12:28:50 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12808	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12809
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12810	cvsLogin:cvsRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12811	\|cmd term\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12812
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12813	cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12814	term := VT100TerminalView open.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12815	term topView label:'CVS Login for ' , cvsRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12816	term topView waitUntilVisible.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12817	term shellTerminateAction:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12818	"/ term topView destroy
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12819	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12820
9041 37b016f28530 no need for #asText to emphasize a string Claus Gittinger <cg@exept.de> parents: 8972 diff changeset	12821	term showCR:(('Please enter the CVS-password then close this terminal window.') allBold colorizeAllWith:Color red).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12822	term showCR:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12823	term endEntry.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12824	Delay waitForSeconds:1.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12825	term sendLine:cmd.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12826
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12827	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12828	self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12829	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12830	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12831
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12832	loginCVSRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12833	self cvsLogin:cvsRootHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12834	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12835
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12836	loginPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12837	self cvsLogin:perModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12838	! !
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12839
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12840	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - smallTeam'!
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12841
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12842	addPerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12843	\|module host\|
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12844
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12845	acceptChannel value:true.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12846
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12847	module := self perSmallTeamModuleRoot value.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12848	host := self perSmallTeamModuleHostnameHolder value.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12849
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12850	self addModule:module withData:(Array with:SmallTeamSourceCodeManager with:host).
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12851
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12852	"Created: / 09-11-2006 / 14:35:50 / cg"
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12853	!
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12854
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12855	basicSaveSmallTeamSettings
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12856	\|host\|
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12857
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12858	SmallTeamSourceCodeManager hostName:(host := self smallTeamHostnameHolder value withoutSeparators).
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12859
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12860	RecentlyUsedSmallTeamHosts isNil ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12861	RecentlyUsedSmallTeamHosts := OrderedCollection new.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12862	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12863	(RecentlyUsedSmallTeamHosts includes:host) ifFalse:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12864	RecentlyUsedSmallTeamHosts addFirst:host.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12865	RecentlyUsedSmallTeamHosts size > 20 ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12866	RecentlyUsedSmallTeamHosts removeLast.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12867	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12868	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12869
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	12870	"Created: / 09-11-2006 / 14:58:44 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12871	! !
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12872
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12873	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - store'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12874
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12875	addPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12876	\|module info\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12877
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12878	acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12879
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12880	module := self perStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12881	info := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12882	info hostAndDBName:perStoreModuleHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12883	info userName:perStoreModuleUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12884	info password:perStoreModulePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12885
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12886	self addModule:module withData:(Array with:StoreSourceCodeManager with:info).
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12887
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12888	"Modified: / 08-11-2006 / 19:27:35 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12889	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12890
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12891	basicSaveStoreSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12892	\|storeHost\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12893
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12894	StoreSourceCodeManager hostAndDBName:(storeHost := self storeHostnameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12895	StoreSourceCodeManager userName:(self storeUsernameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12896	StoreSourceCodeManager password:(self storePasswordHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12897
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	12898	storeHost notEmptyOrNil ifTrue:[
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	12899	StoreSourceCodeManager connectToDatabase.
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	12900	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12901
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12902	RecentlyUsedStoreHosts isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12903	RecentlyUsedStoreHosts := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12904	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12905	(RecentlyUsedStoreHosts includes:storeHost) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12906	RecentlyUsedStoreHosts addFirst:storeHost.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12907	RecentlyUsedStoreHosts size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12908	RecentlyUsedStoreHosts removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12909	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12910	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12911	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12912
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12913	browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12914	\|testInfo\|
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12915
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12916	testInfo := StoreSourceCodeManager newDBInfo.
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12917	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12918	testInfo userName:(perStoreModuleUsernameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12919	testInfo password:(perStoreModulePasswordHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12920	self browseStoreDB:testInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12921	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12922
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12923	browseStoreDB:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12924	Tools::StoreProjectBrowser openOn:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12925	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12926
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12927	connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12928	\|testInfo\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12929
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12930	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12931	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12932	testInfo userName:(perStoreModuleUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12933	testInfo password:(perStoreModulePasswordHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12934
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12935	(self tryToConnectTo:testInfo)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12936	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12937
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12938	storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12939	\|testInfo\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12940
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12941	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12942	testInfo hostAndDBName:(storeHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12943	testInfo userName:(storeUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12944	testInfo password:(storePasswordHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12945
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12946	(self tryToConnectTo:testInfo) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12947	LastStoreHost := storeHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12948	LastStoreUser := storeUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12949	LastStorePassword := storePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12950	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12951	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12952
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12953	tryToConnectTo:dbInfo
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12954	\|session\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12955
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12956	SQL::SQLError handle:[:ex \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12957	self warn:('Failed to connect to Database:\\' withCRs,ex description).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12958	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12959	] do:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12960	self withWaitCursorDo:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12961	session := StoreSourceCodeManager tryToConnectToDatabase:dbInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12962	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12963	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12964	session isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12965	self warn:'OOPS - Failed to connect'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12966	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12967	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12968
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12969	self information:('Successfully connected to ',dbInfo dbName,'.').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12970	session disconnect.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12971	^ true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12972	! !
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12973
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12974	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12975
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12976	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12977
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12978	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12979	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12980	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12981	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12982	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12983
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12984	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12985	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12986
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12987	"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	12988	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12989
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12990	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12991	availableManagers isNil ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12992	availableManagers := AbstractSourceCodeManager availableManagers.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12993	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12994	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12995
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12996	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12997	self basicNew availableManagers
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12998	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12999
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13000	"Created: / 16-08-2006 / 11:01:10 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13001	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13002
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13003	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13004
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13005	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13006	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13007	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13008	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13009	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13010	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13011
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13012	cvsExecutableHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13013	cvsExecutableHolder isNil ifTrue:[
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13014	cvsExecutableHolder := ValueHolder new.
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13015	cvsExecutableHolder onChangeSend:#updateModifiedChannel to:self
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13016	].
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13017	^ cvsExecutableHolder.
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13018
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13019	"Created: / 21-09-2006 / 15:37:06 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13020	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13021
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13022	cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13023	cvsLoginEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13024	cvsLoginEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13025	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13026	^ cvsLoginEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13027	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13028
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13029	cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13030	cvsLoginInModuleEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13031	cvsLoginInModuleEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13032	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13033	^ cvsLoginInModuleEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13034	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13035
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13036	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13037
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13038	cvsRootHolder isNil ifTrue:[
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13039	cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13040	cvsRootHolder addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13041	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13042	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13043	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13044
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13045	cvsRootPrototypeList
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13046	\|cvsRoot prototypeList\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13047
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13048	cvsRootPrototypeList isNil ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13049	prototypeList := OrderedSet new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13050
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13051	cvsRoot := self cvsRootFromCVSRootFileOrNil.
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13052	cvsRoot notNil ifTrue:[
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13053	prototypeList add:cvsRoot
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13054	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13055
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13056	prototypeList add:(':pserver:cvs@cvs.smalltalk-x.de:/cvs/stx').
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13057
7311 1f9d53c9ba47 Prototype for bh.exept.de Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	13058	OperatingSystem getDomainName = 'bh.exept.de' ifTrue:[
1f9d53c9ba47 Prototype for bh.exept.de Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	13059	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@cvs.bh.exept.de:/cvs/stx')
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13060	] ifFalse:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13061	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@CVSHOST:/cvs/stx').
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13062	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13063
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13064	OperatingSystem isUNIXlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13065	prototypeList add:'/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13066	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13067	OperatingSystem isMSDOSlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13068	prototypeList addFirst:':local:c:\cvs\stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13069	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13070	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13071	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13072	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13073
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13074	cvsRootPrototypeList := prototypeList asOrderedCollection.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13075	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13076	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13077	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13078
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13079	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13080
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13081	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13082	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13083	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13084	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13085	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13086	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13087	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13088	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13089	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13090
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13091	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13092
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13093	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13094	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13095	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13096	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13097	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13098	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13099
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13100	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13101	managerIsCVSSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13102	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13103	[SourceCodeManager isCVS]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13104	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13105	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13106
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13107	"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	13108	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13109
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13110	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13111	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13112	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
7492 5b2f0c07896e * empty log message * Claus Gittinger <cg@exept.de> parents: 7490 diff changeset	13113	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13114	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13115	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13116
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13117	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13118	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13119
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13120	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13121	managerIsStoreSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13122	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13123	[SourceCodeManager isStore]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13124	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13125	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13126
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13127	"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	13128	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13129
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13130	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13131	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13132
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13133	"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	13134	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13135
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13136	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13137
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13138	perModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13139	perModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13140	perModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13141	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13142	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13143	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13144
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13145	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13146	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13147	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13148	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13149	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13150	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13151	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13152
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13153	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13154	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13155	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13156	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13157	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13158	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13159
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13160	perSmallTeamModuleHostnameHolder
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13161	perSmallTeamModuleHostnameHolder isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13162	perSmallTeamModuleHostnameHolder := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13163	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13164	^ perSmallTeamModuleHostnameHolder.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13165
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13166	"Created: / 09-11-2006 / 14:40:29 / cg"
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13167	!
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13168
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13169	perSmallTeamModuleRoot
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13170	perSmallTeamModuleRoot isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13171	perSmallTeamModuleRoot := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13172	perSmallTeamModuleRoot addDependent:self.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13173	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13174	^ perSmallTeamModuleRoot.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13175
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13176	"Created: / 09-11-2006 / 14:40:35 / cg"
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13177	!
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13178
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13179	perSmallTeamModuleRootModule
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13180	perSmallTeamModuleRootModule isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13181	perSmallTeamModuleRootModule := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13182	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13183	^ perSmallTeamModuleRootModule.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13184
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13185	"Created: / 09-11-2006 / 14:40:41 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13186	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13187
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13188	perStoreModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13189
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13190	perSmallTeamModuleFieldsEnableHolder isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13191	perSmallTeamModuleFieldsEnableHolder := true asValue.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13192	perSmallTeamModuleFieldsEnableHolder addDependent:self.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13193	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13194	^ perSmallTeamModuleFieldsEnableHolder.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13195	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13196
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13197	perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13198
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13199	perStoreModuleHostnameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13200	perStoreModuleHostnameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13201	perStoreModuleHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13202	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13203	^ perStoreModuleHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13204	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13205
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13206	perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13207
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13208	perStoreModulePasswordHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13209	perStoreModulePasswordHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13210	perStoreModulePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13211	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13212	^ perStoreModulePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13213	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13214
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13215	perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13216	perStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13217	perStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13218	perStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13219	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13220	^ perStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13221	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13222
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13223	perStoreModuleRootModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13224	perStoreModuleRootModule isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13225	perStoreModuleRootModule := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13226	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13227	^ perStoreModuleRootModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13228	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13229
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13230	perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13231
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13232	perStoreModuleUsernameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13233	perStoreModuleUsernameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13234	perStoreModuleUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13235	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13236	^ perStoreModuleUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13237	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13238
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13239	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13240
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13241	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13242	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13243	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13244	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13245	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13246
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13247	selectedManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13248	\|idx\|
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13249
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13250	self availableManagers size == 1 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13251	^ self availableManagers first
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13252	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13253
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13254	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13255	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13256	^ self availableManagers at:idx
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13257
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13258	"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	13259	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13260
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13261	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13262	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13263
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13264	selectedManagerTypeIndexHolder isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13265	selectedManagerTypeIndexHolder := nil asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13266	selectedManagerTypeIndexHolder onChangeEvaluate:[
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13267	selectedManager := self selectedManager.
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13268	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13269	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13270	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13271	self updateModifiedChannel
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13272	].
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13273
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13274	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13275	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13276	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13277
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13278	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13279	"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	13280	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13281
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13282	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13283	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13284	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13285	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13286	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13287	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13288	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13289
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13290	selectedPerSmallTeamModuleRoot
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13291	selectedPerSmallTeamModuleRoot isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13292	selectedPerSmallTeamModuleRoot := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13293	selectedPerSmallTeamModuleRoot addDependent:self.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13294	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13295	^ selectedPerSmallTeamModuleRoot.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13296
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13297	"Created: / 09-11-2006 / 14:39:15 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13298	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13299
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13300	selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13301	selectedPerStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13302	selectedPerStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13303	selectedPerStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13304	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13305	^ selectedPerStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13306	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13307
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13308	smallTeamHostnameHolder
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13309
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13310	smallTeamHostnameHolder isNil ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13311	smallTeamHostnameHolder := '' asValue.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13312	"/ smallTeamHostnameHolder addDependent:self.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13313	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13314	^ smallTeamHostnameHolder.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13315
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13316	"Created: / 09-11-2006 / 15:04:10 / cg"
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13317	!
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13318
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13319	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13320	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13321	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13322	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13323	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13324	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13325	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13326
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13327	storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13328	storeConnectEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13329	storeConnectEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13330	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13331	^ storeConnectEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13332	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13333
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13334	storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13335	storeConnectInModuleEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13336	storeConnectInModuleEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13337	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13338	^ storeConnectInModuleEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13339	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13340
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13341	storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13342	\|prototypeList\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13343
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13344	storeHostPrototypeList isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13345	prototypeList := OrderedSet new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13346
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13347	prototypeList add:('public@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13348	prototypeList add:('public').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13349	prototypeList add:('stx').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13350
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13351	OperatingSystem getLoginName = 'cg' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13352	prototypeList add:('oyster@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13353	prototypeList add:('oyster').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13354	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13355
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13356	OperatingSystem getDomainName = 'exept.de' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13357	prototypeList add:('stx@exept.exept.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13358	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13359	prototypeList add:('db@host').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13360	prototypeList add:('db@host:port').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13361	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13362	storeHostPrototypeList := prototypeList asOrderedCollection.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13363	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13364	^ storeHostPrototypeList.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13365	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13366
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13367	storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13368
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13369	storeHostnameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	13370	storeHostnameHolder := ("LastStoreHost ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13371	storeHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13372	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13373	^ storeHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13374	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13375
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13376	storeLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13377	storeLoginEnabled isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13378	storeLoginEnabled := false asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13379	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13380	^ storeLoginEnabled.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13381
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13382	"Created: / 16-08-2006 / 11:11:15 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13383	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13384
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13385	storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13386
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13387	storePasswordHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	13388	storePasswordHolder := ("LastStorePassword ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13389	storePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13390	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13391	^ storePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13392	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13393
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13394	storeUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13395
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13396	storeUsernameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	13397	storeUsernameHolder := ("LastStoreUser ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13398	storeUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13399	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13400	^ storeUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13401	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13402
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13403	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13404	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13405	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13406	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13407	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13408	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13409	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13410
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13411	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13412	verboseSourceCodeAccess isNil ifTrue:[
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13413	verboseSourceCodeAccess := false asValue.
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13414	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13415	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13416	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13417	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13418
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13419	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13420
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13421	selectedPerModuleRootChanged
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13422	\|module entry\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13423
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13424	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13425	module := self selectedPerModuleRoot value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13426	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13427	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13428	self perModuleRootModule value:' '.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13429	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13430	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13431	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13432
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13433	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13434	(entry first = CVSSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13435	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13436	self perModuleRootModule value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13437	self perModuleRoot value:(entry at:2).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13438	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13439	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13440	self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13441	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13442	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13443	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13444
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13445	selectedPerSmallTeamModuleRootChanged
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13446	\|module entry\|
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13447
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13448	self acceptChannel value:true.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13449
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13450	module := self selectedPerSmallTeamModuleRoot value.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13451	module isNil ifTrue:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13452	self removeEnabled value:false.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13453	self perSmallTeamModuleRoot value:''.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13454	self perSmallTeamModuleHostnameHolder value:''.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13455	^ self
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13456	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13457
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13458	entry := rootsPerModule at:module.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13459	(entry first = SmallTeamSourceCodeManager) ifTrue:[
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13460	self removeEnabled value:true.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13461	self perSmallTeamModuleRoot value:module.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13462	self perSmallTeamModuleHostnameHolder value:(entry at:2).
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13463	] ifFalse:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13464	self removeEnabled value:false.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13465	self perSmallTeamModuleRoot value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13466	self perSmallTeamModuleHostnameHolder value:''.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13467	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13468
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13469	"Created: / 09-11-2006 / 14:39:04 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13470	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13471
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13472	selectedPerStoreModuleRootChanged
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13473	\|module entry\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13474
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13475	self acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13476
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13477	module := self selectedPerStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13478	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13479	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13480	self perStoreModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13481	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13482	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13483	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13484	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13485	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13486
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13487	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13488	(entry first = StoreSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13489	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13490	self perStoreModuleRoot value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13491	self perStoreModuleHostnameHolder value:(entry at:2) hostAndDBName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13492	self perStoreModuleUsernameHolder value:(entry at:2) userName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13493	self perStoreModulePasswordHolder value:(entry at:2) password.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13494	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13495	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13496	self perStoreModuleRoot value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13497	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13498	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13499	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13500	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13501	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13502
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13503	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13504	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13505
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13506	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13507
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13508	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13509
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13510	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13511	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13512
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13513	(fn := nm asFilename) exists ifFalse:[
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13514	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13515	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13516	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13517	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13518	self sourceCacheDir value:previousDir.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13519	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13520	].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13521	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13522	recursiveMakeDirectory;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13523	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13524	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13525	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13526	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13527	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13528
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13529	(fn isDirectory) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13530	self warn:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13531	stringWithCRs:'Not a directory: "%1"'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13532	with:nm).
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13533	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13534	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13535	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13536
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13537	(fn isReadable and:[fn isWritable]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13538	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13539	stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13540	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13541	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13542	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13543	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13544	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13545	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13546	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13547	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13548	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13549	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13550	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13551	"/ (self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13552	"/ 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	13553	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13554	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13555	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13556	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13557	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13558	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13559	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13560	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13561	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13562
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13563	update:something with:aParameter from:changedObject
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13564	"/ common
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13565	changedObject == sourceCacheDir ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13566	self sourceDirChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13567	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13568	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13569	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13570
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13571	"/ cvs
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13572	changedObject == cvsRootHolder ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13573	self updateModifiedChannel.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13574	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13575	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13576	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13577	changedObject == perModuleRoot ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13578	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13579	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13580	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13581	changedObject == selectedPerModuleRoot ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13582	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13583	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13584	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13585
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13586	"/ store
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13587	changedObject == storeHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13588	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13589	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13590	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13591	changedObject == storeUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13592	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13593	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13594	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13595	changedObject == storePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13596	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13597	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13598	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13599	changedObject == perStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13600	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13601	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13602	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13603	changedObject == perStoreModuleHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13604	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13605	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13606	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13607	changedObject == perStoreModuleUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13608	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13609	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13610	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13611	changedObject == perStoreModulePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13612	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13613	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13614	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13615	changedObject == selectedPerStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13616	self selectedPerStoreModuleRootChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13617	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13618	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13619
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13620	"/ SmallTeam
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13621	changedObject == selectedPerSmallTeamModuleRoot ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13622	self selectedPerSmallTeamModuleRootChanged.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13623	^ self
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13624	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13625
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13626	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13627
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13628	"Modified: / 09-11-2006 / 14:41:10 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13629	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13630
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13631	updateConnectEnableHolders
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13632	self storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13633	value:(storeHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13634	and:[ storeUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13635	and:[ storePasswordHolder value notEmptyOrNil ]]).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13636
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13637	self storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13638	value:(perStoreModuleHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13639	and:[ perStoreModuleUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13640	and:[ perStoreModulePasswordHolder value notEmptyOrNil ]]).
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13641	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13642
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13643	updateLoginEnableHolders
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13644	self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13645	self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13646	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13647
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13648	updateSelectedManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13649	\|selectedManagerTypeIndex\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13650
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13651	selectedManagerTypeIndex := self availableManagers indexOf:SourceCodeManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13652	selectedManagerTypeIndex == 0 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13653	self availableManagers size == 1 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13654	selectedManagerTypeIndex := 1.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13655	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13656	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	13657	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13658	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13659
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13660	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13661
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13662	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13663	^ 'Launcher/cvsSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13664	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13665
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13666	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13667
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13668	initialize
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13669	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13670
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13671	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13672	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13673
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13674	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13675	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13676
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13677	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13678	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13679
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13680	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13681	eachManager repositoryInfoPerModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13682	keysAndValuesDo:[:module :info \|
8356 e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13683	module withoutSeparators ~= module ifTrue:[
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13684	self halt:'should not happen any longer'
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13685	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13686	rootsPerModule at:module put:(Array with:eachManager with:info)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13687	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13688	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13689
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13690	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13691
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13692	"Modified: / 08-11-2006 / 19:20:32 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13693	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13694
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13695	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13696
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13697	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13698	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13699
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13700	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13701	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13702	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13703	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13704	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13705	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13706	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13707	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13708	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13709
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13710	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13711	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13712
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13713	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13715
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13716	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13717	(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	13718	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13719	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13720
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13721	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13722	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13723
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	13724	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13725	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13726
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13727	self availableManagers do:[:mgr \|
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13728	\|modules\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13729
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13730	modules := rootsPerModule select:[:entry \| entry first == mgr].
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13731
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13732	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13733	((modules includesKey:module) and:[info = (modules at:module) second])
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13734	ifFalse:[^ true].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13735	].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13736	modules keysAndValuesDo:[:module :info\|
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13737	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13738	ifFalse:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13739	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13740	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13741
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13742	self selectedManager isCVS ifTrue:[
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13743	((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13744	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13745
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13746	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13747	ifTrue:[^ true].
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13748
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13749	(CVSSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13750	ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13751	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13752
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13753	self selectedManager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13754	((StoreSourceCodeManager hostAndDBName ? '') ~= (self storeHostnameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13755	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13756	((StoreSourceCodeManager userName ? '') ~= (self storeUsernameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13757	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13758	((StoreSourceCodeManager password ? '') ~= (self storePasswordHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13759	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13760	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13761
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13762	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13763
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13764	"Modified: / 09-11-2006 / 14:49:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13765	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13767	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13768
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13769	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13771	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13772	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13773	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13774	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13775	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	13776	'mswindowsxp'
9071 c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	13777	'mswindowsvista'
c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	13778	"/ 'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	13779	"/ 'normal'
9070 7deb618d44ac * empty log message * Claus Gittinger <cg@exept.de> parents: 9069 diff changeset	13780	"/ 'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	13781	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	13782	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13783	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13784	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13785
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13786	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13787
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13788	closePreviewButtonImage
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13789	^ ToolbarIconLibrary removeTabIcon
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13790	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13791
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13792	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13793	^ self defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13794	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13795
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13796	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13797	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13798	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13799
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13800	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13801	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13802
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13803	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13804	self defaultIcon1 inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13805	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13806	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13807	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13809	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13810
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13811	^Icon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13812	constantNamed:'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon1'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13813	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13814	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13815	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13816	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13817	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13818	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13819	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; 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]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13820	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13821
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13822	defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13823	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13824	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13825
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13826	"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	13827	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	13828
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13829	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13830	self defaultIcon2 inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13831	ImageEditor openOnClass:self andSelector:#defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13832	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13833	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13834
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13835	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13836
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13837	^Icon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13838	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon2'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13839	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13840	@@@@@@@@@@@@@@0L@@@@@@@@@@@@@@@@@@@@@@@@@@0_GQT@@@@@@@@@@@@@@@@@@@@@@@0\GQ4ZEP@@@@@@@@@@@@@@@@@@@@0[GQ4ZF!!TU@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13841	@@@@@AL[G!!8ZF!!\WEQT@@@@@@@@@@@@@@AL[G!!8^G!! WE1TUEP@@@@@@@@@@@AL[G!!8^G!!8^EQ\XEQTU@@@@@@@@@AL[G!!8^G!!8^G!!8TEQTTE@0@@@@@@AL[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13842	G!!8^G!!8^G!!8^G!!PTEAPTC@@@@@@@D18^G!!8^G!!8^G!!8^EAPTEAPQ@@HB@ HB@ HB@ HB@ HB@ HTEAPS@@@B@!!0YB (IB@XFAPP\FQ$BG!!PS@@@@@ H\FP(J
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13843	BP FA TDGA$Y@!!8S@@@@@@HBFQXGA0\C@0LA@Q$VE HS@@@@@@@SD10\GA0\GA0\GA0[F1,S@@@@@@@@D1L\GA0\GA0\GA0\F1,[D0@@@@@@@ALSGA0\GA0\
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13844	GA0\F1,[F1L@@@@@@@@SD10\GA0\GA0\GA,[F1,S@@@@@@@@D1L\GA0\GA0\GA0[F1,[D0@@@@@@@ALSGA0\GA0\GA0\F1,[F1L@@@@@@@@SD10\GA0\GA0\
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13845	F1,[F1,S@@@@@@@@D1LSD1LSD1LSD1LSD1LSD0@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 80 112 0 80 128 0 96 128 0 96 144 0 112 144 0 112 160 16 112 144 16 128 160 16 128 176 16 144 192 32 80 80 32 96 80 32 96 96 48 112 112 48 128 112 48 128 128 64 96 96 64 144 128 80 80 80 112 112 0 128 128 0 128 128 128 160 160 0 176 176 0 192 192 192 208 208 0 224 224 224 240 240 240 255 255 129 255 255 193 255 255 225]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); 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	13846	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13847
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13848	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13849
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13850	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13851	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13852	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13853
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13854	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13855	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13857	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13858	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13859	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13860	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13861	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13862
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13863	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13865	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13866	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13867	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13868	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13869	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13870	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13871	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13872	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13873	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13874	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13875	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13876	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13877	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13878	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13879	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13880	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13881	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13882	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13883	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13884	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13885	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13886	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13887	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13888	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13889	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13890	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13891	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	13892	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13893	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13894	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13895	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13896	isReadOnly: true
9067 3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	13897	hasKeyboardFocusInitially: false
3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	13898	viewClassName: 'TextView'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13899	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13900	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13901	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13902
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13903	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13904	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13905	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13906	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13907	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13908	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13909	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13910	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13911	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13912	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13913	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13914	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13915	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13916	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13917	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13918	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13919	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13920	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13921	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13922	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13923	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13924	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13925	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13926	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13927	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13928	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13929	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13930	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13931	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13932	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13933	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13934	sequenceList: styleList
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13935	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13936	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13937	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13938
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13939	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13940	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13941	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13942
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13943	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13944	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13945	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13946
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13947	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13948	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13949	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13950	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13951	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13952	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13953	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13954	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13955	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13956	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13957	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13958	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13959	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13960	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13961	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13962	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13963	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13964	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13965	(CheckBoxSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13966	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13967	name: 'CheckBox2'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13968	layout: (LayoutFrame 417 0 9 0 553 0 31 0)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13969	model: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13970	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13971	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13972	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13973
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13974	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	13975	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13976	(LabelSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13977	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13978	name: 'PreviewLabel'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13979	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13980	level: 0
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13981	borderWidth: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13982	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13983	backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13984	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13985	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13986	(NonScrollableArbitraryComponentSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13987	name: 'Preview'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13988	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13989	level: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13990	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13991	hasBorder: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13992	component: ImageView
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13993	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13994	(ActionButtonSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13995	label: 'closePreviewButtonImage'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13996	name: 'ClosePreviewButton'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13997	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13998	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13999	hasCharacterOrientedLabel: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14000	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14001	model: closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14002	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14003	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14005	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14006	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14007	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14009	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14010
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14011	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14012	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14013	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14014
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14015	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	14016	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14017
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14018	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	14019
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14020	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	14021	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14022	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14023	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	14024	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14025	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14026
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14027	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14028	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14029	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14031	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14032
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14033	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14034	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14036	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14037
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14038	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14039
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14040	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14041	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14042	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14043	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14044	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14045
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14046	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14047
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14048	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14049	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14050	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14051	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14052	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14053
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14054	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14055
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14056	previewVisibleHolder isNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14057	previewVisibleHolder := ValueHolder new.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14058	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14059	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14060	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14061	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14062
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14063	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14065	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14066	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14067	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14068	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14069	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14070	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14071
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14072	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14073
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14074	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14075	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14076	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14077	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14078	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14079	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14080
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14081	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14082
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14083	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14084	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14085	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14086	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14087	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14088	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14090	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14091
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14092	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14093	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14094
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14095	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14096	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14097	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14098	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14099	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14100	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14101	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14102	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14103	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14104	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14105	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14106	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14107
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14108	self previewVisibleHolder value ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14109	self builder notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14110	labelView := self componentAt:#PreviewLabel.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14111	labelView label:'Sorry - no preview available'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14112
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14113	imgView := (self componentAt:#Preview).
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14114	imgView image:nil.
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14115
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14116	previewFile notEmptyOrNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14117	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14118	previewImage notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14119	labelView label:'Preview'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14120	imgView adjust:#fitBig; image:previewImage.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14121	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14122	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14123	labelView forceResizeHorizontally.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14124	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14125	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14126	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14127
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14128	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14129	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14130	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14131	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14133	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14134	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14135	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	14136	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	14137	].
c72e35116b13 instable state penk parents: 5040 diff changeset	14138	super
c72e35116b13 instable state penk parents: 5040 diff changeset	14139	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	14140	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	14141	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14142	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14143
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14144	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14145
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14146	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14147
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14148	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14149	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14150	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14151	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14152	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14153	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14154	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14155	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	14156	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14157	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14158
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14159	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14160	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14161	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14162
041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14163	"Modified: / 07-11-2006 / 13:58:09 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14164	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14165
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14166	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14167
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14168	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14169	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14170	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14171
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14172	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14173
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14174	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14175	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14176	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14177	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14178
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14179	commonPostBuildWith:aBuilder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14180	super commonPostBuildWith:aBuilder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14181	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14182
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14183	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14185	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14186
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14187	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14188
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14189	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14190	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14191	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14192	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14193	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14194	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14195	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14196	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14197	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14198	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14199	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14200	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14201	self warn:'no styles found (missing ''resources'' directory)'.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14202	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14203	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14204	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14205
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14206	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14207	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14208	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14209	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14210	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14211	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14212
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14213	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	14214	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14215	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14216	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14217	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14218	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14219	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14220
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14221	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14222	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14223	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14224	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14226	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14227
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14228	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14230	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14231	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14232
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14233	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14235	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14236
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14237	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14238	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14239	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14240	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14241	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14242	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14243	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14244	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14245	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14246	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14247	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14248	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14249	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14250	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14251	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14252	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14253	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14254	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14255	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14256
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14257	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14258
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14259	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14260	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14261	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14262
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14263	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14264
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14265	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14266	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14267	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14268	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14269	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14270	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14271	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14272	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14273	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14274	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14275	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14276	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14277
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14278	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14279
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14280	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14281	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14282	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14283	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14284	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14285	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14286	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14287	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14288	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14289	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14290	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14291	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14292	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14293	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14294	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14295	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14296	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14297	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14298	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14299
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14300	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14301
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14302	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14303	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14304	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14305
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14306	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14307	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14308
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14309	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14310	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14311	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14312	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14313	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14314
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14315	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14316
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14317	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14318	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14319	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14320	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14321	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14322	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 255 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14323	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14324
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14325	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14327	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14328	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14329	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14330
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14331	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14332	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14333
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14334	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14335	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14336	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14337	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14338	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14339
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14340	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14341
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14342	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14343	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14344	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14345	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14346	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14347	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14348	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14349	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14350	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14351	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14352	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14353	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14354	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14355	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14356	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14357	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14358	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14359	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14360	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14361	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14362	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14363	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14364	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14365	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14366	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14367	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14368	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14369	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14370	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14371	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14372	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14373	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14374	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14375	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14376	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14377	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14378	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14379	layout: (LayoutFrame 100 0 0 0 0 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14380	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14381	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14382	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14383	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14384	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14385	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14386	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14387
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14388	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14389	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14390	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14391	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14392	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14393	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14394	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14395	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14396	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14397	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14398	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14399	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14400	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14401	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14402	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14403	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14404	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14405	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14406	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14407	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14408	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14409	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14410	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14411
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14412	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14413	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14414	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14415	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14416	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14417	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14418	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14419	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14420	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14421	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14422	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14423	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14424	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14425	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14426	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14427	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14428	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14429	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14430	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14431	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14432	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14433	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14434	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14435	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14436	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14437
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14438	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14439	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14440	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14441	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14442	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14443	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14444	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14445	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14446	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14447	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14448	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14449	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14450	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14451	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14452	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14453	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14454	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14455	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14456	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14457	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14458	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14459	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14460	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14461	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14462	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14463	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14464
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14465	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14466	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14467	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14468	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14469	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14470	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14471	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14472	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14473	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14474	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14475	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14476	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14477	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14478	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14479	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14480	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14481	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14482	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14483	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14484	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14485	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14486	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14487	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14488	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14489	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14490	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14491	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14492	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14493	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14494	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14495	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14496	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14497	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14498	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14499	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14500	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14501	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14502	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14503	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14504	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14505	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14506	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14507	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14508
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14509	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14510	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14511	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14512
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14513	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14514	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14515	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14516
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14517	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14518
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14519	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14520	\|colorList resetListLoc\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14521
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14522	oldUserPreferences notNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	14523	(UserPreferences reset; current) addAll:oldUserPreferences
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14524	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14525
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14526	self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14527	readAspects:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14528	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14529	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14530	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14531	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14532	from:currentUserPrefs.
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14533
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14534	oldUserPreferences := currentUserPrefs copy.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14535	colorList := UserPreferences syntaxColorNames.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14536	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14537	collect:[:entry \| entry second].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14538	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14539	self resetListSelection value:resetListLoc first.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14540	self syntaxEmphasisList value:self class emphasisList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14541	self syntaxElementList value:colorList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14542	self syntaxElementSelection value:(colorList at:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14543	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14544
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14545	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14546
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14547	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14548	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14549	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14550	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14551
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14552	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14553	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14554
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14555	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14556	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14557	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14558	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14559	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14560	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14561	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14562	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14563	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14564	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14565
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14566	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14567	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14568
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14569	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	14570	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	14571	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14572	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14573	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14574	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14575
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14576	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14577
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14578	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14579
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14580	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14581	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14582	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14583	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14584	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14585
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14586	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14587
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14588	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14589	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14590	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14591	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14592	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14593	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14594
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14595	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14596
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14597	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14598	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14599	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14600	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14601
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14602	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14603	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14604
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14605	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14606
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14607	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14608	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14609	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14610	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14611	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14613	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14614
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14615	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14616	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14617	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14618	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14619	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14620	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14621
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14622	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14623
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14624	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14625	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14626	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14627	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14628	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14629	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14630	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14631
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14632	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14633	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14634	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14635	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14636	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14637
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14638	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14639	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14640
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14641	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14642
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14643	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14644	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14645	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14646	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14647	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14648
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14649	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14650	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14651
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14652	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14653	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14654	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14655	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14656	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14657
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14658	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14659	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14661	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14662
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14663	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14664	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14665	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14666	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14667	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14668	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14669
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14670	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14671
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14672	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14673	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14674
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14675	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14676	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14678	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14679	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14680	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14681	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14682	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14684	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14685
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14686	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14687
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14688	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14689	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14690	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14691	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14692	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14693
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14694	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14695	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14696
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14697	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14698	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14699	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14700	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14701	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14702
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14703	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14704	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14705	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14706	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14707	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14708	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14709	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14710	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14711	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14712	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14713	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14714	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14715	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14716	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14717	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14718	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14719	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14720
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14721	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14722	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14723
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14724	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14725
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14726	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14727	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14728	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14729
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14730	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14731
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14732	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14733	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14734	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14735
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14736	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14737	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14738	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14739	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14740	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14741
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14742	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14744	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14745	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14746	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14747	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14748	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14749	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14750	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14751	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14752	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14753	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14754	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14755	emphasisDictionary at:entry put:(Array with:#bold with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14756	emphasisDictionary at:(Array with:#bold with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14757	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14758	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14759	emphasisDictionary at:entry put:(Array with:#bold with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14760	emphasisDictionary at:(Array with:#bold with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14761	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14762	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14763	emphasisDictionary at:entry put:(Array with:#italic with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14764	emphasisDictionary at:(Array with:#italic with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14765	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14766	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14767	emphasisDictionary at:entry put:(Array with:#italic with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14768	emphasisDictionary at:(Array with:#italic with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14769	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14770	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14771	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14772	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14773	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14774	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14775	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14776	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14777	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14778	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14779
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14780	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14781
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14782	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	14783	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14784	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14785	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14786	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14787
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14788	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14789
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14790	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14791	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14792
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14793	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14794	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14795	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14796	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14797	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14798	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14799	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14800	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14801	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14802	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14803	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14804	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14805
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14806	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14807	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14808	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14809	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14810	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14811	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14812	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14813
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14814	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14815	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14817	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14818	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14819	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14820
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14821	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14822	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14823	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14824
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14825	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14826
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14827	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14828	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14829
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14830	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14831	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14832	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14833	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14834
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14835	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14836
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14837	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14838	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14839
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14840	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14841
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14842	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14843	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14844
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14845	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14846
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14847	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14848	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14849	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14850
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14851	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14852	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14853
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14854	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14855	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14856	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14857	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14858	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14859
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14860	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14861
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14862	^
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14863	#(FullSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14864	name: windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14865	window:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14866	(WindowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14867	label: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14868	name: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14869	min: (Point 10 10)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14870	bounds: (Rectangle 0 0 607 786)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14871	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14872	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14873	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14874	collection: (
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14875	(VerticalPanelViewSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14876	name: 'VerticalPanel2'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14877	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14878	horizontalLayout: fit
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14879	verticalLayout: top
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14880	horizontalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14881	verticalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14882	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14883	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14884	collection: (
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14885	(CheckBoxSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14886	label: 'Show Accept/Cancel Bar in Editor'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14887	name: 'ShowAcceptCancelBarInBrowser'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14888	model: showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14889	translateLabel: true
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14890	extent: (Point 607 25)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14891	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14892	(CheckBoxSpec
8922 7caf746db664 * empty log message * Claus Gittinger <cg@exept.de> parents: 8916 diff changeset	14893	label: 'Show Search Bar in Browser'
7caf746db664 * empty log message * Claus Gittinger <cg@exept.de> parents: 8916 diff changeset	14894	name: 'ShowSearchBarInBrowser'
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14895	model: useSearchBarInBrowser
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14896	translateLabel: true
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14897	extent: (Point 607 25)
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14898	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14899	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14900
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14901	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14902	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14903	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14904
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14905	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14906	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14907	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14908
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14909	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14910
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14911	basicReadSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14912	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14913	readAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14914	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14915	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14916	useSearchBarInBrowser
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14917	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14918	from:currentUserPrefs.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14919	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14920
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14921	basicSaveSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14922	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14923	writeAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14924	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14925	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14926	useSearchBarInBrowser
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14927	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14928	to:currentUserPrefs.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14929	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14930
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14931	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14932
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14933	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14934	showAcceptCancelBarInBrowser isNil ifTrue:[
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14935	showAcceptCancelBarInBrowser := false asValue.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14936	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14937	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14938	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14939	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14940
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14941	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	14942	"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	14943	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	14944
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14945	useSearchBarInBrowser isNil ifTrue:[
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14946	useSearchBarInBrowser := true asValue.
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14947	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14948	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14949	^ useSearchBarInBrowser.
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14950	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14951
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14952	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14953
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14954	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14955	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14956	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14957
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14958	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'queries'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14959
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14960	hasUnsavedChanges
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14961	(self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14962	hasChangedAspectIn:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14963	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14964	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14965	useSearchBarInBrowser
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14966	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14967	asComparedTo:currentUserPrefs) ifTrue:[^ true].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14968	^ false.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14969	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14970
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14971	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14972
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14973	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14974	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14975	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14976
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14977	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14978	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14979
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14980	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14981	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14982	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14983	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14984	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14985
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14986	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14987
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14988	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14989	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14990	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14991	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14992	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14993	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14994	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14995	GQ$TEAPTE1\@@@@@@@@@@@@@@@<RGQ4YF!!(ZF!!TU@@@@@@@@@@@@C0<^D1LSG2@UER@ HBD"@@@@@@@@@@<OG!!LSD1< EQT HB@!!H @@@@@@@@@OC2DSD1L_
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14996	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a') ; 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]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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	14997	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14998
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14999	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15000
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15001	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15002	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15003	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15005	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15006	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15008	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15009	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15010	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15011	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15012	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15014	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15016	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15017	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15018	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15019	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15020	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15021	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15022	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15023	min: (Point 10 10)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15024	bounds: (Rectangle 0 0 561 478)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15025	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15026	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15027	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15028	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15029	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15030	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15031	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15032	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15033	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15034	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15035	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15036	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15037	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15038	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15039	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15040	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15041	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15042	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15043	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15044	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15045	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15046	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15047	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15048	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15049	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15050	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15051	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15052	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15053	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15054	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15055	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15056	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15057	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15058	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15059	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15060	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15061	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15062	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15063	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15064	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15065	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15066	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15067	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15068	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15069	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15070	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15071	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15072	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15073	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15074	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15075	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15076
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15077	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15078	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15079	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15080	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15081	label: 'Change File'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15082	name: 'FramedBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15083	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15084	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15085	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15086	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15087	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15088	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15089	label: 'Log compiles in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15090	name: 'CheckBox1'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15091	layout: (LayoutFrame 5 0 5 0 -300 1 27 0)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15092	model: updChanges
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15093	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15094	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15095	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15096	label: 'Log doIts in Changefile'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15097	name: 'CheckBox2'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15098	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15099	model: logDoits
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15100	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15101	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15102	(LabelSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15103	label: 'Changefile Name:'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15104	name: 'ChangefileNameLabel'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15105	layout: (LayoutFrame 135 0 55 0 289 0 77 0)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15106	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15107	adjust: right
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15108	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15109	(InputFieldSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15110	name: 'ChangeFileNameEntryField'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15111	layout: (LayoutFrame 294 0 55 0 -5 1 77 0)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15112	model: changeFileName
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15113	immediateAccept: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15114	acceptOnReturn: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15115	acceptOnTab: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15116	acceptOnLostFocus: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15117	acceptOnPointerLeave: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15118	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15119	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15120
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15121	)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15122	extent: (Point 551 112)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15123	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15124	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15125	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15126	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15127	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15128	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15129	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15130	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15131	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15132	(CheckBoxSpec
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15133	label: 'Beep Generally Enabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15134	name: 'beepEnabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15135	layout: (LayoutFrame 5 0 5 0 226 0 27 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15136	model: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15137	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15138	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15139	(CheckBoxSpec
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15140	label: 'Beep in Editor'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15141	name: 'CheckBox7'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15142	layout: (LayoutFrame 40 0 30 0 300 0 52 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15143	enableChannel: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15144	model: beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15145	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15146	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15147	(CheckBoxSpec
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15148	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15149	name: 'CheckBox3'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15150	layout: (LayoutFrame 40 0 55 0 300 0 77 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15151	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15152	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15153	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15154	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15155	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15156	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15157	name: 'CheckBox4'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15158	layout: (LayoutFrame 40 0 80 0 300 0 102 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15159	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15160	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15161	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15162	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15163	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15164	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15165	name: 'CheckBox5'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15166	layout: (LayoutFrame 40 0 105 0 300 0 127 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15167	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15168	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15169	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15170	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15171	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15172
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15173	)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15174	extent: (Point 551 164)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15175	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15176	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15177	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15178	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15179	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15180	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15181	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15182	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15183	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15184	(CheckBoxSpec
7941 c8d90d772c3c * empty log message * Claus Gittinger <cg@exept.de> parents: 7925 diff changeset	15185	label: 'Tooltips (FlyBy Help)'
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15186	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15187	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15188	model: flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15189	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15190	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15191	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15192
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15193	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15194	extent: (Point 551 58)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15195	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15196	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15198	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15199	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15200	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15202	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15203	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15204	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15206	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15207
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15208	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15209	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15210	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15211	#(
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15212	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15213	beepInEditor
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15214	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15215	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15216	beepForErrorDialog
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15217	flyByHelpActive
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15218	)
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15219	from:currentUserPrefs.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15220
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15221	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15222	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15223	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15224	self displayErrors value:DeviceWorkstation errorPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15225	self changeFileName value:ObjectMemory nameForChanges.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15226	self logDoits value:Smalltalk logDoits.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15227	self updChanges value:Class updatingChanges.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15228	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15229
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15230	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15231
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15232	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15233	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15234	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15235	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15236	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15237	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15238	Class updateChanges:self updChanges value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15239
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15240	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15241	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15242	#(
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15243	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15244	beepInEditor
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15245	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15246	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15247	beepForErrorDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15248	flyByHelpActive
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15249	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15250	to:currentUserPrefs.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15251	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15253	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15254
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15255	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15256	beepEnabled isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15257	beepEnabled := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15258	beepEnabled onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15259	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15260	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15261	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15262
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15263	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15264	beepForErrorDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15265	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15266	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15267	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15268	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15269	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15270
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15271	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15272	beepForInfoDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15273	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15274	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15275	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15276	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15277	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15278
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15279	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15280	beepForWarningDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15281	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15282	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15283	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15284	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15285	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15286
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15287	beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15288	beepInEditor isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15289	beepInEditor := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15290	beepInEditor onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15291	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15292	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15293	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15294
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15295	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15296
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15297	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15298	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15299	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15300	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15301	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15302	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15303
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15304	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15306	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15307	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15308	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15309	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15310	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15311	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15312
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15313	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15315	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15316	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15317	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15318	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15319	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15320	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15321
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15322	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15323	flyByHelp isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15324	flyByHelp := currentUserPrefs flyByHelpActive asValue.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15325	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15326	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15327	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15328	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15330	logDoits
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	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15333	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15334	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15335	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15336	^ logDoits.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15339	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15340
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15341	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15342	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15343	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15344	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15345	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15346	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15347
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15348	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15349
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15350	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15351	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15352	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15353	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15354	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15355	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15356
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15357	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15359	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15360	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15361	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15362	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15363	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15364	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15365
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15366	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15367
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15368	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15369	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15370	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15371
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15372	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15373
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15374	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15375	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15376	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15377	#(
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15378	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15379	beepInEditor
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15380	beepForInfoDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15381	beepForWarningDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15382	beepForErrorDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15383	flyByHelpActive
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15384	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15385	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15386
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15387	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15388	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15389	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15390	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15391	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15392	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15393	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15394	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15395	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15396
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15397	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15398
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15399	flyByHelpSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15400	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15401	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15402
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15403	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15404	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15405
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15406	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15407	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15408	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15409
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15410	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15411
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15412	^ super flyByHelpSpec addPairsFrom:#(
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15413
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15414	#autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15415	'Autoraise the Transcript window when messages are added.'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15416
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15417	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15418	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15419
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15420	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15421	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15422
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15423	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15424	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15425
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15426	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15427	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15428
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15429	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15430	'Use the builtIn HTML-Viewer, as opposed to the systems webBrowser (firefox, internet-explorer, etc.)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15431	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15432	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15433
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15434	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15435
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15436	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15437	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15438	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15439
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15440	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15441	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15442
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15443	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15444	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15445	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15446	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15447	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15448
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15449	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15450
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15451	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15452	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15453	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15454	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15455	IC$JSPP@@@J(@BH@4MCQADP@@ AR"HACQAFQD@B@@H""H"HEG$Q@J(@@@H"H("HP9$@ @@@@@"H""HI@B@@@@@@@@H""H@J(@@@@@@@@@H" @ @@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15456	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b') ; 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]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15457	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15458
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15459	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15460
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15461	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15462	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15463	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15465	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15466	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15468	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15469	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15470	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15471	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15472	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15474	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15476	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15477	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15478	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15479	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15480	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15481	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15482	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15483	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15484	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15485	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15486	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15487	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15488	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15489	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15490	name: 'VerticalPanel2'
9272 da1181809311 * empty log message * Claus Gittinger <cg@exept.de> parents: 9233 diff changeset	15491	layout: (LayoutFrame 0 0.0 0 0 0 1.0 437 0)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15492	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15493	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15494	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15495	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15496	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15497	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15498	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15499	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15500	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15501	name: 'NewSystemBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15502	activeHelpKey: useNewSystemBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15503	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15504	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15505	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15506	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15507	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15508	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15509	name: 'NewFileBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15510	activeHelpKey: useNewFileBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15511	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15512	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15513	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15514	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15515	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15516	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15517	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15518	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15519	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15520	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15521	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15522	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15523	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15524	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15525	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15526	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15527	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15528	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15529	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15530	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15531	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15532	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15533	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15534	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15535	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15536	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15537	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15538	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15539	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15540	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15541	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15542	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15543	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15544	label: 'Use the New Changes Browser (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15545	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15546	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15547	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15548	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15549	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15550	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15551	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15552	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15553	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15554	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15555	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15556	)
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15557	(CheckBoxSpec
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15558	label: 'Use the Smalltalk Document Viewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15559	name: 'UseSmalltalkDocumentViewer'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15560	activeHelpKey: useSmalltalkDocumentView
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15561	model: useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15562	translateLabel: true
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15563	extent: (Point 607 25)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15564	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15565	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15566	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15567	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15568	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15569	(CheckBoxSpec
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15570	label: 'Show "Tip Of The Day" at Startup'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15571	name: 'CheckBox1'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15572	model: showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15573	translateLabel: true
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15574	extent: (Point 607 25)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15575	)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15576	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15577	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15578	name: 'Clock'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15579	activeHelpKey: showClockInLauncher
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15580	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15581	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15582	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15583	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15584	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15585	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15586	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15587	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15588	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15589	name: 'HorizontalPanel1'
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	15590	horizontalLayout: left
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15591	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15592	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15593	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15594	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15595	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15596	collection: (
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15597	(ViewSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15598	name: 'Box4'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15599	extent: (Point 20 10)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15600	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15601	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15602	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15603	name: 'Label1'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15604	activeHelpKey: transcriptBufferSize
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15605	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15606	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15607	adjust: right
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15608	useDefaultExtent: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15609	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15610	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15611	name: 'Transcripts Buffer Size'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15612	activeHelpKey: transcriptBufferSize
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15613	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15614	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15615	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15616	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15617	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15618	acceptOnLostFocus: true
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	15619	numChars: 8
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15620	acceptOnPointerLeave: true
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15621	extent: (Point 78 22)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15622	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15623	(LabelSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15624	label: '(Lines)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15625	name: 'Label2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15626	activeHelpKey: transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15627	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15628	resizeForLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15629	adjust: right
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15630	useDefaultExtent: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15631	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15632	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15633
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15634	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15635	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15636	)
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15637	(CheckBoxSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15638	label: 'Autoraise Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15639	name: 'CheckBox2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15640	activeHelpKey: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15641	model: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15642	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15643	extent: (Point 607 24)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15644	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15645	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15647	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15648	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15649	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15651	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15652	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15653	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15654
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15655	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15656
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15657	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15658	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15659	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15660	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15661	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15662	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15663	useNewSystemBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15664	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15665	useNewFileBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15666	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15667	useNewSettingsApplication
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15668	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15669	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15670	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15671	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15672	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15673	from:currentUserPrefs.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15674
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15675	Transcript current isExternalStream ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15676	self transcriptBufferSize value:Transcript current lineLimit.
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15677	self autoRaiseTranscript value:Transcript current autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15678	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15679	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15680
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15681	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15682	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15683
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15684	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15685
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15686	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15687
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15688	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15689	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15690	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15691	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15692	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15693	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15694	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15695	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15696	useSmalltalkDocumentViewer
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15697	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15698	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15699	to:currentUserPrefs.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15700
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15701	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15702	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15703	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15704
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15705	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15706	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15707	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15708	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15709	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15710	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15711	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15712	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15713	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15714
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15715	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15716	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15717	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15718	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15719	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15720	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15721	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15722	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15723	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15724	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15725	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15726
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15727	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15728	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15729	transcript lineLimit:self transcriptBufferSize value.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15730	transcript autoRaise:self autoRaiseTranscript value.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15731	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15732	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15733
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15734	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15735	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15736	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15737	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15738	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15739	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15740	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15741	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15742	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15743	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15745	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15746
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15747	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15748	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15749	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15750	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15751	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15752	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15754	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15755
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15756	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15757	autoRaiseTranscript isNil ifTrue:[
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15758	autoRaiseTranscript := false asValue.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15759	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15760	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15761	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15762
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15763	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15764	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15765
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15766	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15767	showClockInLauncher isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15768	showClockInLauncher := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15769	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15770	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15771	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15772
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15773	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15774	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15775
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15776	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15777	showTipOfTheDayAtStartup isNil ifTrue:[
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15778	showTipOfTheDayAtStartup := false asValue.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15779	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15780	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15781	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15782
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15783	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15784	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15786	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15787	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15788	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15789	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15790	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15791	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15792	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15793
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15794	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15795	useNewChangesBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15796	useNewChangesBrowser := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15797	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15798	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15799	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15800
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15801	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15802	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15803
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15804	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15805	useNewFileBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15806	useNewFileBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15807	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15808	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15809	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15810
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15811	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15812	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15813
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15814	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15815	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15816	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15817	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15818	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15819	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15820	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15821
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15822	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15823	useNewInspector isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15824	useNewInspector := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15825	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15826	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15827	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15828
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15829	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15830	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15831
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15832	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15833	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15834	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15835	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15836	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15837	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15838	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15839
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15840	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15841	useNewSystemBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15842	useNewSystemBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15843	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15844	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15845	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15846
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15847	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15848	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15849
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15850	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15851	useNewVersionDiffBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15852	useNewVersionDiffBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15853	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15854	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15855	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15856
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15857	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15858	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15859
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15860	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15861	useProcessMonitorV2 isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15862	useProcessMonitorV2 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15863	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15864	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15865	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15866
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15867	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15868	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15869
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15870	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15871	useSmalltalkDocumentViewer isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15872	useSmalltalkDocumentViewer := nil asValue.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15873	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15874	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15875	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15876
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15877	"Modified: / 21-09-2006 / 00:03:13 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15878	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15879
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15880	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15881
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15882	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15883	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15884	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15885
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15886	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15887
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15888	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15889	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15890	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15891	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15892	useNewInspector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15893	useNewChangesBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15894	useNewSystemBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15895	useNewVersionDiffBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15896	useNewFileBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15897	useNewFileDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15898	useNewSettingsApplication
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15899	useProcessMonitorV2
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15900	useSmalltalkDocumentViewer
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15901	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15902	showTipOfTheDayAtStartup
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15903	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15904	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15905
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15906	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15907	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15908	(self autoRaiseTranscript value ~= Transcript current autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15909	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15910	^ false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15911	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15912
4226 44e2f83cc526 initial checkin penk parents: diff changeset	15913	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	15914
44e2f83cc526 initial checkin penk parents: diff changeset	15915	version
9272 da1181809311 * empty log message * Claus Gittinger <cg@exept.de> parents: 9233 diff changeset	15916	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.351 2009-11-19 12:02:57 cg Exp $'
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	15917	!
a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	15918
a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	15919	version_CVS
9272 da1181809311 * empty log message * Claus Gittinger <cg@exept.de> parents: 9233 diff changeset	15920	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.351 2009-11-19 12:02:57 cg Exp $'
da1181809311 * empty log message * Claus Gittinger <cg@exept.de> parents: 9233 diff changeset	15921	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 19 Nov 2009 13:02:57 +0100
changeset 9272	da1181809311
parent 9233	50ef1ada9fda
child 9277	c0d2adc85051
permissions	-rw-r--r--