hg/stx-libbasic: UserPreferences.st@fbc6851eacec (annotated)

19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	1	"{ Encoding: utf8 }"
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	2
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	COPYRIGHT (c) 1998 by eXept Software AG
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	5	All Rights Reserved
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	This software is furnished under a license and may be used
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	only in accordance with the terms of that license and with the
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	inclusion of the above copyright notice. This software may not
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	be provided or otherwise made available to, or used by, any
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	other person. No title to or ownership of the software is
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	hereby transferred.
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	"
5516 00c8b663a92e * empty log message * Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	14	"{ Package: 'stx:libbasic' }"
00c8b663a92e * empty log message * Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	15
17316 4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	16	"{ NameSpace: Smalltalk }"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	17
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	IdentityDictionary subclass:#UserPreferences
19633 ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	19	instanceVariableNames:'modified'
9742 58f5e1d235a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9492 diff changeset	20	classVariableNames:'CurrentPreferences DefaultPreferences'
58f5e1d235a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9492 diff changeset	21	poolDictionaries:''
58f5e1d235a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9492 diff changeset	22	category:'System-Support'
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!UserPreferences class methodsFor:'documentation'!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	copyright
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	COPYRIGHT (c) 1998 by eXept Software AG
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	30	All Rights Reserved
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	This software is furnished under a license and may be used
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	only in accordance with the terms of that license and with the
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	inclusion of the above copyright notice. This software may not
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	be provided or otherwise made available to, or used by, any
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	other person. No title to or ownership of the software is
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	hereby transferred.
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	documentation
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	"
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	44	A Dictionary for user preference values.
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	45	For non-existing keys, either a defaultValue (false),
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	46	or the value from a defaultDictionary is returned.
3353 0f0288822acd checkin from browser Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	47
3359 a474d509302f * empty log message * Claus Gittinger <cg@exept.de> parents: 3358 diff changeset	48	This will eventually keep track of ALL user preferences.
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	49	For now, not all preferences are found here -
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	50	(some of them are currently spread over the system - especially, in Class-Variables)
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	51	- but this will change over time.
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	52
10887 dc01356c015a comments Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	53	If more prefs are added, think about adding a corresponding UI to the SystemSettingsDialog too.
dc01356c015a comments Claus Gittinger <cg@exept.de> parents: 10880 diff changeset	54
18690 f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	55	Notice, that ST/X is intended to be multi-user capable, supporting multiple users on multiple screens.
f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	56	This is effectively used by (at least) 2 ST/X customers we are aware of (for multi-screen applications).
f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	57	So do not break it, by putting user-specific stuff into class variables.
f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	58
f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	59	Usage:
f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	60	UserPreferences current at:#foo
f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	61	or
f0a013daec58 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18689 diff changeset	62	UserPreferences current at:#foo put:something
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	! !
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	66	!UserPreferences class methodsFor:'initialization'!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	67
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	68	initializeDefaultsIn:preferences
10240 9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps. Claus Gittinger <cg@exept.de> parents: 10177 diff changeset	69	Color isNil "Smalltalk isStandAloneApp" ifTrue:[
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	70	^ self.
10240 9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps. Claus Gittinger <cg@exept.de> parents: 10177 diff changeset	71	].
9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps. Claus Gittinger <cg@exept.de> parents: 10177 diff changeset	72
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	73	#(
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	74	#useNewChangesBrowser false
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	75	#useNewInspector false
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	76	#showClockInLauncher true
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	77
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	78	#autoFormatting false
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	79	#syntaxColoring true
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	80	#fullSelectorCheck false
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	81
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	82	#defaultSyntaxColor (Color black)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	83	#defaultSyntaxEmphasis normal
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	84
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	85	#errorColor (Color red)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	86
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	87	"/ #commentColor (Color 12.5 12.5 100)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	88	#commentColor (Color 0 50 0)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	89	#commentEmphasis normal
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	90
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	91	#methodSelectorEmphasis bold
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	92	#selectorEmphasis bold
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	93	#unimplementedSelectorColor (Color red)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	94	#unimplementedSelectorEmphasis normal
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	95
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	96	"/ I prefer red-underwave over red identifier ...
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	97	"/ #badIdentifierColor (Color red)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	98	#instVarIdentifierColor (Color 33 0 33)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	99
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	100	"/ I prefer redish background
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	101	"/ #sideEffectAssignmentColor (Color 75 0 0)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	102	"/ #sideEffectAssignmentBackgroundColor (Color 100 86 86)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	103
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	104	#jsKeywordEmphasis bold
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	105	"/ #jsKeywordColor (Color black)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	106	#jsKeywordColor (Color 33 33 0)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	107
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	108	#controlFlowSelectorColor (Color 0 0 100)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	109	#debugSelectorColor (Color 80 0 0)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	110	#errorRaisingSelectorColor (Color 80 0 0)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	111	"/ #constantColor (Color 25 0 0)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	112	#constantColor (Color 64 8 8)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	113
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	114	#globalIdentifierColor (Color 67 0 67)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	115	#unknownIdentifierColor (Color 67 0 67)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	116
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	117	#returnColor (Color 0 0 100)
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	118	#returnEmphasis bold
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	119	) pairWiseDo:[:k :v \|
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	120	preferences at:k put:(v decodeAsLiteralArray).
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	121	].
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	122
9913 b798d50affb3 focus follows mouse default. Claus Gittinger <cg@exept.de> parents: 9834 diff changeset	123	"/ I prefer red-underwave over red identifier ...
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	124	preferences at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
4335 b301d2c92490 underwave red for bad identifiers Claus Gittinger <cg@exept.de> parents: 4331 diff changeset	125
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	126	"
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	127	self initializeDefaultPreferences
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	128	"
4335 b301d2c92490 underwave red for bad identifiers Claus Gittinger <cg@exept.de> parents: 4331 diff changeset	129
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	130	"Created: / 06-06-2016 / 10:42:14 / cg"
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	131	! !
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	132
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	!UserPreferences class methodsFor:'accessing'!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	current
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	CurrentPreferences isNil ifTrue:[
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	137	CurrentPreferences := self new.
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	138	self initializeDefaultsIn:CurrentPreferences.
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	139	CurrentPreferences flyByHelpSettingChanged.
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	].
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	^ CurrentPreferences.
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142
8420 08756fae71a0 prefs for js ca parents: 8252 diff changeset	143	"
08756fae71a0 prefs for js ca parents: 8252 diff changeset	144	CurrentPreferences := nil
08756fae71a0 prefs for js ca parents: 8252 diff changeset	145	"
17414 d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	146
d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	147	"Modified: / 05-02-2015 / 07:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	148	"Modified: / 06-06-2016 / 10:42:59 / cg"
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	149	!
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	150
4318 39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	151	default
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	152	DefaultPreferences isNil ifTrue:[
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	153	DefaultPreferences := self new.
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	154	self initializeDefaultsIn:DefaultPreferences
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	155	].
4318 39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	156	^ DefaultPreferences.
39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	157
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	158	"
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	159	DefaultPreferences := nil.
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	160	"
19952 fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	161
fbc6851eacec #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19918 diff changeset	162	"Modified: / 06-06-2016 / 10:41:45 / cg"
4318 39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	163	!
39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	164
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	165	reset
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	166	"resets the CurrentPreferences to its default values"
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	167
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	168	CurrentPreferences := nil
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	169	!
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	170
19918 49dd92f59382 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19852 diff changeset	171	setCurrent:preferencesInstance
49dd92f59382 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19852 diff changeset	172	"sets the CurrentPreferences to preferencesInstance"
49dd92f59382 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19852 diff changeset	173
49dd92f59382 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19852 diff changeset	174	CurrentPreferences := preferencesInstance
49dd92f59382 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19852 diff changeset	175	!
49dd92f59382 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19852 diff changeset	176
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	177	syntaxColorKeys
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	178	"returns the keys of syntax color items"
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	179
17359 61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	180	^ self syntaxColorNamesAndKeys collectAll:[:each \| each from:2]
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	181
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	182	"
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	183	self syntaxColorKeys
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	184	"
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	185
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	186	"/ ^#(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	187	"/ argumentIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	188	"/ argumentIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	189	"/ booleanConstantColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	190	"/ booleanConstantEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	191	"/ bracketColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	192	"/ bracketEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	193	"/ classVariableIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	194	"/ classVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	195	"/ constantColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	196	"/ constantEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	197	"/ controlFlowSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	198	"/ controlFlowSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	199	"/ commentColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	200	"/ commentEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	201	"/ defaultSyntaxColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	202	"/ defaultSyntaxEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	203	"/ errorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	204	"/ globalIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	205	"/ globalIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	206	"/ globalClassIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	207	"/ globalClassIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	208	"/ hereColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	209	"/ hereEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	210	"/ identifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	211	"/ identifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	212	"/ instVarIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	213	"/ instVarIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	214	"/ localIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	215	"/ localIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	216	"/ methodSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	217	"/ methodSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	218	"/ poolVariableIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	219	"/ poolVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	220	"/ returnColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	221	"/ returnEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	222	"/ selectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	223	"/ selectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	224	"/ selfColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	225	"/ selfEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	226	"/ stringColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	227	"/ stringEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	228	"/ superColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	229	"/ superEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	230	"/ symbolColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	231	"/ symbolEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	232	"/ thisContextColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	233	"/ thisContextEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	234	"/ unknownIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	235	"/ unknownIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	236	"/ unimplementedSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	237	"/ unimplementedSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	238	"/ sideEffectAssignmentBackgroundColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	239	"/ sideEffectAssignmentColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	240	"/ colorForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	241	"/ emphasisForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	242	"/ colorForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	243	"/ emphasisForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	244	"/ colorForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	245	"/ emphasisForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	246	"/ )
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	247
14007 1ee2f49e87df changed: #syntaxColorKeys Claus Gittinger <cg@exept.de> parents: 14006 diff changeset	248	"Modified: / 14-02-2012 / 10:17:46 / cg"
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	249	!
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	250
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	251	syntaxColorNames
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	252	"returns the syntax colors for the settings in the launcher"
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	253
17359 61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	254	^ self syntaxColorNamesAndKeys collect:#first.
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	255
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	256	"/"/ warning, the strings below are presented to the user
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	257	"/"/ as the syntax-color boxes comboList - however, they are
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	258	"/"/ also used (without separators) as key into myself.
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	259	"/"/ Therefore, do not change the strings below.
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	260	"/"/ I know - this is bad coding ....
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	261	"/
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	262	"/^#(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	263	"/'Argument Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	264	"/'Boolean Constant Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	265	"/'Bracket Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	266	"/'Class Variable Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	267	"/'Collection Enumeration Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	268	"/'Constant Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	269	"/'Control Flow Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	270	"/'Comment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	271	"/'Debug Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	272	"/'Error Raising Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	273	"/'Global Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	274	"/'Global Class Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	275	"/'Here Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	276	"/'Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	277	"/'InstVar Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	278	"/'Local Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	279	"/'Method Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	280	"/'Pool Variable Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	281	"/'Return Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	282	"/'Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	283	"/'Self Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	284	"/'Side Effect Assignment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	285	"/'Side Effect Assignment Background Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	286	"/'String Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	287	"/'Super Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	288	"/'Symbol Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	289	"/'This Context Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	290	"/'Unknown Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	291	"/'Unimplemented Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	292	"/'Side Effect Assignment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	293	"/'Coverage: Reached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	294	"/'Coverage: Partially Reached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	295	"/'Coverage: Unreached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	296	"/)
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	297
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	298	"Modified: / 14-02-2012 / 15:51:38 / cg"
17359 61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	299	!
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	300
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	301	syntaxColorNamesAndKeys
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	302	"returns the names and keys of syntax color items"
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	303
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	304	^#(
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	305	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	306	'Argument Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	307	argumentIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	308	argumentIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	309	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	310	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	311	'Boolean Constant Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	312	booleanConstantColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	313	booleanConstantEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	314	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	315	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	316	'Bracket Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	317	bracketColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	318	bracketEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	319	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	320	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	321	'Class Variable Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	322	classVariableIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	323	classVariableIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	324	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	325	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	326	'Constant Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	327	constantColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	328	constantEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	329	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	330	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	331	'Control Flow Selector Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	332	controlFlowSelectorColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	333	controlFlowSelectorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	334	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	335	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	336	'Comment Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	337	commentColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	338	commentEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	339	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	340	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	341	'Collection Enumeration Selector Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	342	collectionEnumerationSelectorColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	343	collectionEnumerationSelectorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	344	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	345	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	346	'Debug Selector Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	347	debugSelectorColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	348	debugSelectorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	349	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	350	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	351	'Default Syntax Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	352	defaultSyntaxColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	353	defaultSyntaxEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	354	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	355	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	356	'Error Raising Selector Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	357	errorColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	358	errorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	359	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	360	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	361	'Global Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	362	globalIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	363	globalIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	364	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	365	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	366	'Global Class Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	367	globalClassIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	368	globalClassIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	369	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	370	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	371	'Here Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	372	hereColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	373	hereEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	374	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	375	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	376	'Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	377	identifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	378	identifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	379	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	380	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	381	'InstVar Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	382	instVarIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	383	instVarIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	384	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	385	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	386	'Local Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	387	localIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	388	localIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	389	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	390	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	391	'Method Selector Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	392	methodSelectorColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	393	methodSelectorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	394	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	395	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	396	'Pool Variable Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	397	poolVariableIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	398	poolVariableIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	399	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	400	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	401	'Return Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	402	returnColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	403	returnEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	404	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	405	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	406	'Selector Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	407	selectorColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	408	selectorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	409	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	410	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	411	'Self Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	412	selfColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	413	selfEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	414	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	415	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	416	'String Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	417	stringColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	418	stringEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	419	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	420	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	421	'Super Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	422	superColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	423	superEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	424	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	425	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	426	'Symbol Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	427	symbolColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	428	symbolEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	429	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	430	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	431	'This Context Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	432	thisContextColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	433	thisContextEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	434	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	435	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	436	'Unknown Identifier Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	437	unknownIdentifierColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	438	unknownIdentifierEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	439	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	440	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	441	'Unimplemented Selector Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	442	unimplementedSelectorColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	443	unimplementedSelectorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	444	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	445	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	446	'Side Effect Assignment Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	447	sideEffectAssignmentColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	448	sideEffectAssignmentColorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	449	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	450	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	451	'Side Effect Assignment Background Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	452	sideEffectAssignmentBackgroundColor
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	453	sideEffectAssignmentBackgroundColorEmphasis
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	454	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	455	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	456	'Coverage: Reached Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	457	colorForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	458	emphasisForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	459	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	460	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	461	'Coverage: Partially Reached Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	462	colorForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	463	emphasisForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	464	)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	465	(
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	466	'Coverage: Unreached Color'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	467	colorForInstrumentedNeverCalledCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	468	emphasisForInstrumentedNeverCalledCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	469	)
17359 61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	470	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	471
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	472	"Modified: / 14-02-2012 / 10:17:46 / cg"
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473	! !
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	475	!UserPreferences class methodsFor:'accessing - defaults'!
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	476
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	477	defaultUserSettingsFile
16651 0954be8fb1d2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16641 diff changeset	478	^ (Filename usersPrivateSmalltalkDirectory) / 'settings.stx'
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	479
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	480	"Created: / 06-10-2008 / 08:27:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
18867 9685268274b6 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18826 diff changeset	481	!
9685268274b6 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18826 diff changeset	482
9685268274b6 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18826 diff changeset	483	defaultWorkspaceDirectory
9685268274b6 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18826 diff changeset	484	^ (Filename usersPrivateSmalltalkDirectory) / 'workspace'
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	485	! !
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	486
6019 770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	487	!UserPreferences class methodsFor:'accessing defaultPrefs'!
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	488
11006 fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	489	defaultSettingsFilename
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	490	^ 'settings.stx'
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	491	!
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	492
6763 06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	493	fileBrowserClass
12949 1780725fdc63 comment/format in: #fileBrowserClass Claus Gittinger <cg@exept.de> parents: 12947 diff changeset	494	"the class to be used for file browsing (used to be the simple FileBrowser, but is now the FileBrowserV2)"
1780725fdc63 comment/format in: #fileBrowserClass Claus Gittinger <cg@exept.de> parents: 12947 diff changeset	495
6763 06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	496	^ self current fileBrowserClass
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	497
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	498	"
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	499	UserPreferences fileBrowserClass
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	500	"
12949 1780725fdc63 comment/format in: #fileBrowserClass Claus Gittinger <cg@exept.de> parents: 12947 diff changeset	501
1780725fdc63 comment/format in: #fileBrowserClass Claus Gittinger <cg@exept.de> parents: 12947 diff changeset	502	"Modified: / 17-07-2010 / 14:50:34 / cg"
6763 06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	503	!
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	504
6019 770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	505	systemBrowserClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	506	^ self current systemBrowserClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	507
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	508	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	509	UserPreferences systemBrowserClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	510	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	511	!
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	512
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	513	versionDiffViewerClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	514	^ self current versionDiffViewerClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	515
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	516	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	517	UserPreferences versionDiffViewerClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	518	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	519	! !
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	520
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	521	!UserPreferences class methodsFor:'saving'!
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	522
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	523	saveSettings:userPrefs in:fileNameOrString
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	524	"save settings to a settings-file."
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	525
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	526	"a temporary kludge for old classVariable-based settings
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	527	- all of those MUST go into the user-preferences dictionary eventually"
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	528
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	529	\|screen fileName dir\|
5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	530
5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	531	fileName := fileNameOrString asFilename.
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	532
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	533	screen := Screen current.
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	534
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	535	(dir := fileName directory) exists ifFalse:[
18419 0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	536	dir recursiveMakeDirectory.
17417 b64ee00eabdd class: UserPreferences Stefan Vogel <sv@exept.de> parents: 17415 diff changeset	537	].
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	538	fileName writingFileDo:[:s\|
18419 0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	539	s nextPutLine:'"/ ST/X saved settings';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	540	nextPutLine:'"/ DO NOT MODIFY MANUALLY';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	541	nextPutLine:'"/ (modifications would be lost with next save-settings)';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	542	nextPutLine:'"/';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	543	nextPutLine:'"/ this file was automatically generated by the';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	544	nextPutLine:'"/ ''save settings'' function of the SettingsDialog';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	545	nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	546	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	547
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	548	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	549	s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , Timestamp now printString.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	550	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	551	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	552
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	553	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	554	s nextPutLine:'"/ Display settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	555	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	556	s nextPutLine:'"/ only restore the display settings, if on the same Display ...'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	557	s nextPutLine:'Display notNil ifTrue:['.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	558	s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	559	screen fixColors notNil ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	560	s nextPutLine:' Image flushDeviceImages.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	561	s nextPutLine:' Color colorAllocationFailSignal catch:['.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	562	s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	563	s nextPutLine:' ].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	564	] ifFalse:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	565	s nextPutLine:' Display releaseFixColors.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	566	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	567	s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	568	s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	569	s nextPutLine:' Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	570	s nextPutLine:' Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	571	s nextPutLine:' Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	572	s nextPutLine:' View defaultStyle:' , View defaultStyle storeString , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	573	s nextPutLine:' ].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	574	s nextPutLine:'].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	575	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	576
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	577	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	578	s nextPutLine:'"/ Parser/Compiler settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	579	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	580	s nextPutLine:'ParserFlags warnSTXSpecials: ' , (ParserFlags warnSTXSpecials storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	581	nextPutLine:'ParserFlags warnings: ' , (ParserFlags warnings storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	582	nextPutLine:'ParserFlags warnUnderscoreInIdentifier: ' , (ParserFlags warnUnderscoreInIdentifier storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	583	nextPutLine:'ParserFlags warnOldStyleAssignment: ' , (ParserFlags warnOldStyleAssignment storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	584	nextPutLine:'ParserFlags warnCommonMistakes: ' , (ParserFlags warnCommonMistakes storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	585	nextPutLine:'ParserFlags warnPossibleIncompatibilities: ' , (ParserFlags warnPossibleIncompatibilities storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	586	nextPutLine:'ParserFlags allowUnderscoreInIdentifier: ' , (ParserFlags allowUnderscoreInIdentifier storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	587	nextPutLine:'ParserFlags allowSqueakExtensions: ' , (ParserFlags allowSqueakExtensions storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	588	nextPutLine:'ParserFlags allowDolphinExtensions: ' , (ParserFlags allowDolphinExtensions storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	589	nextPutLine:'ParserFlags allowQualifiedNames: ' , (ParserFlags allowQualifiedNames storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	590	nextPutLine:'ParserFlags arraysAreImmutable: ' , (ParserFlags arraysAreImmutable storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	591	nextPutLine:'ParserFlags lineNumberInfo: ' , (ParserFlags lineNumberInfo storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	592
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	593	nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	594	nextPutLine:'ParserFlags stcCompilation: ' , (ParserFlags stcCompilation storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	595	nextPutLine:'OperatingSystem getOSType = ' , (OperatingSystem getOSType storeString) , ' ifTrue:[';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	596	nextPutLine:' ParserFlags stcCompilationDefines: ' , (ParserFlags stcCompilationDefines storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	597	nextPutLine:' ParserFlags stcCompilationOptions: ' , (ParserFlags stcCompilationOptions storeString) , '.';
19310 5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	598	nextPutLine:' ParserFlags ccCompilationOptions: ' , (ParserFlags ccCompilationOptions storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	599	nextPutLine:' ParserFlags makeCommand: ' , (ParserFlags makeCommand storeString) , '.';
19493 dc84900e9561 #REFACTORING Claus Gittinger <cg@exept.de> parents: 19472 diff changeset	600	nextPutLine:' ExternalAddress pointerSize = ' , (ExternalAddress pointerSize storeString) , ' ifTrue:[';
19310 5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	601	nextPutLine:' ParserFlags stcCompilationIncludes: ' , (ParserFlags stcCompilationIncludes storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	602	nextPutLine:' ',(ParserFlags stcModulePath ? 'modules') storeString , ' asFilename exists ifTrue:[';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	603	nextPutLine:' ParserFlags stcModulePath: ' , (ParserFlags stcModulePath ? 'modules') storeString , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	604	nextPutLine:' ].';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	605	nextPutLine:' ParserFlags stcPath: ' , (ParserFlags stcPath storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	606	nextPutLine:' ParserFlags ccPath: ' , (ParserFlags ccPath storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	607	nextPutLine:' ParserFlags linkArgs: ' , (ParserFlags linkArgs storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	608	nextPutLine:' ParserFlags linkSharedArgs: ' , (ParserFlags linkSharedArgs storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	609	nextPutLine:' ParserFlags linkCommand: ' , (ParserFlags linkCommand storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	610	nextPutLine:' ParserFlags libPath: ' , (ParserFlags libPath storeString) , '.';
5b2ebad22f2f #BUGFIX Claus Gittinger <cg@exept.de> parents: 19255 diff changeset	611	nextPutLine:' ParserFlags searchedLibraries: ' , (ParserFlags searchedLibraries storeString) , '.';
18419 0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	612	nextPutLine:' ].';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	613	nextPutLine:'].';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	614
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	615	nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	616	nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	617
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	618	HistoryManager notNil ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	619	HistoryManager isActive ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	620	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	621	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	622	] ifFalse:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	623	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	624	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	625	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	626
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	627	s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	628	s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	629
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	630	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	631	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	632	s nextPutLine:'"/ Info & Debug Messages:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	633	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	634	s nextPutLine:'Smalltalk hasNoConsole ifFalse:[ ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '].';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	635	nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	636	nextPutLine:'Smalltalk hasNoConsole ifFalse:[ Object infoPrinting: ' , (Object infoPrinting storeString) , '].';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	637	nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	638
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	639	"/ FlyByHelp isActive ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	640	"/ s nextPutLine:'FlyByHelp start.'
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	641	"/ ].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	642
18419 0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	643	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	644	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	645	s nextPutLine:'"/ Edit settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	646	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	647	"/ s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	648	"/ s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	649	s nextPutLine:'UserPreferences current syntaxColoring: ' , (userPrefs syntaxColoring storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	650	(ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	651	s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	652	] ifFalse:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	653	s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	654	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	655
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	656	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	657	s nextPutLine:'"/ User preference values:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	658	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	659	userPrefs keysAndValuesDo:[:k :v \|
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	660	\|putSelector\|
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	661
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	662	putSelector := (k , ':') asSymbolIfInterned.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	663	(UserPreferences includesSelector:putSelector) ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	664	s nextPutAll:'UserPreferences current ';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	665	nextPutAll:putSelector.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	666	] ifFalse:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	667	s nextPutAll:'UserPreferences current at:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	668	k storeOn:s.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	669	s nextPutAll:' put:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	670	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	671	v storeOn:s.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	672	s nextPut:$.; cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	673	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	674
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	675	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	676	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	677	s nextPutLine:'"/ GC settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	678	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	679	s nextPutLine:'ObjectMemory newSpaceSize: ' , (ObjectMemory newSpaceSize storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	680	nextPutLine:'ObjectMemory dynamicCodeGCTrigger: ' , (ObjectMemory dynamicCodeGCTrigger storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	681	nextPutLine:'ObjectMemory freeSpaceGCAmount: ' , (ObjectMemory freeSpaceGCAmount storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	682	nextPutLine:'ObjectMemory freeSpaceGCLimit: ' , (ObjectMemory freeSpaceGCLimit storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	683	nextPutLine:'ObjectMemory incrementalGCLimit: ' , (ObjectMemory incrementalGCLimit storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	684	nextPutLine:'ObjectMemory oldSpaceCompressLimit: ' , (ObjectMemory oldSpaceCompressLimit storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	685	nextPutLine:'ObjectMemory oldSpaceIncrement: ' , (ObjectMemory oldSpaceIncrement storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	686
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	687	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	688	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	689	s nextPutLine:'"/ Misc settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	690	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	691	s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	692	nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	693	nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	694	nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	695	nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	696
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	697	"/ claus - I dont think its a good idea to save those ...
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	698	"/ nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	699	"/ nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	700
18419 0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	701	nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	702	nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	703	nextPutLine:'Display notNil ifTrue:[';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	704	nextPutLine:' Display activateOnClick: ' , ((screen activateOnClick:nil) storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	705	nextPutLine:'].';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	706	nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	707	nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	708	(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	709	s nextPutLine:'NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	710	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	711	Processor isTimeSlicing ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	712	s nextPutLine:'Processor startTimeSlicing.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	713	s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.').
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	714	] ifFalse:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	715	s nextPutLine:'Processor stopTimeSlicing.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	716	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	717
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	718	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	719	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	720	s nextPutLine:'"/ Printer settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	721	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	722	Printer notNil ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	723	s nextPutLine:'Printer := ' , (Printer name) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	724	Printer supportsPrintingToCommand ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	725	s nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	726	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	727	Printer supportsPageSizes ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	728	s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	729	s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	730	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	731	Printer supportsMargins ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	732	s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	733	s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	734	s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	735	s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	736	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	737	Printer supportsPostscript ifTrue:[
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	738	s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	739	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	740	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	741	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	742	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	743	s nextPutLine:'"/ Font settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	744	s nextPutLine:'"/ (only restored, if image is restarted on the same display)'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	745	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	746	s nextPutLine:'Display notNil ifTrue:['.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	747	s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	748	{
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	749	SimpleView . Label . CheckBox . CheckLabel . Button . Toggle .
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	750	SelectionInListView . MenuView . MenuPanel . NoteBookView . PullDownMenu .
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	751	TextView . EditTextView . CodeView
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	752	} do:[:cls \|
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	753	s nextPutLine:' ',cls name,' defaultFont: ' , (cls defaultFont storeString) , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	754	].
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	755	s nextPutLine:' ].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	756	s nextPutLine:'].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	757
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	758	s cr.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	759	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	760	s nextPutLine:'"/ SourceCodeManager settings:'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	761	s nextPutLine:'"/ (repositories are networked nowadays, so the settings are host independent)'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	762	s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	763	s nextPutLine:'Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	764	s nextPutLine:'AbstractSourceCodeManager notNil ifTrue:[AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '].'.
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	765
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	766	AbstractSourceCodeManager availableManagers do:[:eachManager \|
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	767	eachManager savePreferencesOn:s
0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	768	].
18824 9511004e8aa9 #FEATURE Claus Gittinger <cg@exept.de> parents: 18823 diff changeset	769
9511004e8aa9 #FEATURE Claus Gittinger <cg@exept.de> parents: 18823 diff changeset	770	userPrefs useSystemLanguage ifFalse:[
18825 818e7cc51e31 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18824 diff changeset	771	s nextPutAll:('Smalltalk language:',UserPreferences current language storeString).
18826 e5a65a9bb86f #BUGFIX Claus Gittinger <cg@exept.de> parents: 18825 diff changeset	772	s nextPutLine:(' territory:',UserPreferences current languageTerritory storeString,'.').
18824 9511004e8aa9 #FEATURE Claus Gittinger <cg@exept.de> parents: 18823 diff changeset	773	].
18419 0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	774	s syncData.
19634 6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	775	userPrefs beUnmodified.
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	776	].
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	777
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	778	"
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	779	Transcript topView application saveSettings
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	780	"
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	781
9492 89bfc46b3b48 make command fm parents: 9491 diff changeset	782	"Modified: / 09-08-2006 / 18:52:14 / fm"
14358 0537cf5714b0 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 14342 diff changeset	783	"Modified: / 26-09-2012 / 13:33:47 / cg"
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	784	! !
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	785
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	786	!UserPreferences methodsFor:'accessing'!
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	787
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	788	at:key
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	789	^ super at:key asSymbol
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	790
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	791	"Created: / 15-01-2012 / 14:27:29 / cg"
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	792	!
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	793
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	794	at:key ifAbsent:exceptionValue
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	795	^ super
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	796	at:key asSymbol
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	797	ifAbsent:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	798	"/ Look to DefaultPreferences first...
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	799	(DefaultPreferences notNil and:[self ~~ DefaultPreferences]) ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	800	DefaultPreferences at:key ifAbsent:exceptionValue
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	801	] ifFalse:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	802	exceptionValue value
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	803	]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	804	].
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	805
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	806	"Created: / 15-01-2012 / 14:27:21 / cg"
17414 d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	807	"Modified (format): / 05-02-2015 / 07:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	808	!
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	809
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	810	at:key put:value
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	811	\|classNameToCheck classToCheck\|
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	812
13119 82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	813	"/ key isSymbol ifFalse:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	814	"/ self halt.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	815	"/ self at:key asSymbol put:value.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	816	"/ ^ self
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	817	"/ ].
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	818
6059 e2cbd67e3d07 checkin from browser Claus Gittinger <cg@exept.de> parents: 6019 diff changeset	819	value == true ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	820	key == #useNewVersionDiffBrowser ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	821	classNameToCheck := #'VersionDiffBrowser'.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	822	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	823	key == #useNewChangesBrowser ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	824	classNameToCheck := #'NewChangesBrowser'.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	825	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	826	key == #useNewFileBrowser ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	827	classNameToCheck := #'FileBrowserV2'.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	828	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	829	key == #useNewSystemBrowser ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	830	classNameToCheck := #'Tools::NewSystemBrowser'.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	831	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	832	key == #useNewInspector ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	833	classNameToCheck := #'NewInspector::NewInspectorView'.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	834	].
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	835	].
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	836
5791 8e96850a568d checkin from browser Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	837	classNameToCheck notNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	838	classToCheck := Smalltalk at:classNameToCheck.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	839	classToCheck isNil ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	840	('UserPreferences [warning]: no class ' , classNameToCheck , ' class in system.') errorPrintCR.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	841	] ifFalse:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	842	Autoload autoloadFailedSignal handle:[:ex \|
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	843	'UserPreferences [warning]: autoload of ' , classNameToCheck , ' failed.' errorPrintCR.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	844	] do:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	845	classToCheck autoload.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	846	]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	847	]
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	848	].
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	849
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	850	^ super at:key asSymbol put:value
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	851
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	852	"Modified: / 15-01-2012 / 14:26:53 / cg"
19633 ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	853	!
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	854
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	855	beModified
19634 6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	856	"this is not needed for settings applications, which notice any modifications
6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	857	themself. Howvever, if someone else modifies the settings (programmatically),
6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	858	the change should be remembered, so that the user can be warned at session end"
6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	859
19633 ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	860	modified := true
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	861	!
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	862
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	863	beUnmodified
19634 6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	864	"done when saved"
6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	865
19633 ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	866	modified := false
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	867	!
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	868
ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	869	isModified
19634 6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	870	"this is set, if someone modifies the settings programmatically,
6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	871	so that the user can be warned at session end"
6b8ab3b097e4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19633 diff changeset	872
19633 ad50603adc56 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19632 diff changeset	873	^ modified ? false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	874	! !
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	875
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	876	!UserPreferences methodsFor:'accessing-locale'!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	877
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	878	dateInputFormat
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	879	"return a format used when tools read a date from the user"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	880
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	881	^ self
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	882	at:#dateInputFormat
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	883	ifAbsentPut:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	884	(self language == #en and:[ self languageTerritory ~= #en])
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	885	ifTrue:[ '%m %d %y' ]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	886	ifFalse:[ '%d %m %y' ]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	887	]
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	888	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	889
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	890	dateInputFormat:aFormatString
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	891	"return a format used when tools read a date from the user"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	892
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	893	^ self
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	894	at:#dateInputFormat
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	895	ifAbsentPut:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	896	(self language == #en and:[ self languageTerritory ~= #en])
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	897	ifTrue:[ '%m %d %y' ]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	898	ifFalse:[ '%d %m %y' ]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	899	]
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	900
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	901	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	902	UserPreferences current dateInputFormat:'%d %m %y' -- european
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	903	UserPreferences current dateInputFormat:'%m %d %y' -- us
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	904	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	905	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	906
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	907	decimalPointCharacter
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	908	"toDo: migrate from ClassVar in Number;
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	909	use this for new applications"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	910
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	911	^ $.
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	912	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	913
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	914	thousandsSeparatorCharacter
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	915	"toDo: migrate from ClassVar elsewhere;
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	916	use this for new applications"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	917
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	918	^ $'
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	919	! !
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	920
14267 fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	921	!UserPreferences methodsFor:'accessing-misc'!
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	922
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	923	selectorNamespacesEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	924	"Return true, if selector namespaces support is enabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	925	for this system. Note, that this method may return true
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	926	even if selector namespaces are not supported by this system.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	927
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	928	This is rather user setting. To ask whether the selector namespaces
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	929	support should be used, use:
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	930
18928 a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	931	UserPreferences current selectorNamespacesSupportedAndEnabled
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	932	"
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	933
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	934	^self at:#selectorNamespacesEnabled ifAbsent:false.
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	935
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	936	"
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	937	UserPreferences current selectorNamespacesEnabled
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	938	UserPreferences current selectorNamespacesSupportedAndEnabled
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	939
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	940	UserPreferences current selectorNamespacesEnabled: true.
a10897820618 #REFACTORING Claus Gittinger <cg@exept.de> parents: 18922 diff changeset	941	UserPreferences current selectorNamespacesEnabled: false.
14267 fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	942	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	943
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	944	"Created: / 19-07-2012 / 15:26:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	945	!
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	946
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	947	selectorNamespacesEnabled: aBoolean
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	948	"Enables/disables selector namespaces support for this system.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	949	Please note that even if selector namespaces are enabled here,
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	950	they may not be supported by the system/VM.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	951
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	952	This is rather user setting. To ask whether the selector namespaces
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	953	are supported use
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	954
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	955	ConfigurableFeatures includesFeature:#SelectorNamespaces
14267 fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	956	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	957
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	958	self at:#selectorNamespacesEnabled put: aBoolean
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	959
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	960	"
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	961	UserPreferences current selectorNamespacesEnabled
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	962	UserPreferences current selectorNamespacesSupportedAndEnabled
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	963
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	964	UserPreferences current selectorNamespacesEnabled: true.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	965	UserPreferences current selectorNamespacesEnabled: false.
14267 fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	966	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	967
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	968	"Created: / 19-07-2012 / 15:27:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	969	!
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	970
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	971	selectorNamespacesSupportedAndEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	972	"Return true, if selector namespaces are both enabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	973	and supported by this system/VM, false otherwise
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	974	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	975
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	976	^ (ConfigurableFeatures includesFeature:#SelectorNamespaces)
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	977	and:[self selectorNamespacesEnabled]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	978
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	979	"
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	980	UserPreferences current selectorNamespacesEnabled
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	981	UserPreferences current selectorNamespacesSupportedAndEnabled
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	982
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	983	UserPreferences current selectorNamespacesEnabled: true.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	984	UserPreferences current selectorNamespacesEnabled: false.
14267 fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	985	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	986
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	987	"Created: / 19-07-2012 / 15:32:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	988	! !
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	989
10723 6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	990	!UserPreferences methodsFor:'accessing-misc-communication'!
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	991
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	992	dotNetBridgeRunsInIDE
11930 dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	993	"a debugging flag: if true, the dotNetBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	994	already running and the bridge-exe will not be started by st/x"
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	995
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	996	^ self at:#dotNetBridgeRunsInIDE ifAbsent:false
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	997	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	998
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	999	dotNetBridgeRunsInIDE:aBoolean
11930 dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1000	"a debugging flag: if true, the dotNetBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1001	already running and the bridge-exe will not be started by st/x"
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1002
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1003	^ self at:#dotNetBridgeRunsInIDE put:aBoolean
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1004	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1005
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1006	dotNetBridgeVerbose
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1007	^ self at:#dotNetBridgeVerbose ifAbsent:false
11027 b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	1008
b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	1009	"
b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	1010	UserPreferences current dotNetBridgeVerbose
b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	1011	"
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1012	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1013
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1014	dotNetBridgeVerbose:aBoolean
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1015	^ self at:#dotNetBridgeVerbose put:aBoolean
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1016	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	1017
11930 dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1018	javaBridgeRunsInIDE
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1019	"a debugging flag: if true, the javaBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1020	already running and the bridge-exe will not be started by st/x"
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1021
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1022	^ self at:#javaBridgeRunsInIDE ifAbsent:false
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1023	!
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1024
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1025	javaBridgeRunsInIDE:aBoolean
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1026	"a debugging flag: if true, the javaBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1027	already running and the bridge-exe will not be started by st/x"
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1028
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1029	^ self at:#javaBridgeRunsInIDE put:aBoolean
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1030	!
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1031
12792 a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1032	logHTTPRequests
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1033	^ self at:#logHTTPRequests ifAbsent:false
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1034	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1035
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1036	logHTTPRequests:aBoolean
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1037	^ self at:#logHTTPRequests put:aBoolean
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1038
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1039	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1040	UserPreferences current logHTTPRequests
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1041	UserPreferences current logHTTPRequests:true
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1042	UserPreferences current logHTTPRequests:false
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1043	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1044	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1045
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1046	logSOAPRequests
12793 b01055f1932b changed: Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	1047	^ (self soapLoggingLevel ? 0) > 0
12792 a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1048	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1049
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1050	logSOAPRequests:aBoolean
12793 b01055f1932b changed: Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	1051	self soapLoggingLevel:(aBoolean ifTrue:3 ifFalse:0)
12792 a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1052
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1053	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1054	UserPreferences current logSOAPRequests
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1055	UserPreferences current logSOAPRequests:true
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1056	UserPreferences current logSOAPRequests:false
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1057	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1058	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1059
19386 0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1060	smallteamViaXMPPEnabled
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1061	^ self at:#smallteamViaXMPPEnabled ifAbsent:false
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1062	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1063
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1064	smallteamViaXMPPEnabled:aBoolean
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1065	self at:#smallteamViaXMPPEnabled put:aBoolean
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1066	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1067
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1068	smallteamXMPPPassword
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1069	^ self at:#smallteamXMPPPassword ifAbsent:[ '' ]
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1070	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1071
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1072	smallteamXMPPPassword:aPasswordString
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1073	self at:#smallteamXMPPPassword put:aPasswordString
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1074	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1075
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1076	smallteamXMPPServer
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1077	^ self at:#smallteamXMPPServer ifAbsent:[ 'exept.de' ]
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1078	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1079
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1080	smallteamXMPPServer:aHostname
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1081	self at:#smallteamXMPPServer put:aHostname
19391 d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1082
d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1083	"
d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1084	UserPreferences current smallteamXMPPUser:'exept.de'.
d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1085	"
19386 0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1086	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1087
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1088	smallteamXMPPUser
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1089	^ self at:#smallteamXMPPUser ifAbsent:[ OperatingSystem getLoginName ]
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1090	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1091
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1092	smallteamXMPPUser:aUsernameString
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1093	self at:#smallteamXMPPUser put:aUsernameString
19391 d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1094
d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1095	"
d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1096	UserPreferences current smallteamXMPPUser:'cg'.
d183062072aa #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 19386 diff changeset	1097	"
19386 0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1098	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	1099
10723 6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1100	smtpServerName
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1101	^ self at:#smtpServerName ifAbsent:nil
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1102
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1103	"Created: / 20-09-2007 / 15:59:20 / cg"
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1104	!
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1105
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1106	smtpServerName:aHostnameString
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1107	^ self at:#smtpServerName put:aHostnameString
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1108
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1109	"
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1110	UserPreferences current smtpServerName
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1111	UserPreferences current smtpServerName:'mailhost'
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1112	"
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1113
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1114	"Created: / 20-09-2007 / 15:59:58 / cg"
12562 44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1115	!
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1116
12563 739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1117	soapErrorDebugging
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1118	"open a debugger on error, or report it as a soap-error"
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1119
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1120	^ self at:#soapErrorDebugging ifAbsent:false
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1121	!
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1122
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1123	soapErrorDebugging:aBoolean
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1124	"open a debugger on error, or report it as a soap-error"
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1125	^ self at:#soapErrorDebugging put:aBoolean
12774 3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1126
3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1127	"
3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1128	UserPreferences current soapErrorDebugging:true
3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1129	"
12563 739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1130	!
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1131
12562 44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1132	soapLoggingLevel
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1133	^ self at:#soapLoggingLevel ifAbsent:nil
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1134	!
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1135
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1136	soapLoggingLevel:anIntegerBetween0_and_3
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1137	^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3
13884 6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1138	!
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1139
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1140	socksProxyHost
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1141	^ self at:#socksProxyHost ifAbsent:nil
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1142
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1143	"Created: / 27-12-2011 / 14:40:27 / cg"
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1144	!
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1145
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1146	socksProxyHost:aString
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1147	^ self at:#socksProxyHost put:aString
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1148
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1149	"Created: / 27-12-2011 / 14:42:15 / cg"
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1150	!
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1151
13884 6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1152	socksProxyPort
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1153	^ self at:#socksProxyPort ifAbsent:nil
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1154
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1155	"Created: / 27-12-2011 / 14:40:32 / cg"
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1156	!
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1157
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1158	socksProxyPort:aNumber
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1159	^ self at:#socksProxyPort put:aNumber
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1160
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1161	"Created: / 27-12-2011 / 14:42:29 / cg"
10723 6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1162	! !
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1163
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	1164	!UserPreferences methodsFor:'accessing-pref''d tools'!
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	1165
13477 2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1166	changeSetBrowserClass
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1167
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1168	\| class className \|
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1169
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1170	className := self at: #changeSetBrowserClassName ifAbsent:[nil].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1171	className notNil ifTrue:[
19576 e84a1ba22872 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 19575 diff changeset	1172	class := Smalltalk at: className asSymbol.
e84a1ba22872 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 19575 diff changeset	1173	class notNil ifTrue:[ ^ class ].
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1174	].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1175
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1176	"Original code"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1177	^ ChangeSetBrowser.
19576 e84a1ba22872 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 19575 diff changeset	1178
e84a1ba22872 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 19575 diff changeset	1179	"/ self useNewChangeSetBrowser ifTrue:[
e84a1ba22872 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 19575 diff changeset	1180	"/ ^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
e84a1ba22872 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 19575 diff changeset	1181	"/ ].
e84a1ba22872 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 19575 diff changeset	1182	"/ ^ ChangeSetBrowser ? Tools::ChangeSetBrowser2
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1183
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1184	"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1185	self current changeSetBrowserClass
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1186	"
13477 2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1187
2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1188	"Created: / 01-07-2011 / 16:33:13 / cg"
13523 03ec11a75c9d changed: #changeSetBrowserClass sr parents: 13522 diff changeset	1189	"Modified: / 25-07-2011 / 12:21:42 / sr"
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1190	"Modified: / 25-01-2012 / 17:11:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1191	!
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1192
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1193	changeSetBrowserClass: aClass
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1194
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1195	self at: #changeSetBrowserClassName put: aClass name.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1196
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1197	"
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1198	UserPreferences current changeSetBrowserClass
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1199	UserPreferences current changeSetBrowserClass: Tools::ChangeSetBrowser2.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1200	UserPreferences current changeSetBrowserClass: ChangeSetBrowser.
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1201	"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1202
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1203	"Created: / 25-01-2012 / 17:08:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13477 2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1204	!
2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1205
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1206	changesBrowserClass
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1207	"the browser to be used for the changeFile"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1208
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1209	\| class className \|
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1210
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1211	className := self at: #changesBrowserClassName ifAbsent:[nil].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1212	className notNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1213	class := Smalltalk at: className asSymbol.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1214	class notNil ifTrue:[ ^ class ].
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1215	].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1216
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1217	"/ Old code
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1218	self useNewChangesBrowser ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1219	^ (NewChangesBrowser ? ChangesBrowser)
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1220	].
8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1221	^ ChangesBrowser
8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1222
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1223	"Created: / 17-10-1998 / 14:37:46 / cg"
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1224	"Modified: / 25-01-2012 / 17:11:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1225	!
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1226
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1227	changesBrowserClass: aClass
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1228
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1229	self at: #changesBrowserClassName put: aClass name.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1230
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1231	"
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1232	UserPreferences current changesBrowserClass
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1233	UserPreferences current changesBrowserClass: Tools::ChangeSetBrowser2.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1234	UserPreferences current changesBrowserClass: ChangeSetBrowser.
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1235	"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1236
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1237	"Created: / 25-01-2012 / 17:12:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5535 361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1238	!
361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1239
14735 928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1240	externalDiffCommandTemplate
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1241	"the external command to use for diff"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1242
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	1243	^ self
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1244	at:#externalDiffCommandTemplate
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1245	ifAbsent:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1246	OperatingSystem isMSDOSlike ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1247	'diff %1 %2'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1248	] ifFalse:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1249	'diff -b %1 %2'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1250	]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1251	]
14735 928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1252
14736 6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1253	"
6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1254	UserPreferences current externalDiffCommandTemplate
6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1255	"
6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1256
14735 928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1257	"Modified: / 13-10-1998 / 15:53:05 / cg"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1258	"Created: / 26-07-2012 / 15:06:31 / cg"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1259	!
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1260
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1261	externalDiffCommandTemplate:aString
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1262	"the external command to use for diff.
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1263	The default is 'diff %1 %2' on msdos and 'diff -b %1 %2' on unix"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1264
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1265	self at:#externalDiffCommandTemplate put:aString
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1266
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1267	"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1268	UserPreferences current externalDiffCommandTemplate
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1269	"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1270	!
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1271
6177 ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1272	inspectorClassSetting
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1273	self useNewInspector ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1274	^ (NewInspector::NewInspectorView ? InspectorView)
6177 ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1275	].
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1276	^ InspectorView
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1277
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1278	"Modified: / 12.11.2001 / 15:47:35 / cg"
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1279	"Created: / 12.11.2001 / 15:49:00 / cg"
5541 057aef033483 checkin from browser Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	1280	!
057aef033483 checkin from browser Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	1281
11005 72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1282	showTipOfTheDayAtStartup
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1283	^ self at:#showTipOfTheDayAtStartup ifAbsent:false
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1284	!
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1285
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1286	showTipOfTheDayAtStartup:aBoolean
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1287	self at:#showTipOfTheDayAtStartup put:aBoolean.
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1288	!
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1289
5535 361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1290	systemBrowserClass
361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1291	self useNewSystemBrowser ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1292	^ ((Tools::NewSystemBrowser ? NewSystemBrowser) ? SystemBrowser)
5535 361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1293	].
361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1294	^ SystemBrowser
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1295	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1296
13502 600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1297	testRunnerClass
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1298	self useTestRunner2 ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1299	^ Tools::TestRunner2 ? TestRunner
13502 600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1300	].
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1301	^ TestRunner
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1302
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1303	"Created: / 06-07-2011 / 13:55:03 / cg"
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1304	!
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1305
13486 cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1306	useInspector2
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1307	"using brand new or old inspector"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1308
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1309	^ self at:#useInspector2 ifAbsent:false
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1310
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1311	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1312	UserPreferences current useInspector2
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1313	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1314
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1315	"Modified: / 17-10-1998 / 14:45:12 / cg"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1316	"Created: / 03-07-2011 / 22:35:50 / cg"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1317	!
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1318
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1319	useInspector2:aBoolean
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1320	"using very new or old inspector"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1321
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1322	self at:#useInspector2 put:aBoolean
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1323
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1324	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1325	UserPreferences current useInspector2
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1326	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1327
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1328	"Created: / 03-07-2011 / 22:36:13 / cg"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1329	!
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1330
10924 aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1331	useNativeFileDialog
13047 a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1332	^ self nativeFileDialogs
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1333
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1334	"Modified: / 24-08-2010 / 17:02:10 / sr"
10924 aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1335	!
aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1336
aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1337	useNativeFileDialog:aBoolean
13047 a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1338	self nativeFileDialogs:aBoolean
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1339
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1340	"Modified: / 24-08-2010 / 17:02:13 / sr"
10924 aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1341	!
aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1342
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1343	useNewChangeSetBrowser
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1344	"using old or jan's changeSetBrowser for package diffs"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1345
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1346	^ self at:#useNewChangeSetBrowser ifAbsent:false
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1347
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1348	"Modified: / 13-10-1998 / 15:53:05 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1349	"Created: / 26-07-2012 / 15:06:31 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1350	!
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1351
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1352	useNewChangeSetBrowser:aBoolean
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1353	"using old or jan's changeSetBrowser for package diffs"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1354
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1355	^ self at:#useNewChangeSetBrowser put:aBoolean
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1356
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1357	"Created: / 26-07-2012 / 15:06:50 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1358	!
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1359
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1360	useNewChangesBrowser
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1361	"using new or old change browser for the changes file"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1362
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1363	^ self at:#useNewChangesBrowser ifAbsent:false
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1364
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1365	"Modified: / 13-10-1998 / 15:53:05 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1366	"Modified (comment): / 26-07-2012 / 15:04:37 / cg"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1367	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1368
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1369	useNewChangesBrowser:aBoolean
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1370	"using new or old changeBrowser for the changes file"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1371
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1372	self at:#useNewChangesBrowser put:aBoolean
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1373
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1374	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1375	UserPreferences current useNewChangesBrowser
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1376	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1377
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1378	"Modified: / 13-10-1998 / 15:53:21 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1379	"Modified (comment): / 26-07-2012 / 15:04:39 / cg"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1380	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1381
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1382	useNewFileBrowser
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1383	"using new or old version diff viewer"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1384
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1385	^ self at:#useNewFileBrowser ifAbsent:(FileBrowserV2 notNil and:[FileBrowserV2 isLoaded])
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1386
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1387	"Modified: / 13.10.1998 / 15:53:05 / cg"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1388	!
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1389
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1390	useNewFileBrowser:aBoolean
6765 446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1391	"using new or old file browser"
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1392
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1393	self at:#useNewFileBrowser put:aBoolean
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1394
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1395	"
6769 8cd2d038bfc6 * empty log message * penk parents: 6767 diff changeset	1396	UserPreferences current useNewFileBrowser
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1397	"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1398
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1399	"Modified: / 13.10.1998 / 15:53:21 / cg"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1400	!
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1401
6765 446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1402	useNewFileDialog
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1403	"using new or old file dialog"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1404
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1405	^ self at:#useNewFileDialog ifAbsent:true
13973 c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1406
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1407	"
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1408	UserPreferences current useNewFileDialog:false
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1409	UserPreferences current useNewFileDialog:true
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1410	"
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1411
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1412	"Modified (comment): / 23-01-2012 / 17:25:01 / cg"
6765 446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1413	!
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1414
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1415	useNewFileDialog:aBoolean
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1416	"using new or old file dialog"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1417
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1418	self at:#useNewFileDialog put:aBoolean
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1419
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1420	"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1421	UserPreferences current useNewFileDialog:true
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1422	"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1423	!
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1424
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1425	useNewInspector
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1426	"using new or old inspector"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1427
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1428	^ self at:#useNewInspector ifAbsent:false
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1429
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1430	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1431	UserPreferences current useNewInspector
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1432	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1433
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1434	"Modified: / 17.10.1998 / 14:45:12 / cg"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1435	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1436
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1437	useNewInspector:aBoolean
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1438	"using new or old inspector"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1439
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1440	self at:#useNewInspector put:aBoolean
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1441
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1442	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1443	UserPreferences current useNewInspector
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1444	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1445	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1446
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1447	useNewSettingsApplication
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1448	"using one application for the settings"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1449
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1450	^ self at:#useNewSettingsApplication ifAbsent:true
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1451	!
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1452
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1453	useNewSettingsApplication:aBoolean
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1454	"using one application for the settings"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1455
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1456	self at:#useNewSettingsApplication put:aBoolean
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1457
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1458	"
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1459	UserPreferences current useNewSettingsApplication:true
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1460	"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1461
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1462	"Modified: / 13.10.1998 / 15:53:21 / cg"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1463	!
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1464
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1465	useNewSystemBrowser
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1466	"using new or old system browser"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1467
8593 ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1468	\|newSystemBrowserClass useIt\|
8000 44413c7ef9c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 7993 diff changeset	1469
44413c7ef9c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 7993 diff changeset	1470	newSystemBrowserClass := (Tools::NewSystemBrowser ? NewSystemBrowser).
8593 ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1471	useIt := self at:#useNewSystemBrowser ifAbsent:nil.
ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1472	useIt isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1473	useIt := (newSystemBrowserClass notNil and:[ newSystemBrowserClass isLoaded]).
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1474	useIt ifTrue:[
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1475	self at:#useNewSystemBrowser put:true.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1476	].
8593 ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1477	].
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1478	^ useIt
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1479	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1480
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1481	useNewSystemBrowser:aBoolean
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1482	"using new or old systemBrowser"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1483
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1484	self at:#useNewSystemBrowser put:aBoolean
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1485
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1486	"
5541 057aef033483 checkin from browser Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	1487	UserPreferences current useNewSystemBrowser:true
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1488	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1489
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1490	"Modified: / 13.10.1998 / 15:53:21 / cg"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1491	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1492
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1493	useNewVersionDiffBrowser
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1494	"using new or old version diff viewer"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1495
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1496	^ self at:#useNewVersionDiffBrowser ifAbsent:true
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1497
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1498	"Modified: / 13.10.1998 / 15:53:05 / cg"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1499	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1500
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1501	useNewVersionDiffBrowser:aBoolean
6765 446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1502	"using new or old versionDiffBrowser"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1503
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1504	self at:#useNewVersionDiffBrowser put:aBoolean
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1505
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1506	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1507	UserPreferences current useNewVersionDiffBrowser
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1508	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1509
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1510	"Modified: / 13.10.1998 / 15:53:21 / cg"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1511	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1512
6959 e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1513	useProcessMonitorV2
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1514	"using ProcessMonitorV2 application for display Processes"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1515
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1516	^ self at:#useProcessMonitorV2 ifAbsent:(ProcessMonitorV2 notNil)
6959 e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1517	!
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1518
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1519	useProcessMonitorV2:aBoolean
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1520	"using ProcessMonitorV2 application for display Processes"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1521
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1522	self at:#useProcessMonitorV2 put:aBoolean
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1523
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1524	"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1525	UserPreferences current useProcessMonitorV2:true
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1526	"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1527
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1528	"Modified: / 13.10.1998 / 15:53:21 / cg"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1529	!
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1530
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1531	useSmalltalkDocumentViewer
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1532	"using the smalltalk-DocumentViewer (as opposed to the native systems Browser)
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1533	to display documentation"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1534
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1535	^ self at:#useSmalltalkDocumentViewer ifAbsent:true
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1536
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1537	"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1538	UserPreferences current useSmalltalkDocumentViewer
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1539	UserPreferences current useSmalltalkDocumentViewer:false
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1540	"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1541	!
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1542
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1543	useSmalltalkDocumentViewer:aBoolean
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1544	"using the smalltalk-DocumentViewer (as opposed to the native systems Browser)
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1545	to display documentation"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1546
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1547	^ self at:#useSmalltalkDocumentViewer put:aBoolean
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1548	!
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1549
13501 4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1550	useTestRunner2
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1551	"using new or old test runner"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1552
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1553	^ self at:#useTestRunner2 ifAbsent:true
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1554
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1555	"Created: / 06-07-2011 / 13:41:33 / cg"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1556	!
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1557
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1558	useTestRunner2:aBoolean
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1559	"using new or old test runner"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1560
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1561	self at:#useTestRunner2 put:aBoolean
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1562
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1563	"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1564	UserPreferences current useTestRunner2:true
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1565	"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1566
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1567	"Created: / 06-07-2011 / 13:41:40 / cg"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1568	!
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1569
16542 9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1570	useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1571	"switch between xtermView (xembed) and vt100 (st/x emulation)
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1572	if possible on that architecture."
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1573
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1574	^ self at:#useXTermViewIfAvailable ifAbsent:false
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1575
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1576	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1577	UserPreferences current useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1578	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1579	!
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1580
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1581	useXTermViewIfAvailable:aBoolean
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1582	"switch between xtermView (xembed) and vt100 (st/x emulation)
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1583	if possible on that architecture."
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1584
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1585	self at:#useXTermViewIfAvailable put:aBoolean
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1586
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1587	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1588	UserPreferences current useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1589	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1590	!
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1591
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1592	versionDiffViewerClass
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1593	self useNewVersionDiffBrowser ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1594	^ (VersionDiffBrowser ? DiffTextView)
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1595	].
10992 f03d40b016f4 use new DiffCodeView Claus Gittinger <cg@exept.de> parents: 10924 diff changeset	1596	^ DiffCodeView
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1597	! !
8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1598
19472 1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	1599
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	1600	!UserPreferences methodsFor:'accessing-prefs-UI'!
3358 f1b2b7b83d3e checkin from browser Claus Gittinger <cg@exept.de> parents: 3357 diff changeset	1601
11390 f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1602	allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1603	"return the flag which controls if text can be magnified via the ALT-wheel-action"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1604
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1605	^ self at:#allowMouseWheelZoom ifAbsent:[ true ]
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1606
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1607	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1608	UserPreferences current allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1609	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1610	!
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1611
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1612	allowMouseWheelZoom:aBooleanOrNil
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1613	"set/clear the flag which controls if text can be magnified via the ALT-wheel-action"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1614
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1615	^ self at:#allowMouseWheelZoom put:aBooleanOrNil
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1616
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1617	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1618	UserPreferences current allowMouseWheelZoom:true
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1619	UserPreferences current allowMouseWheelZoom:false
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1620	UserPreferences current allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1621	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1622	!
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1623
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1624	avoidConfirmationsForExperiencedUsers
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1625	"some confirmers ara annoying, if you are an experienced st/x user"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1626
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1627	^ self at:#avoidConfirmationsForExperiencedUsers ifAbsent:[ false ]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1628
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1629	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1630	UserPreferences current avoidConfirmationsForExperiencedUsers
14698 5eeda6b08571 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	1631	UserPreferences current avoidConfirmationsForExperiencedUsers:true
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1632	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1633
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1634	"Created: / 05-09-2012 / 11:26:55 / cg"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1635	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1636
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1637	avoidConfirmationsForExperiencedUsers:aBooleanOrNil
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1638	"some confirmers ara annoying, if you are an experienced st/x user.
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1639	Set/clear the flag which controls this"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1640
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1641	^ self at:#avoidConfirmationsForExperiencedUsers put:aBooleanOrNil
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1642
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1643	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1644	UserPreferences current avoidConfirmationsForExperiencedUsers:true
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1645	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1646
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1647	"Created: / 05-09-2012 / 11:27:09 / cg"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1648	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1649
11929 9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1650	avoidSlowDrawingOperationsUnderWindows
9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1651	^ OperatingSystem isMSWINDOWSlike
9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1652	!
9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1653
5071 2212871676a0 beeper ps parents: 4684 diff changeset	1654	beepEnabled
2212871676a0 beeper ps parents: 4684 diff changeset	1655	"return the flag which controls the beeper"
2212871676a0 beeper ps parents: 4684 diff changeset	1656
2212871676a0 beeper ps parents: 4684 diff changeset	1657	^ self at:#beepEnabled ifAbsentPut:true
2212871676a0 beeper ps parents: 4684 diff changeset	1658
2212871676a0 beeper ps parents: 4684 diff changeset	1659	"
2212871676a0 beeper ps parents: 4684 diff changeset	1660	UserPreferences current beepEnabled
2212871676a0 beeper ps parents: 4684 diff changeset	1661	"
2212871676a0 beeper ps parents: 4684 diff changeset	1662
2212871676a0 beeper ps parents: 4684 diff changeset	1663	"Modified: / 11.9.1998 / 00:09:59 / cg"
2212871676a0 beeper ps parents: 4684 diff changeset	1664	"Created: / 3.12.1999 / 17:09:49 / ps"
2212871676a0 beeper ps parents: 4684 diff changeset	1665	!
2212871676a0 beeper ps parents: 4684 diff changeset	1666
2212871676a0 beeper ps parents: 4684 diff changeset	1667	beepEnabled:aBoolean
2212871676a0 beeper ps parents: 4684 diff changeset	1668	"set/clear the flag which controls the beeper"
2212871676a0 beeper ps parents: 4684 diff changeset	1669
2212871676a0 beeper ps parents: 4684 diff changeset	1670	^ self at:#beepEnabled put:aBoolean
2212871676a0 beeper ps parents: 4684 diff changeset	1671
2212871676a0 beeper ps parents: 4684 diff changeset	1672	"
2212871676a0 beeper ps parents: 4684 diff changeset	1673	UserPreferences current beepEnabled:false
2212871676a0 beeper ps parents: 4684 diff changeset	1674	"
2212871676a0 beeper ps parents: 4684 diff changeset	1675
2212871676a0 beeper ps parents: 4684 diff changeset	1676	"Modified: / 11.9.1998 / 00:09:59 / cg"
2212871676a0 beeper ps parents: 4684 diff changeset	1677	"Created: / 3.12.1999 / 17:10:27 / ps"
2212871676a0 beeper ps parents: 4684 diff changeset	1678	!
2212871676a0 beeper ps parents: 4684 diff changeset	1679
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1680	beepForErrorDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1681	"return the flag which controls beeping for error dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1682
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1683	^ self at:#beepForErrorDialog ifAbsent:true
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1684
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1685	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1686	UserPreferences current beepForErrorDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1687	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1688	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1689
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1690	beepForErrorDialog:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1691	"set/clear the flag which controls beeping for error dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1692
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1693	^ self at:#beepForErrorDialog put:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1694
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1695	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1696	UserPreferences current beepForErrorDialog:true
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1697	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1698	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1699
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1700	beepForInfoDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1701	"return the flag which controls beeping for info dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1702
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1703	^ self at:#beepForInfoDialog ifAbsent:false
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1704
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1705	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1706	UserPreferences current beepForInfoDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1707	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1708	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1709
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1710	beepForInfoDialog:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1711	"set/clear the flag which controls beeping for info dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1712
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1713	^ self at:#beepForInfoDialog put:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1714
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1715	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1716	UserPreferences current beepForInfoDialog:true
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1717	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1718	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1719
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1720	beepForWarningDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1721	"return the flag which controls beeping for warning dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1722
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1723	^ self at:#beepForWarningDialog ifAbsent:true
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1724
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1725	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1726	UserPreferences current beepForWarningDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1727	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1728	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1729
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1730	beepForWarningDialog:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1731	"set/clear the flag which controls beeping for warning dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1732
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1733	^ self at:#beepForWarningDialog put:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1734
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1735	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1736	UserPreferences current beepForWarningDialog:true
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1737	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1738	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1739
11691 ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1740	beepInEditor
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1741	"return the flag which controls the beeper"
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1742
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1743	^ self at:#beepInEditor ifAbsentPut:true
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1744
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1745	"
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1746	UserPreferences current beepInEditor
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1747	"
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1748	!
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1749
14734 f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1750	button2WithAltKey
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1751	"if true, an ALT-left click is translated to a right click
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1752	Useful with 1-button mice"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1753
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1754	^ self at:#button2WithAltKey ifAbsent:[ false ]
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1755
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1756	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1757	UserPreferences current button2WithAltKey
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1758	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1759	!
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1760
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1761	button2WithAltKey: aBoolean
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1762	"if true, an ALT-left click is translated to a right click
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1763	Useful with 1-button mice"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1764
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1765	^ self at:#button2WithAltKey put: aBoolean
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1766
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1767	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1768	UserPreferences current button2WithAltKey
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1769	UserPreferences current button2WithAltKey:true
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1770	UserPreferences current button2WithAltKey:false
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1771	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1772	!
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1773
12209 8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1774	closePopUpMenuChainOnEscape
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1775	"if true, the whole chain of popUpMenus is closed when escape is pressed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1776	if false (the default), only the last popup-view is closed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1777	The first corresponds to X-behavior, the later is how windows does it - sigh."
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1778
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1779	^ self at:#closePopUpMenuChainOnEscape ifAbsent:false
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1780
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1781	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1782	UserPreferences current closePopUpMenuChainOnEscape:false
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1783	UserPreferences current closePopUpMenuChainOnEscape:true
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1784	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1785	!
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1786
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1787	closePopUpMenuChainOnEscape:aBoolean
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1788	"if true, the whole chain of popUpMenus is closed when escape is pressed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1789	if false (the default), only the last popup-view is closed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1790	The first corresponds to X-behavior, the later is how windows does it - sigh."
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1791
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1792	^ self at:#closePopUpMenuChainOnEscape put:aBoolean
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1793
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1794	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1795	UserPreferences current closePopUpMenuChainOnEscape:true
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1796	UserPreferences current closePopUpMenuChainOnEscape:false
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1797	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1798	!
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1799
13151 fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1800	delayedMenuShowAndHide
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1801	"the Windows behavior of showing submenus of a menu slightly delayed,
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1802	to allow for short-time leaving of the mouse pointer.
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1803	(bug #D1480943)"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1804
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1805	^ self at:#delayedMenuShowAndHide ifAbsent:true
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1806
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1807	"Created: / 29-11-2010 / 19:47:21 / cg"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1808	!
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1809
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1810	delayedMenuShowAndHide:aBoolean
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1811	"the Windows behavior of showing submenus of a menu slightly delayed,
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1812	to allow for short-time leaving of the mouse pointer.
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1813	(bug #D1480943)"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1814
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1815	^ self at:#delayedMenuShowAndHide put:aBoolean
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1816
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1817	"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1818	UserPreferences current delayedMenuShowAndHide
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1819	"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1820
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1821	"Created: / 29-11-2010 / 19:47:36 / cg"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1822	!
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1823
13503 84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1824	eclipseStyleMenus
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1825	"if true, return menus organized like in eclipse;
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1826	if false (the default) return them as usual"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1827
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1828	^ self at:#eclipseStyleMenus ifAbsent:false
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1829
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1830	"Created: / 08-07-2011 / 13:22:45 / cg"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1831	!
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1832
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1833	eclipseStyleMenus:aBoolean
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1834	"if true, return menus organized like in eclipse;
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1835	if false (the default) return them as usual"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1836
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1837	^ self at:#eclipseStyleMenus put:aBoolean
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1838
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1839	"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1840	UserPreferences current eclipseStyleMenus:true
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1841	"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1842
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1843	"Created: / 08-07-2011 / 13:22:50 / cg"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1844	!
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1845
15817 319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1846	enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1847	"return the flag which enables a workaround for a redraw bug when running X/Linux in the VMWare virtual machine"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1848
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1849	^ self at:#enableVMWareDrawingBugWorkaround ifAbsent:[ false ]
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1850
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1851	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1852	UserPreferences current enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1853	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1854
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1855	"Created: / 19-11-2013 / 09:53:20 / cg"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1856	!
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1857
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1858	enableVMWareDrawingBugWorkaround:aBoolean
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1859	"change the flag which enables a workaround for a redraw bug when running X/Linux in the VMWare virtual machine"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1860
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1861	self at:#enableVMWareDrawingBugWorkaround put:aBoolean.
19582 fed14e56c228 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 19576 diff changeset	1862	(Screen notNil and:[Screen current notNil and:[Screen current platformName == #X11]]) ifTrue:[
18489 710dbb73f2e8 class: UserPreferences Stefan Vogel <sv@exept.de> parents: 18419 diff changeset	1863	Screen current maxOperationsUntilFlush:(aBoolean ifTrue:[1] ifFalse:[nil])
15817 319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1864	].
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1865
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1866	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1867	UserPreferences current enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1868	UserPreferences current enableVMWareDrawingBugWorkaround:true
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1869	UserPreferences current enableVMWareDrawingBugWorkaround:false
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1870	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1871
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1872	"Created: / 19-11-2013 / 09:53:45 / cg"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1873	!
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1874
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1875	expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1876	"expand the selection in a selectionInListView if the mouse is pressed while moving over
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1877	more lines. Default is not FALSE !!"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1878
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1879	^ self at:#expandSelectionOnMouseMoveWithButtonPressed ifAbsent:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1880
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1881	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1882	UserPreferences current expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1883	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1884	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1885
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1886	expandSelectionOnMouseMoveWithButtonPressed:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1887	"expand the selection in a selectionInListView if the mouse is pressed while moving over
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1888	more lines. Default is not FALSE !!"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1889
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1890	^ self at:#expandSelectionOnMouseMoveWithButtonPressed put:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1891
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1892	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1893	UserPreferences current expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1894	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1895	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1896
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1897	flyByHelpActive
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1898
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1899	^ self at:#flyByHelpActive ifAbsent:true "(FlyByHelp notNil and:[FlyByHelp isActive])"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1900	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1901
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1902	flyByHelpActive:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1903	aBoolean ~~ self flyByHelpActive ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	1904	self at:#flyByHelpActive put:aBoolean.
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1905	].
17104 39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	1906	self flyByHelpSettingChanged.
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1907	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1908
4075 816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1909	focusFollowsMouse
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1910	"return the flag which controls if the keyboard focus should
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1911	follow the mouse (as in X) - as opposed to click mode (as in MS-win).
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1912	This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1913	The returned value has 3 states: true/false and nil, which means: as defined in styleSheet."
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1914
13391 0a6201dcb4b4 changed: #focusFollowsMouse Stefan Vogel <sv@exept.de> parents: 13373 diff changeset	1915	^ self at:#focusFollowsMouse ifAbsent:[ false ]
4075 816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1916
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1917	"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1918	UserPreferences current focusFollowsMouse
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1919	"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1920	"Modified: / 11.9.1998 / 00:09:59 / cg"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1921	!
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1922
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1923	focusFollowsMouse:aBooleanOrNil
4121 4fbe619d6047 comments Claus Gittinger <cg@exept.de> parents: 4076 diff changeset	1924	"set/clear the flag which controls if the keyboard focus should
4075 816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1925	follow the mouse (as in X) - as opposed to click mode (as in MS-win).
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1926	This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1927	Allowed are: true/false and nil, which means: as defined in styleSheet."
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1928
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1929	^ self at:#focusFollowsMouse put:aBooleanOrNil
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1930
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1931	"
4121 4fbe619d6047 comments Claus Gittinger <cg@exept.de> parents: 4076 diff changeset	1932	UserPreferences current focusFollowsMouse:true
4fbe619d6047 comments Claus Gittinger <cg@exept.de> parents: 4076 diff changeset	1933	UserPreferences current focusFollowsMouse:false
4075 816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1934	UserPreferences current focusFollowsMouse
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1935	"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1936
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1937	"Modified: / 11.9.1998 / 00:09:59 / cg"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1938	!
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1939
18812 9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1940	fontPreferences
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1941	"experimental"
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1942
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1943	^ self at:#fontPreferences
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1944
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1945	"
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1946	UserPreferences current fontPreferences
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1947	UserPreferences current fontPreferences:nil
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1948	"
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1949	!
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1950
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1951	fontPreferences:aDictionary
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1952	"experimental"
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1953
18818 2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1954	self at:#fontPreferences put:aDictionary.
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1955	aDictionary isNil ifTrue:[^ self].
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1956
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1957	self fontPreferencesChanged.
19630 6588977b5589 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19582 diff changeset	1958
6588977b5589 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19582 diff changeset	1959	"
6588977b5589 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19582 diff changeset	1960	UserPreferences current fontPreferences
6588977b5589 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19582 diff changeset	1961	UserPreferences current fontPreferences:nil
6588977b5589 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19582 diff changeset	1962	"
18818 2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1963	!
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1964
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1965	fontPreferencesChanged
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1966	"tells view classes about changed font preferences"
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1967
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1968	\|dict fn getFont\|
18812 9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1969
18818 2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1970	dict := self at:#fontPreferences.
2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1971	dict isNil ifTrue:[^ self].
19631 3eda8aa7e7fe #TUNING by cg Claus Gittinger <cg@exept.de> parents: 19630 diff changeset	1972
18812 9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1973	getFont :=
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1974	[:key\|
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1975	\|s fn\|
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1976
18818 2e6061696ce1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18813 diff changeset	1977	s := dict at:key ifAbsent:nil.
18812 9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1978	s notNil ifTrue:[
18813 b213982a4cb8 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18812 diff changeset	1979	fn := Object readFrom:s.
18812 9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1980	self useXftFontsOnly ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1981	fn := XftFontDescription for:fn
19787 08c4eaf6cfb3 lazy Xft font allocation makes startup faster Claus Gittinger <cg@exept.de> parents: 19783 diff changeset	1982	"/ cg: don't allocate on the display, because it takes
08c4eaf6cfb3 lazy Xft font allocation makes startup faster Claus Gittinger <cg@exept.de> parents: 19783 diff changeset	1983	"/ dam long sometimes when Xft fonts are used.
08c4eaf6cfb3 lazy Xft font allocation makes startup faster Claus Gittinger <cg@exept.de> parents: 19783 diff changeset	1984	"/ startup feels better, if we do it lazy.
08c4eaf6cfb3 lazy Xft font allocation makes startup faster Claus Gittinger <cg@exept.de> parents: 19783 diff changeset	1985	] ifFalse:[
08c4eaf6cfb3 lazy Xft font allocation makes startup faster Claus Gittinger <cg@exept.de> parents: 19783 diff changeset	1986	Display notNil ifTrue:[fn := fn onDevice:Display].
08c4eaf6cfb3 lazy Xft font allocation makes startup faster Claus Gittinger <cg@exept.de> parents: 19783 diff changeset	1987	]
18812 9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1988	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1989	fn
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1990	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1991
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1992	fn := getFont value:#Other.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1993	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1994	SimpleView withAllSubclasses do:[:cls \| cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1995	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1996
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1997	fn := getFont value:#Label.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1998	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	1999	Label defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2000	CheckBox defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2001	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2002
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2003	fn := getFont value:#Button.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2004	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2005	Button defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2006	Toggle defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2007	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2008
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2009	fn := getFont value:#Text.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2010	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2011	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2012	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2013
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2014	fn := getFont value:#InputField.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2015	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2016	EditField withAllSubclasses do:[:cls \| cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2017	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2018
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2019	fn := getFont value:#List.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2020	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2021	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2022	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2023
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2024	fn := getFont value:#Tooltip.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2025	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2026	ActiveHelpView withAllSubclasses do:[:cls \| cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2027	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2028
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2029	fn := getFont value:#Menu.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2030	fn notNil ifTrue:[
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2031	ListView defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2032	MenuView defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2033	MenuPanel defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2034	NoteBookView defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2035	PullDownMenu defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2036	].
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2037	!
9294dd824dda #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18808 diff changeset	2038
13103 2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2039	forceWindowsIntoMonitorBounds
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2040	"if true, windows are forced to be placed into a monitor's bounds completely;
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2041	if false, they may be placed as to cross a boundary. This only affects initial placement,
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2042	not window movement."
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2043
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2044	^ self at:#forceWindowsIntoMonitorBounds ifAbsent:true
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2045
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2046	"Created: / 22-10-2010 / 10:59:10 / cg"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2047	!
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2048
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2049	forceWindowsIntoMonitorBounds:aBoolean
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2050	"if true, windows are forced to be placed into a monitor's bounds completely;
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2051	if false, they may be placed as to cross a boundary. This only affects initial placement,
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2052	not window movement."
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2053
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2054	^ self at:#forceWindowsIntoMonitorBounds put:aBoolean
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2055
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2056	"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2057	UserPreferences current forceWindowsIntoMonitorBounds:false
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2058	UserPreferences current forceWindowsIntoMonitorBounds:true
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2059	"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2060
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2061	"Modified: / 22-10-2010 / 11:13:54 / cg"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2062	!
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	2063
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2064	menuPanelTakesFocusOnClick
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2065	"if true, the menu panel takes the focus and allows further control via
14742 afc7517c76cc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14736 diff changeset	2066	cursor and tab keys."
afc7517c76cc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14736 diff changeset	2067
15713 2ab7ecc832d9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15703 diff changeset	2068	"/ read comment in menuPanel - for now, it should be on,
2ab7ecc832d9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15703 diff changeset	2069	"/ otherwise you cannot control a menu with cursor keys or escape. sigh.
16570 88aa56dde8e7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16552 diff changeset	2070	^ self at:#menuPanelTakesFocusOnClick ifAbsent:[ false ]
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2071
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2072	"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2073	UserPreferences current menuPanelTakesFocusOnClick
16641 2a3e378e9516 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16589 diff changeset	2074	UserPreferences current menuPanelTakesFocusOnClick:false
2a3e378e9516 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16589 diff changeset	2075	UserPreferences current menuPanelTakesFocusOnClick:true
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2076	"
14742 afc7517c76cc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14736 diff changeset	2077
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2078	"Modified: / 11.9.1998 / 00:09:59 / cg"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2079	!
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2080
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2081	menuPanelTakesFocusOnClick:aBooleanOrNil
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2082	"if true, the menu panel takes the focus and allows further control via
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2083	cursor and tab keys.
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2084	Used to be on, but now we changed the default as it turned out to be counter productive"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2085
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2086	^ self at:#menuPanelTakesFocusOnClick put:aBooleanOrNil
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2087
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2088	"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2089	UserPreferences current menuPanelTakesFocusOnClick:true
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2090	UserPreferences current menuPanelTakesFocusOnClick:false
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2091	UserPreferences current menuPanelTakesFocusOnClick
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2092	"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2093
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2094	"Modified: / 11.9.1998 / 00:09:59 / cg"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2095	!
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	2096
8759 8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	2097	motionDistanceToStartDrag
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	2098	"the motion distance (in pixel) to start drag (as opposed to adding to the selection)"
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	2099
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	2100	^ "DragMotionDistance ?" 10
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	2101	!
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	2102
17457 ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2103	mouseWheelDirectionReversed
17458 892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	2104	"if set, mouse wheel motions are upside-down.
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2105	I got very confused with macOSX10.9, behavind different from 10.6,
17458 892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	2106	so I added this option"
17457 ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2107
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2108	^ self at:#mouseWheelDirectionReversed ifAbsent:[ false ]
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2109
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2110	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2111	UserPreferences current mouseWheelDirectionReversed
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2112	UserPreferences current mouseWheelDirectionReversed:true
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2113	UserPreferences current mouseWheelDirectionReversed:false
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2114	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2115	!
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2116
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2117	mouseWheelDirectionReversed:aBoolean
17458 892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	2118	"if set, mouse wheel motions are upside-down.
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2119	I got very confused with macOSX10.9, behavind different from 10.6,
17458 892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	2120	so I added this option"
17457 ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2121
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2122	self at:#mouseWheelDirectionReversed put:aBoolean
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2123
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2124	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2125	UserPreferences current mouseWheelDirectionReversed
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2126	UserPreferences current mouseWheelDirectionReversed:true
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2127	UserPreferences current mouseWheelDirectionReversed:false
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2128	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2129	!
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	2130
11589 13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2131	mouseWheelFocusFollowsMouse
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2132	"return the flag which controls if the mouseWheel focus should
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2133	follow the mouse (as in X) - as opposed to click mode (as in MS-win)"
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2134
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2135	self focusFollowsMouse ifTrue:[^ true].
16859 0fb09ef5abf0 class: UserPreferences Stefan Vogel <sv@exept.de> parents: 16813 diff changeset	2136	^ self at:#mouseWheelFocusFollowsMouse ifAbsent:[ Screen current isWindowsPlatform ]
11589 13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2137
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2138	"
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2139	UserPreferences current mouseWheelFocusFollowsMouse
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2140	"
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2141	!
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	2142
17316 4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2143	mouseWheelScale
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2144	"if set, mouse wheel motions are scaled by this number"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2145
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2146	^ self at:#mouseWheelScale ifAbsent:[ 1 ]
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2147
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2148	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2149	UserPreferences current mouseWheelScale
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2150	UserPreferences current mouseWheelScale:0.5
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2151	UserPreferences current mouseWheelScale:1
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2152	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2153	!
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2154
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2155	mouseWheelScale:aNumber
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2156	"if set, mouse wheel motions are scaled by this number"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2157
18643 dffc9ea26ca9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18641 diff changeset	2158	self at:#mouseWheelScale put:aNumber.
dffc9ea26ca9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18641 diff changeset	2159	WindowSensor mouseWheelScale:aNumber.
17316 4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2160
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2161	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2162	UserPreferences current mouseWheelScale
18643 dffc9ea26ca9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18641 diff changeset	2163	UserPreferences current mouseWheelScale:0.25
17316 4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2164	UserPreferences current mouseWheelScale:0.5
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2165	UserPreferences current mouseWheelScale:1
18643 dffc9ea26ca9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18641 diff changeset	2166
dffc9ea26ca9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18641 diff changeset	2167	WindowSensor mouseWheelScale
17316 4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2168	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2169	!
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	2170
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2171	nativeDialogs
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2172	^ self at:#nativeDialogs ifAbsent:false
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2173
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2174	"Created: / 24-08-2010 / 17:01:47 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2175	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2176
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2177	nativeDialogs:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2178	\|currentScreen\|
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2179
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2180	self at:#nativeDialogs put:aBoolean.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2181	currentScreen := Screen current.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2182	currentScreen notNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2183	currentScreen supportsNativeDialogs ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2184	currentScreen nativeDialogs:aBoolean
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2185	].
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2186	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2187
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2188	"Modified: / 24-08-2010 / 18:06:43 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2189	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2190
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2191	nativeFileDialogs
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2192	^ self at:#nativeFileDialogs ifAbsent:false
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2193
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2194	"Created: / 24-08-2010 / 17:01:59 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2195	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2196
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2197	nativeFileDialogs:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2198	\|currentScreen\|
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2199
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2200	self at:#nativeFileDialogs put:aBoolean.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2201	currentScreen := Screen current.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2202	currentScreen notNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2203	currentScreen supportsNativeFileDialogs ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2204	currentScreen nativeFileDialogs:aBoolean
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2205	].
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2206	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2207
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2208	"Modified: / 24-08-2010 / 18:06:27 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2209	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2210
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2211	nativeWidgets
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2212	^ self at:#nativeWidgets ifAbsent:false
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2213
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2214	"Created: / 24-08-2010 / 16:58:44 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2215	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2216
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2217	nativeWidgets:aBoolean
16813 4d8bb499fc3b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16699 diff changeset	2218	"enable/disable native widgets on the current display"
4d8bb499fc3b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16699 diff changeset	2219
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2220	\|currentScreen\|
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2221
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2222	self at:#nativeWidgets put:aBoolean.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2223	currentScreen := Screen current.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2224	currentScreen notNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2225	currentScreen supportsNativeWidgets ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2226	currentScreen nativeWidgets:aBoolean
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2227	].
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2228	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2229
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2230	"Created: / 24-08-2010 / 16:58:14 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2231	"Modified: / 24-08-2010 / 18:05:56 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2232	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2233
16587 1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2234	onlyShowTooltipsForActiveWindow
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2235	"on a mac (and maybe on others), it is preferable to turn this on"
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2236
17180 f37997ce874f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17138 diff changeset	2237	^ self at:#onlyShowTooltipsForActiveWindow ifAbsent:true
16587 1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2238
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2239	"
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2240	UserPreferences current onlyShowTooltipsForActiveWindow
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2241	"
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2242	!
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2243
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2244	onlyShowTooltipsForActiveWindow:aBooleanOrNil
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2245	"on a mac (and maybe on others), it is preferable to turn this on"
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2246
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2247	^ self at:#onlyShowTooltipsForActiveWindow put:aBooleanOrNil
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2248	!
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2249
5808 02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2250	opaqueTableColumnResizing
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2251	"return the flag which controls if table column resizing should be done
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2252	animated (opaque)"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2253
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	2254	^ self at:#opaqueTableColumnResizing ifAbsent:false
5808 02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2255
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2256	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2257	UserPreferences current opaqueTableColumnResizing
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2258	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2259	!
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2260
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2261	opaqueTableColumnResizing:aBoolean
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2262	"change the flag which controls if table column resizing should be done
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2263	animated (opaque)"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2264
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2265	^ self at:#opaqueTableColumnResizing put:aBoolean
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2266
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2267	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2268	UserPreferences current opaqueTableColumnResizing:true
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2269	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2270
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2271	"Modified: / 11.9.1998 / 00:09:59 / cg"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2272	!
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2273
4684 45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2274	opaqueVariablePanelResizing
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2275	"return the flag which controls if variable panel resizing should be done
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2276	animated (opaque)"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2277
18550 ecbf5bb59f22 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18497 diff changeset	2278	^ self at:#opaqueVariablePanelResizing ifAbsent:true
4684 45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2279
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2280	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2281	UserPreferences current opaqueVariablePanelResizing
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2282	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2283
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2284	"Modified: / 11.9.1998 / 00:09:59 / cg"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2285	!
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2286
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2287	opaqueVariablePanelResizing:aBoolean
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2288	"change the flag which controls if variable panel resizing should be done
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2289	animated (opaque)"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2290
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2291	^ self at:#opaqueVariablePanelResizing put:aBoolean
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2292
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2293	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2294	UserPreferences current opaqueVariablePanelResizing:true
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2295	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2296
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2297	"Modified: / 11.9.1998 / 00:09:59 / cg"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2298	!
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2299
6525 f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2300	searchDialogIsModal
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2301	"true if the search dialog (in textViews) shall be modal (the default)"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2302
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2303	^ self at:#searchDialogIsModal ifAbsent:true
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2304
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2305	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2306	UserPreferences current searchDialogIsModal
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2307	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2308	!
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2309
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2310	searchDialogIsModal:aBooleanOrNil
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2311	"true if the search dialog (in textViews) shall be modal (the default)"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2312
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2313	^ self at:#searchDialogIsModal put:aBooleanOrNil
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2314
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2315	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2316	UserPreferences current searchDialogIsModal:true
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2317	UserPreferences current searchDialogIsModal:false
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2318	UserPreferences current searchDialogIsModal
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2319	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2320	!
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2321
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2322	selectOnRightClick
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2323	"the Windows behavior of selecting on a right-click"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2324
11943 5edb32c7f9c2 selectOnRightClick - default Claus Gittinger <cg@exept.de> parents: 11931 diff changeset	2325	^ self at:#selectOnRightClick ifAbsent:false
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2326	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2327
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2328	selectOnRightClick:aBoolean
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2329	"the Windows behavior of selecting on a right-click"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2330
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2331	^ self at:#selectOnRightClick put:aBoolean
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2332
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2333	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2334	UserPreferences current selectOnRightClick:true.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2335	UserPreferences current selectOnRightClick:false.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2336	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2337	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2338
18808 2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2339	shiftMouseWheelScrollsHorizontally
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2340	"if true (the default), a shift-mouse-wheel does horizontal scrolling"
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2341
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2342	^ self at:#shiftMouseWheelScrollsHorizontally ifAbsent:[ true ]
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2343
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2344	"
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2345	UserPreferences current shiftMouseWheelScrollsHorizontally
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2346	"
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2347	!
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2348
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2349	shiftMouseWheelScrollsHorizontally:aBoolean
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2350	"if true (the default), a shift-mouse-wheel does horizontal scrolling"
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2351
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2352	self at:#shiftMouseWheelScrollsHorizontally put:aBoolean
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2353
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2354	"
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2355	UserPreferences current shiftMouseWheelScrollsHorizontally
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2356	"
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2357	!
2bceb0681510 #FEATURE Claus Gittinger <cg@exept.de> parents: 18804 diff changeset	2358
15588 4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2359	shouldRememberLastExtent
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2360	^ self at:#shouldRememberLastExtent ifAbsent:true
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2361
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2362	"Created: / 31-07-2013 / 18:11:17 / cg"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2363	!
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2364
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2365	shouldRememberLastExtent:aBoolean
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2366	^ self at:#shouldRememberLastExtent put:aBoolean
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2367
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2368	"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2369	UserPreferences current shouldRememberLastExtent.
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2370	UserPreferences current shouldRememberLastExtent:true.
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2371	UserPreferences current shouldRememberLastExtent:false.
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2372	"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2373
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2374	"Created: / 31-07-2013 / 18:11:25 / cg"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2375	!
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2376
13161 119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2377	showDottedLinesInTree
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2378	^ self
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2379	at:#showDottedLinesInTree
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2380	ifAbsent:[ OperatingSystem isMSWINDOWSlike not
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2381	or:[ OperatingSystem isVistaLike not ] ]
13161 119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2382
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2383	"Created: / 03-12-2010 / 11:31:46 / cg"
13304 19bb57822f90 changed: #showDottedLinesInTree Claus Gittinger <cg@exept.de> parents: 13161 diff changeset	2384	"Modified: / 09-02-2011 / 23:27:03 / cg"
13161 119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2385	!
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2386
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2387	showDottedLinesInTree:aBoolean
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2388	^ self at:#showDottedLinesInTree put:aBoolean
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2389
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2390	"
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2391	UserPreferences current showDottedLinesInTree:true.
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2392	UserPreferences current showDottedLinesInTree:false.
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2393	"
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2394
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2395	"Created: / 03-12-2010 / 11:31:53 / cg"
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2396	!
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2397
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2398	showRightButtonMenuOnRelease
17232 e1f21dd5c764 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17180 diff changeset	2399	"the Windows behavior of showing the right-button menu on a release."
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2400
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2401	^ self at:#showRightButtonMenuOnRelease ifAbsent:true
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2402	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2403
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2404	showRightButtonMenuOnRelease:aBoolean
17232 e1f21dd5c764 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17180 diff changeset	2405	"the Windows behavior of showing the right-button menu on a release."
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2406
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2407	^ self at:#showRightButtonMenuOnRelease put:aBoolean
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2408
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2409	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2410	UserPreferences current showRightButtonMenuOnRelease:true.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2411	UserPreferences current showRightButtonMenuOnRelease:false.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2412	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2413	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2414
6730 7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2415	startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2416	"if true, textDrag is only started when the CTRL-key is down"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2417
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2418	^ self at:#startTextDragWithControl ifAbsent:true
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2419
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2420	"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2421	UserPreferences current startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2422	"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2423	!
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2424
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2425	startTextDragWithControl:aBooleanOrNil
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2426	"if true, textDrag is only started when the CTRL-key is down"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2427
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2428	^ self at:#startTextDragWithControl put:aBooleanOrNil
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2429
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2430	"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2431	UserPreferences current startTextDragWithControl:true
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2432	UserPreferences current startTextDragWithControl:false
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2433	UserPreferences current startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2434	"
12522 0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2435	!
0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2436
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2437	toolTipAutoHideDelay
16466 11c565cfffc2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16385 diff changeset	2438	"return the time in seconds, tooltips are shown. 0 means: show forever"
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2439
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2440	^ self at:#toolTipAutoHideDelay ifAbsentPut:[FlyByHelp showTime]
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2441
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2442	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2443	UserPreferences current toolTipAutoHideDelay
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2444	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2445
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2446	"Created: / 10-11-2010 / 12:08:58 / cg"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2447	!
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2448
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2449	toolTipAutoHideDelay:aTimeDuration
16466 11c565cfffc2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16385 diff changeset	2450	"set the time, tooltips are shown. 0 means: dont hide"
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2451
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2452	self at:#toolTipAutoHideDelay put:aTimeDuration.
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2453	FlyByHelp showTime: (aTimeDuration isInteger
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2454	ifTrue:[aTimeDuration]
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2455	ifFalse:[aTimeDuration asSeconds]).
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2456
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2457	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2458	UserPreferences current toolTipAutoHideDelay:10 seconds
16466 11c565cfffc2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16385 diff changeset	2459	UserPreferences current toolTipAutoHideDelay:0
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2460	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2461
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2462	"Created: / 10-11-2010 / 12:09:33 / cg"
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2463	"Modified: / 07-03-2011 / 23:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2464	!
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2465
15728 68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2466	toolTipShapeStyle
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2467	"return a symbol, or nil. If nil, the value from the stylesheet is used."
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2468
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2469	^ self at:#toolTipShapeStyle ifAbsent:[ nil ]
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2470
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2471	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2472	UserPreferences current toolTipShapeStyle
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2473	UserPreferences current toolTipShapeStyle:#cartoon
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2474	UserPreferences current toolTipShapeStyle:nil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2475	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2476	!
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2477
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2478	toolTipShapeStyle:aSymbolOrNil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2479	"A symbol, or nil. If nil, the value from the stylesheet is used."
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2480
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2481	self at:#toolTipShapeStyle put:aSymbolOrNil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2482
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2483	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2484	UserPreferences current toolTipShapeStyle
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2485	UserPreferences current toolTipShapeStyle:#cartoon
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2486	UserPreferences current toolTipShapeStyle:nil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2487	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2488	!
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2489
17541 921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2490	useColorsForColorBlindness
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2491	"return the flag which controls some color combinations
17593 9c4d879c9be0 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17569 diff changeset	2492	to compensate for color deficiencies, such as red-green blindness.
17541 921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2493	For example, red-green is replaced by red-blue"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2494
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2495	^ self at:#useColorsForColorBlindness ifAbsent:[ false ]
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2496
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2497	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2498	UserPreferences current useColorsForColorBlindness
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2499	UserPreferences current useColorsForColorBlindness:true
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2500	UserPreferences current useColorsForColorBlindness:false
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2501	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2502	!
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2503
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2504	useColorsForColorBlindness:aBoolean
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2505	"change the flag which controls some color combinations
17593 9c4d879c9be0 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17569 diff changeset	2506	to compensate for color deficiencies, such as red-green blindness.
17541 921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2507	For example, red-green is replaced by red-blue"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2508
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2509	self at:#useColorsForColorBlindness put:aBoolean
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2510
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2511	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2512	UserPreferences current useColorsForColorBlindness
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2513	UserPreferences current useColorsForColorBlindness:true
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2514	UserPreferences current useColorsForColorBlindness:false
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2515	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2516	!
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2517
17138 e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2518	useXFontsOnly
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2519	"experimental:
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2520	a flag to suppress any use of Xft Fonts on X window displays"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2521
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2522	^ self at:#useXFontsOnly ifAbsent:[ false ]
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2523
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2524	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2525	UserPreferences current useXFontsOnly
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2526	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2527	!
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2528
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2529	useXFontsOnly:aBoolean
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2530	"experimental:
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2531	a flag to suppress any use of Xft Fonts on X window displays"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2532
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2533	self at:#useXFontsOnly put:aBoolean
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2534
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2535	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2536	UserPreferences current useXFontsOnly
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2537	UserPreferences current useXFontsOnly:true
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2538	UserPreferences current useXFontsOnly:false
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2539	UserPreferences current useXftFontsOnly:true
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2540	UserPreferences current useXftFontsOnly:false
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2541	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2542	!
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2543
16265 32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2544	useXftFontsOnly
16266 d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2545	"experimental:
d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2546	return the flag which controls if ONLY Xft fonts should be used.
16265 32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2547	If changed, this should be done very early during startup, before any other fonts
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2548	are already aquired (i.e. before any views are opened)"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2549
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2550	^ self at:#useXftFontsOnly ifAbsent:[ false ]
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2551
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2552	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2553	UserPreferences current useXftFontsOnly
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2554	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2555	!
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2556
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2557	useXftFontsOnly:aBooleanOrNil
16266 d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2558	"experimental:
d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2559	set/clear the flag which controls if ONLY Xft fonts should be used.
16265 32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2560	If changed, this should be done very early during startup, before any other fonts
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2561	are already aquired (i.e. before any views are opened)"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2562
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2563	^ self at:#useXftFontsOnly put:aBooleanOrNil
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2564
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2565	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2566	UserPreferences current useXftFontsOnly:true
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2567	UserPreferences current useXftFontsOnly:false
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2568	UserPreferences current useXftFontsOnly
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2569	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2570	!
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2571
12522 0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2572	waitCursorVisibleTime
0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2573	"anser the time (in ms), how long a wait cursor should be visible at least"
0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2574
13684 a55755f5d41b changed: #waitCursorVisibleTime Claus Gittinger <cg@exept.de> parents: 13652 diff changeset	2575	^ 100
a55755f5d41b changed: #waitCursorVisibleTime Claus Gittinger <cg@exept.de> parents: 13652 diff changeset	2576
a55755f5d41b changed: #waitCursorVisibleTime Claus Gittinger <cg@exept.de> parents: 13652 diff changeset	2577	"Modified: / 12-09-2011 / 11:08:53 / cg"
13122 ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2578	!
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2579
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2580	workAroundRenderingBugOnVista
13124 ae7477260767 changed: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13122 diff changeset	2581	"a temporary kludge for the vista-cleartype character redraw bug"
13122 ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2582
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2583	^ OperatingSystem isMSWINDOWSlike
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2584
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2585	"Created: / 08-11-2010 / 14:47:52 / cg"
13124 ae7477260767 changed: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13122 diff changeset	2586	"Modified: / 09-11-2010 / 13:02:43 / cg"
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2587	! !
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2588
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2589	!UserPreferences methodsFor:'accessing-prefs-browser'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2590
19852 9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2591	acceptCancelBarOrder
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2592	"the original order was accept-cancel-compare.
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2593	However, we found that the danger of pressing cancel by accident
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2594	was too high, so we changed the default.
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2595	If you want to go back, return #acceptCancelCompare here"
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2596
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2597	^ self at:#acceptCancelBarOrder ifAbsent:#acceptCompareCancel
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2598
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2599	"
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2600	UserPreferences current acceptCancelBarOrder
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2601	UserPreferences current acceptCancelBarOrder: #acceptCompareCancel
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2602	UserPreferences current acceptCancelBarOrder: #acceptCancelCompare
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2603	"
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2604	!
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2605
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2606	acceptCancelBarOrder:aSymbol
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2607	"the original order was accept-cancel-compare.
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2608	However, we found that the danger of pressing cancel by accident
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2609	was too high, so we changed the default.
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2610	If you want to go back, return #acceptCancelCompare here"
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2611
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2612	self at:#acceptCancelBarOrder put:aSymbol
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2613
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2614	"
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2615	UserPreferences current acceptCancelBarOrder
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2616	UserPreferences current acceptCancelBarOrder: #acceptCompareCancel
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2617	UserPreferences current acceptCancelBarOrder: #acceptCancelCompare
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2618	"
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2619	!
9c6ec9384612 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19797 diff changeset	2620
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2621	autoFormatting
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2622	"return the flag which controls automatic formatting of code (in some browsers)
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2623	Notice, the regular browser does not (yet) do automatic formating."
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2624
8233 354850231fe7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8232 diff changeset	2625	^ self at:#autoFormatting ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2626
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2627	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2628	UserPreferences current autoFormatting
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2629	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2630
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2631	"Created: / 4.2.2000 / 20:08:08 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2632	"Modified: / 5.2.2000 / 15:38:33 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2633	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2634
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2635	autoFormatting:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2636	"turn on/off automatic formatting of code (in some browsers);
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2637	Notice, the regular browser does not (yet) do automatic formating."
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2638
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2639	^ self at:#autoFormatting put:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2640
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2641	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2642	UserPreferences current autoFormatting:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2643	UserPreferences current autoFormatting:false
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2644	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2645
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2646	"Created: / 4.2.2000 / 20:08:26 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2647	"Modified: / 5.2.2000 / 15:38:20 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2648	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2649
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2650	autoIndentInCodeView
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2651	"return the flag which controls automatic cursor control in editors which
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2652	show code(autoIndent)"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2653
16699 eafc8ff6f15a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16698 diff changeset	2654	^ self at:#autoIndentInCodeView ifAbsent:true
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2655
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2656	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2657	UserPreferences current autoIndentInCodeView
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2658	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2659	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2660
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2661	autoIndentInCodeView:aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2662	"flag which controls automatic cursor control in editors which
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2663	show code(autoIndent)"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2664
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2665	^ self at:#autoIndentInCodeView put:aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2666
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2667	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2668	UserPreferences current autoIndentInCodeView:true
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2669	UserPreferences current autoIndentInCodeView:false
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2670	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2671	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2672
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2673	enforceCodeStyle
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2674	"return the flag which controls enforcing a certain code style (in some browsers)"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2675
8233 354850231fe7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8232 diff changeset	2676	^ self at:#enforceCodeStyle ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2677
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2678	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2679	UserPreferences current enforceCodeStyle
10478 34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2680	UserPreferences current enforceCodeStyle:true
34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2681	UserPreferences current enforceCodeStyle:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2682	"
10478 34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2683
34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2684	"Modified: / 27-03-2007 / 21:51:42 / cg"
6730 7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2685	!
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2686
12947 253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2687	enforceComment
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2688	"return the flag which controls enforcing a comment in accepted methods"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2689
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2690	^ self at:#enforceComment ifAbsent:false
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2691
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2692	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2693	UserPreferences current enforceComment
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2694	UserPreferences current enforceComment:true
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2695	UserPreferences current enforceComment:false
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2696	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2697
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2698	"Created: / 17-07-2010 / 14:16:27 / cg"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2699	!
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2700
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2701	enforceComment:aBoolean
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2702	"set/clear the flag which controls enforcing a comment in accepted methods"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2703
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2704	^ self at:#enforceComment put:aBoolean
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2705
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2706	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2707	UserPreferences current enforceComment:true
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2708	UserPreferences current enforceComment:false
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2709	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2710
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2711	"Created: / 17-07-2010 / 14:17:02 / cg"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2712	!
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2713
14415 e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2714	runLintChecksInBackground
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2715	"controls the browser's lint-check behavior;
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2716	background operation (Jan's pref) makes it difficult to stop and debug...)"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2717
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2718	^ self at:#runLintChecksInBackground ifAbsent:true
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2719
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2720	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2721	UserPreferences current runLintChecksInBackground
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2722	UserPreferences current runLintChecksInBackground:true
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2723	UserPreferences current runLintChecksInBackground:false
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2724	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2725
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2726	"Created: / 17-07-2010 / 14:16:27 / cg"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2727	!
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2728
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2729	runLintChecksInBackground:aBoolean
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2730	"controls the browser's lint-check behavior;
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2731	background operation (Jan's pref) makes it difficult to stop and debug...)"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2732
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2733	^ self at:#runLintChecksInBackground put:aBoolean
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2734
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2735	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2736	UserPreferences current runLintChecksInBackground:true
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2737	UserPreferences current runLintChecksInBackground:false
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2738	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2739
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2740	"Created: / 17-07-2010 / 14:17:02 / cg"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2741	!
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2742
9320 3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2743	showAcceptCancelBarInBrowser
19797 fb12455698e1 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19787 diff changeset	2744	"this is a little confusing: the codeview2 has its own accept/cancel bar
fb12455698e1 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19787 diff changeset	2745	which can be turned on separately.
fb12455698e1 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19787 diff changeset	2746	The codeview2 will suppress the regular accept/cancel bar, if it uses its own."
fb12455698e1 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19787 diff changeset	2747
11214 ad61819068b9 changed #showAcceptCancelBarInBrowser Claus Gittinger <cg@exept.de> parents: 11213 diff changeset	2748	^ self at:#showAcceptCancelBarInBrowser ifAbsent:true
9320 3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2749
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2750	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2751	UserPreferences current showAcceptCancelBarInBrowser
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2752	UserPreferences current showAcceptCancelBarInBrowser:true
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2753	UserPreferences current showAcceptCancelBarInBrowser:false
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2754	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2755	!
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2756
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2757	showAcceptCancelBarInBrowser:aBoolean
19797 fb12455698e1 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19787 diff changeset	2758	"this is a little confusing: the codeview2 has its own accept/cancel bar
fb12455698e1 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19787 diff changeset	2759	which can be turned on separately.
fb12455698e1 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19787 diff changeset	2760	The codeview2 will suppress the regular accept/cancel bar, if it uses its own."
9320 3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2761
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2762	^ self at:#showAcceptCancelBarInBrowser put:aBoolean
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2763
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2764	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2765	UserPreferences current showAcceptCancelBarInBrowser:true
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2766	UserPreferences current showAcceptCancelBarInBrowser:false
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2767	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2768	!
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2769
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2770	syntaxColoring
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2771	"return the flag which controls syntax coloring (in the browsers)"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2772
8233 354850231fe7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8232 diff changeset	2773	^ self at:#syntaxColoring ifAbsent:true
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2774
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2775	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2776	UserPreferences current syntaxColoring
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2777	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2778
3827 d3dd75b5ced3 syntax coloring is on by default; Claus Gittinger <cg@exept.de> parents: 3409 diff changeset	2779	"Modified: / 11.9.1998 / 00:09:59 / cg"
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2780	!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2781
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2782	syntaxColoring:aBoolean
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2783	"turn on/off syntaxColoring (in the browsers)."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2784
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2785	^ self at:#syntaxColoring put:aBoolean
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2786
3357 bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2787	"
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2788	UserPreferences current syntaxColoring:true
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2789	UserPreferences current syntaxColoring:false
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2790	"
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2791
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2792	"Created: / 31.3.1998 / 13:44:00 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2793	"Modified: / 1.4.1998 / 13:23:03 / cg"
12189 176c73997180 added: fm parents: 12175 diff changeset	2794	!
176c73997180 added: fm parents: 12175 diff changeset	2795
176c73997180 added: fm parents: 12175 diff changeset	2796	useSearchBarInBrowser
12191 e7cc3e6975cc comment/format in: Claus Gittinger <cg@exept.de> parents: 12189 diff changeset	2797	"true, if the search-entry fields are initially shown in the browser itself
12189 176c73997180 added: fm parents: 12175 diff changeset	2798	(like in firefox). False if a dialog is to be opened."
176c73997180 added: fm parents: 12175 diff changeset	2799
176c73997180 added: fm parents: 12175 diff changeset	2800	"/ cg: disabled for now, until fixed.
176c73997180 added: fm parents: 12175 diff changeset	2801	"/ does not initially select the searchString.
176c73997180 added: fm parents: 12175 diff changeset	2802	"/ thereby interrupting the workflow...
176c73997180 added: fm parents: 12175 diff changeset	2803
176c73997180 added: fm parents: 12175 diff changeset	2804	^ self at:#useSearchBarInBrowser ifAbsent:false
176c73997180 added: fm parents: 12175 diff changeset	2805
176c73997180 added: fm parents: 12175 diff changeset	2806	"
176c73997180 added: fm parents: 12175 diff changeset	2807	UserPreferences current useSearchBarInBrowser
176c73997180 added: fm parents: 12175 diff changeset	2808	UserPreferences current useSearchBarInBrowser:true
176c73997180 added: fm parents: 12175 diff changeset	2809	UserPreferences current useSearchBarInBrowser:false
176c73997180 added: fm parents: 12175 diff changeset	2810	"
176c73997180 added: fm parents: 12175 diff changeset	2811	!
176c73997180 added: fm parents: 12175 diff changeset	2812
176c73997180 added: fm parents: 12175 diff changeset	2813	useSearchBarInBrowser:aBoolean
12191 e7cc3e6975cc comment/format in: Claus Gittinger <cg@exept.de> parents: 12189 diff changeset	2814	"true, if the search-entry fields are initially shown in the browser itself
12189 176c73997180 added: fm parents: 12175 diff changeset	2815	(like in firefox). False if a dialog is to be opened."
176c73997180 added: fm parents: 12175 diff changeset	2816
176c73997180 added: fm parents: 12175 diff changeset	2817	^ self at:#useSearchBarInBrowser put:aBoolean
176c73997180 added: fm parents: 12175 diff changeset	2818
176c73997180 added: fm parents: 12175 diff changeset	2819	"
176c73997180 added: fm parents: 12175 diff changeset	2820	UserPreferences current useSearchBarInBrowser:true
176c73997180 added: fm parents: 12175 diff changeset	2821	UserPreferences current useSearchBarInBrowser:false
176c73997180 added: fm parents: 12175 diff changeset	2822	"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2823	! !
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2824
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2825	!UserPreferences methodsFor:'accessing-prefs-browser-colors'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2826
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2827	colorForInstrumentedFullyCoveredCode
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2828	"the color for code in the browser which is instrumented
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2829	and where all branches have been executed (also code, which has been executed)"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2830
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2831	\|clr\|
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2832
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2833	clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil.
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2834	clr isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2835	clr := Color green slightlyDarkened "darkened".
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2836	"/ self at:#colorForInstrumentedFullyCoveredCode put:clr.
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2837	].
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2838	^ clr
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2839
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2840	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2841	UserPreferences current
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2842	at:#emphasisForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2843	put:(Color green slightlyDarkened).
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2844	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2845
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2846	"Created: / 28-04-2010 / 13:58:52 / cg"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2847	!
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2848
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2849	colorForInstrumentedFullyCoveredCode:aColor
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2850	"the color for code in the browser which is instrumented
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2851	and where all branches have been executed (also code, which has been executed)"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2852
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2853	self at:#colorForInstrumentedFullyCoveredCode put:aColor.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2854
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2855	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2856	UserPreferences current colorForInstrumentedFullyCoveredCode:(Color green slightlyDarkened).
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2857	UserPreferences current colorForInstrumentedFullyCoveredCode:nil.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2858	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2859
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2860	"Created: / 28-04-2010 / 13:58:52 / cg"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2861	!
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2862
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2863	colorForInstrumentedNeverCalledCode
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2864	"the color for code in the browser which is instrumented but has never been called"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2865
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2866	\|clr\|
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2867
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2868	clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil.
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2869	clr isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2870	clr := Color red "slightlyDarkened" "darkened".
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2871	"/ self at:#colorForInstrumentedNeverCalledCode put:clr.
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2872	].
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2873	^ clr
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2874
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2875	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2876	UserPreferences current
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2877	at:#colorForInstrumentedNeverCalledCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2878	put:(Color red slightlyDarkened).
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2879	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2880
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2881	"Created: / 28-04-2010 / 13:59:43 / cg"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2882	!
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2883
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2884	colorForInstrumentedNeverCalledCode:aColor
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2885	"the color for code in the browser which is instrumented but has never been called"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2886
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2887	self at:#colorForInstrumentedNeverCalledCode put:aColor.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2888
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2889	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2890	UserPreferences current colorForInstrumentedNeverCalledCode:(Color red slightlyDarkened).
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2891	UserPreferences current colorForInstrumentedNeverCalledCode:nil.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2892	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2893
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2894	"Created: / 28-04-2010 / 13:59:43 / cg"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2895	!
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2896
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2897	colorForInstrumentedPartiallyCoveredCode
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2898	"color for code in the browser which is instrumented and where some branches have been
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2899	executed"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2900
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2901	\|clr\|
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2902
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2903	clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil.
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2904	clr isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2905	clr := Color orange "slightlyDarkened".
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2906	"/ self at:#colorForInstrumentedPartiallyCoveredCode put:clr.
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2907	].
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2908	^ clr
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2909
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2910	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2911	UserPreferences current
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2912	at:#colorForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2913	put:(Color orange slightlyLightened).
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2914	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2915
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2916	"Created: / 28-04-2010 / 14:00:56 / cg"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2917	!
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2918
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2919	colorForInstrumentedPartiallyCoveredCode:aColor
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2920	"color for code in the browser which is instrumented and where some branches have been
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2921	executed"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2922
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2923	self at:#colorForInstrumentedPartiallyCoveredCode put:aColor.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2924
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2925	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2926	UserPreferences current colorForInstrumentedPartiallyCoveredCode:(Color orange slightlyLightened).
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2927	UserPreferences current colorForInstrumentedPartiallyCoveredCode:nil.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2928	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2929
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2930	"Created: / 28-04-2010 / 14:00:56 / cg"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2931	!
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2932
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2933	colorForPseudoProtocolsInMethodListInBrowser
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2934	"eventually, make this also a settings value (for people with weak gray-visibility)"
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2935
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2936	\|bg\|
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2937
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2938	SelectionInListView notNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2939	bg := SelectionInListView defaultBackgroundColor.
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2940	].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2941	bg isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2942	View notNil ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2943	bg := View defaultBackgroundColor.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2944	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2945	bg isNil ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2946	^ Color gray
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2947	].
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2948	].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2949
16698 6cc3755c970a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16695 diff changeset	2950	(Color gray brightness - (bg brightness)) abs < 0.3 ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2951	(bg brightness) > 0.7 ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2952	^ Color gray:20.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2953	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	2954	^ Color gray:80.
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2955	].
16698 6cc3755c970a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16695 diff changeset	2956	^ Color gray
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2957
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2958	"Created: / 07-09-2011 / 09:51:12 / cg"
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2959	!
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2960
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2961	emphasisForChangedCode
10177 01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2962	"the emphasis for changed code (in changeSet) in the browser"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2963
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2964	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2965
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2966	emp := self at:#emphasisForChangedCode ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2967	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2968	emp := #color->Color red darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2969	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2970	"/ emp := #color->Color blue darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2971	self at:#emphasisForChangedCode put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2972	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2973	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2974
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2975	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2976	self allInstancesDo:[:pref \|pref at:#emphasisForChangedCode put:nil].
9807 da320936bf87 * empty log message * Claus Gittinger <cg@exept.de> parents: 9742 diff changeset	2977	UserPreferences current emphasisForChangedCode.
da320936bf87 * empty log message * Claus Gittinger <cg@exept.de> parents: 9742 diff changeset	2978	UserPreferences current at:#emphasisForChangedCode put:nil.
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2979	"
9807 da320936bf87 * empty log message * Claus Gittinger <cg@exept.de> parents: 9742 diff changeset	2980
10177 01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2981	"Modified: / 10-11-2006 / 17:27:23 / cg"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2982	!
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2983
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2984	emphasisForChangedCodeInSmallTeam
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2985	"the emphasis for changed code (in a remote changeSet) in the browser.
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2986	You need the SmallTeam extension to be present for this to work."
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2987
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2988	\|emp\|
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2989
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2990	emp := self at:#emphasisForChangedCodeInSmallTeam ifAbsent:nil.
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2991	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2992	emp := #color->Color yellow darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2993	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2994	self at:#emphasisForChangedCodeInSmallTeam put:emp.
10177 01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2995	].
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2996	^ emp
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2997
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2998	"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2999	self allInstancesDo:[:pref \|pref at:#emphasisForChangedCodeInSmallTeam put:nil].
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	3000	UserPreferences current emphasisForChangedCodeInSmallTeam.
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	3001	UserPreferences current at:#emphasisForChangedCodeInSmallTeam put:nil.
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	3002	"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	3003
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	3004	"Created: / 10-11-2006 / 16:31:00 / cg"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3005	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3006
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3007	emphasisForDifferentPackage
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3008	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3009
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3010	emp := self at:#emphasisForDifferentPackage ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3011	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3012	emp := #color->Color green darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3013	"/ emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3014	self at:#emphasisForDifferentPackage put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3015	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3016	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3017
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3018	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3019	self allInstancesDo:[:pref \|pref at:#emphasisForDifferentPackage put:nil].
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3020	"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3021	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3022
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3023	emphasisForInstrumentedFullyCoveredCode
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3024	"the emphasis for code in the browser which is instrumented and where all branches have been
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3025	executed"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3026
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3027	\|emp\|
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3028
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3029	emp := self at:#emphasisForInstrumentedFullyCoveredCode ifAbsent:nil.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3030	emp isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3031	emp := #color->Color green slightlyDarkened.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3032	emp := Array with:#bold with:emp.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3033	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3034	self at:#emphasisForInstrumentedFullyCoveredCode put:emp.
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3035	].
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3036	^ emp
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3037
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3038	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3039	UserPreferences current
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3040	at:#emphasisForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3041	put:(Array with:#bold with:(#color->Color green slightlyDarkened)).
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3042	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3043
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3044	"Created: / 27-04-2010 / 13:01:01 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3045	"Modified: / 27-04-2010 / 14:48:11 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3046	!
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3047
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3048	emphasisForInstrumentedNeverCalledCode
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3049	"the emphasis for code in the browser which is instrumented but has never been called"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3050
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3051	\|emp\|
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3052
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3053	emp := self at:#emphasisForInstrumentedNeverCalledCode ifAbsent:nil.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3054	emp isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3055	emp := #color->Color red slightlyDarkened.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3056	emp := Array with:#bold with:emp.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3057	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3058	self at:#emphasisForInstrumentedNeverCalledCode put:emp.
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3059	].
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3060	^ emp
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3061
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3062	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3063	UserPreferences current
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3064	at:#emphasisForInstrumentedNeverCalledCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3065	put:(Array with:#bold with:(#color->Color red slightlyDarkened)).
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3066	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3067
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3068	"Created: / 27-04-2010 / 12:59:47 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3069	"Modified: / 27-04-2010 / 14:48:39 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3070	!
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3071
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3072	emphasisForInstrumentedPartiallyCoveredCode
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3073	"the emphasis for code in the browser which is instrumented and where some branches have been
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3074	executed"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3075
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3076	\|emp\|
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3077
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3078	emp := self at:#emphasisForInstrumentedPartiallyCoveredCode ifAbsent:nil.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3079	emp isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3080	emp := #color->Color orange.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3081	emp := Array with:#bold with:emp.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3082	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3083	self at:#emphasisForInstrumentedPartiallyCoveredCode put:emp.
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3084	].
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3085	^ emp
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3086
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3087	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3088	UserPreferences current
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3089	at:#emphasisForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3090	put:(Array with:#bold with:(#color->Color orange slightlyLightened)).
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3091	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3092
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3093	"Created: / 27-04-2010 / 13:01:20 / cg"
12902 a7d0611e313a comment/format in: #emphasisForInstrumentedPartiallyCoveredCode Claus Gittinger <cg@exept.de> parents: 12901 diff changeset	3094	"Modified: / 27-04-2010 / 18:50:43 / cg"
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3095	!
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	3096
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3097	emphasisForModifiedBuffer
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3098	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3099
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3100	emp := self at:#emphasisForModifiedBuffer ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3101	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3102	emp := #color->Color red darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3103	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3104	self at:#emphasisForModifiedBuffer put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3105	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3106	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3107
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3108	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3109	self allInstancesDo:[:pref \|pref at:#emphasisForModifiedBuffer put:nil].
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3110	"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3111	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3112
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3113	emphasisForNamespacedCode
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3114	"the emphasis for changed code (in changeSet) in the browser"
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3115
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3116	\|emp\|
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3117
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3118	emp := self at:#emphasisForNamespacedCode ifAbsent:nil.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3119	emp isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3120	emp := #color->Color green darkened.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3121	"/ emp := Array with:#bold with:emp.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3122	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3123	self at:#emphasisForNamespacedCode put:emp.
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3124	].
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3125	^ emp
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3126
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3127	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3128	self allInstancesDo:[:pref \|pref at:#emphasisForNamespacedCode put:nil].
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3129	UserPreferences current emphasisForNamespacedCode.
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3130	UserPreferences current at:#emphasisForNamespacedCode put:nil.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3131	"
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3132
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3133	"Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3134	!
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	3135
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3136	emphasisForObsoleteCode
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3137	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3138
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3139	emp := self at:#emphasisForObsoleteCode ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3140	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3141	emp := #color->Color red.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3142	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3143	self at:#emphasisForObsoleteCode put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3144	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3145	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3146
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3147	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3148	self allInstancesDo:[:pref \|pref at:#emphasisForObsoleteCode put:nil].
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	3149	"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3150	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3151
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3152	emphasisForReadVariable
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3153	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3154
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3155	emp := self at:#emphasisForReadVariable ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3156	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3157	emp := #underline.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3158	self at:#emphasisForReadVariable put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3159	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3160	^ emp
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3161	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3162
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3163	emphasisForWrittenVariable
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3164	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3165
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3166	emp := self at:#emphasisForWrittenVariable ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3167	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3168	emp := Array with:#underline with:#underlineColor->Color red.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3169	self at:#emphasisForWrittenVariable put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3170	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3171	^ emp
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3172	! !
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	3173
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	3174	!UserPreferences methodsFor:'accessing-prefs-browser-syntaxColoring'!
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3175
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3176	argumentIdentifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3177	"the color used for argument identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3178	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3179
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3180	^ self at:#argumentIdentifierColor ifAbsent:[self identifierColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3181
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3182	"Created: / 31.3.1998 / 15:08:20 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3183	"Modified: / 1.4.1998 / 13:19:58 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3184	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3185
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3186	argumentIdentifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3187	"the emphasis used for argument identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3188	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3189
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3190	^ self at:#argumentIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3191
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3192	"Created: / 31.3.1998 / 15:16:40 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3193	"Modified: / 1.4.1998 / 13:19:55 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3194	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3195
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3196	badIdentifierColor
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3197	"the color used for illegal identifiers;
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3198	If syntaxColoring is turned on."
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3199
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3200	^ self at:#badIdentifierColor ifAbsent:[self identifierColor]
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3201	!
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3202
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3203	badIdentifierEmphasis
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3204	"the emphasis used for illegal identifiers;
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3205	If syntaxColoring is turned on."
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3206
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3207	^ self at:#badIdentifierEmphasis ifAbsent:[UserPreferences default at:#badIdentifierEmphasis ifAbsent:#normal]
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3208
b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3209	"Modified: / 21-04-2011 / 12:34:50 / cg"
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3210	!
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3211
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3212	booleanConstantColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3213	"the color used for boolean constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3214	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3215
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	3216	^ self at:#booleanConstantColor ifAbsent:[self constantColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3217
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3218	"Created: / 31.3.1998 / 18:12:06 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3219	"Modified: / 1.4.1998 / 13:20:07 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3220	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3221
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3222	booleanConstantEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3223	"the emphasis used for boolean constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3224	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3225
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	3226	^ self at:#booleanConstantEmphasis ifAbsent:[self constantEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3227
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3228	"Created: / 31.3.1998 / 18:12:46 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3229	"Modified: / 1.4.1998 / 13:26:01 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3230	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3231
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3232	bracketColor
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3233	"the color used for brackets;
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3234	If syntaxColoring is turned on."
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3235
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3236	^ self at:#bracketColor ifAbsent:[self defaultSyntaxColor]
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3237
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3238	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3239	self current at:#bracketColor put:Color red.
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3240	self current at:#bracketEmphasis put:#bold
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3241
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3242	self current bracketColor
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3243	self current bracketEmphasis
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3244	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3245
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3246	"Created: / 31.3.1998 / 19:11:38 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3247	"Modified: / 1.4.1998 / 13:22:33 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3248	!
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3249
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3250	bracketEmphasis
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3251	"the emphasis used for brackets;
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3252	If syntaxColoring is turned on."
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3253
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3254	^ self at:#bracketEmphasis ifAbsent:[self defaultSyntaxEmphasis]
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3255
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3256	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3257	self current at:#bracketEmphasis put:#bold
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3258	self current bracketEmphasis
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3259	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3260
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3261	"Created: / 31.3.1998 / 19:11:38 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3262	"Modified: / 1.4.1998 / 13:22:33 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3263	!
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3264
4320 9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3265	classVariableIdentifierColor
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3266	"the color used for classVar/classInstVar identifiers
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3267	If syntaxColoring is turned on."
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3268
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3269	^ self at:#classVariableIdentifierColor ifAbsent:[self globalIdentifierColor]
4320 9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3270
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3271	"Modified: / 1.4.1998 / 13:20:47 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3272	"Created: / 4.3.1999 / 12:50:31 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3273	!
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3274
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3275	classVariableIdentifierEmphasis
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3276	"the color used for classVar/classInstVar identifiers
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3277	If syntaxColoring is turned on."
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3278
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3279	^ self at:#classVariableIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
4320 9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3280
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3281	"Modified: / 1.4.1998 / 13:20:47 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3282	"Created: / 4.3.1999 / 12:50:31 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3283	!
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3284
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3285	collectionEnumerationSelectorColor
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3286	"the color used for some selected collection enumeration
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3287	selectors (such as collect:, select: etc.);
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3288	If syntaxColoring is turned on.
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3289	If left nil, the normal selector color is used."
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3290
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3291	^ self at:#collectionEnumerationSelectorColor ifAbsent:nil
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3292
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3293	"Created: / 14-02-2012 / 15:52:39 / cg"
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3294	!
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3295
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3296	collectionEnumerationSelectorEmphasis
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3297	"the color used for some selected collection enumeration
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3298	selectors (such as collect:, select: etc.);
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3299	If syntaxColoring is turned on.
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3300	If left nil, the normal selector emphasis is used."
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3301
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3302	^ self at:#collectionEnumerationSelectorEmphasis ifAbsent:nil
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3303
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3304	"Created: / 14-02-2012 / 15:58:58 / cg"
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3305	!
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3306
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3307	commentColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3308	"the color used for comments;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3309	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3310
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3311	^ self at:#commentColor ifAbsent:[UserPreferences default at:#commentColor ifAbsent:[Color black]]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3312
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3313	"Created: / 31-03-1998 / 15:10:23 / cg"
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3314	"Modified: / 21-04-2011 / 12:33:39 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3315	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3316
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3317	commentEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3318	"the emphasis used for comments;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3319	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3320
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3321	^ self at:#commentEmphasis ifAbsent:[UserPreferences default at:#commentEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3322
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3323	"Created: / 31-03-1998 / 15:09:59 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3324	"Modified: / 21-04-2011 / 12:34:48 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3325	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3326
5258 3490a1891a53 query added Claus Gittinger <cg@exept.de> parents: 5236 diff changeset	3327	commentEmphasisAndColor
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3328	^ self emphasis:(self commentEmphasis) andColor:(self commentColor).
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3329
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3330	"Modified: / 17-02-2011 / 14:20:41 / cg"
5258 3490a1891a53 query added Claus Gittinger <cg@exept.de> parents: 5236 diff changeset	3331	!
3490a1891a53 query added Claus Gittinger <cg@exept.de> parents: 5236 diff changeset	3332
15925 80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3333	commentFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3334	"the font used for comments; nil if no special font has been defined.
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3335	If syntaxColoring is turned on."
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3336
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3337	^ self at:#commentFont ifAbsent:nil
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3338	!
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3339
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3340	commentFont:aFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3341	"the font used for comments; nil if no special font has been defined.
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3342	If syntaxColoring is turned on."
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3343
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3344	self at:#commentFont put:aFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3345
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3346	"
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3347	UserPreferences current commentFont:(XftFontDescription family: 'Comic Sans' size: 12)
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3348	UserPreferences current commentFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3349	"
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3350	!
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3351
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3352	constantColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3353	"the color used for constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3354	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3355
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3356	^ self at:#constantColor ifAbsent:[UserPreferences default at:#constantColor ifAbsent:[Color black]]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3357
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3358	"Created: / 31-03-1998 / 18:13:15 / cg"
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3359	"Modified: / 21-04-2011 / 12:33:36 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3360	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3361
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3362	constantEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3363	"the emphasis used for constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3364	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3365
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3366	^ self at:#constantEmphasis ifAbsent:[self identifierEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3367
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3368	"Created: / 31.3.1998 / 18:13:23 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3369	"Modified: / 1.4.1998 / 13:25:43 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3370	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3371
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3372	controlFlowSelectorColor
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3373	"the color used for some selected controlFlow selectors (such as if, while etc.);
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3374	If syntaxColoring is turned on."
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3375
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3376	^ self at:#controlFlowSelectorColor ifAbsent:nil
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3377
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3378	"Created: / 08-09-2006 / 15:51:20 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3379	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3380
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3381	controlFlowSelectorEmphasis
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3382	"the emphasis used for some selected controlFlow selectors (such as if, while etc.);
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3383	If syntaxColoring is turned on."
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3384
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3385	^ self at:#controlFlowSelectorEmphasis ifAbsent:nil
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3386
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3387	"Created: / 08-09-2006 / 15:51:04 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3388	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3389
15545 afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3390	debugSelectorColor
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3391	"the color used for some selected debug
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3392	selectors (such as halt etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3393	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3394	If left nil, the normal selector color is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3395
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3396	^ self at:#debugSelectorColor ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3397	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3398
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3399	debugSelectorEmphasis
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3400	"the color used for some selected debug
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3401	selectors (such as halt etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3402	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3403	If left nil, the normal selector emphasis is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3404
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3405	^ self at:#debugSelectorEmphasis ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3406	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3407
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3408	defaultSyntaxColor
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3409	"the color used for anything else;
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3410	If syntaxColoring is turned on."
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3411
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3412	^ self at:#defaultSyntaxColor ifAbsent:[UserPreferences default at:#defaultSyntaxColor ifAbsent:[Color black]]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3413
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3414	"Modified: / 21-04-2011 / 12:31:48 / cg"
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3415	!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3416
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3417	defaultSyntaxEmphasis
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3418	"the emphasis used for anything else;
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3419	If syntaxColoring is turned on."
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3420
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3421	^ self
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3422	at:#defaultSyntaxEmphasis
0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3423	ifAbsent:[UserPreferences default at:#defaultSyntaxEmphasis ifAbsent:#normal]
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3424
b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3425	"Modified: / 21-04-2011 / 12:34:46 / cg"
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3426	!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3427
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3428	doesNotUnderstand:aMessage
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3429	\|k def numArgs\|
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3430
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3431	k := aMessage selector.
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3432	(numArgs := aMessage numArgs) == 0 ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3433	(self includesKey:k) ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3434	^ self at:k
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3435	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3436	((def := self class default) includesKey:k) ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3437	^ def at:k
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3438	].
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3439	^ self defaultValue
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3440	].
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3441
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3442	"/ this is needed, if a setting is loaded (via the settings.stx) at a time
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3443	"/ when the corresponding package which uses that setting is not yet loaded;
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3444	"/ for example: libsvn settings, with no libsvn being present.
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3445	"/ if obsolete keys accumulate over time, we might need a settings cleanup GUI to
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3446	"/ care for that.
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3447
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3448	((numArgs == 1) and:[ (k endsWith:$:)])
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3449	ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3450	k := (k copyButLast) asSymbol.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3451	^ self at:k put:(aMessage arg1)
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3452	].
6252 23fcbd461e9b checkin from browser Claus Gittinger <cg@exept.de> parents: 6177 diff changeset	3453
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3454	numArgs == 1 ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3455	('UserPreferences [info]: obsolete settings key: ' , aMessage selector , ' - ignored.') infoPrintCR.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	3456	^ nil
7272 a45033450ad8 * empty log message * penk parents: 7271 diff changeset	3457	].
6252 23fcbd461e9b checkin from browser Claus Gittinger <cg@exept.de> parents: 6177 diff changeset	3458
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3459	^ super doesNotUnderstand:aMessage
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3460
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3461	"Modified (comment): / 19-08-2011 / 14:01:56 / cg"
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3462	!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3463
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3464	emphasis:e andColor:c
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3465	^ Text addEmphasis:e to:(#color->c).
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3466
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3467	"Created: / 17-02-2011 / 14:20:25 / cg"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3468	!
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3469
8965 b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3470	emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3471	^ self at:#emphasizeParenthesisLevel ifAbsent:true
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3472
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3473	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3474	UserPreferences current emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3475	UserPreferences current emphasizeParenthesisLevel:true
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3476	UserPreferences current emphasizeParenthesisLevel:false
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3477	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3478	!
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3479
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3480	emphasizeParenthesisLevel:aBoolean
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3481	self at:#emphasizeParenthesisLevel put:aBoolean
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3482
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3483	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3484	UserPreferences current emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3485	UserPreferences current emphasizeParenthesisLevel:true
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3486	UserPreferences current emphasizeParenthesisLevel:false
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3487	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3488	!
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3489
4341 eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3490	errorColor
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3491	"the color used for illegal identifiers;
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3492	If syntaxColoring is turned on."
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3493
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3494	^ self at:#errorColor ifAbsent:[UserPreferences default at:#errorColor ifAbsent:[Color black]]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3495
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3496	"Modified: / 21-04-2011 / 12:33:33 / cg"
4341 eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3497	!
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3498
15545 afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3499	errorRaisingSelectorColor
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3500	"the color used for some selected error raising
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3501	selectors (such as raise etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3502	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3503	If left nil, the normal selector color is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3504
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3505	^ self at:#errorRaisingSelectorColor ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3506	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3507
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3508	errorRaisingSelectorEmphasis
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3509	"the color used for some selected error raising
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3510	selectors (such as raise etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3511	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3512	If left nil, the normal selector emphasis is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3513
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3514	^ self at:#errorRaisingSelectorEmphasis ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3515	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3516
4306 a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3517	fullSelectorCheck
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3518	"with fullSelector check, selectors are searched immediately for
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3519	being implemented in the system. This may not be useful on slow machines"
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3520
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3521	^ self at:#fullSelectorCheck ifAbsent:[UserPreferences default at:#fullSelectorCheck]
4306 a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3522
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3523	"Created: / 31.3.1998 / 15:09:41 / cg"
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3524	"Modified: / 1.4.1998 / 13:25:06 / cg"
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3525	!
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3526
4023 46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3527	globalClassIdentifierColor
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3528	"the color used for global identifiers which are known to be classes;
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3529	If syntaxColoring is turned on."
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3530
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3531	^ self at:#globalClassIdentifierColor ifAbsent:[self globalIdentifierColor]
4023 46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3532
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3533	"Modified: / 1.4.1998 / 13:20:47 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3534	"Created: / 4.3.1999 / 12:50:31 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3535	!
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3536
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3537	globalClassIdentifierEmphasis
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3538	"the emphasis used for global variable identifiers which are known to be classes;
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3539	If syntaxColoring is turned on."
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3540
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3541	^ self at:#globalClassIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
4023 46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3542
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3543	"Modified: / 1.4.1998 / 13:25:31 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3544	"Created: / 4.3.1999 / 12:51:00 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3545	!
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3546
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3547	globalIdentifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3548	"the color used for global identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3549	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3550
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3551	^ self at:#globalIdentifierColor ifAbsent:[self identifierColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3552
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3553	"Created: / 31.3.1998 / 15:18:49 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3554	"Modified: / 1.4.1998 / 13:20:47 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3555	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3556
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3557	globalIdentifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3558	"the emphasis used for global variable identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3559	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3560
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3561	^ self at:#globalIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3562
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3563	"Created: / 31.3.1998 / 15:18:29 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3564	"Modified: / 1.4.1998 / 13:25:31 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3565	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3566
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3567	hereColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3568	"the color used for the here pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3569	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3570
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3571	^ self at:#hereColor ifAbsent:[self selfColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3572
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3573	"Created: / 31.3.1998 / 17:38:09 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3574	"Modified: / 1.4.1998 / 13:20:57 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3575	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3576
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3577	hereEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3578	"the emphasis used for the hre special variable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3579	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3580
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3581	^ self at:#hereEmphasis ifAbsent:[self selfEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3582
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3583	"Created: / 31.3.1998 / 17:35:13 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3584	"Modified: / 1.4.1998 / 13:25:17 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3585	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3586
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3587	identifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3588	"the color used for other identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3589	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3590
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3591	^ self at:#identifierColor ifAbsent:[self defaultSyntaxColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3592
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3593	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3594	UserPreferences current at:#identifierColor put:Color green darkened darkened.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3595	UserPreferences current at:#identifierColor put:Color black.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3596	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3597
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3598	"Created: / 31.3.1998 / 17:35:55 / cg"
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3599	"Modified: / 2.4.1998 / 10:39:42 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3600	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3601
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3602	identifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3603	"the emphasis used for other identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3604	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3605
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3606	^ self at:#identifierEmphasis ifAbsent:[self defaultSyntaxEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3607
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3608	"Created: / 31.3.1998 / 15:09:41 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3609	"Modified: / 1.4.1998 / 13:25:06 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3610	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3611
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3612	instVarIdentifierColor
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3613	"the color used for instance variable identifiers;
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3614	If syntaxColoring is turned on."
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3615
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3616	^ self at:#instVarIdentifierColor ifAbsent:[self identifierColor]
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3617
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3618	"
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3619	UserPreferences current at:#instVarIdentifierColor put:Color green darkened.
92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3620	UserPreferences current at:#instVarIdentifierColor put:Color black.
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3621	UserPreferences current instVarIdentifierColor
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3622	"
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3623
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3624	"Created: / 16.4.1998 / 18:31:29 / cg"
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3625	"Modified: / 16.4.1998 / 18:57:06 / cg"
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3626	!
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3627
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3628	instVarIdentifierEmphasis
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3629	"the emphais used for instance variable identifiers;
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3630	If syntaxColoring is turned on."
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3631
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3632	^ self at:#instVarIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3633
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3634	"Modified: / 1.4.1998 / 13:24:42 / cg"
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3635	"Created: / 16.4.1998 / 18:40:05 / cg"
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3636	!
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3637
8420 08756fae71a0 prefs for js ca parents: 8252 diff changeset	3638	jsKeywordColor
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3639	^ self at:#jsKeywordColor ifAbsent:[self defaultSyntaxColor]
8420 08756fae71a0 prefs for js ca parents: 8252 diff changeset	3640	!
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3641
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3642	jsKeywordEmphasis
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3643	^ self at:#jsKeywordEmphasis ifAbsent:[self defaultSyntaxEmphasis]
8420 08756fae71a0 prefs for js ca parents: 8252 diff changeset	3644	!
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3645
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3646	localIdentifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3647	"the color used for local variable identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3648	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3649
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3650	^ self at:#localIdentifierColor ifAbsent:[self identifierColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3651
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3652	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3653	UserPreferences current at:#localIdentifierColor put:Color green darkened.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3654	UserPreferences current at:#localIdentifierColor put:Color black.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3655	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3656
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3657	"Created: / 31.3.1998 / 15:18:07 / cg"
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3658	"Modified: / 2.4.1998 / 10:40:05 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3659	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3660
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3661	localIdentifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3662	"the emphais used for local variable identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3663	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3664
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3665	^ self at:#localIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3666
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3667	"Created: / 31.3.1998 / 15:16:56 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3668	"Modified: / 1.4.1998 / 13:24:42 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3669	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3670
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3671	methodSelectorColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3672	"the color used for a methods selector pattern;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3673	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3674
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3675	^ self at:#methodSelectorColor ifAbsent:[self defaultSyntaxColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3676
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3677	"Created: / 31.3.1998 / 15:11:24 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3678	"Modified: / 1.4.1998 / 13:24:26 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3679	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3680
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3681	methodSelectorEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3682	"the emphasis used for a methods selector pattern;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3683	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3684
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3685	^ self at:#methodSelectorEmphasis ifAbsent:[UserPreferences default at:#methodSelectorEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3686
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3687	"Created: / 31-03-1998 / 15:11:16 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3688	"Modified: / 21-04-2011 / 12:34:42 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3689	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3690
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3691	numberConstantColor
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3692	"the color used for number constants;
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3693	If syntaxColoring is turned on."
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3694
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3695	^ self at:#numberConstantColor ifAbsent:[ self constantColor ]
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3696	!
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3697
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3698	numberConstantEmphasis
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3699	"the emphasis used for number constants;
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3700	If syntaxColoring is turned on."
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3701
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3702	^ self at:#numberConstantEmphasis ifAbsent:[ self constantEmphasis ]
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3703	!
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3704
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3705	poolVariableIdentifierColor
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3706	"the color used for pool variable identifiers
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3707	If syntaxColoring is turned on."
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3708
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3709	^ self at:#poolVariableIdentifierColor ifAbsent:[self globalIdentifierColor]
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3710	!
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3711
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3712	poolVariableIdentifierEmphasis
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3713	"the color used for pool variable identifiers
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3714	If syntaxColoring is turned on."
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3715
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3716	^ self at:#poolVariableIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3717	!
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3718
4076 96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3719	returnColor
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3720	"the color used for the return expression;
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3721	If syntaxColoring is turned on."
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3722
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3723	^ self at:#returnColor ifAbsent:[self defaultSyntaxColor]
4076 96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3724
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3725	"Modified: / 5.1.1980 / 00:43:52 / cg"
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3726	!
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3727
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3728	returnEmphasis
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3729	"the emphasis used for returns;
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3730	If syntaxColoring is turned on."
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3731
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3732	^ self at:#returnEmphasis ifAbsent:[#bold "self defaultSyntaxEmphasis"]
4076 96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3733
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3734	"Created: / 5.1.1980 / 00:43:39 / cg"
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3735	!
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3736
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3737	selectorColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3738	"the color used for message selectors;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3739	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3740
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3741	^ self at:#selectorColor ifAbsent:[self defaultSyntaxColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3742
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3743	"Created: / 31.3.1998 / 15:19:19 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3744	"Modified: / 1.4.1998 / 13:24:04 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3745	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3746
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3747	selectorEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3748	"the emphasis used for message selectors;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3749	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3750
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3751	^ self at:#selectorEmphasis ifAbsent:[UserPreferences default at:#selectorEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3752
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3753	"Created: / 31-03-1998 / 15:19:09 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3754	"Modified: / 21-04-2011 / 12:34:39 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3755	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3756
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3757	selfColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3758	"the color used for the self pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3759	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3760
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3761	^ self at:#selfColor ifAbsent:[self identifierColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3762
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3763	"Created: / 31.3.1998 / 17:35:45 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3764	"Modified: / 1.4.1998 / 13:21:07 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3765	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3766
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3767	selfEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3768	"the emphasis used for the self pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3769	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3770
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3771	^ self at:#selfEmphasis ifAbsent:[self identifierEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3772
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3773	"Created: / 31.3.1998 / 17:34:57 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3774	"Modified: / 1.4.1998 / 13:21:51 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3775	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3776
14004 a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3777	sideEffectAssignmentBackgroundColor
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3778	"the bg-color used for assignments with side effect (i.e. to instvars, globals, classvars or pool vars).
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3779	If nil is returned, the variable's color is used"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3780
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3781	^ self at:#sideEffectAssignmentBackgroundColor ifAbsent:[ nil ]
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3782
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3783	"Created: / 13-02-2012 / 11:35:20 / cg"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3784	!
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3785
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3786	sideEffectAssignmentColor
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3787	"the color used for assignments with side effect (i.e. to instvars, globals, classvars or pool vars).
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3788	If nil is returned, the variable's color is used"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3789
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3790	^ self at:#sideEffectAssignmentColor ifAbsent:[ nil ]
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3791
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3792	"Created: / 13-02-2012 / 11:35:09 / cg"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3793	!
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3794
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3795	stringColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3796	"the color used for string constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3797	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3798
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	3799	^ self at:#stringColor ifAbsent:[self constantColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3800
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3801	"Created: / 31.3.1998 / 15:19:50 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3802	"Modified: / 1.4.1998 / 13:22:06 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3803	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3804
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3805	stringEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3806	"the emphasis used for string constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3807	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3808
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3809	^ self at:#stringEmphasis ifAbsent:[self constantEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3810
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3811	"Created: / 31.3.1998 / 15:19:09 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3812	"Modified: / 1.4.1998 / 13:22:00 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3813	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3814
13308 d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3815	stringEmphasisAndColor
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3816	^ self emphasis:(self stringEmphasis) andColor:(self stringColor).
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3817
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3818	"Created: / 17-02-2011 / 14:29:10 / cg"
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3819	!
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3820
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3821	superColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3822	"the color used for the super pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3823	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3824
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3825	^ self at:#superColor ifAbsent:[self selfColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3826
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3827	"Created: / 31.3.1998 / 17:37:56 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3828	"Modified: / 1.4.1998 / 13:21:15 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3829	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3830
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3831	superEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3832	"the emphasis used for the super pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3833	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3834
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3835	^ self at:#superEmphasis ifAbsent:[self selfEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3836
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3837	"Created: / 31.3.1998 / 17:35:08 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3838	"Modified: / 1.4.1998 / 13:21:41 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3839	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3840
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3841	symbolColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3842	"the color used for symbol constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3843	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3844
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	3845	^ self at:#symbolColor ifAbsent:[self constantColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3846
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3847	"Created: / 1.4.1998 / 12:57:35 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3848	"Modified: / 1.4.1998 / 13:22:16 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3849	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3850
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3851	symbolEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3852	"the emphasis used for symbol constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3853	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3854
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3855	^ self at:#symbolEmphasis ifAbsent:[self constantEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3856
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3857	"Created: / 1.4.1998 / 12:57:43 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3858	"Modified: / 1.4.1998 / 13:23:43 / cg"
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3859	!
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3860
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3861	thisContextColor
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3862	"the color used for the thisContext pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3863	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3864
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3865	^ self at:#thisContextColor ifAbsent:[self identifierColor]
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3866
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3867	"Created: / 31.3.1998 / 17:37:49 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3868	"Modified: / 1.4.1998 / 13:21:24 / cg"
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3869	!
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3870
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3871	thisContextEmphasis
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3872	"the emphasis used for the thisContext pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3873	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3874
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3875	^ self at:#thisContextEmphasis ifAbsent:[self identifierEmphasis]
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3876
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3877	"Created: / 31.3.1998 / 17:35:27 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3878	"Modified: / 1.4.1998 / 13:21:30 / cg"
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3879	!
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3880
4316 c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3881	unimplementedSelectorColor
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3882	"the color used for bad message selectors;
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3883	If syntaxColoring is turned on."
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3884
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3885	^ self at:#unimplementedSelectorColor ifAbsent:[UserPreferences default at:#unimplementedSelectorColor ifAbsent:[Color black]]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3886
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3887	"Modified: / 21-04-2011 / 12:33:29 / cg"
4316 c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3888	!
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3889
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3890	unimplementedSelectorEmphasis
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3891	"the emphasis used for bad message selectors;
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3892	If syntaxColoring is turned on."
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3893
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3894	^ self at:#unimplementedSelectorEmphasis ifAbsent:[UserPreferences default at:#unimplementedSelectorEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3895
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3896	"Created: / 31-03-1998 / 15:19:09 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3897	"Modified: / 21-04-2011 / 12:34:36 / cg"
4316 c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3898	!
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3899
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3900	unknownIdentifierColor
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3901	"the color used for unknown identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3902	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3903
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3904	^ self at:#unknownIdentifierColor ifAbsent:[self badIdentifierColor]
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3905
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3906	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3907	self current at:#unknownIdentifierColor put:Color red.
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3908	self current at:#unknownIdentifierEmphasis put:#bold
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3909
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3910	self current unknownIdentifierColor
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3911	self current unknownIdentifierEmphasis
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3912	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3913
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3914	"Created: / 31.3.1998 / 19:11:38 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3915	"Modified: / 1.4.1998 / 13:22:33 / cg"
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3916	!
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3917
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3918	unknownIdentifierEmphasis
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3919	"the emphasis used for unknown identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3920	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3921
19255 0796978111de #REFACTORING Claus Gittinger <cg@exept.de> parents: 19087 diff changeset	3922	^ self at:#unknownIdentifierEmphasis ifAbsent:[self badIdentifierEmphasis]
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3923
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3924	"Created: / 31.3.1998 / 19:11:55 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3925	"Modified: / 1.4.1998 / 13:22:45 / cg"
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3926	!
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3927
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3928	xmlAttributeColor
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3929	"the emphasis used for xml-attributes;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3930	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3931
18804 f8c6e2e7ba78 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18690 diff changeset	3932	^ self at:#xmlAttributeColor ifAbsent:[ Color green darkened ]
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3933
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3934	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3935	self current at:#xmlAttributeColor put:Color black
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3936	self current xmlAttributeColor
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3937	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3938
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3939	"Created: / 24-07-2011 / 21:30:59 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3940	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3941
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3942	xmlAttributeEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3943	"the emphasis used for xml-attributes;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3944	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3945
18804 f8c6e2e7ba78 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18690 diff changeset	3946	^ self at:#xmlAttributeEmphasis ifAbsent:[ #bold "#normal" ]
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3947
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3948	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3949	self current at:#xmlAttributeEmphasis put:#normal
18804 f8c6e2e7ba78 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18690 diff changeset	3950	self current at:#xmlAttributeEmphasis put:#bold
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3951	self current xmlAttributeEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3952	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3953
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3954	"Created: / 24-07-2011 / 21:30:29 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3955	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3956
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3957	xmlCDataColor
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3958	"the emphasis used for xml-CData;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3959	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3960
18804 f8c6e2e7ba78 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18690 diff changeset	3961	^ self at:#xmlCDataColor ifAbsent:[ Color blue ]
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3962
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3963	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3964	self current at:#xmlCDataColor put:Color black
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3965	self current xmlCDataColor
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3966	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3967
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3968	"Created: / 24-07-2011 / 21:31:30 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3969	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3970
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3971	xmlCDataEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3972	"the emphasis used for xml-CData;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3973	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3974
18804 f8c6e2e7ba78 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18690 diff changeset	3975	^ self at:#xmlCDataEmphasis ifAbsent:[ #normal ]
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3976
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3977	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3978	self current at:#xmlCDataEmphasis put:#normal
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3979	self current xmlCDataEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3980	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3981
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3982	"Created: / 24-07-2011 / 21:31:52 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3983	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3984
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3985	xmlTagColor
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3986	"the emphasis used for xml-tags;
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3987	If syntaxColoring is turned on."
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3988
18804 f8c6e2e7ba78 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18690 diff changeset	3989	^ self at:#xmlTagColor ifAbsent:[ Color blue ]
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3990
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3991	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3992	self current at:#xmlTagColor put:Color black
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3993	self current xmlTagColor
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3994	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3995
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3996	"Created: / 17-02-2011 / 14:18:28 / cg"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3997	!
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3998
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3999	xmlTagEmphasis
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4000	"the emphasis used for xml-tags;
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4001	If syntaxColoring is turned on."
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4002
18804 f8c6e2e7ba78 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 18690 diff changeset	4003	^ self at:#xmlTagEmphasis ifAbsent:[ #bold ]
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4004
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4005	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4006	self current at:#xmlTagEmphasis put:#normal
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4007	self current xmlTagEmphasis
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4008	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4009
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	4010	"Created: / 17-02-2011 / 14:18:01 / cg"
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4011	! !
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4012
19472 1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4013	!UserPreferences methodsFor:'accessing-prefs-changes & history'!
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4014
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4015	historyManagerAllowEditOfHistory:aBoolean
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4016	"useful if you have 'beginner students', to prevent them from changing the history"
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4017
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4018	self
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4019	at: #'history-manager.allow-edit-of-history'
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4020	put:aBoolean
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4021	! !
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4022
8232 371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	4023	!UserPreferences methodsFor:'accessing-prefs-code'!
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	4024
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	4025	categoryForMenuActionsMethods
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	4026	^ 'menu actions'.
12117 5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	4027	!
5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	4028
15715 88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4029	haltInObsoleteMethod
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4030	"sometimes, these are annoying..."
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4031
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4032	^ self at:#haltInObsoleteMethod ifAbsent:true
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4033
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4034	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4035	UserPreferences current haltInObsoleteMethod
15715 88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4036
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4037	UserPreferences current haltInObsoleteMethod:true
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4038	UserPreferences current haltInObsoleteMethod:false
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4039	"
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4040	!
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	4041
13722 1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4042	ignorePublicPrivateCategories
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4043	"used when loading dolphin code (which defines multiple categories per method);
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4044	if on, categories like public and private are ignored (if the method already has a category).
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4045	Turn this on, to get reasonable categories when loading dolphin code"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4046
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4047	^ self at:#ignorePublicPrivateCategories ifAbsent:true
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4048
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4049	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4050	UserPreferences current ignorePublicPrivateCategories
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4051	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4052
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4053	"Created: / 23-09-2011 / 19:49:37 / cg"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4054	!
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4055
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4056	ignorePublicPrivateCategories:aBoolean
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4057	"used when loading dolphin code (which defines multiple categories per method);
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4058	if on, categories like public and private are ignored (if the method already has a category).
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4059	Turn this on, to get reasonable categories when loading dolphin code"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4060
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4061	self at:#ignorePublicPrivateCategories put:aBoolean
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4062
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4063	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4064	UserPreferences current ignorePublicPrivateCategories
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4065	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4066
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4067	"Created: / 23-09-2011 / 19:49:54 / cg"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4068	!
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	4069
12618 2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4070	keepMethodSourceCode
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4071	"when fetching the source from a file/cvs, should the source be kept in the image ?
12619 baba8c6085e2 comment/format in: Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	4072	If on, the image will grow over time by about 10-20 Mb.
baba8c6085e2 comment/format in: Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	4073	(will stay that high, even if switched off afterwards)"
12618 2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4074
19755 6f0e180f46a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19700 diff changeset	4075	"/ changed to always cache the sources.
6f0e180f46a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19700 diff changeset	4076	"/ these days, memory is so cheap (times of 4Mb machines are gone)
6f0e180f46a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19700 diff changeset	4077	^ self at:#keepMethodSourceCode ifAbsent:true
12618 2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4078
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4079	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4080	UserPreferences current keepMethodSourceCode
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4081	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4082	!
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4083
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4084	keepMethodSourceCode:aBoolean
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4085	"when fetching the source from a file/cvs, should the source be kept in the image ?
12619 baba8c6085e2 comment/format in: Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	4086	If on, the image will grow over time by about 10-20 Mb.
baba8c6085e2 comment/format in: Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	4087	(will stay that high, even if switched off afterwards)"
12618 2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4088
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4089	^ self at:#keepMethodSourceCode put:aBoolean
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4090
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4091	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4092	UserPreferences current keepMethodSourceCode
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4093	UserPreferences current keepMethodSourceCode:true
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4094	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4095	!
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	4096
12117 5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	4097	numberOfLinesForLongMethod
5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	4098	"how many lines for a method's source to be considered as 'long'"
5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	4099
12175 d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	4100	^ self at:#numberOfLinesForLongMethod ifAbsent:30
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	4101
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	4102	"
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	4103	UserPreferences current numberOfLinesForLongMethod
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	4104	"
8232 371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	4105	! !
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	4106
12501 0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4107	!UserPreferences methodsFor:'accessing-prefs-code generator'!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4108
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4109	generateComments
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4110	"return true; comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4111
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4112	^ self at:#generateComments ifAbsent:true.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4113
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4114	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4115	UserPreferences current generateComments
12501 0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4116	UserPreferences current generateComments:false
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4117	UserPreferences current generateComments:true
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4118	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4119	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4120
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4121	generateComments:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4122	"true if comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4123
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4124	self at:#generateComments put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4125
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4126	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4127	UserPreferences current generateComments
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4128	UserPreferences current generateComments:false
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4129	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4130	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4131
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4132	generateCommentsForAspectMethods
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4133	"return true; comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4134
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4135	^ self at:#generateCommentsForAspectMethods ifAbsent:true.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4136
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4137	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4138	UserPreferences current generateCommentsForAspectMethods
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4139	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4140	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4141
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4142	generateCommentsForAspectMethods:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4143	"true if comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4144
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4145	self at:#generateCommentsForAspectMethods put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4146
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4147	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4148	UserPreferences current generateCommentsForAspectMethods:false
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4149	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4150	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4151
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4152	generateCommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4153	"return true if comments for simple getters are to be generated (by the codeGenerator tool).
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4154	The default is now false, as these look stupid in the browser and were only generated
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4155	for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4156
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4157	^ self generateComments and:[self at:#generateCommentsForGetters ifAbsent:false].
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4158
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4159	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4160	UserPreferences current generateCommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4161	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4162	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4163
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4164	generateCommentsForGetters:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4165	"true if comments for simple getters are to be generated (by the codeGenerator tool).
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4166	The default is now false, as these look stupid in the browser and were only generated
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4167	for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4168
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4169	self at:#generateCommentsForGetters put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4170
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4171	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4172	UserPreferences current generateCommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4173	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4174	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4175
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4176	generateCommentsForSetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4177	"return true if comments for simple setters are to be generated (by the codeGenerator tool).
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4178	The default is now false, as these look stupid in the browser and were only generated
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4179	for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4180
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4181	^ self generateComments and:[self at:#generateCommentsForSetters ifAbsent:false].
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4182
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4183	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4184	UserPreferences current generateCommentsForSetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4185	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4186	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4187
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4188	generateCommentsForSetters:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4189	"true if comments for simple setters are to be generated (by the codeGenerator tool).
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4190	The default is now false, as these look stupid in the browser and were only generated
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4191	for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4192
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4193	self at:#generateCommentsForSetters put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4194
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4195	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4196	UserPreferences current generateSommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4197	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4198	! !
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	4199
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4200	!UserPreferences methodsFor:'accessing-prefs-code view'!
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4201
15426 8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	4202	assignmentBackgroundColorForNavigationService
8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	4203	^ (Color rgbValue:16rFFDBDB)
8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	4204	!
8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	4205
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4206	codeView2AutoPrettyPrint
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4207
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4208	^self at:#codeView2AutoPrettyPrint ifAbsent: false
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4209
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4210	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4211	UserPreferences current codeView2AutoPrettyPrint
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4212	UserPreferences current codeView2AutoPrettyPrint:true
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4213	UserPreferences current codeView2AutoPrettyPrint:false"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4214
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4215	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4216	"Created: / 07-08-2011 / 12:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4217	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4218
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4219	codeView2AutoPrettyPrint: aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4220
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4221	^self at:#codeView2AutoPrettyPrint put: aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4222
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4223	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4224	UserPreferences current codeView2AutoPrettyPrint
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4225	UserPreferences current codeView2AutoPrettyPrint:true
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4226	UserPreferences current codeView2AutoPrettyPrint:false"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4227
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4228	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4229	"Created: / 07-08-2011 / 12:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4230	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	4231
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4232	codeView2QuickSendersAndImplementorsOnControl
14733 d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4233	"if true, CTRL-click opens the quick senders/implementors menu;
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4234	if false, you have to press ALT"
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4235
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4236	^self at:#codeView2QuickSendersAndImplementorsOnControl ifAbsent: false
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4237
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4238	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4239	UserPreferences current codeView2QuickSendersAndImplementorsOnControl
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4240	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:true
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4241	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:false"
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4242	!
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4243
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4244	codeView2QuickSendersAndImplementorsOnControl: aBoolean
14733 d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4245	"if true, CTRL-click opens the quick senders/implementors menu;
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4246	if false, you have to press ALT"
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4247
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4248	^self at:#codeView2QuickSendersAndImplementorsOnControl put: aBoolean
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4249
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4250	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4251	UserPreferences current codeView2QuickSendersAndImplementorsOnControl
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4252	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:true
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4253	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:false"
14915 a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4254	!
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4255
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4256	selectorBackgroundColorForNavigationService
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4257	^ (Color rgbValue:"16rADD9FF" 16rDBEEFF)
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4258	!
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4259
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4260	variableBackgroundColorForNavigationService
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4261	^ self
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4262	at: #variableBackgroundColorForNavigationService
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4263	ifAbsent: [
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4264	(Color rgbValue:16rFFFFA7)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4265	"/ (Color rgbValue:16rEFD7A7)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4266	]
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	4267
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	4268	"Modified: / 01-10-2013 / 11:35:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4269	! !
13547 f08daec3c459 changed: #historyManagerSignature Claus Gittinger <cg@exept.de> parents: 13523 diff changeset	4270
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4271	!UserPreferences methodsFor:'accessing-prefs-defaultPackages'!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4272
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4273	addPreloadedPackage:packageName
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4274	"add this to the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4275	This will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4276
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4277	(self at:#preloadedPackages ifAbsentPut:[Set new]) add:packageName.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4278	Smalltalk loadPackage:packageName.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4279
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4280	"
18557 cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4281	UserPreferences current preloadedPackages
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4282
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4283	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4284	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4285	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4286	!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4287
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4288	preloadedPackages
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4289	"the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4290	These will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4291
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4292	^ self at:#preloadedPackages ifAbsent:[ #() ].
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4293
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4294	"
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4295	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4296	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4297	UserPreferences current preloadedPackages
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4298	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4299	!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4300
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4301	preloadedPackages:setOfPreloadedPackages
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4302	"define the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4303	This will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4304
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4305	\|set\|
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4306
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4307	set := setOfPreloadedPackages asSet.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4308	self at:#preloadedPackages put:set.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4309	set do:[:each \|
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4310	Smalltalk loadPackage:each
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4311	].
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4312
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4313	"
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4314	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4315	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4316	UserPreferences current preloadedPackages
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4317	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4318	!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4319
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4320	removePreloadedPackage:packageName
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4321	"remove this from the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4322	This will be no longer be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4323
18557 cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4324	\|preloaded\|
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4325
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4326	preloaded := self at:#preloadedPackages ifAbsent:[nil].
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4327	preloaded notNil ifTrue:[
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4328	preloaded remove:packageName ifAbsent:[]
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4329	].
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4330
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4331	"
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4332	UserPreferences current preloadedPackages
cee27e3e432e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18550 diff changeset	4333
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4334	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4335	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4336	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4337	! !
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4338
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4339	!UserPreferences methodsFor:'accessing-prefs-editor'!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4340
15913 9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4341	appendAbbreviationsToCompletionSuggestions
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4342	"show abbreviations in completion"
15913 9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4343
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4344	^ self at:#appendAbbreviationsToCompletionSuggestions ifAbsent:false
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4345
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4346	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4347	UserPreferences current appendAbbreviationsToCompletionSuggestions
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4348	UserPreferences current appendAbbreviationsToCompletionSuggestions:true
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4349	UserPreferences current appendAbbreviationsToCompletionSuggestions:false
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4350	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4351	!
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4352
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4353	appendAbbreviationsToCompletionSuggestions:aBoolean
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4354	"show abbreviations in completion"
15913 9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4355
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4356	^ self at:#appendAbbreviationsToCompletionSuggestions put:aBoolean
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4357
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4358	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4359	UserPreferences current appendAbbreviationsToCompletionSuggestions
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4360	UserPreferences current appendAbbreviationsToCompletionSuggestions:true
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4361	UserPreferences current appendAbbreviationsToCompletionSuggestions:false
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4362	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4363	!
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4364
15742 47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4365	codeCompletionOnControlKey
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4366	"show completion with CTRL-key - experimental"
15742 47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4367
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4368	^ self at:#codeCompletionOnControlKey ifAbsent:false
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4369
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4370	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4371	UserPreferences current codeCompletionOnControlKey
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4372	UserPreferences current codeCompletionOnControlKey:true
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4373	UserPreferences current codeCompletionOnControlKey:false
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4374	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4375	!
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4376
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4377	codeCompletionOnControlKey:aBoolean
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4378	"show completion with CTRL key - experimental"
15742 47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4379
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4380	^ self at:#codeCompletionOnControlKey put:aBoolean
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4381
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4382	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4383	UserPreferences current codeCompletionOnControlKey
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4384	UserPreferences current codeCompletionOnControlKey:true
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4385	UserPreferences current codeCompletionOnControlKey:false
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4386	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4387	!
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4388
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4389	codeCompletionOnTabKey
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4390	"show completion with TAB-key - experimental"
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4391
15767 169f9c6acec2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15748 diff changeset	4392	^ self at:#codeCompletionOnTabKey ifAbsent:true
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4393
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4394	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4395	UserPreferences current codeCompletionOnTabKey
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4396	UserPreferences current codeCompletionOnTabKey:true
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4397	UserPreferences current codeCompletionOnTabKey:false
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4398	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4399	!
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4400
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4401	codeCompletionOnTabKey:aBoolean
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4402	"show completion with TAB-key - experimental"
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4403
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4404	self at:#codeCompletionOnTabKey put:aBoolean
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4405
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4406	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4407	UserPreferences current codeCompletionOnTabKey
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4408	UserPreferences current codeCompletionOnTabKey:true
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4409	UserPreferences current codeCompletionOnTabKey:false
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4410	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4411	!
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4412
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4413	codeCompletionViewKeyboardNavigationNeedsModifier
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4414	"if you find it annoying, that cursor up/down is intercepted by a floating
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4415	completion view, set this to true. Then cursor up/down are only passed to the completion
16585 a3ad6aafc186 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16584 diff changeset	4416	view if a shift- or control modifier is pressed.
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4417	The default is false for backward compatibility"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4418
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4419	^ self at:#codeCompletionViewKeyboardNavigationNeedsModifier ifAbsent:[false]
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4420
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4421	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4422	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4423	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:true
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4424	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:false
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4425	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4426	!
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4427
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4428	codeCompletionViewKeyboardNavigationNeedsModifier:aBoolean
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4429	"if you find it annoying, that cursor up/down is intercepted by a floating
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4430	completion view, set this to true. Then cursor up/down are only passed to the completion
16585 a3ad6aafc186 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16584 diff changeset	4431	view if a shift- or control modifier is pressed.
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4432	The default is false for backward compatibility"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4433
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4434	self at:#codeCompletionViewKeyboardNavigationNeedsModifier put:aBoolean
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4435
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4436	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4437	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4438	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:true
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4439	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:false
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4440	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4441	!
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4442
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4443	deleteSetsClipboardText
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4444	"if true, a delete also updates the clipboard with the deleted text"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4445
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4446	^ self at:#deleteSetsClipboardText ifAbsent:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4447
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4448	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4449	UserPreferences current deleteSetsClipboardText
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4450	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4451	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4452
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4453	deleteSetsClipboardText:aBooleanOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4454	"if true, a delete also updates the clipboard with the deleted text"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4455
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4456	^ self at:#deleteSetsClipboardText put:aBooleanOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4457
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4458	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4459	UserPreferences current deleteSetsClipboardTextdeleteSetsClipboardText:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4460	UserPreferences current deleteSetsClipboardText:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4461	UserPreferences current deleteSetsClipboardText
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4462	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4463	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4464
11897 e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4465	enforcedDropModeForFiles
12930 bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4466	"when dropping a file, paste the #name, the #contents or ask ?
11897 e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4467	(default is nil, for ask)"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4468
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4469	^ self at:#enforcedDropModeForFiles ifAbsent:nil
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4470
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4471	"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4472	UserPreferences current enforcedDropModeForFiles
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4473	"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4474	!
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4475
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4476	enforcedDropModeForFiles:aSymbolOrNil
12930 bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4477	"when dropping a file, paste the #name, the #contents or ask ?
11897 e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4478	(default is nil, for ask)"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4479
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4480	^ self at:#enforcedDropModeForFiles put:aSymbolOrNil
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4481
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4482	"
12930 bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4483	UserPreferences current enforcedDropModeForFiles:#contents
bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4484	UserPreferences current enforcedDropModeForFiles:#name
11897 e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4485	"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4486	!
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4487
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4488	extendedWordSelectMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4489	"when double clicking, include underscore, dollar and at-character as word-characters ?
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4490	(default is on)"
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4491
10310 89d972739353 extendedWordSelectMode (underline in word) defaults to true Claus Gittinger <cg@exept.de> parents: 10240 diff changeset	4492	^ self at:#extendedWordSelectMode ifAbsent:true
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4493
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4494	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4495	UserPreferences current extendedWordSelectMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4496	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4497
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4498	"Created: / 03-07-2006 / 16:49:58 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4499	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4500
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4501	extendedWordSelectMode:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4502	"when double clicking, include underscore, dollar and at-character as word-characters ?
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4503	(default is on)"
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4504
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4505	^ self at:#extendedWordSelectMode put:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4506
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4507	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4508	UserPreferences current extendedWordSelectMode:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4509	UserPreferences current extendedWordSelectMode:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4510	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4511
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4512	"Created: / 03-07-2006 / 16:50:20 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4513	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4514
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4515	immediateCodeCompletion
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4516	"show completion, as you type - experimental"
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4517
19684 95ecd59eca16 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 19634 diff changeset	4518	^ self at:#immediateCodeCompletion ifAbsent:true "false"
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4519
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4520	"
15725 a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4521	UserPreferences current immediateCodeCompletion
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4522	UserPreferences current immediateCodeCompletion:true
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4523	UserPreferences current immediateCodeCompletion:false
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4524	"
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4525	!
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4526
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4527	immediateCodeCompletion:aBoolean
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4528	"show completion, as you type - experimental"
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4529
15726 a38e1e075388 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15725 diff changeset	4530	^ self at:#immediateCodeCompletion put:aBoolean
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4531
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4532	"
15725 a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4533	UserPreferences current immediateCodeCompletion
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4534	UserPreferences current immediateCodeCompletion:true
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4535	UserPreferences current immediateCodeCompletion:false
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4536	"
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4537	!
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4538
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4539	numberOfRememberedUndoOperationsInEditor
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4540	"the number of possible undo-operations.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4541	Nil means: unlimited.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4542	Notice: you may run out of memory, if editing a lot and the number of undos is not limited."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4543
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4544	^ self at:#numberOfRememberedUndoOperationsInEditor ifAbsent:nil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4545
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4546	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4547	UserPreferences current numberOfRememberedUndoOperationsInEditor
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4548	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4549
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4550	"Modified: / 09-10-2006 / 11:01:35 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4551	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4552
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4553	numberOfRememberedUndoOperationsInEditor:aNumberOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4554	"the number of possible undo-operations.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4555	Nil means: unlimited.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4556	Notice: you may run out of memory, if editing a lot and the number of undos is not limited."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4557
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4558	^ self at:#numberOfRememberedUndoOperationsInEditor put:aNumberOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4559
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4560	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4561	UserPreferences current numberOfRememberedUndoOperationsInEditor:20
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4562	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4563
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4564	"Created: / 09-10-2006 / 11:00:56 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4565	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4566
14052 7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4567	selectAllWhenClickingBeyondEnd
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4568	"select mode, when clicking after the end of text,
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4569	as in st80 (or squeak), select all"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4570
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4571	^ self at:#selectAllWhenClickingBeyondEnd ifAbsent:false
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4572
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4573	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4574	UserPreferences current selectAllWhenClickingBeyondEnd
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4575	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4576
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4577	"Created: / 07-03-2012 / 14:00:17 / cg"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4578	!
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4579
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4580	selectAllWhenClickingBeyondEnd:aBoolean
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4581	"select mode, when clicking after the end of text,
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4582	as in st80 (or squeak), select all"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4583
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4584	^ self at:#selectAllWhenClickingBeyondEnd put:aBoolean
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4585
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4586	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4587	UserPreferences current selectAllWhenClickingBeyondEnd:true
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4588	UserPreferences current selectAllWhenClickingBeyondEnd:false
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4589	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4590
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4591	"Created: / 07-03-2012 / 14:00:23 / cg"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4592	!
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4593
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4594	selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4595	"Returns selection extension mode. Mode is either
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4596
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4597	#traditional ... Shift-End always moves end of selection (iff it is on the same line)
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4598	Shift->Home always moves beggining of selection (iff it is on the same line)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4599	That's how CG likes it.
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4600
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4601	#standard ... That's how vast majority text editors and text widgets behaves, therefore
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4602	this is how most users expects it to behave.
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4603
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4604
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4605	For historical reasons, #traditional is the default..."
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4606
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4607	^ self at: #selectionExtensionMode ifAbsent:[ #traditional ]
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4608
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4609
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4610
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4611	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4612	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4613
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4614	UserPreferences current selectionExtensionMode:#traditional
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4615	UserPreferences current selectionExtensionMode:#standard
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4616	UserPreferences current selectionExtensionMode:nil
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4617
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4618	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4619
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4620	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4621
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4622	"Created: / 27-03-2014 / 09:19:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4623	!
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4624
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4625	selectionExtensionMode: aSymbol
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4626	"Sets selection extension mode. Must be either:
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4627
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4628	#traditional ... Shift-End always moves end of selection (iff it is on the same line)
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4629	Shift->Home always moves beggining of selection (iff it is on the same line)
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4630	That's how CG likes it.
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4631
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4632	#standard ... That's how vast majority text editors and text widgets behaves, therefore
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4633	this is how most users expects it to behave.
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4634
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4635
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4636	For historical reasons, #traditional is the default..."
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4637
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4638	aSymbol isNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4639	self removeKey:#selectionExtensionMode.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4640	^ self.
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4641	].
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4642
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4643	(#(traditional standard) includes: aSymbol) ifFalse:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	4644	self error:'Invalid value. Possible values are #traditional and #standard'.
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4645	].
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4646	self at: #selectionExtensionMode put: aSymbol
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4647
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4648
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4649
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4650	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4651	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4652
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4653	UserPreferences current selectionExtensionMode:#traditional
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4654	UserPreferences current selectionExtensionMode:#standard
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4655	UserPreferences current selectionExtensionMode:nil
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4656
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4657	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4658
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4659	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4660
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4661	"Created: / 27-03-2014 / 09:18:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4662	!
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4663
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4664	st80EditMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4665	"editing as in st80 (do not allow cursor beyond endOfLine/endOftext)."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4666
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4667	^ self at:#st80EditMode ifAbsent:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4668
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4669	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4670	UserPreferences current st80EditMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4671	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4672	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4673
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4674	st80EditMode:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4675	"editing as in st80 (do not allow cursor beyond endOfLine/endOftext)."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4676
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4677	^ self at:#st80EditMode put:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4678
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4679	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4680	UserPreferences current st80EditMode:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4681	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4682	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4683
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4684	st80SelectMode
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4685	"select mode, when double clicking as in st80
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4686	(select to corresponding lparen/double-quote) ?"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4687
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4688	^ self at:#st80SelectMode ifAbsent:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4689
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4690	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4691	UserPreferences current st80SelectMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4692	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4693
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4694	"Created: / 03-07-2006 / 16:25:19 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4695	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4696
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4697	st80SelectMode:aBoolean
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4698	"select mode, when double clicking as in st80
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4699	(select to corresponding lparen/double-quote)."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4700
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4701	^ self at:#st80SelectMode put:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4702
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4703	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4704	UserPreferences current st80SelectMode:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4705	UserPreferences current st80SelectMode:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4706	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4707
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4708	"Created: / 03-07-2006 / 16:25:27 / cg"
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4709	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4710
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4711	whitespaceWordSelectMode
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4712	"when double clicking, treat ANY non-whitespace as word-characters ?
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4713	(default is off)"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4714
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4715	^ self at:#whitespaceWordSelectMode ifAbsent:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4716
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4717	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4718	UserPreferences current whitespaceWordSelectMode
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4719	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4720
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4721	"Created: / 03-07-2006 / 16:49:58 / cg"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4722	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4723
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4724	whitespaceWordSelectMode:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4725	"when double clicking, treat ANY non-whitespace as word-characters ?
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4726	(default is off)"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4727
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4728	^ self at:#whitespaceWordSelectMode put:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4729
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4730	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4731	UserPreferences current whitespaceWordSelectMode:true
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4732	UserPreferences current whitespaceWordSelectMode:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4733	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4734
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4735	"Created: / 03-07-2006 / 16:50:20 / cg"
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4736	! !
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4737
18920 e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4738	!UserPreferences methodsFor:'accessing-prefs-external tools'!
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4739
19386 0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4740	defaultFileOpenCommandFor:suffix
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4741	"for the fileBrowser - remember which command to use as-per suffix"
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4742
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4743	^ (self at:#defaultFileOpenCommands ifAbsentPut:[Dictionary new])
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4744	at:suffix ifAbsent:nil
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4745	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4746
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4747	defaultFileOpenCommandFor:suffix put:openCmd
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4748	"for the fileBrowser - remember which command to use as-per suffix"
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4749
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4750	(self at:#defaultFileOpenCommands ifAbsentPut:[Dictionary new])
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4751	at:suffix put:openCmd
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4752	!
0fc2c8343a5a #FEATURE Claus Gittinger <cg@exept.de> parents: 19310 diff changeset	4753
18920 e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4754	osFileExplorerCommand
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4755	"return an OS command template to open a finder/explorer or similar"
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4756
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4757	^ self at:#osFileExplorerCommand ifAbsent:nil
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4758	!
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4759
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4760	osFileExplorerCommand:aString
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4761	"define an OS command template to open a finder/explorer or similar"
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4762
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4763	self at:#osFileExplorerCommand put:aString
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4764
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4765	"
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4766	UserPreferences current osFileExplorerCommand
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4767
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4768	osx:
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4769	UserPreferences current osFileExplorerCommand:'open %1'
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4770
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4771	linux:
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4772	UserPreferences current osFileExplorerCommand:'nautilus %1'
18922 aee337248062 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18920 diff changeset	4773	UserPreferences current osFileExplorerCommand:'dolphin %1'
18920 e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4774	"
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4775	! !
e3e4d06dcc6c #OTHER Claus Gittinger <cg@exept.de> parents: 18871 diff changeset	4776
18871 8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4777	!UserPreferences methodsFor:'accessing-prefs-files and directories'!
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4778
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4779	changeFileName
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4780	"were to keep changes"
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4781
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4782	^ self
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4783	at: #'changeFileName'
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4784	ifAbsent: [nil]
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4785	!
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4786
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4787	changeFileName:aFilename
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4788	"were to keep changes"
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4789
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4790	self
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4791	at: #'changeFileName'
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4792	put: aFilename.
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4793	!
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4794
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4795	usersModuleName
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4796	"this will be taken as the user's module in the workspace and as a default for new projects"
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4797
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4798	^ self at:#usersModuleName ifAbsent:[OperatingSystem getLoginName ]
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4799	!
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4800
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4801	usersModuleName:aString
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4802	self at:#usersModuleName put:aString
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4803	!
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4804
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4805	workspaceDirectory
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4806	^ self at:#workspaceDirectory ifAbsent:[self class defaultWorkspaceDirectory]
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4807	!
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4808
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4809	workspaceDirectory:aDirectoryOrNilForDefault
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4810	\|d\|
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4811
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4812	(d := aDirectoryOrNilForDefault) notNil ifTrue:[
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4813	d := d asFilename
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4814	].
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4815	self at:#workspaceDirectory put:d
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4816	! !
8ba61705c02e #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 18867 diff changeset	4817
13373 4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4818	!UserPreferences methodsFor:'accessing-prefs-localization'!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4819
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4820	language
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4821	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4822	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4823	"/ however, for multi-user operation, this must be in a preference-setting.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4824	"/ For now, forward to smalltalk, until all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4825	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4826
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4827	^ self at:#language ifAbsent:[Smalltalk language].
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4828
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4829	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4830	UserPreferences current language
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4831	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4832
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4833	"Created: / 20-09-2006 / 23:55:01 / cg"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4834	!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4835
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4836	language:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4837	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4838	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4839	"/ however, for multi-user operation, this must be in a preference-setting.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4840	"/ For now, forward to smalltalk, until all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4841	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4842
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4843	self at:#language put:aLanguageSymbol.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4844	Smalltalk language:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4845
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4846	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4847	UserPreferences current language
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4848	UserPreferences current language:#en
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4849	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4850
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4851	"Created: / 20-09-2006 / 23:55:01 / cg"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4852	!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4853
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4854	languageTerritory
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4855	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4856	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4857	"/ however, for multi-user operation, this must be in a preference-setting.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4858	"/ for now, forward to smalltalk, while all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4859	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4860
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4861	^ self at:#languageTerritory ifAbsent:[Smalltalk languageTerritory]
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4862
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4863	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4864	UserPreferences current languageTerritory
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4865	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4866
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4867	"Created: / 20-09-2006 / 23:55:01 / cg"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4868	!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4869
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4870	languageTerritory:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4871	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4872	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4873	"/ however, for multi-user operation, this must be in a preference-setting.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4874	"/ For now, forward to smalltalk, until all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4875	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4876
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4877	self at:#languageTerritory put:aLanguageSymbol.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4878	Smalltalk languageTerritory:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4879
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4880	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4881	UserPreferences current languageTerritory
13373 4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4882	UserPreferences current languageTerritory:#en
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4883	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4884
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4885	"Created: / 20-09-2006 / 23:55:01 / cg"
18496 59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4886	!
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4887
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4888	unitForFileSize
18497 c3a299986ccc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18496 diff changeset	4889	"may return either 1000 or 1024"
c3a299986ccc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18496 diff changeset	4890
c3a299986ccc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18496 diff changeset	4891	^ self at:#unitForFileSize ifAbsent:[1000]
18496 59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4892	!
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4893
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4894	unitStringsForFileSize
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4895	self unitForFileSize == 1024 ifTrue:[
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4896	^ #('Byte' 'KiB' 'MiB' 'GiB' 'TiB' 'PiB' 'EiB' 'ZiB' 'YiB')
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4897	] ifFalse:[
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4898	^ #('Byte' 'KB' 'MB' 'GB' 'TB' 'PB' 'EB' 'ZB' 'YB')
59571300e735 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18489 diff changeset	4899	].
18823 01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4900	!
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4901
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4902	useSystemLanguage
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4903	"if true, the operating system's language is used (i.e. LANG environment variable),
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4904	when the system comes up. If false, the setting here is used.
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4905	The default is true."
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4906
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4907	^ self at:#useSystemLanguage ifAbsent:[true].
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4908
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4909	"
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4910	UserPreferences current useSystemLanguage
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4911	UserPreferences current useSystemLanguage:false
18824 9511004e8aa9 #FEATURE Claus Gittinger <cg@exept.de> parents: 18823 diff changeset	4912	UserPreferences current useSystemLanguage:true
18823 01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4913	"
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4914	!
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4915
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4916	useSystemLanguage:aBoolean
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4917	"if true, the operating system's language is used (i.e. LANG environment variable),
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4918	when the system comes up. If false, the setting here is used.
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4919	The default is true."
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4920
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4921	self at:#useSystemLanguage put:aBoolean.
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4922
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4923	"
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4924	UserPreferences current useSystemLanguage
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4925	UserPreferences current useSystemLanguage:false
01a452c69668 #BUGFIX Claus Gittinger <cg@exept.de> parents: 18818 diff changeset	4926	"
13373 4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4927	! !
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4928
19472 1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4929	!UserPreferences methodsFor:'accessing-prefs-startup'!
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4930
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4931	autoloadedPackages
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4932	"list of package names, which are automatically loaded upon startup"
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4933
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4934	^ self at:#autoloadedPackages ifAbsent:[#()]
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4935	!
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4936
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4937	autoloadedPackages:aCollectionOfPackageNames
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4938	"list of package names, which are automatically loaded upon startup"
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4939
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4940	self at:#autoloadedPackages put:aCollectionOfPackageNames
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4941	! !
1c71c47b35d1 #BUGFIX Claus Gittinger <cg@exept.de> parents: 19391 diff changeset	4942
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4943	!UserPreferences methodsFor:'accessing-prefs-times'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4944
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4945	timeToAutoExpandItemsWhenDraggingOver
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4946	"in a hierarchical tree view"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4947
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4948	^ 700 "/ millis
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4949	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4950
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4951	twoDigitDateHandler
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4952	"return a block which converts a two-digit date.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4953	Possible algorithms:
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4954	- identity: treat as year 00..99
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4955	- add 1900: treat as 1900..1999
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4956	- around: treat as 1950..1999 if value is 50..99; 2000..2049 otherwise.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4957
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4958	TODO: make this configurable, keep in dictionary and add to settings.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4959	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4960
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4961	^ [:x \| (x >= 50) ifTrue:[1900+x] ifFalse:[2000+x]].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4962	"/ ^ [:x \| 1900+x].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4963	"/ ^ [:x \| x].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4964	! !
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4965
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4966	!UserPreferences methodsFor:'accessing-prefs-tools'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4967
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4968	allowSendMailFromDebugger
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4969	"if true inserts a button in Debugger for open a GUI to send useful debugger infos per mail to a default
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4970	mail account "
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4971
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4972	^ self at:#allowSendMailFromDebugger ifAbsent:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4973
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4974	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4975	UserPreferences current allowSendMailFromDebugger
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4976	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4977
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4978	"Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4979	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4980
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4981	allowSendMailFromDebugger:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4982	"if true inserts a button in Debugger for open a GUI to send useful debugger infos per mail to a default
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4983	mail account "
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4984
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4985	^ self at:#allowSendMailFromDebugger put:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4986
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4987	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4988	UserPreferences current allowSendMailFromDebugger:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4989	UserPreferences current allowSendMailFromDebugger:false
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4990	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4991	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4992
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4993	autoDefineWorkspaceVariables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4994	"return the flag which controls automatic definition of unknown variables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4995	as workspace variables (in doIts)"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4996
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	4997	^ self at:#autoDefineWorkspaceVariables ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4998
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4999	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5000	UserPreferences current autoDefineWorkspaceVariables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5001	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5002	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5003
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5004	autoDefineWorkspaceVariables:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5005	"turn on/off automatic definition of unknown variables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5006	as workspace variables (in doIts)"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5007
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5008	^ self at:#autoDefineWorkspaceVariables put:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5009
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5010	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5011	UserPreferences current autoDefineWorkspaceVariables:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5012	UserPreferences current autoDefineWorkspaceVariables:false
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5013	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5014	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5015
10540 ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5016	autoRaiseDebugger
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5017	"if true, the debugger raises itself automatically when entered.
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5018	The default is true"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5019
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5020	^ self at:#autoRaiseDebugger ifAbsent:true
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5021
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5022	"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5023	UserPreferences current autoRaiseDebugger
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5024	"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5025
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5026	"Created: / 15-05-2007 / 13:29:10 / cg"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5027	!
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5028
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5029	autoRaiseDebugger:aBoolean
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5030	"if true, the debugger raises itself automatically when entered.
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5031	The default is true"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5032
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5033	^ self at:#autoRaiseDebugger put:aBoolean
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5034
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5035	"
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	5036	UserPreferences current autoRaiseDebugger
10540 ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5037	UserPreferences current autoRaiseDebugger:false
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5038	UserPreferences current autoRaiseDebugger:true
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5039	"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5040
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5041	"Created: / 15-05-2007 / 13:29:31 / cg"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5042	!
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	5043
15130 df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5044	autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5045	"if non-nil, an application window will raise automatically,
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	5046	when it gets the focus (via the window manager) after that
15130 df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5047	number of milliseconds. If nil, autoRaise is disabled.
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5048	Especially useful with focusFollowsMouse under X11"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5049
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5050	^ self at:#autoRaiseOnFocusInDelay ifAbsent:nil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5051
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5052	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5053	UserPreferences current autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5054	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5055	!
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5056
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5057	autoRaiseOnFocusInDelay:anIntegerOrNil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5058	"if non-nil, an application window will raise automatically,
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	5059	when it gets the focus (via the window manager) after that
15130 df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5060	number of milliseconds. If nil, autoRaise is disabled.
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5061	Especially useful with focusFollowsMouse under X11"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5062
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5063	^ self at:#autoRaiseOnFocusInDelay put:anIntegerOrNil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5064
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5065	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5066	UserPreferences current autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5067	UserPreferences current autoRaiseOnFocusInDelay:nil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5068	UserPreferences current autoRaiseOnFocusInDelay:750
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5069	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5070	!
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	5071
15417 13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5072	autoRaiseTranscript
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5073	"if true, the transcript raises itself automatically when new messages appear.
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5074	The default is false"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5075
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5076	^ self at:#autoRaiseTranscript ifAbsent:false
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5077
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5078	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5079	UserPreferences current autoRaiseTranscript
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5080	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5081	!
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5082
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5083	autoRaiseTranscript:aBoolean
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5084	"if true, the transcript raises itself automatically when new messages appear.
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5085	The default is false"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5086
15427 56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	5087	\|transcript\|
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	5088
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	5089	self at:#autoRaiseTranscript put:aBoolean.
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	5090	(self == UserPreferences current) ifTrue:[
18641 95284fb28b6b class: UserPreferences Stefan Vogel <sv@exept.de> parents: 18557 diff changeset	5091	transcript := Transcript current.
95284fb28b6b class: UserPreferences Stefan Vogel <sv@exept.de> parents: 18557 diff changeset	5092	(transcript notNil and:[transcript isTextCollector]) ifTrue:[
95284fb28b6b class: UserPreferences Stefan Vogel <sv@exept.de> parents: 18557 diff changeset	5093	transcript autoRaise:aBoolean.
95284fb28b6b class: UserPreferences Stefan Vogel <sv@exept.de> parents: 18557 diff changeset	5094	].
15427 56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	5095	].
15417 13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5096
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5097	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5098	UserPreferences current autoRaiseTranscript:true
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5099	UserPreferences current autoRaiseTranscript:false
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5100	UserPreferences current autoRaiseTranscript
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5101	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5102	!
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	5103
19087 8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5104	debuggerLogFile
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5105	"if non nil, any entered debugger writes a backrace to that logfile.
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5106	This is useful to record all session-problems"
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5107
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5108	^ self at:#debuggerLogFile ifAbsent:nil
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5109
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5110	"
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5111	UserPreferences current debuggerLogFile
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5112	UserPreferences current debuggerLogFile:'debug.log'
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5113	UserPreferences current debuggerLogFile:nil
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5114	"
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5115	!
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5116
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5117	debuggerLogFile:aFilename
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5118	"if non nil, any entered debugger writes a backrace to that logfile.
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5119	This is useful to record all session-problems"
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5120
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5121	^ self at:#debuggerLogFile put:aFilename
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5122
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5123	"
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5124	UserPreferences current debuggerLogFile
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5125	UserPreferences current debuggerLogFile:'debug.log'
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5126	UserPreferences current debuggerLogFile:nil
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5127	"
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5128	!
8dd2de981030 #FEATURE Claus Gittinger <cg@exept.de> parents: 18928 diff changeset	5129
11419 ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5130	editToolbarVisibleInWorkspace
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5131	"return the flag which defaults the edit-toolbar-visibility in a workspace application"
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5132
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5133	^ self at:#editToolbarVisibleInWorkspace ifAbsent:false
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5134	!
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5135
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5136	editToolbarVisibleInWorkspace:aBooleanOrNil
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5137	"set the flag which defaults the edit-toolbar-visibility in a workspace application"
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5138
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5139	^ self at:#editToolbarVisibleInWorkspace put:aBooleanOrNil
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5140	!
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	5141
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5142	functionKeySequences
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5143	"return the collection of function-key macros.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5144	Thats a dictionary, which assigns code to F-keys"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5145
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5146	^ self at:#functionKeySequences ifAbsentPut:[Dictionary new]
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5147
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5148	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5149	UserPreferences current functionKeySequences
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5150	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5151
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5152	"Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5153	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5154
14160 0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5155	hideSupportCodeInDebugger
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5156	^ self at:#hideSupportCodeInDebugger ifAbsent:true
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5157
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5158	"
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5159	UserPreferences current hideSupportCodeInDebugger
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5160	"
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5161
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5162	"Created: / 10-06-2012 / 21:24:09 / cg"
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5163	!
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5164
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5165	hideSupportCodeInDebugger:aBooleanOrNil
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5166	^ self at:#hideSupportCodeInDebugger put:aBooleanOrNil
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5167
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	5168	"Created: / 10-06-2012 / 21:24:18 / cg"
14159 cd88acc36933 added: Claus Gittinger <cg@exept.de> parents: 14140 diff changeset	5169	!
cd88acc36933 added: Claus Gittinger <cg@exept.de> parents: 14140 diff changeset	5170
10661 b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5171	infoVisibleInWorkspace
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5172	"return the flag which defaults the info-visibility in a workspace application"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5173
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5174	^ self at:#infoVisibleInWorkspace ifAbsent:false
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5175
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5176	"Created: / 14-07-2007 / 16:43:37 / cg"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5177	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5178
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5179	infoVisibleInWorkspace:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5180	"set the flag which defaults the info-visibility in a workspace application"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5181
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5182	^ self at:#infoVisibleInWorkspace put:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5183
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5184	"Created: / 14-07-2007 / 16:43:44 / cg"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5185	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5186
16377 b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5187	sendMessagesAlsoToTranscript
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5188	"return the flag which controls if info/error messages are to be shown
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5189	on both Stderr AND the Transcript, or only on Stderr"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5190
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5191	^ self at:#sendMessagesAlsoToTranscript ifAbsent:true
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5192
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5193	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5194	UserPreferences current sendMessagesAlsoToTranscript
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5195	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5196	!
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5197
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5198	sendMessagesAlsoToTranscript:aBooleanOrNil
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5199	"set/clear the flag which controls if info/error messages are to be shown
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5200	on both Stderr AND the Transcript, or only on Stderr"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5201
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5202	^ self at:#sendMessagesAlsoToTranscript put:aBooleanOrNil
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5203
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5204	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5205	UserPreferences current sendMessagesAlsoToTranscript:false.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5206	'hello' infoPrintCR.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5207
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5208	UserPreferences current sendMessagesAlsoToTranscript:true.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5209	'hello' infoPrintCR.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5210	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5211	!
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	5212
19783 7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5213	sendMessagesOnlyToTranscript
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5214	"return the flag which controls if info/error messages are to be shown
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5215	on Stderr (if true is returned, they are only shown on the Transcript)"
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5216
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5217	^ self at:#sendMessagesOnlyToTranscript ifAbsent:false
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5218
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5219	"
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5220	UserPreferences current sendMessagesOnlyToTranscript
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5221	"
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5222	!
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5223
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5224	sendMessagesOnlyToTranscript:aBoolean
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5225	"set the flag which controls if info/error messages are to be shown
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5226	on Stderr (if true is returned, they are only shown on the Transcript)"
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5227
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5228	self at:#sendMessagesOnlyToTranscript put:aBoolean
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5229
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5230	"
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5231	UserPreferences current sendMessagesOnlyToTranscript:true.
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5232	'hello' errorPrintCR.
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5233
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5234	UserPreferences current sendMessagesOnlyToTranscript:false.
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5235	'hello' errorPrintCR.
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5236
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5237	UserPreferences current sendMessagesOnlyToTranscript
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5238	"
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5239	!
7bfb43d27fb9 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 19755 diff changeset	5240
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5241	showClockInLauncher
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5242	"return the flag which controls if a clock is shown in the launcher"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5243
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	5244	^ self at:#showClockInLauncher ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5245
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5246	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5247	UserPreferences current showClockInLauncher
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5248	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5249
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5250	"Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5251	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5252
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5253	showClockInLauncher:aBooleanOrNil
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5254	"set/clear the flag which controls if a clock is shown in the launcher"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5255
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5256	^ self at:#showClockInLauncher put:aBooleanOrNil
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5257
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5258	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5259	UserPreferences current showClockInLauncher:false.
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	5260	NewLauncher open.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5261
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5262	UserPreferences current showClockInLauncher:true.
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	5263	NewLauncher open.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5264	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5265
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5266	"Modified: / 11.9.1998 / 00:09:59 / cg"
7624 44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5267	!
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5268
14140 63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5269	showTypeIndicatorInInspector
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5270	^ self at:#showTypeIndicatorInInspector ifAbsent:true
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5271
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5272	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5273	UserPreferences current showTypeIndicatorInInspector
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5274	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5275
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5276	"Created: / 16-05-2012 / 19:09:50 / cg"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5277	!
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5278
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5279	showTypeIndicatorInInspector:aBooleanOrNil
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5280	^ self at:#showTypeIndicatorInInspector put:aBooleanOrNil
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5281
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5282	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5283	UserPreferences current showTypeIndicatorInInspector:false.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5284	NewLauncher inspect.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5285
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5286	UserPreferences current showTypeIndicatorInInspector:true.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5287	NewLauncher inspect.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5288	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5289
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5290	"Created: / 16-05-2012 / 19:10:13 / cg"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5291	!
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	5292
18689 7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5293	terminalInputIsUTF8
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5294	"if true, a shell or unix command accepts utf8 encoded input and character input
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5295	should be encoded as such by the terminal emulator."
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5296
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5297	^ self
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5298	at:#terminalInputIsUTF8
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5299	ifAbsent:[ OperatingSystem isOSXlike
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5300	"/ or ???
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5301	]
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5302
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5303	"
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5304	UserPreferences current terminalInputIsUTF8
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5305	"
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5306	!
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5307
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5308	terminalInputIsUTF8:aBoolean
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5309	"if true, a shell or unix command accepts utf8 encoded input and character input
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5310	should be encoded as such by the terminal emulator.
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5311	This specifies a default setting for terminal views; individual instances can be
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5312	changed be calling a corresponding setup method on it."
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5313
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5314	^ self
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5315	at:#terminalInputIsUTF8
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5316	put:aBoolean
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5317
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5318	"
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5319	UserPreferences current terminalInputIsUTF8
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5320	UserPreferences current terminalInputIsUTF8:true
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5321	UserPreferences current terminalInputIsUTF8:false
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5322	"
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5323	!
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5324
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5325	terminalOutputIsUTF8
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5326	"if true, the shell's output is utf8 encoded and should be decoded by
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5327	the terminal emulator."
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5328
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	5329	^ self
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5330	at:#terminalOutputIsUTF8
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5331	ifAbsent:[ OperatingSystem isOSXlike
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5332	"/ or ???
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5333	]
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5334
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5335	"
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5336	UserPreferences current terminalOutputIsUTF8
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5337	"
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5338	!
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5339
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5340	terminalOutputIsUTF8:aBoolean
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5341	"if true, the shell's output is utf8 encoded and should be decoded by
18689 7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5342	the terminal emulator.
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5343	This specifies a default setting for terminal views; individual instances can be
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5344	changed be calling a corresponding setup method on it."
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5345
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	5346	^ self
18689 7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5347	at:#terminalOutputIsUTF8
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5348	put:aBoolean
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5349
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5350	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	5351	UserPreferences current terminalOutputIsUTF8
18689 7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5352	UserPreferences current terminalOutputIsUTF8:true
7d2f54384c6c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18643 diff changeset	5353	UserPreferences current terminalOutputIsUTF8:false
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5354	"
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5355	!
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	5356
10661 b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5357	toolbarVisibleInWorkspace
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5358	"return the flag which defaults the toolbar-visibility in a workspace application"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5359
10665 fd0702c99a8b toolbarVisibleInWorkspace default Claus Gittinger <cg@exept.de> parents: 10661 diff changeset	5360	^ self at:#toolbarVisibleInWorkspace ifAbsent:true
fd0702c99a8b toolbarVisibleInWorkspace default Claus Gittinger <cg@exept.de> parents: 10661 diff changeset	5361
fd0702c99a8b toolbarVisibleInWorkspace default Claus Gittinger <cg@exept.de> parents: 10661 diff changeset	5362	"Modified: / 18-07-2007 / 08:55:44 / cg"
10661 b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5363	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5364
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5365	toolbarVisibleInWorkspace:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5366	"set the flag which defaults the toolbar-visibility in a workspace application"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5367
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5368	^ self at:#toolbarVisibleInWorkspace put:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5369
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5370	"Created: / 14-07-2007 / 16:42:09 / cg"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5371	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	5372
19700 3775538c52dc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19684 diff changeset	5373	useJavaCompletionEngineSimple
3775538c52dc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19684 diff changeset	5374	"/ switch to false, when the JavaCompletionEngine is
3775538c52dc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19684 diff changeset	5375	"/ finished.
3775538c52dc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19684 diff changeset	5376
3775538c52dc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19684 diff changeset	5377	^ true
3775538c52dc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19684 diff changeset	5378	!
3775538c52dc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19684 diff changeset	5379
11024 464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5380	useNewLayoutInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5381	^ self at:#useNewLayoutInDebugger ifAbsent:true
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5382
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5383	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5384	UserPreferences current useNewLayoutInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5385	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5386	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5387
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5388	useNewLayoutInDebugger:aBoolean
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5389	^ self at:#useNewLayoutInDebugger put:aBoolean
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5390	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5391
7624 44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5392	useRefactoringSupport
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5393	"return the flag which enables/disables use of refactoring package in browser.
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5394	If enabled, this enables all kinds of refactorings, better search and undo features.
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5395	There is usually no reason to disable these."
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5396
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	5397	^ self at:#useRefactoringSupport ifAbsent:true
7624 44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5398	!
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5399
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5400	useRefactoringSupport:aBooleanOrNil
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5401	"enable/disable use of refactoring package in browser.
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5402	If enabled, this enables all kinds of refactorings, better search and undo features.
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5403	There is usually no reason to disable these."
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5404
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	5405	^ self at:#useRefactoringSupport put:aBooleanOrNil
7625 b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	5406
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	5407	"
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	5408	UserPreferences current useRefactoringSupport:false
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	5409	UserPreferences current useRefactoringSupport:true
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	5410	"
11024 464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5411	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5412
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5413	verboseBacktraceInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5414	^ self at:#verboseBacktraceInDebugger ifAbsent:true
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5415
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5416	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5417	UserPreferences current verboseBacktraceInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5418	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5419	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5420
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5421	verboseBacktraceInDebugger:aBoolean
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	5422	^ self at:#verboseBacktraceInDebugger put:aBoolean
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5423	! !
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	5424
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5425	!UserPreferences methodsFor:'accessing-prefs-tools-building'!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5426
15917 ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5427	autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5428	^ self at:#autoUnloadAutoloadedClassesInProjectDefinition ifAbsent:false
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5429
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5430	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5431	UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5432	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5433
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5434	"Created: / 28-01-2014 / 21:42:59 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5435	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5436
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5437	autoUnloadAutoloadedClassesInProjectDefinition:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5438	^ self at:#autoUnloadAutoloadedClassesInProjectDefinition put:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5439
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5440	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5441	UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5442	UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition:false
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5443	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5444
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5445	"Created: / 28-01-2014 / 21:43:18 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5446	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5447
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5448	buildDirectory
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5449	^ self at:#buildDirectory ifAbsent:nil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5450
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5451	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5452	UserPreferences current buildDirectory
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5453	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5454	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5455
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5456	buildDirectory:aFilenameStringOrNil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5457	^ self at:#buildDirectory put:aFilenameStringOrNil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5458
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5459	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5460	UserPreferences current buildDirectory
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5461	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5462	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5463
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5464	localBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5465	"deployment-build in a local directory (as opposed to making via the repository)"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5466
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5467	^ self at:#localBuild ifAbsent:true
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5468
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5469	"Created: / 20-09-2006 / 23:55:01 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5470	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5471
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5472	localBuild:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5473	"deployment-build in a local directory (as opposed to making via the repository)"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5474
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5475	^ self at:#localBuild put:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5476
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5477	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5478	UserPreferences current localBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5479	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5480
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5481	"Created: / 20-09-2006 / 23:55:26 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5482	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5483
15917 ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5484	suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5485	^ self at:#suppressProjectDefinitionWarnings ifAbsent:true
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5486
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5487	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5488	UserPreferences current suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5489	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5490
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5491	"Created: / 28-01-2014 / 21:41:01 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5492	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5493
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5494	suppressProjectDefinitionWarnings:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5495	^ self at:#suppressProjectDefinitionWarnings put:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5496
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5497	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5498	UserPreferences current suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5499	UserPreferences current suppressProjectDefinitionWarnings:true
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5500	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5501
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5502	"Created: / 28-01-2014 / 21:41:12 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5503	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5504
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5505	usedCompilerForBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5506	^ self at:#usedCompilerForBuild ifAbsent:nil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5507
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5508	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5509	UserPreferences current usedCompilerForBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5510	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5511
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5512	"Created: / 22-01-2012 / 10:52:47 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5513	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5514
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5515	usedCompilerForBuild:aString
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5516	^ self at:#usedCompilerForBuild put:aString
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5517
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5518	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5519	UserPreferences current usedCompilerForBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5520	UserPreferences current usedCompilerForBuild:'bcc'
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5521	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5522
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5523	"Created: / 22-01-2012 / 10:52:59 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5524	! !
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5525
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	5526	!UserPreferences methodsFor:'accessing-scm'!
13596 219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5527
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5528	showBadRevisionStringDialogs
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5529	"show a dialog when a bad revision string is encountered, or silently fix it"
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5530
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5531	^ self at: #'showBadRevisionStringDialogs' ifAbsent:true
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5532
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5533	"Created: / 19-08-2011 / 12:51:25 / cg"
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5534	!
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5535
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5536	showBadRevisionStringDialogs:aBoolean
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5537	"show a dialog when a bad revision string is encountered, or silently fix it"
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5538
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5539	^ self at: #'showBadRevisionStringDialogs' put:aBoolean
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5540
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5541	"Created: / 19-08-2011 / 12:51:58 / cg"
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5542	! !
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5543
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	5544
13943 26472baf6c58 category of:20 methods Claus Gittinger <cg@exept.de> parents: 13942 diff changeset	5545	!UserPreferences methodsFor:'default settings-syntax colors'!
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5546
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5547	listOfPredefinedSyntaxColoringSchemes
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5548	"return a list of pre-defined syntax highlightning styles
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5549	(as shown in the Launchers 'source and debugger settings' dialog."
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5550
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5551	^ #(
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5552	(#resetSyntaxColors 'default [ST/X style]')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5553	(#resetSyntaxColorsWithSideEffectHighlighting 'default with side effect highlighting [new ST/X style]')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5554	(#resetSyntaxColorsToVCStyle 'green comments; blue controlFlow, red constants [VISUAL-C style]')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5555	(#resetSyntaxColorsBlueControlFlowSelectors 'blue controlFlow')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5556	(#resetSyntaxColorsGreenComments 'green comments')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5557	(#resetSyntaxColorsGreenCommentsBlueControlFlowSelectors 'green comments; blue controlFlow')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5558	(#resetSyntaxColorsBlueSelectorsGreenComments 'blue selectors; green comments [DOLPHIN style]')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5559	(#resetSyntaxColorsBlueSelectorsGreyComments 'blue selectors; grey comments')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5560	(#resetSyntaxColorsToSqueakStyle1 'blue selectors; green comments [SQUEAK style]')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5561	(#resetSyntaxColorsToSqueakStyle2 'blue selectors; green comments; brown self [new SQUEAK style]')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5562	(#resetSyntaxColorsAllBlackExceptBadIDs 'no colors, but highlight errors')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5563	(#resetSyntaxColorsToVAgeStyle 'blue globals; green comments [V''Age style]')
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5564	(#resetSyntaxColorsToVW7Style 'light blue comments [VW7 style]')
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5565	)
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5566
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5567	"Modified: / 17-03-2012 / 10:40:18 / cg"
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5568	!
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5569
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5570	resetSyntaxColors
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5571	"resets the colors in the CurrentPreferences to their default values"
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5572
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5573	self class syntaxColorKeys do:[:k \| self removeKey:k ifAbsent:nil].
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5574
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5575
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5576	!
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5577
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5578	resetSyntaxColorsAllBlackExceptBadIDs
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5579	"resets the colors in the CurrentPreferences to no-color mode,
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5580	except for bad identifiers, which are underwaved."
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5581
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5582	self resetSyntaxColors.
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5583	self at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5584	self at:#errorColor put:Color black.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5585	self at:#commentColor put:Color black.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5586	self at:#constantColor put:Color black.
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5587	self at:#methodSelectorEmphasis put:#normal.
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5588	self at:#selectorEmphasis put:#normal.
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5589
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5590	"Modified: / 16-03-2012 / 10:35:02 / cg"
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5591	!
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5592
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5593	resetSyntaxColorsBlueControlFlowSelectors
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5594	"resets the colors in the CurrentPreferences to alternative default values
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5595	(with blue control flow selectors)"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5596
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5597	self resetSyntaxColors.
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5598	self at:#controlFlowSelectorColor put:(Color blue).
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5599
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5600	"Created: / 08-09-2006 / 16:11:52 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5601	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5602
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5603	resetSyntaxColorsBlueSelectorsGreenComments
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5604	"resets the colors in the CurrentPreferences to alternative default values
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5605	(with blue selectors and green comments)"
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5606
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5607	self resetSyntaxColors.
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5608	self at:#commentColor put:(Color green darkened).
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5609	self at:#commentEmphasis put:#italic.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5610	self at:#selectorColor put:(Color blue).
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5611	self at:#selectorEmphasis put:#normal.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5612	self at:#methodSelectorColor put:(Color blue).
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5613	self at:#methodSelectorEmphasis put:#bold.
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5614
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5615	"Modified: / 16-03-2012 / 10:34:55 / cg"
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5616	!
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5617
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5618	resetSyntaxColorsBlueSelectorsGreyComments
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5619	"resets the colors in the CurrentPreferences to alternative default values
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5620	(with blue selectors and grey comments)"
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5621
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5622	self resetSyntaxColorsBlueSelectorsGreenComments.
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5623	self at:#commentColor put:(Color gray).
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5624	!
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5625
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5626	resetSyntaxColorsGreenComments
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5627	"resets the colors in the CurrentPreferences to alternative default values
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5628	(with green comments)"
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5629
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5630	self resetSyntaxColors.
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5631	self at:#commentColor put:(Color green darkened).
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5632
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5633	"Modified: / 16-03-2012 / 10:34:50 / cg"
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5634	!
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5635
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5636	resetSyntaxColorsGreenCommentsBlueControlFlowSelectors
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5637	"resets the colors in the CurrentPreferences to alternative default values
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5638	(with green comments, blue control flow)"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5639
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5640	self resetSyntaxColors.
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5641	self at:#commentColor put:(Color green darkened).
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5642	self at:#controlFlowSelectorColor put:(Color blue).
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5643
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5644	"Created: / 08-09-2006 / 16:10:38 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5645	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5646
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5647	resetSyntaxColorsToSqueakStyle
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5648	"resets the colors in the CurrentPreferences to alternative default values"
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5649
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5650	self resetSyntaxColorsToSqueakStyle2
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5651
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5652	"Modified (comment): / 17-03-2012 / 10:38:07 / cg"
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5653	!
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5654
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5655	resetSyntaxColorsToSqueakStyle1
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5656	"resets the colors in the CurrentPreferences to alternative default values
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5657	(with blue selectors and green comments)"
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5658
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5659	self resetSyntaxColors.
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5660	self at:#commentColor put:(Color green darkened).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5661	self at:#commentEmphasis put:#italic.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5662	self at:#selectorColor put:(Color blue:80).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5663	self at:#selectorEmphasis put:#normal.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5664	self at:#methodSelectorColor put:(Color black).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5665	self at:#methodSelectorEmphasis put:#bold.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5666	self at:#globalIdentifierEmphasis put:#bold.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5667	self at:#localIdentifierColor put:(Color grey:40).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5668	self at:#instVarIdentifierEmphasis put:#bold.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5669	self at:#constantColor put:(Color red:67).
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5670
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5671	"Modified: / 16-03-2012 / 10:34:40 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5672	"Modified (comment): / 17-03-2012 / 10:38:47 / cg"
9184 d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5673	!
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5674
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5675	resetSyntaxColorsToSqueakStyle2
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5676	"resets the colors in the CurrentPreferences to alternative default values
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5677	(with blue selectors and green comments)"
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5678
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5679	self resetSyntaxColors.
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5680	self at:#commentColor put:(Color green darkened).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5681	self at:#commentEmphasis put:#italic.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5682	self at:#selectorColor put:(Color blue:80).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5683	self at:#selectorEmphasis put:#normal.
12391 35ee0cb7fd56 changed: #resetSyntaxColorsToSqueakStyle2 Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5684	self at:#controlFlowSelectorEmphasis put:#bold.
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5685	self at:#methodSelectorColor put:(Color black).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5686	self at:#methodSelectorEmphasis put:#bold.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5687	self at:#globalIdentifierEmphasis put:#bold.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5688	self at:#localIdentifierColor put:(Color grey:40).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5689	self at:#instVarIdentifierEmphasis put:#bold.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5690	self at:#constantColor put:(Color red:67).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5691	self at:#selfColor put:(Color red:50 ).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5692	self at:#selfEmphasis put:#bold.
12282 03a6891e3ca5 changed: #resetSyntaxColorsToSqueakStyle2 Claus Gittinger <cg@exept.de> parents: 12281 diff changeset	5693	self at:#localIdentifierColor put:(Color grey:50 ).
03a6891e3ca5 changed: #resetSyntaxColorsToSqueakStyle2 Claus Gittinger <cg@exept.de> parents: 12281 diff changeset	5694	self at:#localIdentifierEmphasis put:#normal.
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5695
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5696	"Modified: / 16-03-2012 / 10:34:35 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5697	"Modified (comment): / 17-03-2012 / 10:38:57 / cg"
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5698	!
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5699
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5700	resetSyntaxColorsToVAgeStyle
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5701	"resets the colors in the CurrentPreferences to alternative default values
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5702	(green comments, blue globals)"
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5703
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5704	self resetSyntaxColors.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5705	self at:#identifierColor put:(Color rgbValue:16r00007F).
14064 c80388807776 changed: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14063 diff changeset	5706	self at:#argumentColor put:(Color rgbValue:16r00007F).
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5707	self at:#identifierEmphasis put:#normal.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5708	self at:#commentColor put:(Color rgbValue:16r007F00).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5709	self at:#selfColor put:(Color rgbValue:16r7F007F).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5710	self at:#constantColor put:(Color rgbValue:16r7F0000).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5711	self at:#selectorColor put:(Color black).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5712	self at:#selectorEmphasis put:#bold.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5713	self at:#globalIdentifierColor put:(Color blue).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5714	self at:#methodSelectorColor put:(Color black).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5715	self at:#methodSelectorEmphasis put:#bold.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5716
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5717	"Created: / 17-03-2012 / 10:37:42 / cg"
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5718	!
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5719
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5720	resetSyntaxColorsToVCStyle
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5721	"resets the colors in the CurrentPreferences to visual C default style
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5722	(green comments, blue keywords, redish string constants)"
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5723
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5724	self resetSyntaxColors.
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5725	self at:#controlFlowSelectorColor put:(Color blue).
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5726	self at:#commentColor put:(Color green darkened).
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5727	self at:#constantColor put:(Color red:64 green:8 blue:8).
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5728
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5729	"Modified: / 16-03-2012 / 10:34:30 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5730	"Modified (comment): / 17-03-2012 / 10:39:11 / cg"
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5731	!
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5732
9184 d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5733	resetSyntaxColorsToVW7Style
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5734	"resets the colors in the CurrentPreferences to alternative default values
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5735	(with light blue comments, green variables)"
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5736
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5737	self resetSyntaxColors.
9184 d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5738	self at:#commentColor put:(Color blue lightened).
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5739	self at:#selectorColor put:(Color black).
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5740	self at:#selectorEmphasis put:#normal.
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5741	self at:#methodSelectorColor put:(Color black).
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5742	self at:#methodSelectorEmphasis put:#bold.
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5743	self at:#identifierEmphasis put:#normal.
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5744	self at:#identifierColor put:(Color green darkened).
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5745
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5746	"Modified: / 16-03-2012 / 10:34:26 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5747	"Modified (comment): / 17-03-2012 / 10:39:18 / cg"
14005 7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5748	!
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5749
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5750	resetSyntaxColorsWithSideEffectHighlighting
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5751	"resets the colors in the CurrentPreferences to their default values
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5752	plus side effect highlighting (assignments to instvars and globals are marked)"
14005 7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5753
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5754	self resetSyntaxColors.
14005 7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5755	self at:#sideEffectAssignmentBackgroundColor put:(Color rgbValue:16rFFDBDB).
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5756
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5757	"Created: / 13-02-2012 / 12:12:56 / cg"
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5758	! !
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5759
7266 f2b64d3b43cf method category rename Claus Gittinger <cg@exept.de> parents: 7246 diff changeset	5760	!UserPreferences methodsFor:'default values'!
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5761
4583 9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5762	defaultValue
9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5763	"the defaultValue for non-existing keys"
9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5764
16652 ddeba03a6b51 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16651 diff changeset	5765	^ nil
4583 9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5766	!
9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5767
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5768	errorKeyNotFound:aKey
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5769	"for any non-existing key, false is returned"
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5770
4583 9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5771	^ self defaultValue
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5772	! !
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5773
10789 d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5774	!UserPreferences methodsFor:'misc'!
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5775
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5776	flyByHelpSettingChanged
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5777	FlyByHelp notNil ifTrue:[
18262 572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5778	(self at:#flyByHelpActive ifAbsent:true) ifTrue:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5779	FlyByHelp start.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5780	] ifFalse:[
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5781	FlyByHelp stop.
572b30c5626f avoid another message send Claus Gittinger <cg@exept.de> parents: 17593 diff changeset	5782	].
10789 d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5783	].
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5784	! !
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5785
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5786	!UserPreferences methodsFor:'obsolete'!
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5787
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5788	useNewSettinsApplication
11598 970f65d53e13 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5789	<resource: #obsolete>
8545 37d394b08f2b * empty log message * Claus Gittinger <cg@exept.de> parents: 8433 diff changeset	5790	"obsolete - will be removed in next release.
37d394b08f2b * empty log message * Claus Gittinger <cg@exept.de> parents: 8433 diff changeset	5791	(this is kept for a while, as it may have found its way into some
37d394b08f2b * empty log message * Claus Gittinger <cg@exept.de> parents: 8433 diff changeset	5792	saved user preference files)"
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5793
6941 1700d0c53837 make old to settings changed settins methods obsolete penk parents: 6937 diff changeset	5794	self obsoleteMethodWarning.
7029 a73bc40f9bdb * empty log message * Claus Gittinger <cg@exept.de> parents: 7028 diff changeset	5795	^ self useNewSettingsApplication
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5796	!
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5797
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5798	useNewSettinsApplication:aBoolean
11598 970f65d53e13 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5799	<resource: #obsolete>
7030 52b794e6abee * empty log message * Claus Gittinger <cg@exept.de> parents: 7029 diff changeset	5800	"obsolete - will be removed in next release"
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5801
6941 1700d0c53837 make old to settings changed settins methods obsolete penk parents: 6937 diff changeset	5802	self obsoleteMethodWarning.
7029 a73bc40f9bdb * empty log message * Claus Gittinger <cg@exept.de> parents: 7028 diff changeset	5803	self useNewSettingsApplication:aBoolean.
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5804	! !
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5805
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5806	!UserPreferences methodsFor:'saving'!
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5807
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5808	saveIn:fileName
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5809	self class saveSettings:self in:fileName
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5810
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5811	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5812	UserPreferences current saveIn:'test.settings'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5813	"
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5814	! !
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5815
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5816	!UserPreferences class methodsFor:'documentation'!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5817
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	5818	version
18489 710dbb73f2e8 class: UserPreferences Stefan Vogel <sv@exept.de> parents: 18419 diff changeset	5819	^ '$Header$'
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	5820	!
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	5821
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	5822	version_CVS
18489 710dbb73f2e8 class: UserPreferences Stefan Vogel <sv@exept.de> parents: 18419 diff changeset	5823	^ '$Header$'
12096 414ff00030a1 added: Claus Gittinger <cg@exept.de> parents: 12027 diff changeset	5824	!
414ff00030a1 added: Claus Gittinger <cg@exept.de> parents: 12027 diff changeset	5825
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	5826	version_SVN
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	5827	^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 $'
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5828	! !
18419 0b0564c6352d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 18262 diff changeset	5829

author	Claus Gittinger <cg@exept.de>
	Mon, 06 Jun 2016 10:43:12 +0200
changeset 19952	fbc6851eacec
parent 19918	49dd92f59382
child 19953	af1909f1dbec
permissions	-rw-r--r--