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

17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	1	"{ Encoding: utf8 }"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 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
9742 58f5e1d235a8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9492 diff changeset	19	instanceVariableNames:''
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
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	55	UserPreferences current at:#foo
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	! !
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	59	!UserPreferences class methodsFor:'initialization'!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	60
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	61	initializeDefaultPreferences
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	62	DefaultPreferences := self new.
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	63
10240 9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps. Claus Gittinger <cg@exept.de> parents: 10177 diff changeset	64	Color isNil "Smalltalk isStandAloneApp" ifTrue:[
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	65	^ self.
10240 9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps. Claus Gittinger <cg@exept.de> parents: 10177 diff changeset	66	].
9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps. Claus Gittinger <cg@exept.de> parents: 10177 diff changeset	67
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	68	#(
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	69	#useNewChangesBrowser false
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	70	#useNewInspector false
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	71	#showClockInLauncher true
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	72
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	73	#autoFormatting false
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	74	#syntaxColoring true
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	75	#fullSelectorCheck false
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	76
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	77	#defaultSyntaxColor (Color black)
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	78	#defaultSyntaxEmphasis normal
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	79
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	80	#errorColor (Color red)
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	81
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	82	"/ #commentColor (Color 12.5 12.5 100)
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	83	#commentColor (Color 0 50 0)
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	84	#commentEmphasis normal
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	85
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	86	#methodSelectorEmphasis bold
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	87	#selectorEmphasis bold
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	88	#unimplementedSelectorColor (Color red)
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	89	#unimplementedSelectorEmphasis normal
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	90
14004 a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	91	"/ I prefer red-underwave over red identifier ...
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	92	"/ #badIdentifierColor (Color red)
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	93	#instVarIdentifierColor (Color 33 0 33)
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	94
14004 a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	95	"/ I prefer redish background
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	96	"/ #sideEffectAssignmentColor (Color 75 0 0)
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	97	"/ #sideEffectAssignmentBackgroundColor (Color 100 86 86)
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	98
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	99	#jsKeywordEmphasis bold
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	100	"/ #jsKeywordColor (Color black)
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	101	#jsKeywordColor (Color 33 33 0)
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	102
7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	103	#controlFlowSelectorColor (Color 0 0 100)
15865 0b1e95268739 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15864 diff changeset	104	#debugSelectorColor (Color 80 0 0)
0b1e95268739 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15864 diff changeset	105	#errorRaisingSelectorColor (Color 80 0 0)
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	106	"/ #constantColor (Color 25 0 0)
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	107	#constantColor (Color 64 8 8)
8420 08756fae71a0 prefs for js ca parents: 8252 diff changeset	108
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	109	#globalIdentifierColor (Color 67 0 67)
89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	110	#unknownIdentifierColor (Color 67 0 67)
89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	111
15864 dc0cbc54e57a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15817 diff changeset	112	#returnColor (Color 0 0 100)
dc0cbc54e57a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15817 diff changeset	113	#returnEmphasis bold
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	114	) pairWiseDo:[:k :v \|
11694 7200ceadd215 default colors Claus Gittinger <cg@exept.de> parents: 11691 diff changeset	115	DefaultPreferences at:k put:(v decodeAsLiteralArray).
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	116	].
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	117
9913 b798d50affb3 focus follows mouse default. Claus Gittinger <cg@exept.de> parents: 9834 diff changeset	118	"/ I prefer red-underwave over red identifier ...
4335 b301d2c92490 underwave red for bad identifiers Claus Gittinger <cg@exept.de> parents: 4331 diff changeset	119	DefaultPreferences at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
b301d2c92490 underwave red for bad identifiers Claus Gittinger <cg@exept.de> parents: 4331 diff changeset	120
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	121	"
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	122	self initializeDefaultPreferences
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	123	"
4335 b301d2c92490 underwave red for bad identifiers Claus Gittinger <cg@exept.de> parents: 4331 diff changeset	124
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	125	"Modified: / 16-03-2012 / 10:35:42 / cg"
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	126	! !
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	127
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	!UserPreferences class methodsFor:'accessing'!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	current
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	CurrentPreferences isNil ifTrue:[
17414 d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	132	CurrentPreferences := self new.
d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	133	CurrentPreferences flyByHelpSettingChanged.
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	].
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	^ CurrentPreferences.
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136
8420 08756fae71a0 prefs for js ca parents: 8252 diff changeset	137	"
08756fae71a0 prefs for js ca parents: 8252 diff changeset	138	CurrentPreferences := nil
08756fae71a0 prefs for js ca parents: 8252 diff changeset	139	"
17414 d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	140
d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	141	"Modified: / 05-02-2015 / 07:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	142	!
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	143
4318 39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	144	default
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	145	DefaultPreferences isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	146	self initializeDefaultPreferences
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	147	].
4318 39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	148	^ DefaultPreferences.
39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	149
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	150	"
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	151	DefaultPreferences := nil.
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	152	"
4318 39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	153	!
39f9a91bc44e checkin from browser Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	154
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	155	reset
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	156	"resets the CurrentPreferences to its default values"
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	157
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	158	CurrentPreferences := nil
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	159	!
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	160
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	161	syntaxColorKeys
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	162	"returns the keys of syntax color items"
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	163
17359 61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	164	^ self syntaxColorNamesAndKeys collectAll:[:each \| each from:2]
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	165
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	166	"
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	167	self syntaxColorKeys
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	168	"
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	169
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	170	"/ ^#(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	171	"/ argumentIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	172	"/ argumentIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	173	"/ booleanConstantColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	174	"/ booleanConstantEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	175	"/ bracketColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	176	"/ bracketEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	177	"/ classVariableIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	178	"/ classVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	179	"/ constantColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	180	"/ constantEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	181	"/ controlFlowSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	182	"/ controlFlowSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	183	"/ commentColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	184	"/ commentEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	185	"/ defaultSyntaxColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	186	"/ defaultSyntaxEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	187	"/ errorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	188	"/ globalIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	189	"/ globalIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	190	"/ globalClassIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	191	"/ globalClassIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	192	"/ hereColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	193	"/ hereEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	194	"/ identifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	195	"/ identifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	196	"/ instVarIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	197	"/ instVarIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	198	"/ localIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	199	"/ localIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	200	"/ methodSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	201	"/ methodSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	202	"/ poolVariableIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	203	"/ poolVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	204	"/ returnColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	205	"/ returnEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	206	"/ selectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	207	"/ selectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	208	"/ selfColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	209	"/ selfEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	210	"/ stringColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	211	"/ stringEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	212	"/ superColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	213	"/ superEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	214	"/ symbolColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	215	"/ symbolEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	216	"/ thisContextColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	217	"/ thisContextEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	218	"/ unknownIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	219	"/ unknownIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	220	"/ unimplementedSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	221	"/ unimplementedSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	222	"/ sideEffectAssignmentBackgroundColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	223	"/ sideEffectAssignmentColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	224	"/ colorForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	225	"/ emphasisForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	226	"/ colorForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	227	"/ emphasisForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	228	"/ colorForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	229	"/ emphasisForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	230	"/ )
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	231
14007 1ee2f49e87df changed: #syntaxColorKeys Claus Gittinger <cg@exept.de> parents: 14006 diff changeset	232	"Modified: / 14-02-2012 / 10:17:46 / cg"
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	233	!
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	234
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	235	syntaxColorNames
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	236	"returns the syntax colors for the settings in the launcher"
626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	237
17359 61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	238	^ self syntaxColorNamesAndKeys collect:#first.
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	239
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	240	"/"/ warning, the strings below are presented to the user
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	241	"/"/ as the syntax-color boxes comboList - however, they are
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	242	"/"/ also used (without separators) as key into myself.
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	243	"/"/ Therefore, do not change the strings below.
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	244	"/"/ I know - this is bad coding ....
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	245	"/
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	246	"/^#(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	247	"/'Argument Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	248	"/'Boolean Constant Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	249	"/'Bracket Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	250	"/'Class Variable Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	251	"/'Collection Enumeration Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	252	"/'Constant Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	253	"/'Control Flow Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	254	"/'Comment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	255	"/'Debug Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	256	"/'Error Raising Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	257	"/'Global Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	258	"/'Global Class Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	259	"/'Here Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	260	"/'Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	261	"/'InstVar Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	262	"/'Local Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	263	"/'Method Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	264	"/'Pool Variable Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	265	"/'Return Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	266	"/'Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	267	"/'Self Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	268	"/'Side Effect Assignment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	269	"/'Side Effect Assignment Background Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	270	"/'String Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	271	"/'Super Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	272	"/'Symbol Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	273	"/'This Context Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	274	"/'Unknown Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	275	"/'Unimplemented Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	276	"/'Side Effect Assignment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	277	"/'Coverage: Reached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	278	"/'Coverage: Partially Reached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	279	"/'Coverage: Unreached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	280	"/)
3364 626f42817289 small interface for the settings in the launcher tz parents: 3362 diff changeset	281
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	282	"Modified: / 14-02-2012 / 15:51:38 / cg"
17359 61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	283	!
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	284
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	285	syntaxColorNamesAndKeys
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	286	"returns the names and keys of syntax color items"
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	287
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	288	^#(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	289	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	290	'Argument Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	291	argumentIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	292	argumentIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	293	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	294	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	295	'Boolean Constant Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	296	booleanConstantColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	297	booleanConstantEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	298	)
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	'Bracket Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	301	bracketColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	302	bracketEmphasis
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	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	305	'Class Variable Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	306	classVariableIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	307	classVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	308	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	309	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	310	'Constant Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	311	constantColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	312	constantEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	313	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	314	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	315	'Control Flow Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	316	controlFlowSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	317	controlFlowSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	318	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	319	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	320	'Comment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	321	commentColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	322	commentEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	323	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	324	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	325	'Collection Enumeration Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	326	collectionEnumerationSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	327	collectionEnumerationSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	328	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	329	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	330	'Debug Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	331	debugSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	332	debugSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	333	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	334	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	335	'Default Syntax Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	336	defaultSyntaxColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	337	defaultSyntaxEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	338	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	339	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	340	'Error Raising Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	341	errorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	342	errorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	343	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	344	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	345	'Global Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	346	globalIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	347	globalIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	348	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	349	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	350	'Global Class Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	351	globalClassIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	352	globalClassIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	353	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	354	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	355	'Here Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	356	hereColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	357	hereEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	358	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	359	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	360	'Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	361	identifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	362	identifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	363	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	364	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	365	'InstVar Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	366	instVarIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	367	instVarIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	368	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	369	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	370	'Local Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	371	localIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	372	localIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	373	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	374	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	375	'Method Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	376	methodSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	377	methodSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	378	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	379	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	380	'Pool Variable Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	381	poolVariableIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	382	poolVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	383	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	384	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	385	'Return Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	386	returnColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	387	returnEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	388	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	389	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	390	'Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	391	selectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	392	selectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	393	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	394	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	395	'Self Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	396	selfColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	397	selfEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	398	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	399	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	400	'String Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	401	stringColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	402	stringEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	403	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	404	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	405	'Super Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	406	superColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	407	superEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	408	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	409	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	410	'Symbol Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	411	symbolColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	412	symbolEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	413	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	414	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	415	'This Context Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	416	thisContextColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	417	thisContextEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	418	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	419	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	420	'Unknown Identifier Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	421	unknownIdentifierColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	422	unknownIdentifierEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	423	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	424	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	425	'Unimplemented Selector Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	426	unimplementedSelectorColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	427	unimplementedSelectorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	428	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	429	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	430	'Side Effect Assignment Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	431	sideEffectAssignmentColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	432	sideEffectAssignmentColorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	433	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	434	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	435	'Side Effect Assignment Background Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	436	sideEffectAssignmentBackgroundColor
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	437	sideEffectAssignmentBackgroundColorEmphasis
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	438	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	439	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	440	'Coverage: Reached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	441	colorForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	442	emphasisForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	443	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	444	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	445	'Coverage: Partially Reached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	446	colorForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	447	emphasisForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	448	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	449	(
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	450	'Coverage: Unreached Color'
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	451	colorForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	452	emphasisForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	453	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	454	)
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	455
61d90dff9c88 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17358 diff changeset	456	"Modified: / 14-02-2012 / 10:17:46 / cg"
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	457	! !
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	459	!UserPreferences class methodsFor:'accessing - defaults'!
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	460
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	461	defaultUserSettingsFile
16651 0954be8fb1d2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16641 diff changeset	462	^ (Filename usersPrivateSmalltalkDirectory) / 'settings.stx'
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	463
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	464	"Created: / 06-10-2008 / 08:27:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	465	! !
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	466
6019 770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	467	!UserPreferences class methodsFor:'accessing defaultPrefs'!
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	468
11006 fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	469	defaultSettingsFilename
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	470	^ 'settings.stx'
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	471	!
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	472
6763 06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	473	fileBrowserClass
12949 1780725fdc63 comment/format in: #fileBrowserClass Claus Gittinger <cg@exept.de> parents: 12947 diff changeset	474	"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	475
6763 06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	476	^ self current fileBrowserClass
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	477
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	478	"
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	479	UserPreferences fileBrowserClass
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	480	"
12949 1780725fdc63 comment/format in: #fileBrowserClass Claus Gittinger <cg@exept.de> parents: 12947 diff changeset	481
1780725fdc63 comment/format in: #fileBrowserClass Claus Gittinger <cg@exept.de> parents: 12947 diff changeset	482	"Modified: / 17-07-2010 / 14:50:34 / cg"
6763 06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	483	!
06c247fe72a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6762 diff changeset	484
6019 770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	485	systemBrowserClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	486	^ self current systemBrowserClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	487
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	488	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	489	UserPreferences systemBrowserClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	490	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	491	!
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	492
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	493	versionDiffViewerClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	494	^ self current versionDiffViewerClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	495
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	496	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	497	UserPreferences versionDiffViewerClass
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	498	"
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	499	! !
770f994a520d * empty log message * Claus Gittinger <cg@exept.de> parents: 5808 diff changeset	500
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	501	!UserPreferences class methodsFor:'saving'!
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	502
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	503	saveSettings:userPrefs in:fileNameOrString
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	504	"save settings to a settings-file."
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	505
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	506	"a temporary kludge for old classVariable-based settings
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	507	- all of those MUST go into the user-preferences dictionary eventually"
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	508
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	509	\|screen fileName dir\|
5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	510
5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	511	fileName := fileNameOrString asFilename.
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	512
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	513	screen := Screen current.
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	514
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	515	(dir := fileName directory) exists ifFalse:[
5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	516	dir recursiveMakeDirectory.
17417 b64ee00eabdd class: UserPreferences Stefan Vogel <sv@exept.de> parents: 17415 diff changeset	517	].
17425 5b7e4af242a9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17417 diff changeset	518	fileName writingFileDo:[:s\|
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	519	s nextPutLine:'"/ ST/X saved settings';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	520	nextPutLine:'"/ DO NOT MODIFY MANUALLY';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	521	nextPutLine:'"/ (modifications would be lost with next save-settings)';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	522	nextPutLine:'"/';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	523	nextPutLine:'"/ this file was automatically generated by the';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	524	nextPutLine:'"/ ''save settings'' function of the SettingsDialog';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	525	nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	526	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	527
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	528	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	529	s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , Timestamp now printString.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	530	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	531	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	532
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	533	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	534	s nextPutLine:'"/ Display settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	535	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	536	s nextPutLine:'"/ only restore the display settings, if on the same Display ...'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	537	s nextPutLine:'Display notNil ifTrue:['.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	538	s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	539	screen fixColors notNil ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	540	s nextPutLine:' Image flushDeviceImages.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	541	s nextPutLine:' Color colorAllocationFailSignal catch:['.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	542	s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	543	s nextPutLine:' ].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	544	] ifFalse:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	545	s nextPutLine:' Display releaseFixColors.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	546	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	547	s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	548	s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	549	s nextPutLine:' Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	550	s nextPutLine:' Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	551	s nextPutLine:' Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	552	s nextPutLine:' View defaultStyle:' , View defaultStyle storeString , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	553	s nextPutLine:' ].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	554	s nextPutLine:'].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	555	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	556
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	557	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	558	s nextPutLine:'"/ Parser/Compiler settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	559	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	560	s nextPutLine:'ParserFlags warnSTXSpecials: ' , (ParserFlags warnSTXSpecials storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	561	nextPutLine:'ParserFlags warnings: ' , (ParserFlags warnings storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	562	nextPutLine:'ParserFlags warnUnderscoreInIdentifier: ' , (ParserFlags warnUnderscoreInIdentifier storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	563	nextPutLine:'ParserFlags warnOldStyleAssignment: ' , (ParserFlags warnOldStyleAssignment storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	564	nextPutLine:'ParserFlags warnCommonMistakes: ' , (ParserFlags warnCommonMistakes storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	565	nextPutLine:'ParserFlags warnPossibleIncompatibilities: ' , (ParserFlags warnPossibleIncompatibilities storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	566	nextPutLine:'ParserFlags allowUnderscoreInIdentifier: ' , (ParserFlags allowUnderscoreInIdentifier storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	567	nextPutLine:'ParserFlags allowSqueakExtensions: ' , (ParserFlags allowSqueakExtensions storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	568	nextPutLine:'ParserFlags allowDolphinExtensions: ' , (ParserFlags allowDolphinExtensions storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	569	nextPutLine:'ParserFlags allowQualifiedNames: ' , (ParserFlags allowQualifiedNames storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	570	nextPutLine:'ParserFlags arraysAreImmutable: ' , (ParserFlags arraysAreImmutable storeString) , '.';
14358 0537cf5714b0 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 14342 diff changeset	571	nextPutLine:'ParserFlags lineNumberInfo: ' , (ParserFlags lineNumberInfo storeString) , '.';
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	572
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	573	nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	574	nextPutLine:'ParserFlags stcCompilation: ' , (ParserFlags stcCompilation storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	575	nextPutLine:'OperatingSystem getOSType = ' , (OperatingSystem getOSType storeString) , ' ifTrue:[';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	576	nextPutLine:' ParserFlags stcCompilationIncludes: ' , (ParserFlags stcCompilationIncludes storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	577	nextPutLine:' ParserFlags stcCompilationDefines: ' , (ParserFlags stcCompilationDefines storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	578	nextPutLine:' ParserFlags stcCompilationOptions: ' , (ParserFlags stcCompilationOptions storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	579	nextPutLine:' ' , (ParserFlags stcModulePath storeString) , ' asFilename exists ifTrue:[';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	580	nextPutLine:' ParserFlags stcModulePath: ' , (ParserFlags stcModulePath storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	581	nextPutLine:' ].';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	582	nextPutLine:' ParserFlags stcPath: ' , (ParserFlags stcPath storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	583	nextPutLine:' ParserFlags ccCompilationOptions: ' , (ParserFlags ccCompilationOptions storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	584	nextPutLine:' ParserFlags ccPath: ' , (ParserFlags ccPath storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	585	nextPutLine:' ParserFlags linkArgs: ' , (ParserFlags linkArgs storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	586	nextPutLine:' ParserFlags linkSharedArgs: ' , (ParserFlags linkSharedArgs storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	587	nextPutLine:' ParserFlags linkCommand: ' , (ParserFlags linkCommand storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	588	nextPutLine:' ParserFlags makeCommand: ' , (ParserFlags makeCommand storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	589	nextPutLine:' ParserFlags libPath: ' , (ParserFlags libPath storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	590	nextPutLine:' ParserFlags searchedLibraries: ' , (ParserFlags searchedLibraries storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	591	nextPutLine:'].';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	592
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	593	nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	594	nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	595
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	596	HistoryManager notNil ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	597	HistoryManager isActive ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	598	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	599	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	600	] ifFalse:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	601	s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	602	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	603	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	604
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	605	s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	606	s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	607
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	608	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	609	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	610	s nextPutLine:'"/ Info & Debug Messages:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	611	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	612	s nextPutLine:'Smalltalk hasNoConsole ifFalse:[ ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '].';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	613	nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	614	nextPutLine:'Smalltalk hasNoConsole ifFalse:[ Object infoPrinting: ' , (Object infoPrinting storeString) , '].';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	615	nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	616
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	617	"/ FlyByHelp isActive ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	618	"/ s nextPutLine:'FlyByHelp start.'
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	619	"/ ].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	620
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	621	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	622	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	623	s nextPutLine:'"/ Edit settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	624	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	625	"/ s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'.
16467 2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	626	"/ s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	627	s nextPutLine:'UserPreferences current syntaxColoring: ' , (userPrefs syntaxColoring storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	628	(ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	629	s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'.
11983 1cbdd1c24ea5 changed: #saveSettings:in: fm parents: 11943 diff changeset	630	] ifFalse:[
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	631	s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	632	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	633
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	634	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	635	s nextPutLine:'"/ User preference values:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	636	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	637	userPrefs keysAndValuesDo:[:k :v \|
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	638	\|putSelector\|
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	639
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	640	putSelector := (k , ':') asSymbolIfInterned.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	641	(UserPreferences includesSelector:putSelector) ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	642	s nextPutAll:'UserPreferences current ';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	643	nextPutAll:putSelector.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	644	] ifFalse:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	645	s nextPutAll:'UserPreferences current at:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	646	k storeOn:s.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	647	s nextPutAll:' put:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	648	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	649	v storeOn:s.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	650	s nextPut:$.; cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	651	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	652
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	653	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	654	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	655	s nextPutLine:'"/ GC settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	656	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	657	s nextPutLine:'ObjectMemory newSpaceSize: ' , (ObjectMemory newSpaceSize storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	658	nextPutLine:'ObjectMemory dynamicCodeGCTrigger: ' , (ObjectMemory dynamicCodeGCTrigger storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	659	nextPutLine:'ObjectMemory freeSpaceGCAmount: ' , (ObjectMemory freeSpaceGCAmount storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	660	nextPutLine:'ObjectMemory freeSpaceGCLimit: ' , (ObjectMemory freeSpaceGCLimit storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	661	nextPutLine:'ObjectMemory incrementalGCLimit: ' , (ObjectMemory incrementalGCLimit storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	662	nextPutLine:'ObjectMemory oldSpaceCompressLimit: ' , (ObjectMemory oldSpaceCompressLimit storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	663	nextPutLine:'ObjectMemory oldSpaceIncrement: ' , (ObjectMemory oldSpaceIncrement storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	664
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	665	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	666	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	667	s nextPutLine:'"/ Misc settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	668	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	669	s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	670	nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	671	nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	672	nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	673	nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	674
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	675	"/ claus - I dont think its a good idea to save those ...
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	676	"/ nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	677	"/ nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	678
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	679	nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	680	nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	681	nextPutLine:'Display notNil ifTrue:[';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	682	nextPutLine:' Display activateOnClick: ' , ((screen activateOnClick:nil) storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	683	nextPutLine:'].';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	684	nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	685	nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	686	(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	687	s nextPutLine:'NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	688	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	689	Processor isTimeSlicing ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	690	s nextPutLine:'Processor startTimeSlicing.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	691	s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.').
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	692	] ifFalse:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	693	s nextPutLine:'Processor stopTimeSlicing.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	694	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	695
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	696	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	697	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	698	s nextPutLine:'"/ Printer settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	699	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	700	Printer notNil ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	701	s nextPutLine:'Printer := ' , (Printer name) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	702	Printer supportsPrintingToCommand ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	703	s nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	704	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	705	Printer supportsPageSizes ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	706	s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	707	s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	708	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	709	Printer supportsMargins ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	710	s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	711	s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	712	s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	713	s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	714	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	715	Printer supportsPostscript ifTrue:[
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	716	s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	717	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	718	].
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	719	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	720	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	721	s nextPutLine:'"/ Font settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	722	s nextPutLine:'"/ (only restored, if image is restarted on the same display)'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	723	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	724	s nextPutLine:'Display notNil ifTrue:['.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	725	s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	726	{
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	727	SimpleView . Label . CheckBox . CheckLabel . Button . Toggle .
15748 af092ba5bea8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15747 diff changeset	728	SelectionInListView . MenuView . MenuPanel . NoteBookView . PullDownMenu .
af092ba5bea8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15747 diff changeset	729	TextView . EditTextView . CodeView
af092ba5bea8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15747 diff changeset	730	} do:[:cls \|
af092ba5bea8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15747 diff changeset	731	s nextPutLine:' ',cls name,' defaultFont: ' , (cls defaultFont storeString) , '.'.
af092ba5bea8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15747 diff changeset	732	].
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	733	s nextPutLine:' ].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	734	s nextPutLine:'].'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	735
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	736	s cr.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	737	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	738	s nextPutLine:'"/ SourceCodeManager settings:'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	739	s nextPutLine:'"/ (repositories are networked nowadays, so the settings are host independent)'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	740	s nextPutLine:'"/'.
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	741	s nextPutLine:'Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'.
16484 e16e77da9fcc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16467 diff changeset	742	s nextPutLine:'AbstractSourceCodeManager notNil ifTrue:[AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '].'.
14307 67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	743
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	744	AbstractSourceCodeManager availableManagers do:[:eachManager \|
67d0d208989d changed: #saveSettings:in: Stefan Vogel <sv@exept.de> parents: 14267 diff changeset	745	eachManager savePreferencesOn:s
11983 1cbdd1c24ea5 changed: #saveSettings:in: fm parents: 11943 diff changeset	746	].
14761 c8ee21a63d91 class: UserPreferences Stefan Vogel <sv@exept.de> parents: 14742 diff changeset	747	s syncData.
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	748	].
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	749
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	750	"
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	751	Transcript topView application saveSettings
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	752	"
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	753
9492 89bfc46b3b48 make command fm parents: 9491 diff changeset	754	"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	755	"Modified: / 26-09-2012 / 13:33:47 / cg"
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	756	! !
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	757
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	758	!UserPreferences methodsFor:'accessing'!
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	759
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	760	at:key
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	761	^ super at:key asSymbol
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	762
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	763	"Created: / 15-01-2012 / 14:27:29 / cg"
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	764	!
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	765
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	766	at:key ifAbsent:exceptionValue
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	767	^ super
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	768	at:key asSymbol
17414 d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	769	ifAbsent:[
d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	770	"/ Look to DefaultPreferences first...
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	771	(DefaultPreferences notNil and:[self ~~ DefaultPreferences]) ifTrue:[
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	772	DefaultPreferences at:key ifAbsent:exceptionValue
17414 d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	773	] ifFalse:[
d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	774	exceptionValue value
d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	775	]
d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	776	].
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	777
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	778	"Created: / 15-01-2012 / 14:27:21 / cg"
17414 d2b54cba3e88 Changed preference lookup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17398 diff changeset	779	"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	780	!
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	781
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	782	at:key put:value
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	783	\|classNameToCheck classToCheck\|
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	784
13119 82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	785	"/ key isSymbol ifFalse:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	786	"/ self halt.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	787	"/ self at:key asSymbol put:value.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	788	"/ ^ self
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	789	"/ ].
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	790
6059 e2cbd67e3d07 checkin from browser Claus Gittinger <cg@exept.de> parents: 6019 diff changeset	791	value == true ifTrue:[
13119 82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	792	key == #useNewVersionDiffBrowser ifTrue:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	793	classNameToCheck := #'VersionDiffBrowser'.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	794	].
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	795	key == #useNewChangesBrowser ifTrue:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	796	classNameToCheck := #'NewChangesBrowser'.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	797	].
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	798	key == #useNewFileBrowser ifTrue:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	799	classNameToCheck := #'FileBrowserV2'.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	800	].
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	801	key == #useNewSystemBrowser ifTrue:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	802	classNameToCheck := #'Tools::NewSystemBrowser'.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	803	].
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	804	key == #useNewInspector ifTrue:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	805	classNameToCheck := #'NewInspector::NewInspectorView'.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	806	].
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	807	].
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	808
5791 8e96850a568d checkin from browser Claus Gittinger <cg@exept.de> parents: 5790 diff changeset	809	classNameToCheck notNil ifTrue:[
13119 82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	810	classToCheck := Smalltalk at:classNameToCheck.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	811	classToCheck isNil ifTrue:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	812	('UserPreferences [warning]: no class ' , classNameToCheck , ' class in system.') errorPrintCR.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	813	] ifFalse:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	814	Autoload autoloadFailedSignal handle:[:ex \|
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	815	'UserPreferences [warning]: autoload of ' , classNameToCheck , ' failed.' errorPrintCR.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	816	] do:[
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	817	classToCheck autoload.
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	818	]
82da961e9fb2 changed: #at:put: Claus Gittinger <cg@exept.de> parents: 13103 diff changeset	819	]
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	820	].
83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	821
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	822	^ super at:key asSymbol put:value
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	823
0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	824	"Modified: / 15-01-2012 / 14:26:53 / cg"
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	825	! !
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	826
17541 921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	827
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	828
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	829
16467 2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	830	!UserPreferences methodsFor:'accessing-changes & history'!
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	831
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	832	changeFileName
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	833	"were to keep changes"
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	834
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	835	^self
16467 2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	836	at: #'changeFileName'
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	837	ifAbsent: nil
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	838	!
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	839
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	840	changeFileName:aFilename
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	841	"were to keep changes"
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	842
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	843	self
16467 2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	844	at: #'changeFileName'
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	845	put: aFilename.
2cd0253c75f1 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	846	! !
16278 994fd5ae721e class: UserPreferences Stefan Vogel <sv@exept.de> parents: 16266 diff changeset	847
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	848	!UserPreferences methodsFor:'accessing-locale'!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	849
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	850	dateInputFormat
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	851	"return a format used when tools read a date from the user"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	852
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	853	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	854	at:#dateInputFormat
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	855	ifAbsentPut:[
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	856	(self language == #en and:[ self languageTerritory ~= #en])
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	857	ifTrue:[ '%m %d %y' ]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	858	ifFalse:[ '%d %m %y' ]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	859	]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	860	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	861
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	862	dateInputFormat:aFormatString
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	863	"return a format used when tools read a date from the user"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	864
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	865	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	866	at:#dateInputFormat
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	867	ifAbsentPut:[
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	868	(self language == #en and:[ self languageTerritory ~= #en])
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	869	ifTrue:[ '%m %d %y' ]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	870	ifFalse:[ '%d %m %y' ]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	871	]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	872
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	873	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	874	UserPreferences current dateInputFormat:'%d %m %y' -- european
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	875	UserPreferences current dateInputFormat:'%m %d %y' -- us
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	876	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	877	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	878
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	879	decimalPointCharacter
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	880	"toDo: migrate from ClassVar in Number;
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	881	use this for new applications"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	882
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	883	^ $.
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	884	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	885
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	886	thousandsSeparatorCharacter
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	887	"toDo: migrate from ClassVar elsewhere;
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	888	use this for new applications"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	889
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	890	^ $'
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	891	! !
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	892
14267 fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	893	!UserPreferences methodsFor:'accessing-misc'!
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	894
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	895	selectorNamespacesEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	896	"Return true, if selector namespaces support is enabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	897	for this system. Note, that this method may return true
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	898	even if selector namespaces are not supported by this system.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	899
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	900	This is rather user setting. To ask whether the selector namespaces
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	901	support should be used, use:
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	902
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	903	UserPreferences current selectorNamespacesSupportedAndEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	904	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	905
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	906	^self at:#selectorNamespacesEnabled ifAbsent:[false].
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	907
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	908	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	909	UserPreferences current selectorNamespacesEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	910	UserPreferences current selectorNamespacesSupportedAndEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	911
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	912	UserPreferences current selectorNamespacesEnabled: true.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	913	UserPreferences current selectorNamespacesEnabled: false.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	914	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	915
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	916	"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	917	!
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	918
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	919	selectorNamespacesEnabled: aBoolean
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	920	"Enables/disables selector namespaces support for this system.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	921	Please note that even if selector namespaces are enabled here,
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	922	they may not be supported by the system/VM.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	923
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	924	This is rather user setting. To ask whether the selector namespaces
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	925	are supported use
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	926
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	927	ConfigurableFeatures includesFeature:#SelectorNamespaces
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	928	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	929
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	930	self at:#selectorNamespacesEnabled put: aBoolean
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	931
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	932	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	933	UserPreferences current selectorNamespacesEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	934	UserPreferences current selectorNamespacesSupportedAndEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	935
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	936	UserPreferences current selectorNamespacesEnabled: true.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	937	UserPreferences current selectorNamespacesEnabled: false.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	938	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	939
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	940	"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	941	!
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	942
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	943	selectorNamespacesSupportedAndEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	944	"Return true, if selector namespaces are both enabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	945	and supported by this system/VM, false otherwise
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	946	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	947
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	948	^ (ConfigurableFeatures includesFeature:#SelectorNamespaces)
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	949	and:[self selectorNamespacesEnabled]
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	950
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	951	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	952	UserPreferences current selectorNamespacesEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	953	UserPreferences current selectorNamespacesSupportedAndEnabled
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	954
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	955	UserPreferences current selectorNamespacesEnabled: true.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	956	UserPreferences current selectorNamespacesEnabled: false.
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	957	"
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	958
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	959	"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	960	! !
fe9b75cfa30f added: Claus Gittinger <cg@exept.de> parents: 14258 diff changeset	961
10723 6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	962	!UserPreferences methodsFor:'accessing-misc-communication'!
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	963
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	964	dotNetBridgeRunsInIDE
11930 dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	965	"a debugging flag: if true, the dotNetBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	966	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	967
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	968	^ self at:#dotNetBridgeRunsInIDE ifAbsent:false
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	969	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	970
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	971	dotNetBridgeRunsInIDE:aBoolean
11930 dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	972	"a debugging flag: if true, the dotNetBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	973	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	974
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	975	^ self at:#dotNetBridgeRunsInIDE put:aBoolean
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	976	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	977
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	978	dotNetBridgeVerbose
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	979	^ self at:#dotNetBridgeVerbose ifAbsent:false
11027 b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	980
b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	981	"
b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	982	UserPreferences current dotNetBridgeVerbose
b7639c2fdeb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 11024 diff changeset	983	"
11023 3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	984	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	985
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	986	dotNetBridgeVerbose:aBoolean
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	987	^ self at:#dotNetBridgeVerbose put:aBoolean
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	988	!
3a4668a789f9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 11012 diff changeset	989
11930 dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	990	javaBridgeRunsInIDE
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	991	"a debugging flag: if true, the javaBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	992	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	993
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	994	^ self at:#javaBridgeRunsInIDE ifAbsent:false
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	995	!
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	996
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	997	javaBridgeRunsInIDE:aBoolean
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	998	"a debugging flag: if true, the javaBridge is assumed to be
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	999	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	1000
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1001	^ self at:#javaBridgeRunsInIDE put:aBoolean
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1002	!
dafd3ec98be5 preps for javaBridge Claus Gittinger <cg@exept.de> parents: 11929 diff changeset	1003
12792 a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1004	logHTTPRequests
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1005	^ self at:#logHTTPRequests ifAbsent:false
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1006	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1007
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1008	logHTTPRequests:aBoolean
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1009	^ self at:#logHTTPRequests put:aBoolean
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1010
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1011	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1012	UserPreferences current logHTTPRequests
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1013	UserPreferences current logHTTPRequests:true
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1014	UserPreferences current logHTTPRequests:false
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1015	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1016	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1017
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1018	logSOAPRequests
12793 b01055f1932b changed: Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	1019	^ (self soapLoggingLevel ? 0) > 0
12792 a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1020	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1021
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1022	logSOAPRequests:aBoolean
12793 b01055f1932b changed: Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	1023	self soapLoggingLevel:(aBoolean ifTrue:3 ifFalse:0)
12792 a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1024
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1025	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1026	UserPreferences current logSOAPRequests
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1027	UserPreferences current logSOAPRequests:true
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1028	UserPreferences current logSOAPRequests:false
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1029	"
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1030	!
a90d9830f2b2 added: Claus Gittinger <cg@exept.de> parents: 12774 diff changeset	1031
10723 6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1032	smtpServerName
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1033	^ self at:#smtpServerName ifAbsent:nil
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1034
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1035	"Created: / 20-09-2007 / 15:59:20 / cg"
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1036	!
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1037
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1038	smtpServerName:aHostnameString
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1039	^ self at:#smtpServerName put:aHostnameString
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1040
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1041	"
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1042	UserPreferences current smtpServerName
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1043	UserPreferences current smtpServerName:'mailhost'
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1044	"
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1045
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1046	"Created: / 20-09-2007 / 15:59:58 / cg"
12562 44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1047	!
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1048
12563 739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1049	soapErrorDebugging
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1050	"open a debugger on error, or report it as a soap-error"
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1051
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1052	^ self at:#soapErrorDebugging ifAbsent:false
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1053	!
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1054
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1055	soapErrorDebugging:aBoolean
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1056	"open a debugger on error, or report it as a soap-error"
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1057	^ self at:#soapErrorDebugging put:aBoolean
12774 3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1058
3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1059	"
3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1060	UserPreferences current soapErrorDebugging:true
3d5e2c85faef comment/format in: #soapErrorDebugging: Claus Gittinger <cg@exept.de> parents: 12619 diff changeset	1061	"
12563 739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1062	!
739edda3428d added: Claus Gittinger <cg@exept.de> parents: 12562 diff changeset	1063
12562 44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1064	soapLoggingLevel
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1065	^ self at:#soapLoggingLevel ifAbsent:nil
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1066	!
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1067
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1068	soapLoggingLevel:anIntegerBetween0_and_3
44c6c9d39062 added: Claus Gittinger <cg@exept.de> parents: 12522 diff changeset	1069	^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3
13884 6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1070	!
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1071
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1072	socksProxyHost
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1073	^ self at:#socksProxyHost ifAbsent:nil
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1074
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1075	"Created: / 27-12-2011 / 14:40:27 / cg"
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1076	!
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1077
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1078	socksProxyHost:aString
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1079	^ self at:#socksProxyHost put:aString
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1080
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1081	"Created: / 27-12-2011 / 14:42:15 / cg"
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1082	!
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1083
13884 6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1084	socksProxyPort
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1085	^ self at:#socksProxyPort ifAbsent:nil
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1086
6ba56411273c added: Claus Gittinger <cg@exept.de> parents: 13722 diff changeset	1087	"Created: / 27-12-2011 / 14:40:32 / cg"
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1088	!
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1089
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1090	socksProxyPort:aNumber
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1091	^ self at:#socksProxyPort put:aNumber
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1092
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	1093	"Created: / 27-12-2011 / 14:42:29 / cg"
10723 6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1094	! !
6fb861a1e7fd smtpServer Claus Gittinger <cg@exept.de> parents: 10665 diff changeset	1095
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	1096	!UserPreferences methodsFor:'accessing-pref''d tools'!
5790 83f92b49caae checkin from browser Claus Gittinger <cg@exept.de> parents: 5784 diff changeset	1097
13477 2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1098	changeSetBrowserClass
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1099
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1100	\| class className \|
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1101
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1102	className := self at: #changeSetBrowserClassName ifAbsent:[nil].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1103	className notNil ifTrue:[
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1104	class := Smalltalk at: className asSymbol.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1105	class notNil ifTrue:[ ^ class ].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1106	].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1107
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1108	"Original code"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1109	^ ChangeSetBrowser.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1110	"/^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1111
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1112	self useNewChangeSetBrowser ifTrue:[
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1113	^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1114	].
15893 50cd1937359d class: UserPreferences sr parents: 15865 diff changeset	1115	^ ChangeSetBrowser ? Tools::ChangeSetBrowser2
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1116
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1117	"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1118	self current changeSetBrowserClass
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1119	"
13477 2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1120
2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1121	"Created: / 01-07-2011 / 16:33:13 / cg"
13523 03ec11a75c9d changed: #changeSetBrowserClass sr parents: 13522 diff changeset	1122	"Modified: / 25-07-2011 / 12:21:42 / sr"
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1123	"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	1124	!
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1125
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1126	changeSetBrowserClass: aClass
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1127
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1128	self at: #changeSetBrowserClassName put: aClass name.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1129
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1130	"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1131	UserPreferences current changeSetBrowserClass
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1132	UserPreferences current changeSetBrowserClass: Tools::ChangeSetBrowser2.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1133	UserPreferences current changeSetBrowserClass: ChangeSetBrowser.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1134	"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1135
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1136	"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	1137	!
2cf9f960c33e added: #changeSetBrowserClass Claus Gittinger <cg@exept.de> parents: 13470 diff changeset	1138
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1139	changesBrowserClass
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1140	"the browser to be used for the changeFile"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1141
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1142	\| class className \|
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1143
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1144	className := self at: #changesBrowserClassName ifAbsent:[nil].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1145	className notNil ifTrue:[
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1146	class := Smalltalk at: className asSymbol.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1147	class notNil ifTrue:[ ^ class ].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1148	].
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1149
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1150	"/ Old code
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1151	self useNewChangesBrowser ifTrue:[
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1152	^ (NewChangesBrowser ? ChangesBrowser)
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1153	].
8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1154	^ ChangesBrowser
8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1155
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1156	"Created: / 17-10-1998 / 14:37:46 / cg"
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1157	"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	1158	!
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1159
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1160	changesBrowserClass: aClass
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1161
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1162	self at: #changesBrowserClassName put: aClass name.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1163
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1164	"
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1165	UserPreferences current changesBrowserClass
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1166	UserPreferences current changesBrowserClass: Tools::ChangeSetBrowser2.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1167	UserPreferences current changesBrowserClass: ChangeSetBrowser.
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	1168	"
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	"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	1171	!
361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1172
14735 928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1173	externalDiffCommandTemplate
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1174	"the external command to use for diff"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1175
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	1176	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	1177	at:#externalDiffCommandTemplate
14735 928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1178	ifAbsent:[
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1179	OperatingSystem isMSDOSlike ifTrue:[
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1180	'diff %1 %2'
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1181	] ifFalse:[
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1182	'diff -b %1 %2'
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1183	]
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1184	]
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1185
14736 6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1186	"
6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1187	UserPreferences current externalDiffCommandTemplate
6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1188	"
6f662581a5de class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14735 diff changeset	1189
14735 928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1190	"Modified: / 13-10-1998 / 15:53:05 / cg"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1191	"Created: / 26-07-2012 / 15:06:31 / cg"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1192	!
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1193
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1194	externalDiffCommandTemplate:aString
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1195	"the external command to use for diff.
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1196	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	1197
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1198	self at:#externalDiffCommandTemplate put:aString
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1199
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1200	"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1201	UserPreferences current externalDiffCommandTemplate
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1202	"
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1203	!
928c076e96b9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14734 diff changeset	1204
6177 ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1205	inspectorClassSetting
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1206	self useNewInspector ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1207	^ (NewInspector::NewInspectorView ? InspectorView)
6177 ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1208	].
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1209	^ InspectorView
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1210
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1211	"Modified: / 12.11.2001 / 15:47:35 / cg"
ffdc0e8dc4c0 inspector Claus Gittinger <cg@exept.de> parents: 6171 diff changeset	1212	"Created: / 12.11.2001 / 15:49:00 / cg"
5541 057aef033483 checkin from browser Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	1213	!
057aef033483 checkin from browser Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	1214
11005 72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1215	showTipOfTheDayAtStartup
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1216	^ self at:#showTipOfTheDayAtStartup ifAbsent:false
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1217	!
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1218
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1219	showTipOfTheDayAtStartup:aBoolean
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1220	self at:#showTipOfTheDayAtStartup put:aBoolean.
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1221	!
72032eb19a6b tip of the day Claus Gittinger <cg@exept.de> parents: 10992 diff changeset	1222
5535 361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1223	systemBrowserClass
361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1224	self useNewSystemBrowser ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1225	^ ((Tools::NewSystemBrowser ? NewSystemBrowser) ? SystemBrowser)
5535 361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1226	].
361c7dd4c2bb category change Claus Gittinger <cg@exept.de> parents: 5516 diff changeset	1227	^ SystemBrowser
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1228	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1229
13502 600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1230	testRunnerClass
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1231	self useTestRunner2 ifTrue:[
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1232	^ Tools::TestRunner2 ? TestRunner
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1233	].
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1234	^ TestRunner
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1235
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1236	"Created: / 06-07-2011 / 13:55:03 / cg"
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1237	!
600830578bae added: #testRunnerClass Claus Gittinger <cg@exept.de> parents: 13501 diff changeset	1238
13486 cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1239	useInspector2
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1240	"using brand new or old inspector"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1241
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1242	^ self at:#useInspector2 ifAbsent:false
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1243
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1244	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1245	UserPreferences current useInspector2
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1246	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1247
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1248	"Modified: / 17-10-1998 / 14:45:12 / cg"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1249	"Created: / 03-07-2011 / 22:35:50 / cg"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1250	!
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1251
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1252	useInspector2:aBoolean
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1253	"using very new or old inspector"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1254
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1255	self at:#useInspector2 put:aBoolean
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1256
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1257	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1258	UserPreferences current useInspector2
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1259	"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1260
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1261	"Created: / 03-07-2011 / 22:36:13 / cg"
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1262	!
cd82eed3c877 added: Claus Gittinger <cg@exept.de> parents: 13477 diff changeset	1263
10924 aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1264	useNativeFileDialog
13047 a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1265	^ self nativeFileDialogs
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1266
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1267	"Modified: / 24-08-2010 / 17:02:10 / sr"
10924 aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1268	!
aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1269
aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1270	useNativeFileDialog:aBoolean
13047 a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1271	self nativeFileDialogs:aBoolean
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1272
a81c5a240b3a added:10 methods sr parents: 12949 diff changeset	1273	"Modified: / 24-08-2010 / 17:02:13 / sr"
10924 aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1274	!
aab0b298ebf9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10887 diff changeset	1275
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1276	useNewChangeSetBrowser
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1277	"using old or jan's changeSetBrowser for package diffs"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1278
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1279	^ self at:#useNewChangeSetBrowser ifAbsent:false
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1280
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1281	"Modified: / 13-10-1998 / 15:53:05 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1282	"Created: / 26-07-2012 / 15:06:31 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1283	!
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1284
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1285	useNewChangeSetBrowser:aBoolean
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1286	"using old or jan's changeSetBrowser for package diffs"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1287
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1288	^ self at:#useNewChangeSetBrowser put:aBoolean
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1289
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1290	"Created: / 26-07-2012 / 15:06:50 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1291	!
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1292
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1293	useNewChangesBrowser
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1294	"using new or old change browser for the changes file"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1295
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1296	^ self at:#useNewChangesBrowser ifAbsent:false
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1297
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1298	"Modified: / 13-10-1998 / 15:53:05 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1299	"Modified (comment): / 26-07-2012 / 15:04:37 / cg"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1300	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1301
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1302	useNewChangesBrowser:aBoolean
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1303	"using new or old changeBrowser for the changes file"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1304
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1305	self at:#useNewChangesBrowser put:aBoolean
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1306
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1307	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1308	UserPreferences current useNewChangesBrowser
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1309	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1310
14252 c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1311	"Modified: / 13-10-1998 / 15:53:21 / cg"
c6034c343ebb added: Claus Gittinger <cg@exept.de> parents: 14160 diff changeset	1312	"Modified (comment): / 26-07-2012 / 15:04:39 / cg"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1313	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1314
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1315	useNewFileBrowser
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1316	"using new or old version diff viewer"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1317
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1318	^ self at:#useNewFileBrowser ifAbsent:(FileBrowserV2 notNil and:[FileBrowserV2 isLoaded])
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1319
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1320	"Modified: / 13.10.1998 / 15:53:05 / cg"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1321	!
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1322
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1323	useNewFileBrowser:aBoolean
6765 446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1324	"using new or old file browser"
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1325
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1326	self at:#useNewFileBrowser put:aBoolean
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1327
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1328	"
6769 8cd2d038bfc6 * empty log message * penk parents: 6767 diff changeset	1329	UserPreferences current useNewFileBrowser
6717 680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1330	"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1331
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1332	"Modified: / 13.10.1998 / 15:53:21 / cg"
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1333	!
680a8f3f8c4d add new fileBrowser in tool settings penk parents: 6666 diff changeset	1334
6765 446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1335	useNewFileDialog
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1336	"using new or old file dialog"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1337
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1338	^ self at:#useNewFileDialog ifAbsent:true
13973 c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1339
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1340	"
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1341	UserPreferences current useNewFileDialog:false
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1342	UserPreferences current useNewFileDialog:true
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1343	"
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1344
c5f0893cbb11 comment/format in: #useNewFileDialog Claus Gittinger <cg@exept.de> parents: 13967 diff changeset	1345	"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	1346	!
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1347
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1348	useNewFileDialog:aBoolean
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1349	"using new or old file dialog"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1350
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1351	self at:#useNewFileDialog put:aBoolean
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1352
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1353	"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1354	UserPreferences current useNewFileDialog:true
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1355	"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1356	!
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1357
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1358	useNewInspector
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1359	"using new or old inspector"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1360
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1361	^ self at:#useNewInspector ifAbsent:false
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1362
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1363	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1364	UserPreferences current useNewInspector
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1365	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1366
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1367	"Modified: / 17.10.1998 / 14:45:12 / cg"
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
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1370	useNewInspector:aBoolean
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1371	"using new or old inspector"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1372
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1373	self at:#useNewInspector put:aBoolean
5536 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	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1376	UserPreferences current useNewInspector
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1377	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1378	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1379
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1380	useNewSettingsApplication
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1381	"using one application for the settings"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1382
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1383	^ self at:#useNewSettingsApplication ifAbsent:true
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1384	!
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1385
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1386	useNewSettingsApplication:aBoolean
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1387	"using one application for the settings"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1388
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1389	self at:#useNewSettingsApplication put:aBoolean
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1390
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1391	"
6935 7cc9b6a59299 change accessor 'type in error' penk parents: 6928 diff changeset	1392	UserPreferences current useNewSettingsApplication:true
6838 26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1393	"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1394
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1395	"Modified: / 13.10.1998 / 15:53:21 / cg"
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1396	!
26d49b3a22c9 add preferences for use new settings penk parents: 6832 diff changeset	1397
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1398	useNewSystemBrowser
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1399	"using new or old system browser"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1400
8593 ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1401	\|newSystemBrowserClass useIt\|
8000 44413c7ef9c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 7993 diff changeset	1402
44413c7ef9c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 7993 diff changeset	1403	newSystemBrowserClass := (Tools::NewSystemBrowser ? NewSystemBrowser).
8593 ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1404	useIt := self at:#useNewSystemBrowser ifAbsent:nil.
ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1405	useIt isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1406	useIt := (newSystemBrowserClass notNil and:[ newSystemBrowserClass isLoaded]).
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1407	useIt ifTrue:[
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1408	self at:#useNewSystemBrowser put:true.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1409	].
8593 ad78295d4605 * empty log message * Claus Gittinger <cg@exept.de> parents: 8551 diff changeset	1410	].
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1411	^ useIt
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1412	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1413
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1414	useNewSystemBrowser:aBoolean
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1415	"using new or old systemBrowser"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1416
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1417	self at:#useNewSystemBrowser put:aBoolean
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1418
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1419	"
5541 057aef033483 checkin from browser Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	1420	UserPreferences current useNewSystemBrowser:true
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1421	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1422
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1423	"Modified: / 13.10.1998 / 15:53:21 / cg"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1424	!
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1425
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1426	useNewVersionDiffBrowser
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1427	"using new or old version diff viewer"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1428
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1429	^ self at:#useNewVersionDiffBrowser ifAbsent:true
5536 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	"Modified: / 13.10.1998 / 15:53:05 / cg"
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	useNewVersionDiffBrowser:aBoolean
6765 446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed penk parents: 6763 diff changeset	1435	"using new or old versionDiffBrowser"
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1436
5784 c6458c4f3c49 oops - usage of new tools could not be turned off Claus Gittinger <cg@exept.de> parents: 5712 diff changeset	1437	self at:#useNewVersionDiffBrowser put:aBoolean
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1438
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1439	"
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1440	UserPreferences current useNewVersionDiffBrowser
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	"Modified: / 13.10.1998 / 15:53:21 / cg"
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
6959 e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1446	useProcessMonitorV2
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1447	"using ProcessMonitorV2 application for display Processes"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1448
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1449	^ self at:#useProcessMonitorV2 ifAbsent:(ProcessMonitorV2 notNil)
6959 e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1450	!
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1451
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1452	useProcessMonitorV2:aBoolean
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1453	"using ProcessMonitorV2 application for display Processes"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1454
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1455	self at:#useProcessMonitorV2 put:aBoolean
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1456
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1457	"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1458	UserPreferences current useProcessMonitorV2:true
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1459	"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1460
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1461	"Modified: / 13.10.1998 / 15:53:21 / cg"
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1462	!
e766340a8f5b add useProcessMonitorV2 penk parents: 6951 diff changeset	1463
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1464	useSmalltalkDocumentViewer
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1465	"using the smalltalk-DocumentViewer (as opposed to the native systems Browser)
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1466	to display documentation"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1467
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1468	^ self at:#useSmalltalkDocumentViewer ifAbsent:true
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1469
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1470	"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1471	UserPreferences current useSmalltalkDocumentViewer
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1472	UserPreferences current useSmalltalkDocumentViewer:false
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1473	"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1474	!
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1475
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1476	useSmalltalkDocumentViewer:aBoolean
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1477	"using the smalltalk-DocumentViewer (as opposed to the native systems Browser)
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1478	to display documentation"
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1479
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1480	^ self at:#useSmalltalkDocumentViewer put:aBoolean
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1481	!
f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1482
13501 4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1483	useTestRunner2
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1484	"using new or old test runner"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1485
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1486	^ self at:#useTestRunner2 ifAbsent:true
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1487
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1488	"Created: / 06-07-2011 / 13:41:33 / cg"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1489	!
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1490
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1491	useTestRunner2:aBoolean
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1492	"using new or old test runner"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1493
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1494	self at:#useTestRunner2 put:aBoolean
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1495
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1496	"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1497	UserPreferences current useTestRunner2:true
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1498	"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1499
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1500	"Created: / 06-07-2011 / 13:41:40 / cg"
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1501	!
4a7c2001c986 added: Claus Gittinger <cg@exept.de> parents: 13486 diff changeset	1502
16542 9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1503	useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1504	"switch between xtermView (xembed) and vt100 (st/x emulation)
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1505	if possible on that architecture."
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1506
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1507	^ self at:#useXTermViewIfAvailable ifAbsent:false
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1508
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1509	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1510	UserPreferences current useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1511	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1512	!
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1513
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1514	useXTermViewIfAvailable:aBoolean
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1515	"switch between xtermView (xembed) and vt100 (st/x emulation)
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1516	if possible on that architecture."
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1517
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1518	self at:#useXTermViewIfAvailable put:aBoolean
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1519
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1520	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1521	UserPreferences current useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1522	"
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1523	!
9c8eb61c5f36 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16484 diff changeset	1524
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1525	versionDiffViewerClass
683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1526	self useNewVersionDiffBrowser ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	1527	^ (VersionDiffBrowser ? DiffTextView)
5536 683a52b52f50 tool access Claus Gittinger <cg@exept.de> parents: 5535 diff changeset	1528	].
10992 f03d40b016f4 use new DiffCodeView Claus Gittinger <cg@exept.de> parents: 10924 diff changeset	1529	^ DiffCodeView
3883 8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1530	! !
8e0771f4a196 checkin from browser Claus Gittinger <cg@exept.de> parents: 3875 diff changeset	1531
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	1532	!UserPreferences methodsFor:'accessing-prefs-UI'!
3358 f1b2b7b83d3e checkin from browser Claus Gittinger <cg@exept.de> parents: 3357 diff changeset	1533
11390 f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1534	allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1535	"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	1536
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1537	^ self at:#allowMouseWheelZoom ifAbsent:[ true ]
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1538
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1539	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1540	UserPreferences current allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1541	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1542	!
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1543
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1544	allowMouseWheelZoom:aBooleanOrNil
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1545	"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	1546
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1547	^ self at:#allowMouseWheelZoom put:aBooleanOrNil
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1548
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1549	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1550	UserPreferences current allowMouseWheelZoom:true
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1551	UserPreferences current allowMouseWheelZoom:false
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1552	UserPreferences current allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1553	"
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1554	!
f0f1b0711272 allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 11214 diff changeset	1555
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1556	avoidConfirmationsForExperiencedUsers
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1557	"some confirmers ara annoying, if you are an experienced st/x user"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1558
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1559	^ self at:#avoidConfirmationsForExperiencedUsers ifAbsent:[ false ]
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1560
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1561	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1562	UserPreferences current avoidConfirmationsForExperiencedUsers
14698 5eeda6b08571 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	1563	UserPreferences current avoidConfirmationsForExperiencedUsers:true
14342 945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1564	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1565
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1566	"Created: / 05-09-2012 / 11:26:55 / cg"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1567	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1568
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1569	avoidConfirmationsForExperiencedUsers:aBooleanOrNil
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1570	"some confirmers ara annoying, if you are an experienced st/x user.
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1571	Set/clear the flag which controls this"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1572
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1573	^ self at:#avoidConfirmationsForExperiencedUsers put:aBooleanOrNil
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1574
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1575	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1576	UserPreferences current avoidConfirmationsForExperiencedUsers:true
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1577	"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1578
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1579	"Created: / 05-09-2012 / 11:27:09 / cg"
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1580	!
945355fbd227 added: Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	1581
11929 9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1582	avoidSlowDrawingOperationsUnderWindows
9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1583	^ OperatingSystem isMSWINDOWSlike
9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1584	!
9128526725d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 11897 diff changeset	1585
5071 2212871676a0 beeper ps parents: 4684 diff changeset	1586	beepEnabled
2212871676a0 beeper ps parents: 4684 diff changeset	1587	"return the flag which controls the beeper"
2212871676a0 beeper ps parents: 4684 diff changeset	1588
2212871676a0 beeper ps parents: 4684 diff changeset	1589	^ self at:#beepEnabled ifAbsentPut:true
2212871676a0 beeper ps parents: 4684 diff changeset	1590
2212871676a0 beeper ps parents: 4684 diff changeset	1591	"
2212871676a0 beeper ps parents: 4684 diff changeset	1592	UserPreferences current beepEnabled
2212871676a0 beeper ps parents: 4684 diff changeset	1593	"
2212871676a0 beeper ps parents: 4684 diff changeset	1594
2212871676a0 beeper ps parents: 4684 diff changeset	1595	"Modified: / 11.9.1998 / 00:09:59 / cg"
2212871676a0 beeper ps parents: 4684 diff changeset	1596	"Created: / 3.12.1999 / 17:09:49 / ps"
2212871676a0 beeper ps parents: 4684 diff changeset	1597	!
2212871676a0 beeper ps parents: 4684 diff changeset	1598
2212871676a0 beeper ps parents: 4684 diff changeset	1599	beepEnabled:aBoolean
2212871676a0 beeper ps parents: 4684 diff changeset	1600	"set/clear the flag which controls the beeper"
2212871676a0 beeper ps parents: 4684 diff changeset	1601
2212871676a0 beeper ps parents: 4684 diff changeset	1602	^ self at:#beepEnabled put:aBoolean
2212871676a0 beeper ps parents: 4684 diff changeset	1603
2212871676a0 beeper ps parents: 4684 diff changeset	1604	"
2212871676a0 beeper ps parents: 4684 diff changeset	1605	UserPreferences current beepEnabled:false
2212871676a0 beeper ps parents: 4684 diff changeset	1606	"
2212871676a0 beeper ps parents: 4684 diff changeset	1607
2212871676a0 beeper ps parents: 4684 diff changeset	1608	"Modified: / 11.9.1998 / 00:09:59 / cg"
2212871676a0 beeper ps parents: 4684 diff changeset	1609	"Created: / 3.12.1999 / 17:10:27 / ps"
2212871676a0 beeper ps parents: 4684 diff changeset	1610	!
2212871676a0 beeper ps parents: 4684 diff changeset	1611
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1612	beepForErrorDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1613	"return the flag which controls beeping for error dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1614
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1615	^ self at:#beepForErrorDialog ifAbsent:true
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1616
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1617	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1618	UserPreferences current beepForErrorDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1619	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1620	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1621
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1622	beepForErrorDialog:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1623	"set/clear the flag which controls beeping for error dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1624
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1625	^ self at:#beepForErrorDialog put:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1626
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1627	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1628	UserPreferences current beepForErrorDialog:true
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1629	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1630	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1631
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1632	beepForInfoDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1633	"return the flag which controls beeping for info dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1634
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1635	^ self at:#beepForInfoDialog ifAbsent:false
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1636
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1637	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1638	UserPreferences current beepForInfoDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1639	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1640	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1641
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1642	beepForInfoDialog:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1643	"set/clear the flag which controls beeping for info dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1644
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1645	^ self at:#beepForInfoDialog put:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1646
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1647	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1648	UserPreferences current beepForInfoDialog:true
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1649	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1650	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1651
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1652	beepForWarningDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1653	"return the flag which controls beeping for warning dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1654
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	1655	^ self at:#beepForWarningDialog ifAbsent:true
8676 7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1656
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1657	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1658	UserPreferences current beepForWarningDialog
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1659	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1660	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1661
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1662	beepForWarningDialog:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1663	"set/clear the flag which controls beeping for warning dialogs"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1664
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1665	^ self at:#beepForWarningDialog put:aBoolean
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1666
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1667	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1668	UserPreferences current beepForWarningDialog:true
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1669	"
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1670	!
7466762d325e * empty log message * Claus Gittinger <cg@exept.de> parents: 8619 diff changeset	1671
11691 ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1672	beepInEditor
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1673	"return the flag which controls the beeper"
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1674
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1675	^ self at:#beepInEditor ifAbsentPut:true
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1676
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1677	"
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1678	UserPreferences current beepInEditor
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1679	"
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1680	!
ca6390f483cf changed #beepInEditor Claus Gittinger <cg@exept.de> parents: 11672 diff changeset	1681
14734 f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1682	button2WithAltKey
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1683	"if true, an ALT-left click is translated to a right click
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1684	Useful with 1-button mice"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1685
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1686	^ self at:#button2WithAltKey ifAbsent:[ false ]
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1687
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1688	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1689	UserPreferences current button2WithAltKey
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1690	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1691	!
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1692
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1693	button2WithAltKey: aBoolean
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1694	"if true, an ALT-left click is translated to a right click
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1695	Useful with 1-button mice"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1696
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1697	^ self at:#button2WithAltKey put: aBoolean
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1698
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1699	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1700	UserPreferences current button2WithAltKey
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1701	UserPreferences current button2WithAltKey:true
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1702	UserPreferences current button2WithAltKey:false
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1703	"
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1704	!
f297241056ce class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14733 diff changeset	1705
12209 8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1706	closePopUpMenuChainOnEscape
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1707	"if true, the whole chain of popUpMenus is closed when escape is pressed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1708	if false (the default), only the last popup-view is closed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1709	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	1710
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1711	^ self at:#closePopUpMenuChainOnEscape ifAbsent:false
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1712
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1713	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1714	UserPreferences current closePopUpMenuChainOnEscape:false
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1715	UserPreferences current closePopUpMenuChainOnEscape:true
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1716	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1717	!
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1718
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1719	closePopUpMenuChainOnEscape:aBoolean
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1720	"if true, the whole chain of popUpMenus is closed when escape is pressed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1721	if false (the default), only the last popup-view is closed.
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1722	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	1723
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1724	^ self at:#closePopUpMenuChainOnEscape put:aBoolean
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1725
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1726	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1727	UserPreferences current closePopUpMenuChainOnEscape:true
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1728	UserPreferences current closePopUpMenuChainOnEscape:false
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1729	"
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1730	!
8b5e136bca5a added: Claus Gittinger <cg@exept.de> parents: 12206 diff changeset	1731
13151 fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1732	delayedMenuShowAndHide
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1733	"the Windows behavior of showing submenus of a menu slightly delayed,
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1734	to allow for short-time leaving of the mouse pointer.
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1735	(bug #D1480943)"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1736
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1737	^ self at:#delayedMenuShowAndHide ifAbsent:true
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1738
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1739	"Created: / 29-11-2010 / 19:47:21 / cg"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1740	!
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1741
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1742	delayedMenuShowAndHide:aBoolean
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1743	"the Windows behavior of showing submenus of a menu slightly delayed,
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1744	to allow for short-time leaving of the mouse pointer.
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1745	(bug #D1480943)"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1746
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1747	^ self at:#delayedMenuShowAndHide put:aBoolean
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1748
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1749	"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1750	UserPreferences current delayedMenuShowAndHide
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1751	"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1752
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1753	"Created: / 29-11-2010 / 19:47:36 / cg"
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1754	!
fa68de773733 added: Claus Gittinger <cg@exept.de> parents: 13145 diff changeset	1755
13503 84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1756	eclipseStyleMenus
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1757	"if true, return menus organized like in eclipse;
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1758	if false (the default) return them as usual"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1759
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1760	^ self at:#eclipseStyleMenus ifAbsent:false
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1761
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1762	"Created: / 08-07-2011 / 13:22:45 / cg"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1763	!
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1764
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1765	eclipseStyleMenus:aBoolean
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1766	"if true, return menus organized like in eclipse;
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1767	if false (the default) return them as usual"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1768
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1769	^ self at:#eclipseStyleMenus put:aBoolean
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1770
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1771	"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1772	UserPreferences current eclipseStyleMenus:true
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1773	"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1774
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1775	"Created: / 08-07-2011 / 13:22:50 / cg"
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1776	!
84caa8653a84 added: Claus Gittinger <cg@exept.de> parents: 13502 diff changeset	1777
15817 319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1778	enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1779	"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	1780
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1781	^ self at:#enableVMWareDrawingBugWorkaround ifAbsent:[ false ]
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1782
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1783	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1784	UserPreferences current enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1785	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1786
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1787	"Created: / 19-11-2013 / 09:53:20 / cg"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1788	!
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1789
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1790	enableVMWareDrawingBugWorkaround:aBoolean
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1791	"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	1792
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1793	self at:#enableVMWareDrawingBugWorkaround put:aBoolean.
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1794	Screen current platformName = 'X11' ifTrue:[
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1795	Screen current maxOperationsUntilFlush:(aBoolean ifTrue:[1] ifFalse:[nil])
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1796	].
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1797
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1798	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1799	UserPreferences current enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1800	UserPreferences current enableVMWareDrawingBugWorkaround:true
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1801	UserPreferences current enableVMWareDrawingBugWorkaround:false
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1802	"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1803
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1804	"Created: / 19-11-2013 / 09:53:45 / cg"
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1805	!
319ae2f183c4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15767 diff changeset	1806
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1807	expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1808	"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	1809	more lines. Default is not FALSE !!"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1810
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1811	^ self at:#expandSelectionOnMouseMoveWithButtonPressed ifAbsent:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1812
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1813	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1814	UserPreferences current expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1815	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1816	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1817
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1818	expandSelectionOnMouseMoveWithButtonPressed:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1819	"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	1820	more lines. Default is not FALSE !!"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1821
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1822	^ self at:#expandSelectionOnMouseMoveWithButtonPressed put:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1823
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1824	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1825	UserPreferences current expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1826	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1827	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	1828
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1829	flyByHelpActive
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1830
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1831	^ self at:#flyByHelpActive ifAbsent:true "(FlyByHelp notNil and:[FlyByHelp isActive])"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1832	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1833
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1834	flyByHelpActive:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1835	aBoolean ~~ self flyByHelpActive ifTrue:[
17104 39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	1836	self at:#flyByHelpActive put:aBoolean.
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1837	].
17104 39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	1838	self flyByHelpSettingChanged.
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1839	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	1840
4075 816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1841	focusFollowsMouse
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1842	"return the flag which controls if the keyboard focus should
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1843	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	1844	This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1845	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	1846
13391 0a6201dcb4b4 changed: #focusFollowsMouse Stefan Vogel <sv@exept.de> parents: 13373 diff changeset	1847	^ self at:#focusFollowsMouse ifAbsent:[ false ]
4075 816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1848
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1849	"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1850	UserPreferences current focusFollowsMouse
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1851	"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1852	"Modified: / 11.9.1998 / 00:09:59 / cg"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1853	!
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1854
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1855	focusFollowsMouse:aBooleanOrNil
4121 4fbe619d6047 comments Claus Gittinger <cg@exept.de> parents: 4076 diff changeset	1856	"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	1857	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	1858	This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1859	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	1860
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1861	^ self at:#focusFollowsMouse put:aBooleanOrNil
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1862
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1863	"
4121 4fbe619d6047 comments Claus Gittinger <cg@exept.de> parents: 4076 diff changeset	1864	UserPreferences current focusFollowsMouse:true
4fbe619d6047 comments Claus Gittinger <cg@exept.de> parents: 4076 diff changeset	1865	UserPreferences current focusFollowsMouse:false
4075 816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1866	UserPreferences current focusFollowsMouse
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1867	"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1868
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1869	"Modified: / 11.9.1998 / 00:09:59 / cg"
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1870	!
816898d4922c added #focusFollowsMouse setting Claus Gittinger <cg@exept.de> parents: 4024 diff changeset	1871
13103 2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1872	forceWindowsIntoMonitorBounds
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1873	"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	1874	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	1875	not window movement."
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1876
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1877	^ self at:#forceWindowsIntoMonitorBounds ifAbsent:true
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1878
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1879	"Created: / 22-10-2010 / 10:59:10 / cg"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1880	!
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1881
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1882	forceWindowsIntoMonitorBounds:aBoolean
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1883	"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	1884	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	1885	not window movement."
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1886
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1887	^ self at:#forceWindowsIntoMonitorBounds put:aBoolean
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1888
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1889	"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1890	UserPreferences current forceWindowsIntoMonitorBounds:false
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1891	UserPreferences current forceWindowsIntoMonitorBounds:true
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1892	"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1893
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1894	"Modified: / 22-10-2010 / 11:13:54 / cg"
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1895	!
2cbf8acd98c3 added: Claus Gittinger <cg@exept.de> parents: 13048 diff changeset	1896
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1897	menuPanelTakesFocusOnClick
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1898	"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	1899	cursor and tab keys."
afc7517c76cc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14736 diff changeset	1900
15713 2ab7ecc832d9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15703 diff changeset	1901	"/ read comment in menuPanel - for now, it should be on,
2ab7ecc832d9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15703 diff changeset	1902	"/ 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	1903	^ self at:#menuPanelTakesFocusOnClick ifAbsent:[ false ]
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1904
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1905	"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1906	UserPreferences current menuPanelTakesFocusOnClick
16641 2a3e378e9516 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16589 diff changeset	1907	UserPreferences current menuPanelTakesFocusOnClick:false
2a3e378e9516 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16589 diff changeset	1908	UserPreferences current menuPanelTakesFocusOnClick:true
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1909	"
14742 afc7517c76cc class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14736 diff changeset	1910
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1911	"Modified: / 11.9.1998 / 00:09:59 / cg"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1912	!
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1913
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1914	menuPanelTakesFocusOnClick:aBooleanOrNil
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1915	"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	1916	cursor and tab keys.
14543 f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1917	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	1918
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1919	^ self at:#menuPanelTakesFocusOnClick put:aBooleanOrNil
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1920
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1921	"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1922	UserPreferences current menuPanelTakesFocusOnClick:true
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1923	UserPreferences current menuPanelTakesFocusOnClick:false
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1924	UserPreferences current menuPanelTakesFocusOnClick
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1925	"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1926
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1927	"Modified: / 11.9.1998 / 00:09:59 / cg"
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1928	!
f66741e8d140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14459 diff changeset	1929
8759 8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	1930	motionDistanceToStartDrag
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	1931	"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	1932
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	1933	^ "DragMotionDistance ?" 10
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	1934	!
8e6b635057ea * empty log message * Claus Gittinger <cg@exept.de> parents: 8758 diff changeset	1935
17457 ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1936	mouseWheelDirectionReversed
17458 892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	1937	"if set, mouse wheel motions are upside-down.
892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	1938	I got very confused with macOSX10.9, behavind different from 10.6,
892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	1939	so I added this option"
17457 ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1940
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1941	^ self at:#mouseWheelDirectionReversed ifAbsent:[ false ]
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1942
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1943	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1944	UserPreferences current mouseWheelDirectionReversed
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1945	UserPreferences current mouseWheelDirectionReversed:true
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1946	UserPreferences current mouseWheelDirectionReversed:false
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1947	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1948	!
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1949
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1950	mouseWheelDirectionReversed:aBoolean
17458 892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	1951	"if set, mouse wheel motions are upside-down.
892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	1952	I got very confused with macOSX10.9, behavind different from 10.6,
892c4059acd4 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17457 diff changeset	1953	so I added this option"
17457 ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1954
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1955	self at:#mouseWheelDirectionReversed put:aBoolean
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1956
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1957	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1958	UserPreferences current mouseWheelDirectionReversed
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1959	UserPreferences current mouseWheelDirectionReversed:true
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1960	UserPreferences current mouseWheelDirectionReversed:false
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1961	"
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1962	!
ca170782c081 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	1963
11589 13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1964	mouseWheelFocusFollowsMouse
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1965	"return the flag which controls if the mouseWheel focus should
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1966	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	1967
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1968	self focusFollowsMouse ifTrue:[^ true].
16859 0fb09ef5abf0 class: UserPreferences Stefan Vogel <sv@exept.de> parents: 16813 diff changeset	1969	^ self at:#mouseWheelFocusFollowsMouse ifAbsent:[ Screen current isWindowsPlatform ]
11589 13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1970
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1971	"
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1972	UserPreferences current mouseWheelFocusFollowsMouse
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1973	"
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1974	!
13741af10676 +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 11419 diff changeset	1975
17316 4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1976	mouseWheelScale
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1977	"if set, mouse wheel motions are scaled by this number"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1978
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1979	^ self at:#mouseWheelScale ifAbsent:[ 1 ]
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1980
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1981	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1982	UserPreferences current mouseWheelScale
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1983	UserPreferences current mouseWheelScale:0.5
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1984	UserPreferences current mouseWheelScale:1
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1985	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1986	!
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1987
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1988	mouseWheelScale:aNumber
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1989	"if set, mouse wheel motions are scaled by this number"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1990
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1991	self at:#mouseWheelScale put:[ aNumber ]
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1992
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1993	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1994	UserPreferences current mouseWheelScale
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1995	UserPreferences current mouseWheelScale:0.5
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1996	UserPreferences current mouseWheelScale:1
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1997	"
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1998	!
4e37db3ce151 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17232 diff changeset	1999
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2000	nativeDialogs
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2001	^ self at:#nativeDialogs ifAbsent:false
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2002
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2003	"Created: / 24-08-2010 / 17:01:47 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2004	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2005
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2006	nativeDialogs:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2007	\|currentScreen\|
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2008
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2009	self at:#nativeDialogs put:aBoolean.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2010	currentScreen := Screen current.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2011	currentScreen notNil ifTrue:[
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2012	currentScreen supportsNativeDialogs ifTrue:[
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2013	currentScreen nativeDialogs:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2014	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2015	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2016
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2017	"Modified: / 24-08-2010 / 18:06:43 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2018	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2019
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2020	nativeFileDialogs
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2021	^ self at:#nativeFileDialogs ifAbsent:false
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2022
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2023	"Created: / 24-08-2010 / 17:01:59 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2024	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2025
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2026	nativeFileDialogs:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2027	\|currentScreen\|
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2028
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2029	self at:#nativeFileDialogs put:aBoolean.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2030	currentScreen := Screen current.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2031	currentScreen notNil ifTrue:[
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2032	currentScreen supportsNativeFileDialogs ifTrue:[
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2033	currentScreen nativeFileDialogs:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2034	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2035	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2036
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2037	"Modified: / 24-08-2010 / 18:06:27 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2038	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2039
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2040	nativeWidgets
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2041	^ self at:#nativeWidgets ifAbsent:false
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2042
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2043	"Created: / 24-08-2010 / 16:58:44 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2044	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2045
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2046	nativeWidgets:aBoolean
16813 4d8bb499fc3b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16699 diff changeset	2047	"enable/disable native widgets on the current display"
4d8bb499fc3b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16699 diff changeset	2048
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2049	\|currentScreen\|
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2050
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2051	self at:#nativeWidgets put:aBoolean.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2052	currentScreen := Screen current.
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2053	currentScreen notNil ifTrue:[
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2054	currentScreen supportsNativeWidgets ifTrue:[
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2055	currentScreen nativeWidgets:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2056	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2057	].
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2058
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2059	"Created: / 24-08-2010 / 16:58:14 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2060	"Modified: / 24-08-2010 / 18:05:56 / sr"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2061	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	2062
16587 1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2063	onlyShowTooltipsForActiveWindow
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2064	"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	2065
17180 f37997ce874f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17138 diff changeset	2066	^ self at:#onlyShowTooltipsForActiveWindow ifAbsent:true
16587 1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2067
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2068	"
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2069	UserPreferences current onlyShowTooltipsForActiveWindow
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2070	"
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2071	!
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2072
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2073	onlyShowTooltipsForActiveWindow:aBooleanOrNil
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2074	"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	2075
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2076	^ self at:#onlyShowTooltipsForActiveWindow put:aBooleanOrNil
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2077	!
1810332fcba2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	2078
5808 02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2079	opaqueTableColumnResizing
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2080	"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	2081	animated (opaque)"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2082
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	2083	^ self at:#opaqueTableColumnResizing ifAbsent:false
5808 02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2084
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2085	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2086	UserPreferences current opaqueTableColumnResizing
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2087	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2088	!
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2089
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2090	opaqueTableColumnResizing:aBoolean
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2091	"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	2092	animated (opaque)"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2093
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2094	^ self at:#opaqueTableColumnResizing put:aBoolean
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2095
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2096	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2097	UserPreferences current opaqueTableColumnResizing:true
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2098	"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2099
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2100	"Modified: / 11.9.1998 / 00:09:59 / cg"
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2101	!
02b371f5f80a opaque table col resize Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	2102
4684 45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2103	opaqueVariablePanelResizing
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2104	"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	2105	animated (opaque)"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2106
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	2107	^ self at:#opaqueVariablePanelResizing ifAbsent:false
4684 45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2108
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2109	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2110	UserPreferences current opaqueVariablePanelResizing
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2111	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2112
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2113	"Modified: / 11.9.1998 / 00:09:59 / cg"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2114	!
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2115
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2116	opaqueVariablePanelResizing:aBoolean
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2117	"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	2118	animated (opaque)"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2119
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2120	^ self at:#opaqueVariablePanelResizing put:aBoolean
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2121
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2122	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2123	UserPreferences current opaqueVariablePanelResizing:true
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2124	"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2125
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2126	"Modified: / 11.9.1998 / 00:09:59 / cg"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2127	!
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs. Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	2128
6525 f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2129	searchDialogIsModal
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2130	"true if the search dialog (in textViews) shall be modal (the default)"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2131
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2132	^ self at:#searchDialogIsModal ifAbsent:true
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2133
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2134	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2135	UserPreferences current searchDialogIsModal
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2136	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2137	!
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2138
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2139	searchDialogIsModal:aBooleanOrNil
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2140	"true if the search dialog (in textViews) shall be modal (the default)"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2141
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2142	^ self at:#searchDialogIsModal put:aBooleanOrNil
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2143
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2144	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2145	UserPreferences current searchDialogIsModal:true
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2146	UserPreferences current searchDialogIsModal:false
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2147	UserPreferences current searchDialogIsModal
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2148	"
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2149	!
f62b8454b724 added #searchDialogIsModal. Claus Gittinger <cg@exept.de> parents: 6252 diff changeset	2150
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2151	selectOnRightClick
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2152	"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	2153
11943 5edb32c7f9c2 selectOnRightClick - default Claus Gittinger <cg@exept.de> parents: 11931 diff changeset	2154	^ self at:#selectOnRightClick ifAbsent:false
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2155	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2156
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2157	selectOnRightClick:aBoolean
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2158	"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	2159
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2160	^ self at:#selectOnRightClick put:aBoolean
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2161
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2162	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2163	UserPreferences current selectOnRightClick:true.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2164	UserPreferences current selectOnRightClick:false.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2165	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2166	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2167
15588 4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2168	shouldRememberLastExtent
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2169	^ self at:#shouldRememberLastExtent ifAbsent:true
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2170
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2171	"Created: / 31-07-2013 / 18:11:17 / cg"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2172	!
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2173
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2174	shouldRememberLastExtent:aBoolean
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2175	^ self at:#shouldRememberLastExtent put:aBoolean
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2176
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2177	"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2178	UserPreferences current shouldRememberLastExtent.
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2179	UserPreferences current shouldRememberLastExtent:true.
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2180	UserPreferences current shouldRememberLastExtent:false.
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2181	"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2182
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2183	"Created: / 31-07-2013 / 18:11:25 / cg"
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2184	!
4fbc618e5f2c class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15548 diff changeset	2185
13161 119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2186	showDottedLinesInTree
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2187	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2188	at:#showDottedLinesInTree
13304 19bb57822f90 changed: #showDottedLinesInTree Claus Gittinger <cg@exept.de> parents: 13161 diff changeset	2189	ifAbsent:[ OperatingSystem isMSWINDOWSlike not
19bb57822f90 changed: #showDottedLinesInTree Claus Gittinger <cg@exept.de> parents: 13161 diff changeset	2190	or:[ OperatingSystem isVistaLike not ] ]
13161 119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2191
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2192	"Created: / 03-12-2010 / 11:31:46 / cg"
13304 19bb57822f90 changed: #showDottedLinesInTree Claus Gittinger <cg@exept.de> parents: 13161 diff changeset	2193	"Modified: / 09-02-2011 / 23:27:03 / cg"
13161 119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2194	!
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2195
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2196	showDottedLinesInTree:aBoolean
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2197	^ self at:#showDottedLinesInTree put:aBoolean
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2198
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2199	"
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2200	UserPreferences current showDottedLinesInTree:true.
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2201	UserPreferences current showDottedLinesInTree:false.
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2202	"
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2203
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2204	"Created: / 03-12-2010 / 11:31:53 / cg"
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2205	!
119803172318 added: Claus Gittinger <cg@exept.de> parents: 13151 diff changeset	2206
11931 59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2207	showRightButtonMenuOnRelease
17232 e1f21dd5c764 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17180 diff changeset	2208	"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	2209
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2210	^ self at:#showRightButtonMenuOnRelease ifAbsent:true
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2211	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2212
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2213	showRightButtonMenuOnRelease:aBoolean
17232 e1f21dd5c764 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17180 diff changeset	2214	"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	2215
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2216	^ self at:#showRightButtonMenuOnRelease put:aBoolean
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2217
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2218	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2219	UserPreferences current showRightButtonMenuOnRelease:true.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2220	UserPreferences current showRightButtonMenuOnRelease:false.
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2221	"
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2222	!
59251a906e85 preps for right-menu on buttonRelease Claus Gittinger <cg@exept.de> parents: 11930 diff changeset	2223
6730 7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2224	startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2225	"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	2226
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2227	^ self at:#startTextDragWithControl ifAbsent:true
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2228
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2229	"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2230	UserPreferences current startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2231	"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2232	!
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2233
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2234	startTextDragWithControl:aBooleanOrNil
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2235	"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	2236
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2237	^ self at:#startTextDragWithControl put:aBooleanOrNil
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2238
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2239	"
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2240	UserPreferences current startTextDragWithControl:true
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2241	UserPreferences current startTextDragWithControl:false
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2242	UserPreferences current startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2243	"
12522 0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2244	!
0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2245
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2246	toolTipAutoHideDelay
16466 11c565cfffc2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16385 diff changeset	2247	"return the time in seconds, tooltips are shown. 0 means: show forever"
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2248
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2249	^ self at:#toolTipAutoHideDelay ifAbsentPut:[FlyByHelp showTime]
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2250
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2251	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2252	UserPreferences current toolTipAutoHideDelay
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2253	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2254
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2255	"Created: / 10-11-2010 / 12:08:58 / cg"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2256	!
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2257
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2258	toolTipAutoHideDelay:aTimeDuration
16466 11c565cfffc2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16385 diff changeset	2259	"set the time, tooltips are shown. 0 means: dont hide"
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2260
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2261	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	2262	FlyByHelp showTime: (aTimeDuration isInteger
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2263	ifTrue:[aTimeDuration]
16466 11c565cfffc2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16385 diff changeset	2264	ifFalse:[aTimeDuration asSeconds]).
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2265
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2266	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2267	UserPreferences current toolTipAutoHideDelay:10 seconds
16466 11c565cfffc2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16385 diff changeset	2268	UserPreferences current toolTipAutoHideDelay:0
13125 5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2269	"
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2270
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2271	"Created: / 10-11-2010 / 12:09:33 / cg"
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2272	"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	2273	!
5a75cd9264f8 added: Claus Gittinger <cg@exept.de> parents: 13124 diff changeset	2274
15728 68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2275	toolTipShapeStyle
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2276	"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	2277
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2278	^ self at:#toolTipShapeStyle ifAbsent:[ nil ]
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2279
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2280	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2281	UserPreferences current toolTipShapeStyle
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2282	UserPreferences current toolTipShapeStyle:#cartoon
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2283	UserPreferences current toolTipShapeStyle:nil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2284	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2285	!
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2286
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2287	toolTipShapeStyle:aSymbolOrNil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2288	"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	2289
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2290	self at:#toolTipShapeStyle put:aSymbolOrNil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2291
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2292	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2293	UserPreferences current toolTipShapeStyle
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2294	UserPreferences current toolTipShapeStyle:#cartoon
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2295	UserPreferences current toolTipShapeStyle:nil
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2296	"
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2297	!
68b68fafbd79 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15726 diff changeset	2298
17541 921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2299	useColorsForColorBlindness
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2300	"return the flag which controls some color combinations
17593 9c4d879c9be0 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17569 diff changeset	2301	to compensate for color deficiencies, such as red-green blindness.
17541 921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2302	For example, red-green is replaced by red-blue"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2303
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2304	^ self at:#useColorsForColorBlindness ifAbsent:[ false ]
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2305
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2306	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2307	UserPreferences current useColorsForColorBlindness
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2308	UserPreferences current useColorsForColorBlindness:true
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2309	UserPreferences current useColorsForColorBlindness:false
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2310	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2311	!
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2312
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2313	useColorsForColorBlindness:aBoolean
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2314	"change the flag which controls some color combinations
17593 9c4d879c9be0 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17569 diff changeset	2315	to compensate for color deficiencies, such as red-green blindness.
17541 921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2316	For example, red-green is replaced by red-blue"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2317
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2318	self at:#useColorsForColorBlindness put:aBoolean
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2319
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2320	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2321	UserPreferences current useColorsForColorBlindness
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2322	UserPreferences current useColorsForColorBlindness:true
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2323	UserPreferences current useColorsForColorBlindness:false
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2324	"
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2325	!
921bd42c0558 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17458 diff changeset	2326
17138 e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2327	useXFontsOnly
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2328	"experimental:
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2329	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	2330
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2331	^ self at:#useXFontsOnly ifAbsent:[ false ]
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2332
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2333	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2334	UserPreferences current useXFontsOnly
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2335	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2336	!
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2337
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2338	useXFontsOnly:aBoolean
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2339	"experimental:
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2340	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	2341
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2342	self at:#useXFontsOnly put:aBoolean
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2343
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2344	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2345	UserPreferences current useXFontsOnly
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2346	UserPreferences current useXFontsOnly:true
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2347	UserPreferences current useXFontsOnly:false
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2348	UserPreferences current useXftFontsOnly:true
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2349	UserPreferences current useXftFontsOnly:false
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2350	"
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2351	!
e2ef970368f8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	2352
16265 32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2353	useXftFontsOnly
16266 d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2354	"experimental:
d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2355	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	2356	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	2357	are already aquired (i.e. before any views are opened)"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2358
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2359	^ self at:#useXftFontsOnly ifAbsent:[ false ]
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2360
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2361	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2362	UserPreferences current useXftFontsOnly
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2363	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2364	!
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2365
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2366	useXftFontsOnly:aBooleanOrNil
16266 d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2367	"experimental:
d6dd2288fe0d class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16265 diff changeset	2368	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	2369	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	2370	are already aquired (i.e. before any views are opened)"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2371
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2372	^ self at:#useXftFontsOnly put:aBooleanOrNil
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2373
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2374	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2375	UserPreferences current useXftFontsOnly:true
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2376	UserPreferences current useXftFontsOnly:false
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2377	UserPreferences current useXftFontsOnly
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2378	"
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2379	!
32842903fc11 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16165 diff changeset	2380
12522 0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2381	waitCursorVisibleTime
0abaa650d83e added: #waitCursorVisibleTime Stefan Vogel <sv@exept.de> parents: 12501 diff changeset	2382	"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	2383
13684 a55755f5d41b changed: #waitCursorVisibleTime Claus Gittinger <cg@exept.de> parents: 13652 diff changeset	2384	^ 100
a55755f5d41b changed: #waitCursorVisibleTime Claus Gittinger <cg@exept.de> parents: 13652 diff changeset	2385
a55755f5d41b changed: #waitCursorVisibleTime Claus Gittinger <cg@exept.de> parents: 13652 diff changeset	2386	"Modified: / 12-09-2011 / 11:08:53 / cg"
13122 ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2387	!
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2388
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2389	workAroundRenderingBugOnVista
13124 ae7477260767 changed: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13122 diff changeset	2390	"a temporary kludge for the vista-cleartype character redraw bug"
13122 ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2391
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2392	^ OperatingSystem isMSWINDOWSlike
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2393
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13119 diff changeset	2394	"Created: / 08-11-2010 / 14:47:52 / cg"
13124 ae7477260767 changed: #workAroundRenderingBugOnVista Claus Gittinger <cg@exept.de> parents: 13122 diff changeset	2395	"Modified: / 09-11-2010 / 13:02:43 / cg"
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2396	! !
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2397
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2398	!UserPreferences methodsFor:'accessing-prefs-browser'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2399
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2400	autoFormatting
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2401	"return the flag which controls automatic formatting of code (in some browsers)
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2402	Notice, the regular browser does not (yet) do automatic formating."
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2403
8233 354850231fe7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8232 diff changeset	2404	^ self at:#autoFormatting ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2405
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2406	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2407	UserPreferences current autoFormatting
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2408	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2409
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2410	"Created: / 4.2.2000 / 20:08:08 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2411	"Modified: / 5.2.2000 / 15:38:33 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2412	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2413
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2414	autoFormatting:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2415	"turn on/off automatic formatting of code (in some browsers);
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2416	Notice, the regular browser does not (yet) do automatic formating."
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2417
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2418	^ self at:#autoFormatting put:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2419
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2420	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2421	UserPreferences current autoFormatting:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2422	UserPreferences current autoFormatting:false
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2423	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2424
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2425	"Created: / 4.2.2000 / 20:08:26 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2426	"Modified: / 5.2.2000 / 15:38:20 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2427	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2428
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2429	autoIndentInCodeView
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2430	"return the flag which controls automatic cursor control in editors which
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2431	show code(autoIndent)"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2432
16699 eafc8ff6f15a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16698 diff changeset	2433	^ self at:#autoIndentInCodeView ifAbsent:true
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2434
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2435	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2436	UserPreferences current autoIndentInCodeView
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2437	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2438	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2439
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2440	autoIndentInCodeView:aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2441	"flag which controls automatic cursor control in editors which
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2442	show code(autoIndent)"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2443
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2444	^ self at:#autoIndentInCodeView put:aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2445
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2446	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2447	UserPreferences current autoIndentInCodeView:true
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2448	UserPreferences current autoIndentInCodeView:false
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2449	"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2450	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	2451
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2452	enforceCodeStyle
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2453	"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	2454
8233 354850231fe7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8232 diff changeset	2455	^ self at:#enforceCodeStyle ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2456
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2457	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2458	UserPreferences current enforceCodeStyle
10478 34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2459	UserPreferences current enforceCodeStyle:true
34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2460	UserPreferences current enforceCodeStyle:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2461	"
10478 34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2462
34a91987e7b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	2463	"Modified: / 27-03-2007 / 21:51:42 / cg"
6730 7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2464	!
7bbf6fdeda01 textDrag start with CTRL (optional) Claus Gittinger <cg@exept.de> parents: 6717 diff changeset	2465
12947 253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2466	enforceComment
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2467	"return the flag which controls enforcing a comment in accepted methods"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2468
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2469	^ self at:#enforceComment ifAbsent:false
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2470
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2471	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2472	UserPreferences current enforceComment
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2473	UserPreferences current enforceComment:true
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2474	UserPreferences current enforceComment:false
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2475	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2476
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2477	"Created: / 17-07-2010 / 14:16:27 / cg"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2478	!
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2479
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2480	enforceComment:aBoolean
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2481	"set/clear the flag which controls enforcing a comment in accepted methods"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2482
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2483	^ self at:#enforceComment put:aBoolean
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2484
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2485	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2486	UserPreferences current enforceComment:true
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2487	UserPreferences current enforceComment:false
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2488	"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2489
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2490	"Created: / 17-07-2010 / 14:17:02 / cg"
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2491	!
253994db9599 added: Claus Gittinger <cg@exept.de> parents: 12930 diff changeset	2492
14415 e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2493	runLintChecksInBackground
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2494	"controls the browser's lint-check behavior;
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2495	background operation (Jan's pref) makes it difficult to stop and debug...)"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2496
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2497	^ self at:#runLintChecksInBackground ifAbsent:true
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2498
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2499	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2500	UserPreferences current runLintChecksInBackground
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2501	UserPreferences current runLintChecksInBackground:true
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2502	UserPreferences current runLintChecksInBackground:false
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2503	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2504
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2505	"Created: / 17-07-2010 / 14:16:27 / cg"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2506	!
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2507
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2508	runLintChecksInBackground:aBoolean
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2509	"controls the browser's lint-check behavior;
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2510	background operation (Jan's pref) makes it difficult to stop and debug...)"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2511
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2512	^ self at:#runLintChecksInBackground put:aBoolean
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2513
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2514	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2515	UserPreferences current runLintChecksInBackground:true
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2516	UserPreferences current runLintChecksInBackground:false
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2517	"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2518
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2519	"Created: / 17-07-2010 / 14:17:02 / cg"
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2520	!
e9c5bd445cbd added: Claus Gittinger <cg@exept.de> parents: 14358 diff changeset	2521
9320 3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2522	showAcceptCancelBarInBrowser
11214 ad61819068b9 changed #showAcceptCancelBarInBrowser Claus Gittinger <cg@exept.de> parents: 11213 diff changeset	2523	^ self at:#showAcceptCancelBarInBrowser ifAbsent:true
9320 3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2524
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2525	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2526	UserPreferences current showAcceptCancelBarInBrowser
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2527	UserPreferences current showAcceptCancelBarInBrowser:true
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2528	UserPreferences current showAcceptCancelBarInBrowser:false
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2529	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2530	!
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2531
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2532	showAcceptCancelBarInBrowser:aBoolean
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2533	"experimental."
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2534
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2535	^ self at:#showAcceptCancelBarInBrowser put:aBoolean
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2536
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2537	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2538	UserPreferences current showAcceptCancelBarInBrowser:true
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2539	UserPreferences current showAcceptCancelBarInBrowser:false
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2540	"
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2541	!
3915cefea352 * empty log message * Claus Gittinger <cg@exept.de> parents: 9302 diff changeset	2542
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2543	syntaxColoring
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2544	"return the flag which controls syntax coloring (in the browsers)"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2545
8233 354850231fe7 * empty log message * Claus Gittinger <cg@exept.de> parents: 8232 diff changeset	2546	^ self at:#syntaxColoring ifAbsent:true
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2547
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2548	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2549	UserPreferences current syntaxColoring
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2550	"
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2551
3827 d3dd75b5ced3 syntax coloring is on by default; Claus Gittinger <cg@exept.de> parents: 3409 diff changeset	2552	"Modified: / 11.9.1998 / 00:09:59 / cg"
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2553	!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2554
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2555	syntaxColoring:aBoolean
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2556	"turn on/off syntaxColoring (in the browsers)."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2557
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2558	^ self at:#syntaxColoring put:aBoolean
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2559
3357 bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2560	"
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2561	UserPreferences current syntaxColoring:true
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2562	UserPreferences current syntaxColoring:false
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2563	"
bc42e06c8422 checkin from browser Claus Gittinger <cg@exept.de> parents: 3356 diff changeset	2564
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2565	"Created: / 31.3.1998 / 13:44:00 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2566	"Modified: / 1.4.1998 / 13:23:03 / cg"
12189 176c73997180 added: fm parents: 12175 diff changeset	2567	!
176c73997180 added: fm parents: 12175 diff changeset	2568
176c73997180 added: fm parents: 12175 diff changeset	2569	useSearchBarInBrowser
12191 e7cc3e6975cc comment/format in: Claus Gittinger <cg@exept.de> parents: 12189 diff changeset	2570	"true, if the search-entry fields are initially shown in the browser itself
12189 176c73997180 added: fm parents: 12175 diff changeset	2571	(like in firefox). False if a dialog is to be opened."
176c73997180 added: fm parents: 12175 diff changeset	2572
176c73997180 added: fm parents: 12175 diff changeset	2573	"/ cg: disabled for now, until fixed.
176c73997180 added: fm parents: 12175 diff changeset	2574	"/ does not initially select the searchString.
176c73997180 added: fm parents: 12175 diff changeset	2575	"/ thereby interrupting the workflow...
176c73997180 added: fm parents: 12175 diff changeset	2576
176c73997180 added: fm parents: 12175 diff changeset	2577	^ self at:#useSearchBarInBrowser ifAbsent:false
176c73997180 added: fm parents: 12175 diff changeset	2578
176c73997180 added: fm parents: 12175 diff changeset	2579	"
176c73997180 added: fm parents: 12175 diff changeset	2580	UserPreferences current useSearchBarInBrowser
176c73997180 added: fm parents: 12175 diff changeset	2581	UserPreferences current useSearchBarInBrowser:true
176c73997180 added: fm parents: 12175 diff changeset	2582	UserPreferences current useSearchBarInBrowser:false
176c73997180 added: fm parents: 12175 diff changeset	2583	"
176c73997180 added: fm parents: 12175 diff changeset	2584	!
176c73997180 added: fm parents: 12175 diff changeset	2585
176c73997180 added: fm parents: 12175 diff changeset	2586	useSearchBarInBrowser:aBoolean
12191 e7cc3e6975cc comment/format in: Claus Gittinger <cg@exept.de> parents: 12189 diff changeset	2587	"true, if the search-entry fields are initially shown in the browser itself
12189 176c73997180 added: fm parents: 12175 diff changeset	2588	(like in firefox). False if a dialog is to be opened."
176c73997180 added: fm parents: 12175 diff changeset	2589
176c73997180 added: fm parents: 12175 diff changeset	2590	^ self at:#useSearchBarInBrowser put:aBoolean
176c73997180 added: fm parents: 12175 diff changeset	2591
176c73997180 added: fm parents: 12175 diff changeset	2592	"
176c73997180 added: fm parents: 12175 diff changeset	2593	UserPreferences current useSearchBarInBrowser:true
176c73997180 added: fm parents: 12175 diff changeset	2594	UserPreferences current useSearchBarInBrowser:false
176c73997180 added: fm parents: 12175 diff changeset	2595	"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2596	! !
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2597
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2598	!UserPreferences methodsFor:'accessing-prefs-browser-colors'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2599
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2600	colorForInstrumentedFullyCoveredCode
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2601	"the color for code in the browser which is instrumented
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2602	and where all branches have been executed (also code, which has been executed)"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2603
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2604	\|clr\|
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2605
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2606	clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil.
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2607	clr isNil ifTrue:[
17398 6fe70fea0c8a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17397 diff changeset	2608	clr := Color green slightlyDarkened "darkened".
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2609	"/ self at:#colorForInstrumentedFullyCoveredCode put:clr.
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2610	].
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2611	^ clr
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2612
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2613	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2614	UserPreferences current
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2615	at:#emphasisForInstrumentedFullyCoveredCode
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2616	put:(Color green slightlyDarkened).
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2617	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2618
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2619	"Created: / 28-04-2010 / 13:58:52 / cg"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2620	!
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2621
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2622	colorForInstrumentedFullyCoveredCode:aColor
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2623	"the color for code in the browser which is instrumented
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2624	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	2625
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2626	self at:#colorForInstrumentedFullyCoveredCode put:aColor.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2627
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2628	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2629	UserPreferences current colorForInstrumentedFullyCoveredCode:(Color green slightlyDarkened).
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2630	UserPreferences current colorForInstrumentedFullyCoveredCode:nil.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2631	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2632
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2633	"Created: / 28-04-2010 / 13:58:52 / cg"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2634	!
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2635
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2636	colorForInstrumentedNeverCalledCode
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2637	"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	2638
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2639	\|clr\|
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2640
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2641	clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil.
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2642	clr isNil ifTrue:[
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2643	clr := Color red "slightlyDarkened" "darkened".
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2644	"/ self at:#colorForInstrumentedNeverCalledCode put:clr.
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2645	].
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2646	^ clr
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2647
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2648	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2649	UserPreferences current
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2650	at:#colorForInstrumentedNeverCalledCode
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2651	put:(Color red slightlyDarkened).
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2652	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2653
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2654	"Created: / 28-04-2010 / 13:59:43 / cg"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2655	!
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2656
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2657	colorForInstrumentedNeverCalledCode:aColor
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2658	"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	2659
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2660	self at:#colorForInstrumentedNeverCalledCode put:aColor.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2661
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2662	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2663	UserPreferences current colorForInstrumentedNeverCalledCode:(Color red slightlyDarkened).
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2664	UserPreferences current colorForInstrumentedNeverCalledCode:nil.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2665	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2666
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2667	"Created: / 28-04-2010 / 13:59:43 / cg"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2668	!
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2669
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2670	colorForInstrumentedPartiallyCoveredCode
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2671	"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	2672	executed"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2673
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2674	\|clr\|
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2675
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2676	clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil.
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2677	clr isNil ifTrue:[
17397 5c84b07aca76 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17359 diff changeset	2678	clr := Color orange "slightlyDarkened".
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2679	"/ self at:#colorForInstrumentedPartiallyCoveredCode put:clr.
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2680	].
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2681	^ clr
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2682
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2683	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2684	UserPreferences current
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2685	at:#colorForInstrumentedPartiallyCoveredCode
12905 cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2686	put:(Color orange slightlyLightened).
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2687	"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2688
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2689	"Created: / 28-04-2010 / 14:00:56 / cg"
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2690	!
cb6a467b71c4 added: Claus Gittinger <cg@exept.de> parents: 12902 diff changeset	2691
15915 b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2692	colorForInstrumentedPartiallyCoveredCode:aColor
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2693	"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	2694	executed"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2695
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2696	self at:#colorForInstrumentedPartiallyCoveredCode put:aColor.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2697
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2698	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2699	UserPreferences current colorForInstrumentedPartiallyCoveredCode:(Color orange slightlyLightened).
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2700	UserPreferences current colorForInstrumentedPartiallyCoveredCode:nil.
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2701	"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2702
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2703	"Created: / 28-04-2010 / 14:00:56 / cg"
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2704	!
b8bc99b1b16f class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15913 diff changeset	2705
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2706	colorForPseudoProtocolsInMethodListInBrowser
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2707	"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	2708
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2709	\|bg\|
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2710
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2711	SelectionInListView notNil ifTrue:[
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2712	bg := SelectionInListView defaultBackgroundColor.
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2713	].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2714	bg isNil ifTrue:[
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2715	View notNil ifTrue:[
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2716	bg := View defaultBackgroundColor.
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2717	].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2718	bg isNil ifTrue:[
16698 6cc3755c970a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16695 diff changeset	2719	^ Color gray
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2720	].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2721	].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2722
16698 6cc3755c970a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16695 diff changeset	2723	(Color gray brightness - (bg brightness)) abs < 0.3 ifTrue:[
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2724	(bg brightness) > 0.7 ifTrue:[
16698 6cc3755c970a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16695 diff changeset	2725	^ Color gray:20.
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2726	].
16698 6cc3755c970a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16695 diff changeset	2727	^ Color gray:80.
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2728	].
16698 6cc3755c970a class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16695 diff changeset	2729	^ Color gray
13652 af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2730
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2731	"Created: / 07-09-2011 / 09:51:12 / cg"
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2732	!
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser Claus Gittinger <cg@exept.de> parents: 13597 diff changeset	2733
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2734	emphasisForChangedCode
10177 01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2735	"the emphasis for changed code (in changeSet) in the browser"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2736
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2737	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2738
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2739	emp := self at:#emphasisForChangedCode ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2740	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2741	emp := #color->Color red darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2742	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2743	"/ emp := #color->Color blue darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2744	self at:#emphasisForChangedCode put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2745	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2746	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2747
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2748	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2749	self allInstancesDo:[:pref \|pref at:#emphasisForChangedCode put:nil].
9807 da320936bf87 * empty log message * Claus Gittinger <cg@exept.de> parents: 9742 diff changeset	2750	UserPreferences current emphasisForChangedCode.
da320936bf87 * empty log message * Claus Gittinger <cg@exept.de> parents: 9742 diff changeset	2751	UserPreferences current at:#emphasisForChangedCode put:nil.
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2752	"
9807 da320936bf87 * empty log message * Claus Gittinger <cg@exept.de> parents: 9742 diff changeset	2753
10177 01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2754	"Modified: / 10-11-2006 / 17:27:23 / cg"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2755	!
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2756
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2757	emphasisForChangedCodeInSmallTeam
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2758	"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	2759	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	2760
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2761	\|emp\|
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2762
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2763	emp := self at:#emphasisForChangedCodeInSmallTeam ifAbsent:nil.
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2764	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2765	emp := #color->Color yellow darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2766	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2767	self at:#emphasisForChangedCodeInSmallTeam put:emp.
10177 01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2768	].
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2769	^ emp
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2770
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2771	"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2772	self allInstancesDo:[:pref \|pref at:#emphasisForChangedCodeInSmallTeam put:nil].
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2773	UserPreferences current emphasisForChangedCodeInSmallTeam.
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2774	UserPreferences current at:#emphasisForChangedCodeInSmallTeam put:nil.
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2775	"
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2776
01b7ae1bb878 * empty log message * Claus Gittinger <cg@exept.de> parents: 10165 diff changeset	2777	"Created: / 10-11-2006 / 16:31:00 / cg"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2778	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2779
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2780	emphasisForDifferentPackage
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2781	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2782
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2783	emp := self at:#emphasisForDifferentPackage ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2784	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2785	emp := #color->Color green darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2786	"/ emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2787	self at:#emphasisForDifferentPackage put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2788	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2789	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2790
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2791	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2792	self allInstancesDo:[:pref \|pref at:#emphasisForDifferentPackage put:nil].
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2793	"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2794	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2795
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2796	emphasisForInstrumentedFullyCoveredCode
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2797	"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	2798	executed"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2799
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2800	\|emp\|
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2801
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2802	emp := self at:#emphasisForInstrumentedFullyCoveredCode ifAbsent:nil.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2803	emp isNil ifTrue:[
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2804	emp := #color->Color green slightlyDarkened.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2805	emp := Array with:#bold with:emp.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2806	"/ emp := #color->Color blue darkened.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2807	self at:#emphasisForInstrumentedFullyCoveredCode put:emp.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2808	].
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2809	^ emp
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2810
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2811	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2812	UserPreferences current
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2813	at:#emphasisForInstrumentedFullyCoveredCode
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2814	put:(Array with:#bold with:(#color->Color green slightlyDarkened)).
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2815	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2816
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2817	"Created: / 27-04-2010 / 13:01:01 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2818	"Modified: / 27-04-2010 / 14:48:11 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2819	!
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2820
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2821	emphasisForInstrumentedNeverCalledCode
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2822	"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	2823
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2824	\|emp\|
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2825
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2826	emp := self at:#emphasisForInstrumentedNeverCalledCode ifAbsent:nil.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2827	emp isNil ifTrue:[
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2828	emp := #color->Color red slightlyDarkened.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2829	emp := Array with:#bold with:emp.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2830	"/ emp := #color->Color blue darkened.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2831	self at:#emphasisForInstrumentedNeverCalledCode put:emp.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2832	].
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2833	^ emp
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2834
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2835	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2836	UserPreferences current
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2837	at:#emphasisForInstrumentedNeverCalledCode
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2838	put:(Array with:#bold with:(#color->Color red slightlyDarkened)).
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2839	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2840
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2841	"Created: / 27-04-2010 / 12:59:47 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2842	"Modified: / 27-04-2010 / 14:48:39 / cg"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2843	!
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2844
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2845	emphasisForInstrumentedPartiallyCoveredCode
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2846	"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	2847	executed"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2848
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2849	\|emp\|
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2850
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2851	emp := self at:#emphasisForInstrumentedPartiallyCoveredCode ifAbsent:nil.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2852	emp isNil ifTrue:[
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2853	emp := #color->Color orange.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2854	emp := Array with:#bold with:emp.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2855	"/ emp := #color->Color blue darkened.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2856	self at:#emphasisForInstrumentedPartiallyCoveredCode put:emp.
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2857	].
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2858	^ emp
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2859
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2860	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2861	UserPreferences current
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2862	at:#emphasisForInstrumentedPartiallyCoveredCode
12902 a7d0611e313a comment/format in: #emphasisForInstrumentedPartiallyCoveredCode Claus Gittinger <cg@exept.de> parents: 12901 diff changeset	2863	put:(Array with:#bold with:(#color->Color orange slightlyLightened)).
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2864	"
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2865
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2866	"Created: / 27-04-2010 / 13:01:20 / cg"
12902 a7d0611e313a comment/format in: #emphasisForInstrumentedPartiallyCoveredCode Claus Gittinger <cg@exept.de> parents: 12901 diff changeset	2867	"Modified: / 27-04-2010 / 18:50:43 / cg"
12901 b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2868	!
b441a7993534 added: Claus Gittinger <cg@exept.de> parents: 12793 diff changeset	2869
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2870	emphasisForModifiedBuffer
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2871	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2872
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2873	emp := self at:#emphasisForModifiedBuffer ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2874	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2875	emp := #color->Color red darkened.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2876	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2877	self at:#emphasisForModifiedBuffer put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2878	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2879	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2880
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2881	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2882	self allInstancesDo:[:pref \|pref at:#emphasisForModifiedBuffer put:nil].
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2883	"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2884	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2885
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2886	emphasisForNamespacedCode
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2887	"the emphasis for changed code (in changeSet) in the browser"
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2888
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2889	\|emp\|
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2890
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2891	emp := self at:#emphasisForNamespacedCode ifAbsent:nil.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2892	emp isNil ifTrue:[
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2893	emp := #color->Color green darkened.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2894	"/ emp := Array with:#bold with:emp.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2895	"/ emp := #color->Color blue darkened.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2896	self at:#emphasisForNamespacedCode put:emp.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2897	].
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2898	^ emp
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2899
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2900	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	2901	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	2902	UserPreferences current emphasisForNamespacedCode.
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2903	UserPreferences current at:#emphasisForNamespacedCode put:nil.
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2904	"
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2905
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2906	"Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2907	!
eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	2908
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2909	emphasisForObsoleteCode
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2910	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2911
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2912	emp := self at:#emphasisForObsoleteCode ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2913	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2914	emp := #color->Color red.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2915	emp := Array with:#bold with:emp.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2916	self at:#emphasisForObsoleteCode put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2917	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2918	^ emp
9276 120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2919
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2920	"
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2921	self allInstancesDo:[:pref \|pref at:#emphasisForObsoleteCode put:nil].
120c3f8fc50b changed code: boldify by default Claus Gittinger <cg@exept.de> parents: 9184 diff changeset	2922	"
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2923	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2924
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2925	emphasisForReadVariable
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2926	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2927
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2928	emp := self at:#emphasisForReadVariable ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2929	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2930	emp := #underline.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2931	self at:#emphasisForReadVariable put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2932	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2933	^ emp
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2934	!
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2935
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2936	emphasisForWrittenVariable
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2937	\|emp\|
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2938
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2939	emp := self at:#emphasisForWrittenVariable ifAbsent:nil.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2940	emp isNil ifTrue:[
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2941	emp := Array with:#underline with:#underlineColor->Color red.
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	2942	self at:#emphasisForWrittenVariable put:emp.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2943	].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2944	^ emp
6832 4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2945	! !
4169c2542062 add the FileBrowserV2 settings penk parents: 6818 diff changeset	2946
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	2947	!UserPreferences methodsFor:'accessing-prefs-browser-syntaxColoring'!
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2948
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2949	argumentIdentifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2950	"the color used for argument identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2951	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2952
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2953	^ self at:#argumentIdentifierColor ifAbsentPut:[self identifierColor]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2954
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2955	"Created: / 31.3.1998 / 15:08:20 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2956	"Modified: / 1.4.1998 / 13:19:58 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2957	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2958
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2959	argumentIdentifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2960	"the emphasis used for argument identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2961	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2962
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2963	^ self at:#argumentIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2964
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2965	"Created: / 31.3.1998 / 15:16:40 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2966	"Modified: / 1.4.1998 / 13:19:55 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2967	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2968
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2969	badIdentifierColor
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2970	"the color used for illegal identifiers;
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2971	If syntaxColoring is turned on."
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2972
4336 1e9719956923 checkin from browser Claus Gittinger <cg@exept.de> parents: 4335 diff changeset	2973	^ self at:#badIdentifierColor ifAbsentPut:[self identifierColor]
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2974
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2975	!
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2976
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2977	badIdentifierEmphasis
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2978	"the emphasis used for illegal identifiers;
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2979	If syntaxColoring is turned on."
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2980
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	2981	^ self at:#badIdentifierEmphasis ifAbsentPut:[UserPreferences default at:#badIdentifierEmphasis ifAbsent:#normal]
b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	2982
b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	2983	"Modified: / 21-04-2011 / 12:34:50 / cg"
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2984	!
9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	2985
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2986	booleanConstantColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2987	"the color used for boolean constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2988	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2989
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	2990	^ self at:#booleanConstantColor ifAbsent:[self constantColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2991
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2992	"Created: / 31.3.1998 / 18:12:06 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2993	"Modified: / 1.4.1998 / 13:20:07 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2994	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2995
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2996	booleanConstantEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2997	"the emphasis used for boolean constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2998	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	2999
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	3000	^ self at:#booleanConstantEmphasis ifAbsent:[self constantEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3001
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3002	"Created: / 31.3.1998 / 18:12:46 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3003	"Modified: / 1.4.1998 / 13:26:01 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3004	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3005
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3006	bracketColor
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3007	"the color used for brackets;
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3008	If syntaxColoring is turned on."
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3009
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3010	^ self at:#bracketColor ifAbsentPut:[self defaultSyntaxColor]
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3011
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3012	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3013	self current at:#bracketColor put:Color red.
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3014	self current at:#bracketEmphasis put:#bold
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3015
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3016	self current bracketColor
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3017	self current bracketEmphasis
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3018	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3019
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3020	"Created: / 31.3.1998 / 19:11:38 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3021	"Modified: / 1.4.1998 / 13:22:33 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3022	!
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3023
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3024	bracketEmphasis
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3025	"the emphasis used for brackets;
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3026	If syntaxColoring is turned on."
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3027
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3028	^ self at:#bracketEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3029
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3030	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3031	self current at:#bracketEmphasis put:#bold
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3032	self current bracketEmphasis
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3033	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3034
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3035	"Created: / 31.3.1998 / 19:11:38 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3036	"Modified: / 1.4.1998 / 13:22:33 / cg"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3037	!
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3038
4320 9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3039	classVariableIdentifierColor
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3040	"the color used for classVar/classInstVar identifiers
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3041	If syntaxColoring is turned on."
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3042
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3043	^ self at:#classVariableIdentifierColor ifAbsentPut:[self globalIdentifierColor]
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3044
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3045	"Modified: / 1.4.1998 / 13:20:47 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3046	"Created: / 4.3.1999 / 12:50:31 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3047	!
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3048
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3049	classVariableIdentifierEmphasis
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3050	"the color used for classVar/classInstVar identifiers
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3051	If syntaxColoring is turned on."
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3052
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3053	^ self at:#classVariableIdentifierEmphasis ifAbsentPut:[self globalIdentifierEmphasis]
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3054
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3055	"Modified: / 1.4.1998 / 13:20:47 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3056	"Created: / 4.3.1999 / 12:50:31 / cg"
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3057	!
9d6e4f645e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 4319 diff changeset	3058
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3059	collectionEnumerationSelectorColor
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3060	"the color used for some selected collection enumeration
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3061	selectors (such as collect:, select: etc.);
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3062	If syntaxColoring is turned on.
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3063	If left nil, the normal selector color is used."
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3064
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3065	^ self at:#collectionEnumerationSelectorColor ifAbsent:nil
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3066
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3067	"Created: / 14-02-2012 / 15:52:39 / cg"
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3068	!
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3069
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3070	collectionEnumerationSelectorEmphasis
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3071	"the color used for some selected collection enumeration
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3072	selectors (such as collect:, select: etc.);
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3073	If syntaxColoring is turned on.
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3074	If left nil, the normal selector emphasis is used."
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3075
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3076	^ self at:#collectionEnumerationSelectorEmphasis ifAbsent:nil
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3077
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3078	"Created: / 14-02-2012 / 15:58:58 / cg"
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3079	!
b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3080
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3081	commentColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3082	"the color used for comments;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3083	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3084
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3085	^ self at:#commentColor ifAbsentPut:[UserPreferences default at:#commentColor ifAbsent:[Color black]]
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3086
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3087	"Created: / 31-03-1998 / 15:10:23 / cg"
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3088	"Modified: / 21-04-2011 / 12:33:39 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3089	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3090
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3091	commentEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3092	"the emphasis used for comments;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3093	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3094
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3095	^ self at:#commentEmphasis ifAbsentPut:[UserPreferences default at:#commentEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3096
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3097	"Created: / 31-03-1998 / 15:09:59 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3098	"Modified: / 21-04-2011 / 12:34:48 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3099	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3100
5258 3490a1891a53 query added Claus Gittinger <cg@exept.de> parents: 5236 diff changeset	3101	commentEmphasisAndColor
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3102	^ self emphasis:(self commentEmphasis) andColor:(self commentColor).
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3103
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3104	"Modified: / 17-02-2011 / 14:20:41 / cg"
5258 3490a1891a53 query added Claus Gittinger <cg@exept.de> parents: 5236 diff changeset	3105	!
3490a1891a53 query added Claus Gittinger <cg@exept.de> parents: 5236 diff changeset	3106
15925 80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3107	commentFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3108	"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	3109	If syntaxColoring is turned on."
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3110
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3111	^ self at:#commentFont ifAbsent:nil
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3112	!
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3113
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3114	commentFont:aFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3115	"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	3116	If syntaxColoring is turned on."
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3117
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3118	self at:#commentFont put:aFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3119
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3120	"
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3121	UserPreferences current commentFont:(XftFontDescription family: 'Comic Sans' size: 12)
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3122	UserPreferences current commentFont
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3123	"
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3124	!
80810829f468 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	3125
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3126	constantColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3127	"the color used for constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3128	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3129
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3130	^ self at:#constantColor ifAbsentPut:[UserPreferences default at:#constantColor ifAbsent:[Color black]]
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3131
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3132	"Created: / 31-03-1998 / 18:13:15 / cg"
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3133	"Modified: / 21-04-2011 / 12:33:36 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3134	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3135
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3136	constantEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3137	"the emphasis used for constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3138	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3139
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3140	^ self at:#constantEmphasis ifAbsentPut:[self identifierEmphasis]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3141
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3142	"Created: / 31.3.1998 / 18:13:23 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3143	"Modified: / 1.4.1998 / 13:25:43 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3144	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3145
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3146	controlFlowSelectorColor
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3147	"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	3148	If syntaxColoring is turned on."
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3149
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3150	^ self at:#controlFlowSelectorColor ifAbsent:nil
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3151
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3152	"Created: / 08-09-2006 / 15:51:20 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3153	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3154
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3155	controlFlowSelectorEmphasis
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3156	"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	3157	If syntaxColoring is turned on."
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3158
14012 b84ff647852c added: Claus Gittinger <cg@exept.de> parents: 14007 diff changeset	3159	^ self at:#controlFlowSelectorEmphasis ifAbsent:nil
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3160
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3161	"Created: / 08-09-2006 / 15:51:04 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3162	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	3163
15545 afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3164	debugSelectorColor
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3165	"the color used for some selected debug
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3166	selectors (such as halt etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3167	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3168	If left nil, the normal selector color is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3169
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3170	^ self at:#debugSelectorColor ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3171	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3172
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3173	debugSelectorEmphasis
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3174	"the color used for some selected debug
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3175	selectors (such as halt etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3176	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3177	If left nil, the normal selector emphasis is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3178
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3179	^ self at:#debugSelectorEmphasis ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3180	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3181
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3182	defaultSyntaxColor
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3183	"the color used for anything else;
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3184	If syntaxColoring is turned on."
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3185
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3186	^ self at:#defaultSyntaxColor ifAbsentPut:[UserPreferences default at:#defaultSyntaxColor ifAbsent:[Color black]]
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3187
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3188	"Modified: / 21-04-2011 / 12:31:48 / cg"
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3189	!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3190
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3191	defaultSyntaxEmphasis
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3192	"the emphasis used for anything else;
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3193	If syntaxColoring is turned on."
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3194
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3195	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3196	at:#defaultSyntaxEmphasis
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3197	ifAbsentPut:[UserPreferences default at:#defaultSyntaxEmphasis ifAbsent:#normal]
b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3198
b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3199	"Modified: / 21-04-2011 / 12:34:46 / cg"
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3200	!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3201
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3202	doesNotUnderstand:aMessage
4580 654e30c513ec init defaults lazy Claus Gittinger <cg@exept.de> parents: 4396 diff changeset	3203	\|k def\|
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3204
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3205	k := aMessage selector.
6252 23fcbd461e9b checkin from browser Claus Gittinger <cg@exept.de> parents: 6177 diff changeset	3206	aMessage numArgs == 0 ifTrue:[
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3207	(self includesKey:k) ifTrue:[
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3208	^ self at:k
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3209	].
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3210	((def := self class default) includesKey:k) ifTrue:[
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3211	^ def at:k
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3212	].
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3213	^ self defaultValue
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3214	].
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3215
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3216	"/ 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	3217	"/ when the corresponding package which uses that setting is not yet loaded;
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3218	"/ for example: libsvn settings, with no libsvn being present.
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3219	"/ 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	3220	"/ care for that.
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3221
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3222	((aMessage numArgs == 1)
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3223	and:[ (k endsWith:$:)])
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3224	ifTrue:[
16695 36bf14f56829 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16652 diff changeset	3225	k := (k copyButLast) asSymbol.
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3226	^ self at:k put:(aMessage arg1)
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3227	].
6252 23fcbd461e9b checkin from browser Claus Gittinger <cg@exept.de> parents: 6177 diff changeset	3228
7272 a45033450ad8 * empty log message * penk parents: 7271 diff changeset	3229	aMessage numArgs == 1 ifTrue:[
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3230	('UserPreferences [info]: obsolete settings key: ' , aMessage selector , ' - ignored.') infoPrintCR.
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3231	^ nil
7272 a45033450ad8 * empty log message * penk parents: 7271 diff changeset	3232	].
6252 23fcbd461e9b checkin from browser Claus Gittinger <cg@exept.de> parents: 6177 diff changeset	3233
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3234	^ super doesNotUnderstand:aMessage
13597 1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3235
1d17dd4b5fda changed: #doesNotUnderstand: Claus Gittinger <cg@exept.de> parents: 13596 diff changeset	3236	"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	3237	!
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3238
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3239	emphasis:e andColor:c
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3240	^ Text addEmphasis:e to:(#color->c).
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3241
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3242	"Created: / 17-02-2011 / 14:20:25 / cg"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3243	!
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3244
8965 b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3245	emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3246	^ self at:#emphasizeParenthesisLevel ifAbsent:true
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3247
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3248	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3249	UserPreferences current emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3250	UserPreferences current emphasizeParenthesisLevel:true
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3251	UserPreferences current emphasizeParenthesisLevel:false
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3252	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3253	!
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3254
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3255	emphasizeParenthesisLevel:aBoolean
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3256	self at:#emphasizeParenthesisLevel put:aBoolean
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3257
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3258	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3259	UserPreferences current emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3260	UserPreferences current emphasizeParenthesisLevel:true
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3261	UserPreferences current emphasizeParenthesisLevel:false
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3262	"
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3263	!
b3cebce55744 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	3264
4341 eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3265	errorColor
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3266	"the color used for illegal identifiers;
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3267	If syntaxColoring is turned on."
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3268
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3269	^ self at:#errorColor ifAbsentPut:[UserPreferences default at:#errorColor ifAbsent:[Color black]]
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3270
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3271	"Modified: / 21-04-2011 / 12:33:33 / cg"
4341 eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3272	!
eb862eba0a0b checkin from browser Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	3273
15545 afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3274	errorRaisingSelectorColor
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3275	"the color used for some selected error raising
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3276	selectors (such as raise etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3277	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3278	If left nil, the normal selector color is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3279
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3280	^ self at:#errorRaisingSelectorColor ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3281	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3282
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3283	errorRaisingSelectorEmphasis
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3284	"the color used for some selected error raising
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3285	selectors (such as raise etc.);
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3286	If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3287	If left nil, the normal selector emphasis is used."
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3288
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3289	^ self at:#errorRaisingSelectorEmphasis ifAbsent:nil
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3290	!
afc9b6289701 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15427 diff changeset	3291
4306 a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3292	fullSelectorCheck
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3293	"with fullSelector check, selectors are searched immediately for
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3294	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	3295
4628 8b8b95e1e078 oops Claus Gittinger <cg@exept.de> parents: 4583 diff changeset	3296	^ self at:#fullSelectorCheck ifAbsentPut:[UserPreferences default at:#fullSelectorCheck]
4306 a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3297
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3298	"Created: / 31.3.1998 / 15:09:41 / cg"
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3299	"Modified: / 1.4.1998 / 13:25:06 / cg"
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3300	!
a4720d8dd3b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 4121 diff changeset	3301
4023 46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3302	globalClassIdentifierColor
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3303	"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	3304	If syntaxColoring is turned on."
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3305
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3306	^ self at:#globalClassIdentifierColor ifAbsentPut:[self globalIdentifierColor]
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3307
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3308	"Modified: / 1.4.1998 / 13:20:47 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3309	"Created: / 4.3.1999 / 12:50:31 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3310	!
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3311
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3312	globalClassIdentifierEmphasis
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3313	"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	3314	If syntaxColoring is turned on."
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3315
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3316	^ self at:#globalClassIdentifierEmphasis ifAbsentPut:[self globalIdentifierEmphasis]
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3317
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3318	"Modified: / 1.4.1998 / 13:25:31 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3319	"Created: / 4.3.1999 / 12:51:00 / cg"
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3320	!
46805a0a73b3 checkin from browser Claus Gittinger <cg@exept.de> parents: 3883 diff changeset	3321
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3322	globalIdentifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3323	"the color used for global identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3324	If syntaxColoring is turned on."
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	^ self at:#globalIdentifierColor ifAbsentPut:[self identifierColor]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3327
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3328	"Created: / 31.3.1998 / 15:18:49 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3329	"Modified: / 1.4.1998 / 13:20:47 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3330	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3331
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3332	globalIdentifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3333	"the emphasis used for global variable identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3334	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3335
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3336	^ self at:#globalIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3337
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3338	"Created: / 31.3.1998 / 15:18:29 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3339	"Modified: / 1.4.1998 / 13:25:31 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3340	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3341
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3342	hereColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3343	"the color used for the here pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3344	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3345
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3346	^ self at:#hereColor ifAbsentPut:[self selfColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3347
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3348	"Created: / 31.3.1998 / 17:38:09 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3349	"Modified: / 1.4.1998 / 13:20:57 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3350	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3351
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3352	hereEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3353	"the emphasis used for the hre special variable;
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
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3356	^ self at:#hereEmphasis ifAbsentPut:[self selfEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3357
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3358	"Created: / 31.3.1998 / 17:35:13 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3359	"Modified: / 1.4.1998 / 13:25:17 / cg"
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	identifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3363	"the color used for other identifiers;
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
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3366	^ self at:#identifierColor ifAbsentPut:[self defaultSyntaxColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3367
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3368	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3369	UserPreferences current at:#identifierColor put:Color green darkened darkened.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3370	UserPreferences current at:#identifierColor put:Color black.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3371	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3372
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3373	"Created: / 31.3.1998 / 17:35:55 / cg"
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3374	"Modified: / 2.4.1998 / 10:39:42 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3375	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3376
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3377	identifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3378	"the emphasis used for other identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3379	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3380
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3381	^ self at:#identifierEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3382
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3383	"Created: / 31.3.1998 / 15:09:41 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3384	"Modified: / 1.4.1998 / 13:25:06 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3385	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3386
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3387	instVarIdentifierColor
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3388	"the color used for instance variable identifiers;
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3389	If syntaxColoring is turned on."
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3390
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3391	^ self at:#instVarIdentifierColor ifAbsentPut:[self identifierColor]
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3392
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3393	"
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3394	UserPreferences current at:#instVarIdentifierColor put:Color green darkened.
92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3395	UserPreferences current at:#instVarIdentifierColor put:Color black.
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	3396	UserPreferences current instVarIdentifierColor
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3397	"
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3398
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3399	"Created: / 16.4.1998 / 18:31:29 / cg"
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3400	"Modified: / 16.4.1998 / 18:57:06 / cg"
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3401	!
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3402
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3403	instVarIdentifierEmphasis
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3404	"the emphais used for instance variable identifiers;
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3405	If syntaxColoring is turned on."
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3406
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3407	^ self at:#instVarIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3408
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3409	"Modified: / 1.4.1998 / 13:24:42 / cg"
3378 92288628a6bf checkin from browser Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	3410	"Created: / 16.4.1998 / 18:40:05 / cg"
3377 9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3411	!
9d7c8b2ef58e checkin from browser Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	3412
8420 08756fae71a0 prefs for js ca parents: 8252 diff changeset	3413	jsKeywordColor
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3414	^ self at:#jsKeywordColor ifAbsentPut:[self defaultSyntaxColor]
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3415	!
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3416
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3417	jsKeywordEmphasis
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3418	^ self at:#jsKeywordEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3419	!
08756fae71a0 prefs for js ca parents: 8252 diff changeset	3420
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3421	localIdentifierColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3422	"the color used for local variable identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3423	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3424
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3425	^ self at:#localIdentifierColor ifAbsent:[self identifierColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3426
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3427	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3428	UserPreferences current at:#localIdentifierColor put:Color green darkened.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3429	UserPreferences current at:#localIdentifierColor put:Color black.
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3430	"
6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3431
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3432	"Created: / 31.3.1998 / 15:18:07 / cg"
3362 6855944431e9 checkin from browser Claus Gittinger <cg@exept.de> parents: 3361 diff changeset	3433	"Modified: / 2.4.1998 / 10:40:05 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3434	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3435
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3436	localIdentifierEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3437	"the emphais used for local variable identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3438	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3439
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3440	^ self at:#localIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3441
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3442	"Created: / 31.3.1998 / 15:16:56 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3443	"Modified: / 1.4.1998 / 13:24:42 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3444	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3445
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3446	methodSelectorColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3447	"the color used for a methods selector pattern;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3448	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3449
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3450	^ self at:#methodSelectorColor ifAbsentPut:[self defaultSyntaxColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3451
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3452	"Created: / 31.3.1998 / 15:11:24 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3453	"Modified: / 1.4.1998 / 13:24:26 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3454	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3455
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3456	methodSelectorEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3457	"the emphasis used for a methods selector pattern;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3458	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3459
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3460	^ self at:#methodSelectorEmphasis ifAbsentPut:[UserPreferences default at:#methodSelectorEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3461
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3462	"Created: / 31-03-1998 / 15:11:16 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3463	"Modified: / 21-04-2011 / 12:34:42 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3464	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3465
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3466	numberConstantColor
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3467	"the color used for number constants;
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3468	If syntaxColoring is turned on."
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3469
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3470	^ self at:#numberConstantColor ifAbsent:[ self constantColor ]
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3471	!
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3472
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3473	numberConstantEmphasis
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3474	"the emphasis used for number constants;
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3475	If syntaxColoring is turned on."
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3476
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3477	^ self at:#numberConstantEmphasis ifAbsent:[ self constantEmphasis ]
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3478	!
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	3479
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3480	poolVariableIdentifierColor
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3481	"the color used for pool variable identifiers
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3482	If syntaxColoring is turned on."
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3483
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3484	^ self at:#poolVariableIdentifierColor ifAbsentPut:[self globalIdentifierColor]
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3485	!
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3486
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3487	poolVariableIdentifierEmphasis
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3488	"the color used for pool variable identifiers
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3489	If syntaxColoring is turned on."
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3490
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3491	^ self at:#poolVariableIdentifierEmphasis ifAbsentPut:[self globalIdentifierEmphasis]
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3492	!
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	3493
4076 96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3494	returnColor
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3495	"the color used for the return expression;
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3496	If syntaxColoring is turned on."
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3497
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3498	^ self at:#returnColor ifAbsentPut:[self defaultSyntaxColor]
4076 96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3499
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3500	"Modified: / 5.1.1980 / 00:43:52 / cg"
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3501	!
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3502
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3503	returnEmphasis
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3504	"the emphasis used for returns;
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3505	If syntaxColoring is turned on."
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3506
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3507	^ self at:#returnEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
4076 96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3508
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3509	"Created: / 5.1.1980 / 00:43:39 / cg"
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3510	!
96cb7146bc59 checkin from browser Claus Gittinger <cg@exept.de> parents: 4075 diff changeset	3511
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3512	selectorColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3513	"the color used for message selectors;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3514	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3515
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3516	^ self at:#selectorColor ifAbsentPut:[self defaultSyntaxColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3517
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3518	"Created: / 31.3.1998 / 15:19:19 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3519	"Modified: / 1.4.1998 / 13:24:04 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3520	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3521
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3522	selectorEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3523	"the emphasis used for message selectors;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3524	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3525
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3526	^ self at:#selectorEmphasis ifAbsentPut:[UserPreferences default at:#selectorEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3527
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3528	"Created: / 31-03-1998 / 15:19:09 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3529	"Modified: / 21-04-2011 / 12:34:39 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3530	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3531
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3532	selfColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3533	"the color used for the self pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3534	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3535
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3536	^ self at:#selfColor ifAbsentPut:[self identifierColor]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3537
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3538	"Created: / 31.3.1998 / 17:35:45 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3539	"Modified: / 1.4.1998 / 13:21:07 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3540	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3541
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3542	selfEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3543	"the emphasis used for the self pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3544	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3545
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3546	^ self at:#selfEmphasis ifAbsentPut:[self identifierEmphasis]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3547
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3548	"Created: / 31.3.1998 / 17:34:57 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3549	"Modified: / 1.4.1998 / 13:21:51 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3550	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3551
14004 a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3552	sideEffectAssignmentBackgroundColor
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3553	"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	3554	If nil is returned, the variable's color is used"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3555
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3556	^ self at:#sideEffectAssignmentBackgroundColor ifAbsent:[ nil ]
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3557
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3558	"Created: / 13-02-2012 / 11:35:20 / cg"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3559	!
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3560
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3561	sideEffectAssignmentColor
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3562	"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	3563	If nil is returned, the variable's color is used"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3564
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3565	^ self at:#sideEffectAssignmentColor ifAbsent:[ nil ]
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3566
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3567	"Created: / 13-02-2012 / 11:35:09 / cg"
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3568	!
a1ea1699f5b0 added: Claus Gittinger <cg@exept.de> parents: 13973 diff changeset	3569
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3570	stringColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3571	"the color used for string constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3572	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3573
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	3574	^ self at:#stringColor ifAbsent:[self constantColor]
3360 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	"Created: / 31.3.1998 / 15:19:50 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3577	"Modified: / 1.4.1998 / 13:22:06 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3578	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3579
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3580	stringEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3581	"the emphasis used for string constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3582	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3583
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3584	^ self at:#stringEmphasis ifAbsentPut:[self constantEmphasis]
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	"Created: / 31.3.1998 / 15:19:09 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3587	"Modified: / 1.4.1998 / 13:22:00 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3588	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3589
13308 d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3590	stringEmphasisAndColor
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3591	^ self emphasis:(self stringEmphasis) andColor:(self stringColor).
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3592
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3593	"Created: / 17-02-2011 / 14:29:10 / cg"
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3594	!
d49548a99889 added: #stringEmphasisAndColor Claus Gittinger <cg@exept.de> parents: 13307 diff changeset	3595
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3596	superColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3597	"the color used for the super pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3598	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3599
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3600	^ self at:#superColor ifAbsentPut:[self selfColor]
3360 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	"Created: / 31.3.1998 / 17:37:56 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3603	"Modified: / 1.4.1998 / 13:21:15 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3604	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3605
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3606	superEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3607	"the emphasis used for the super pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3608	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3609
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3610	^ self at:#superEmphasis ifAbsentPut:[self selfEmphasis]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3611
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3612	"Created: / 31.3.1998 / 17:35:08 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3613	"Modified: / 1.4.1998 / 13:21:41 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3614	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3615
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3616	symbolColor
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3617	"the color used for symbol constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3618	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3619
16589 89edf4b377f9 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16587 diff changeset	3620	^ self at:#symbolColor ifAbsent:[self constantColor]
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3621
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3622	"Created: / 1.4.1998 / 12:57:35 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3623	"Modified: / 1.4.1998 / 13:22:16 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3624	!
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3625
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3626	symbolEmphasis
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3627	"the emphasis used for symbol constants;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3628	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3629
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3630	^ self at:#symbolEmphasis ifAbsentPut:[self constantEmphasis]
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3631
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3632	"Created: / 1.4.1998 / 12:57:43 / cg"
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3633	"Modified: / 1.4.1998 / 13:23:43 / cg"
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3634	!
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3635
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3636	thisContextColor
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3637	"the color used for the thisContext pseudoVariable;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3638	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3639
3355 d013e5affe18 checkin from browser Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3640	^ self at:#thisContextColor ifAbsentPut:[self identifierColor]
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3641
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3642	"Created: / 31.3.1998 / 17:37:49 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3643	"Modified: / 1.4.1998 / 13:21:24 / cg"
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3644	!
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3645
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3646	thisContextEmphasis
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3647	"the emphasis used for the thisContext pseudoVariable;
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
3355 d013e5affe18 checkin from browser Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3650	^ self at:#thisContextEmphasis ifAbsentPut:[self identifierEmphasis]
3352 ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3651
ebf6c330ff71 checkin from browser Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	3652	"Created: / 31.3.1998 / 17:35:27 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3653	"Modified: / 1.4.1998 / 13:21:30 / cg"
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3654	!
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3655
4316 c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3656	unimplementedSelectorColor
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3657	"the color used for bad message selectors;
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3658	If syntaxColoring is turned on."
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3659
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3660	^ self at:#unimplementedSelectorColor ifAbsentPut:[UserPreferences default at:#unimplementedSelectorColor ifAbsent:[Color black]]
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3661
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3662	"Modified: / 21-04-2011 / 12:33:29 / cg"
4316 c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3663	!
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3664
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3665	unimplementedSelectorEmphasis
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3666	"the emphasis used for bad message selectors;
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3667	If syntaxColoring is turned on."
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3668
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3669	^ self at:#unimplementedSelectorEmphasis ifAbsentPut:[UserPreferences default at:#unimplementedSelectorEmphasis ifAbsent:#normal]
13346 9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3670
9f020c62dbfe changed:11 methods Claus Gittinger <cg@exept.de> parents: 13340 diff changeset	3671	"Created: / 31-03-1998 / 15:19:09 / cg"
13347 b3245e290ed0 changed:6 methods Claus Gittinger <cg@exept.de> parents: 13346 diff changeset	3672	"Modified: / 21-04-2011 / 12:34:36 / cg"
4316 c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3673	!
c3934d0d1e3e added unimplementedSelector emphasis&colors Claus Gittinger <cg@exept.de> parents: 4306 diff changeset	3674
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3675	unknownIdentifierColor
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3676	"the color used for unknown identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3677	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3678
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3679	^ self at:#unknownIdentifierColor ifAbsentPut:[self badIdentifierColor]
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3680
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3681	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3682	self current at:#unknownIdentifierColor put:Color red.
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3683	self current at:#unknownIdentifierEmphasis put:#bold
4317 aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3684
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3685	self current unknownIdentifierColor
aba88adaf752 concentrated defaults into #initialize method. Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	3686	self current unknownIdentifierEmphasis
3361 daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3687	"
daabd9bf9c3b checkin from browser ca parents: 3360 diff changeset	3688
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3689	"Created: / 31.3.1998 / 19:11:38 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3690	"Modified: / 1.4.1998 / 13:22:33 / cg"
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3691	!
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3692
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3693	unknownIdentifierEmphasis
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3694	"the emphasis used for unknown identifiers;
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3695	If syntaxColoring is turned on."
3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3696
4326 9b1d4f1bf719 inserted badIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 4320 diff changeset	3697	^ self at:#unknownIdentifierEmphasis ifAbsentPut:[self badIdentifierEmphasis]
3354 9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3698
9336b571ee90 checkin from browser Claus Gittinger <cg@exept.de> parents: 3353 diff changeset	3699	"Created: / 31.3.1998 / 19:11:55 / cg"
3360 3ca08e2afd68 * empty log message * Claus Gittinger <cg@exept.de> parents: 3359 diff changeset	3700	"Modified: / 1.4.1998 / 13:22:45 / cg"
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3701	!
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3702
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3703	xmlAttributeColor
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3704	"the emphasis used for xml-attributes;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3705	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3706
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3707	^ self at:#xmlAttributeColor ifAbsentPut:[ Color green darkened ]
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3708
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3709	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3710	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	3711	self current xmlAttributeColor
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3712	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3713
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3714	"Created: / 24-07-2011 / 21:30:59 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3715	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3716
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3717	xmlAttributeEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3718	"the emphasis used for xml-attributes;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3719	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3720
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3721	^ self at:#xmlAttributeEmphasis ifAbsentPut:[ #normal ]
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3722
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3723	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3724	self current at:#xmlAttributeEmphasis put:#normal
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3725	self current xmlAttributeEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3726	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3727
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3728	"Created: / 24-07-2011 / 21:30:29 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3729	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3730
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3731	xmlCDataColor
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3732	"the emphasis used for xml-CData;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3733	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3734
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3735	^ self at:#xmlCDataColor ifAbsentPut:[ Color blue ]
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3736
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3737	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3738	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	3739	self current xmlCDataColor
13522 4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3740	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3741
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3742	"Created: / 24-07-2011 / 21:31:30 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3743	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3744
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3745	xmlCDataEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3746	"the emphasis used for xml-CData;
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3747	If syntaxColoring is turned on."
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3748
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3749	^ self at:#xmlCDataEmphasis ifAbsentPut:[ #normal ]
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3750
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3751	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3752	self current at:#xmlCDataEmphasis put:#normal
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3753	self current xmlCDataEmphasis
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3754	"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3755
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3756	"Created: / 24-07-2011 / 21:31:52 / cg"
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3757	!
4ea9f70448e4 added: Claus Gittinger <cg@exept.de> parents: 13503 diff changeset	3758
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3759	xmlTagColor
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3760	"the emphasis used for xml-tags;
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3761	If syntaxColoring is turned on."
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3762
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3763	^ self at:#xmlTagColor ifAbsentPut:[ Color blue ]
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3764
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3765	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3766	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	3767	self current xmlTagColor
13307 f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3768	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3769
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3770	"Created: / 17-02-2011 / 14:18:28 / cg"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3771	!
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3772
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3773	xmlTagEmphasis
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3774	"the emphasis used for xml-tags;
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3775	If syntaxColoring is turned on."
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3776
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3777	^ self at:#xmlTagEmphasis ifAbsentPut:[ #bold ]
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3778
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3779	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3780	self current at:#xmlTagEmphasis put:#normal
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3781	self current xmlTagEmphasis
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3782	"
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3783
f8ec9addf144 added: Claus Gittinger <cg@exept.de> parents: 13304 diff changeset	3784	"Created: / 17-02-2011 / 14:18:01 / cg"
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3785	! !
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3786
8232 371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	3787	!UserPreferences methodsFor:'accessing-prefs-code'!
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	3788
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	3789	categoryForMenuActionsMethods
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	3790	^ 'menu actions'.
12117 5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	3791	!
5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	3792
15715 88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3793	haltInObsoleteMethod
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3794	"sometimes, these are annoying..."
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3795
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3796	^ self at:#haltInObsoleteMethod ifAbsent:true
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3797
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3798	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3799	UserPreferences current haltInObsoleteMethod
15715 88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3800
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3801	UserPreferences current haltInObsoleteMethod:true
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3802	UserPreferences current haltInObsoleteMethod:false
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3803	"
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3804	!
88c954271347 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15713 diff changeset	3805
13722 1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3806	ignorePublicPrivateCategories
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3807	"used when loading dolphin code (which defines multiple categories per method);
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3808	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	3809	Turn this on, to get reasonable categories when loading dolphin code"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3810
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3811	^ self at:#ignorePublicPrivateCategories ifAbsent:true
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3812
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3813	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3814	UserPreferences current ignorePublicPrivateCategories
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3815	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3816
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3817	"Created: / 23-09-2011 / 19:49:37 / cg"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3818	!
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3819
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3820	ignorePublicPrivateCategories:aBoolean
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3821	"used when loading dolphin code (which defines multiple categories per method);
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3822	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	3823	Turn this on, to get reasonable categories when loading dolphin code"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3824
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3825	self at:#ignorePublicPrivateCategories put:aBoolean
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3826
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3827	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3828	UserPreferences current ignorePublicPrivateCategories
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3829	"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3830
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3831	"Created: / 23-09-2011 / 19:49:54 / cg"
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3832	!
1e924a33e585 added: Claus Gittinger <cg@exept.de> parents: 13684 diff changeset	3833
12618 2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3834	keepMethodSourceCode
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3835	"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	3836	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	3837	(will stay that high, even if switched off afterwards)"
12618 2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3838
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3839	^ self at:#keepMethodSourceCode ifAbsent:false
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3840
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3841	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3842	UserPreferences current keepMethodSourceCode
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3843	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3844	!
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3845
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3846	keepMethodSourceCode:aBoolean
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3847	"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	3848	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	3849	(will stay that high, even if switched off afterwards)"
12618 2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3850
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3851	^ self at:#keepMethodSourceCode put:aBoolean
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3852
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3853	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3854	UserPreferences current keepMethodSourceCode
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3855	UserPreferences current keepMethodSourceCode:true
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3856	"
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3857	!
2bb3603e728a added: Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	3858
12117 5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	3859	numberOfLinesForLongMethod
5ffce12a6b14 added: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12104 diff changeset	3860	"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	3861
12175 d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	3862	^ self at:#numberOfLinesForLongMethod ifAbsent:30
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	3863
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	3864	"
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	3865	UserPreferences current numberOfLinesForLongMethod
d22d131dbfed changed: #numberOfLinesForLongMethod Claus Gittinger <cg@exept.de> parents: 12167 diff changeset	3866	"
8232 371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	3867	! !
371649bcd96a generateComments (from codeGenerator tool) settings Claus Gittinger <cg@exept.de> parents: 8005 diff changeset	3868
12501 0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3869	!UserPreferences methodsFor:'accessing-prefs-code generator'!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3870
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3871	generateComments
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3872	"return true; comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3873
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3874	^ self at:#generateComments ifAbsent:true.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3875
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3876	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3877	UserPreferences current generateComments
12501 0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3878	UserPreferences current generateComments:false
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3879	UserPreferences current generateComments:true
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3880	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3881	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3882
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3883	generateComments:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3884	"true if comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3885
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3886	self at:#generateComments put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3887
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3888	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3889	UserPreferences current generateComments
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3890	UserPreferences current generateComments:false
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3891	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3892	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3893
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3894	generateCommentsForAspectMethods
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3895	"return true; comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3896
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3897	^ self at:#generateCommentsForAspectMethods ifAbsent:true.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3898
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3899	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3900	UserPreferences current generateCommentsForAspectMethods
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3901	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3902	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3903
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3904	generateCommentsForAspectMethods:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3905	"true if comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3906
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3907	self at:#generateCommentsForAspectMethods put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3908
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3909	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3910	UserPreferences current generateCommentsForAspectMethods:false
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3911	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3912	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3913
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3914	generateCommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3915	"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	3916	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	3917	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	3918
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3919	^ self generateComments and:[self at:#generateCommentsForGetters ifAbsent:false].
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3920
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3921	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3922	UserPreferences current generateCommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3923	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3924	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3925
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3926	generateCommentsForGetters:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3927	"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	3928	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	3929	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	3930
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3931	self at:#generateCommentsForGetters put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3932
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3933	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3934	UserPreferences current generateCommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3935	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3936	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3937
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3938	generateCommentsForSetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3939	"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	3940	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	3941	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	3942
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3943	^ self generateComments and:[self at:#generateCommentsForSetters ifAbsent:false].
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3944
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3945	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3946	UserPreferences current generateCommentsForSetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3947	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3948	!
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3949
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3950	generateCommentsForSetters:aBoolean
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3951	"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	3952	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	3953	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	3954
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3955	self at:#generateCommentsForSetters put:aBoolean.
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3956
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3957	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3958	UserPreferences current generateSommentsForGetters
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3959	"
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3960	! !
0d9b7d311412 added:5 methods Claus Gittinger <cg@exept.de> parents: 12391 diff changeset	3961
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	3962	!UserPreferences methodsFor:'accessing-prefs-code view'!
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	3963
15426 8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	3964	assignmentBackgroundColorForNavigationService
8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	3965	^ (Color rgbValue:16rFFDBDB)
8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	3966	!
8fb81aa4e9e2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15417 diff changeset	3967
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3968	codeView2AutoPrettyPrint
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3969
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3970	^self at:#codeView2AutoPrettyPrint ifAbsent: false
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3971
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3972	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3973	UserPreferences current codeView2AutoPrettyPrint
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3974	UserPreferences current codeView2AutoPrettyPrint:true
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3975	UserPreferences current codeView2AutoPrettyPrint:false"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3976
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3977	"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	3978	"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	3979	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3980
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3981	codeView2AutoPrettyPrint: aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3982
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3983	^self at:#codeView2AutoPrettyPrint put: aBoolean
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3984
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3985	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3986	UserPreferences current codeView2AutoPrettyPrint
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	3987	UserPreferences current codeView2AutoPrettyPrint:true
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3988	UserPreferences current codeView2AutoPrettyPrint:false"
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3989
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3990	"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	3991	"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	3992	!
de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	3993
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	3994	codeView2QuickSendersAndImplementorsOnControl
14733 d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	3995	"if true, CTRL-click opens the quick senders/implementors menu;
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	3996	if false, you have to press ALT"
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	3997
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	3998	^self at:#codeView2QuickSendersAndImplementorsOnControl ifAbsent: false
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	3999
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4000	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4001	UserPreferences current codeView2QuickSendersAndImplementorsOnControl
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4002	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:true
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4003	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:false"
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4004	!
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4005
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4006	codeView2QuickSendersAndImplementorsOnControl: aBoolean
14733 d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4007	"if true, CTRL-click opens the quick senders/implementors menu;
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4008	if false, you have to press ALT"
d354dd094956 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14732 diff changeset	4009
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4010	^self at:#codeView2QuickSendersAndImplementorsOnControl put: aBoolean
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4011
d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4012	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4013	UserPreferences current codeView2QuickSendersAndImplementorsOnControl
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4014	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:true
14732 d52239daa817 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14698 diff changeset	4015	UserPreferences current codeView2QuickSendersAndImplementorsOnControl:false"
14915 a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4016	!
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4017
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4018	selectorBackgroundColorForNavigationService
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4019	^ (Color rgbValue:"16rADD9FF" 16rDBEEFF)
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4020	!
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4021
a6cc6e21f9cf class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14761 diff changeset	4022	variableBackgroundColorForNavigationService
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4023	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4024	at: #variableBackgroundColorForNavigationService
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4025	ifAbsent: [
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4026	(Color rgbValue:16rFFFFA7)
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4027	"/ (Color rgbValue:16rEFD7A7)
16385 f61769553d61 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16377 diff changeset	4028	]
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	4029
fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	4030	"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	4031	! !
13547 f08daec3c459 changed: #historyManagerSignature Claus Gittinger <cg@exept.de> parents: 13523 diff changeset	4032
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4033	!UserPreferences methodsFor:'accessing-prefs-defaultPackages'!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4034
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4035	addPreloadedPackage:packageName
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4036	"add this to the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4037	This will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4038
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4039	(self at:#preloadedPackages ifAbsentPut:[Set new]) add:packageName.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4040	Smalltalk loadPackage:packageName.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4041
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4042	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4043	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4044	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4045	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4046	!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4047
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4048	preloadedPackages
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4049	"the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4050	These will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4051
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4052	^ self at:#preloadedPackages ifAbsent:[ #() ].
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4053
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4054	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4055	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4056	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4057	UserPreferences current preloadedPackages
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4058	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4059	!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4060
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4061	preloadedPackages:setOfPreloadedPackages
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4062	"define the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4063	This will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4064
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4065	\|set\|
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4066
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4067	set := setOfPreloadedPackages asSet.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4068	self at:#preloadedPackages put:set.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4069	set do:[:each \|
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4070	Smalltalk loadPackage:each
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4071	].
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4072
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4073	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4074	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4075	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4076	UserPreferences current preloadedPackages
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4077	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4078	!
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4079
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4080	removePreloadedPackage:packageName
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4081	"remove this from the set of preloaded packages.
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4082	This will be no longer be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4083
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4084	(self at:#preloadedPackages ifAbsentPut:[Set new]) remove:packageName ifAbsent:[]
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4085
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4086	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4087	UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4088	UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4089	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4090	! !
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	4091
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4092	!UserPreferences methodsFor:'accessing-prefs-editor'!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4093
15913 9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4094	appendAbbreviationsToCompletionSuggestions
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4095	"show abbreviations in completion"
15913 9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4096
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4097	^ self at:#appendAbbreviationsToCompletionSuggestions ifAbsent:false
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4098
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4099	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4100	UserPreferences current appendAbbreviationsToCompletionSuggestions
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4101	UserPreferences current appendAbbreviationsToCompletionSuggestions:true
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4102	UserPreferences current appendAbbreviationsToCompletionSuggestions:false
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4103	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4104	!
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4105
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4106	appendAbbreviationsToCompletionSuggestions:aBoolean
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4107	"show abbreviations in completion"
15913 9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4108
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4109	^ self at:#appendAbbreviationsToCompletionSuggestions put:aBoolean
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4110
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4111	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4112	UserPreferences current appendAbbreviationsToCompletionSuggestions
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4113	UserPreferences current appendAbbreviationsToCompletionSuggestions:true
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4114	UserPreferences current appendAbbreviationsToCompletionSuggestions:false
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4115	"
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4116	!
9ed7da7df9b7 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15893 diff changeset	4117
15742 47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4118	codeCompletionOnControlKey
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4119	"show completion with CTRL-key - experimental"
15742 47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4120
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4121	^ self at:#codeCompletionOnControlKey ifAbsent:false
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4122
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4123	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4124	UserPreferences current codeCompletionOnControlKey
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4125	UserPreferences current codeCompletionOnControlKey:true
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4126	UserPreferences current codeCompletionOnControlKey:false
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4127	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4128	!
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4129
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4130	codeCompletionOnControlKey:aBoolean
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4131	"show completion with CTRL key - experimental"
15742 47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4132
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4133	^ self at:#codeCompletionOnControlKey put:aBoolean
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4134
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4135	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4136	UserPreferences current codeCompletionOnControlKey
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4137	UserPreferences current codeCompletionOnControlKey:true
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4138	UserPreferences current codeCompletionOnControlKey:false
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4139	"
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4140	!
47bbc2ffe61e class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15728 diff changeset	4141
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4142	codeCompletionOnTabKey
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4143	"show completion with TAB-key - experimental"
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4144
15767 169f9c6acec2 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15748 diff changeset	4145	^ self at:#codeCompletionOnTabKey ifAbsent:true
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4146
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4147	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4148	UserPreferences current codeCompletionOnTabKey
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4149	UserPreferences current codeCompletionOnTabKey:true
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4150	UserPreferences current codeCompletionOnTabKey:false
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4151	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4152	!
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4153
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4154	codeCompletionOnTabKey:aBoolean
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4155	"show completion with TAB-key - experimental"
15747 bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4156
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4157	self at:#codeCompletionOnTabKey put:aBoolean
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4158
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4159	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4160	UserPreferences current codeCompletionOnTabKey
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4161	UserPreferences current codeCompletionOnTabKey:true
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4162	UserPreferences current codeCompletionOnTabKey:false
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4163	"
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4164	!
bba1859a6cd8 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15742 diff changeset	4165
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4166	codeCompletionViewKeyboardNavigationNeedsModifier
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4167	"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	4168	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	4169	view if a shift- or control modifier is pressed.
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4170	The default is false for backward compatibility"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4171
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4172	^ self at:#codeCompletionViewKeyboardNavigationNeedsModifier ifAbsent:[false]
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4173
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4174	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4175	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4176	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:true
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4177	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:false
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4178	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4179	!
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4180
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4181	codeCompletionViewKeyboardNavigationNeedsModifier:aBoolean
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4182	"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	4183	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	4184	view if a shift- or control modifier is pressed.
16584 6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4185	The default is false for backward compatibility"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4186
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4187	self at:#codeCompletionViewKeyboardNavigationNeedsModifier put:aBoolean
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4188
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4189	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4190	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4191	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:true
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4192	UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:false
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4193	"
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4194	!
6d43426bc7eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16570 diff changeset	4195
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4196	deleteSetsClipboardText
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4197	"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	4198
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4199	^ self at:#deleteSetsClipboardText ifAbsent:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4200
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4201	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4202	UserPreferences current deleteSetsClipboardText
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4203	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4204	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4205
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4206	deleteSetsClipboardText:aBooleanOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4207	"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	4208
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4209	^ self at:#deleteSetsClipboardText put:aBooleanOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4210
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4211	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4212	UserPreferences current deleteSetsClipboardTextdeleteSetsClipboardText:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4213	UserPreferences current deleteSetsClipboardText:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4214	UserPreferences current deleteSetsClipboardText
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4215	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4216	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4217
11897 e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4218	enforcedDropModeForFiles
12930 bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4219	"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	4220	(default is nil, for ask)"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4221
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4222	^ self at:#enforcedDropModeForFiles ifAbsent:nil
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4223
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4224	"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4225	UserPreferences current enforcedDropModeForFiles
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4226	"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4227	!
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4228
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4229	enforcedDropModeForFiles:aSymbolOrNil
12930 bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4230	"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	4231	(default is nil, for ask)"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4232
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4233	^ self at:#enforcedDropModeForFiles put:aSymbolOrNil
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4234
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4235	"
12930 bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4236	UserPreferences current enforcedDropModeForFiles:#contents
bc3ca82d5a81 comment/format in: Claus Gittinger <cg@exept.de> parents: 12905 diff changeset	4237	UserPreferences current enforcedDropModeForFiles:#name
11897 e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4238	"
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4239	!
e8003f2d538c Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 11694 diff changeset	4240
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4241	extendedWordSelectMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4242	"when double clicking, include underscore, dollar and at-character as word-characters ?
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4243	(default is on)"
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4244
10310 89d972739353 extendedWordSelectMode (underline in word) defaults to true Claus Gittinger <cg@exept.de> parents: 10240 diff changeset	4245	^ self at:#extendedWordSelectMode ifAbsent:true
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4246
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4247	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4248	UserPreferences current extendedWordSelectMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4249	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4250
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4251	"Created: / 03-07-2006 / 16:49:58 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4252	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4253
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4254	extendedWordSelectMode:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4255	"when double clicking, include underscore, dollar and at-character as word-characters ?
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4256	(default is on)"
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4257
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4258	^ self at:#extendedWordSelectMode put:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4259
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4260	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4261	UserPreferences current extendedWordSelectMode:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4262	UserPreferences current extendedWordSelectMode:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4263	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4264
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4265	"Created: / 03-07-2006 / 16:50:20 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4266	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4267
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4268	immediateCodeCompletion
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4269	"show completion, as you type - experimental"
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4270
15726 a38e1e075388 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15725 diff changeset	4271	^ self at:#immediateCodeCompletion ifAbsent:false
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4272
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4273	"
15725 a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4274	UserPreferences current immediateCodeCompletion
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4275	UserPreferences current immediateCodeCompletion:true
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4276	UserPreferences current immediateCodeCompletion:false
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4277	"
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4278	!
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4279
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4280	immediateCodeCompletion:aBoolean
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4281	"show completion, as you type - experimental"
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4282
15726 a38e1e075388 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15725 diff changeset	4283	^ self at:#immediateCodeCompletion put:aBoolean
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4284
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4285	"
15725 a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4286	UserPreferences current immediateCodeCompletion
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4287	UserPreferences current immediateCodeCompletion:true
a1ac75bd5b52 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15724 diff changeset	4288	UserPreferences current immediateCodeCompletion:false
15724 d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4289	"
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4290	!
d28434d361f3 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15715 diff changeset	4291
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4292	numberOfRememberedUndoOperationsInEditor
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4293	"the number of possible undo-operations.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4294	Nil means: unlimited.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4295	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	4296
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4297	^ self at:#numberOfRememberedUndoOperationsInEditor ifAbsent:nil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4298
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4299	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4300	UserPreferences current numberOfRememberedUndoOperationsInEditor
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4301	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4302
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4303	"Modified: / 09-10-2006 / 11:01:35 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4304	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4305
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4306	numberOfRememberedUndoOperationsInEditor:aNumberOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4307	"the number of possible undo-operations.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4308	Nil means: unlimited.
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4309	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	4310
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4311	^ self at:#numberOfRememberedUndoOperationsInEditor put:aNumberOrNil
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4312
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4313	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4314	UserPreferences current numberOfRememberedUndoOperationsInEditor:20
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4315	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4316
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4317	"Created: / 09-10-2006 / 11:00:56 / cg"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4318	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4319
14052 7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4320	selectAllWhenClickingBeyondEnd
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4321	"select mode, when clicking after the end of text,
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4322	as in st80 (or squeak), select all"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4323
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4324	^ self at:#selectAllWhenClickingBeyondEnd ifAbsent:false
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4325
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4326	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4327	UserPreferences current selectAllWhenClickingBeyondEnd
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4328	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4329
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4330	"Created: / 07-03-2012 / 14:00:17 / cg"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4331	!
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4332
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4333	selectAllWhenClickingBeyondEnd:aBoolean
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4334	"select mode, when clicking after the end of text,
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4335	as in st80 (or squeak), select all"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4336
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4337	^ self at:#selectAllWhenClickingBeyondEnd put:aBoolean
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4338
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4339	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4340	UserPreferences current selectAllWhenClickingBeyondEnd:true
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4341	UserPreferences current selectAllWhenClickingBeyondEnd:false
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4342	"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4343
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4344	"Created: / 07-03-2012 / 14:00:23 / cg"
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4345	!
7b375cec839b added: Claus Gittinger <cg@exept.de> parents: 14012 diff changeset	4346
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4347	selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4348	"Returns selection extension mode. Mode is either
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4349
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4350	#traditional ... Shift-End always moves end of selection (iff it is on the same line)
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4351	Shift->Home always moves beggining of selection (iff it is on the same line)
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4352	That's how CG likes it.
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4353
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4354	#standard ... That's how vast majority text editors and text widgets behaves, therefore
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4355	this is how most users expects it to behave.
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4356
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4357
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4358	For historical reasons, #traditional is the default..."
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4359
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4360	^ self at: #selectionExtensionMode ifAbsent:[ #traditional ]
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4361
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4362
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4363
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4364	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4365	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4366
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4367	UserPreferences current selectionExtensionMode:#traditional
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4368	UserPreferences current selectionExtensionMode:#standard
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4369	UserPreferences current selectionExtensionMode:nil
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4370
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4371	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4372
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4373	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4374
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4375	"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	4376	!
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4377
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4378	selectionExtensionMode: aSymbol
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4379	"Sets selection extension mode. Must be either:
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4380
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4381	#traditional ... Shift-End always moves end of selection (iff it is on the same line)
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4382	Shift->Home always moves beggining of selection (iff it is on the same line)
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4383	That's how CG likes it.
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4384
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4385	#standard ... That's how vast majority text editors and text widgets behaves, therefore
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4386	this is how most users expects it to behave.
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4387
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4388
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4389	For historical reasons, #traditional is the default..."
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4390
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4391	aSymbol isNil ifTrue:[
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4392	self removeKey:#selectionExtensionMode.
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4393	^ self.
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4394	].
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4395
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4396	(#(traditional standard) includes: aSymbol) ifFalse:[
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4397	self error:'Invalid value. Possible values are #traditional and #standard'.
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4398	].
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4399	self at: #selectionExtensionMode put: aSymbol
16284 6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4400
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4401
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4402
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4403	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4404	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4405
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4406	UserPreferences current selectionExtensionMode:#traditional
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4407	UserPreferences current selectionExtensionMode:#standard
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4408	UserPreferences current selectionExtensionMode:nil
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4409
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4410	UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4411
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4412	"
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4413
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4414	"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	4415	!
6eb367d12be5 class: UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16278 diff changeset	4416
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4417	st80EditMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4418	"editing as in st80 (do not allow cursor beyond endOfLine/endOftext)."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4419
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4420	^ self at:#st80EditMode ifAbsent:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4421
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4422	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4423	UserPreferences current st80EditMode
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4424	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4425	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4426
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4427	st80EditMode:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4428	"editing as in st80 (do not allow cursor beyond endOfLine/endOftext)."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4429
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4430	^ self at:#st80EditMode put:aBoolean
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4431
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4432	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4433	UserPreferences current st80EditMode:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4434	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4435	!
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4436
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4437	st80SelectMode
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4438	"select mode, when double clicking as in st80
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4439	(select to corresponding lparen/double-quote) ?"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4440
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4441	^ self at:#st80SelectMode ifAbsent:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4442
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4443	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4444	UserPreferences current st80SelectMode
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
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4447	"Created: / 03-07-2006 / 16:25:19 / cg"
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
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4450	st80SelectMode:aBoolean
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4451	"select mode, when double clicking as in st80
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4452	(select to corresponding lparen/double-quote)."
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4453
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4454	^ self at:#st80SelectMode put:aBoolean
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	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4457	UserPreferences current st80SelectMode:true
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4458	UserPreferences current st80SelectMode:false
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4459	"
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4460
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4461	"Created: / 03-07-2006 / 16:25:27 / cg"
10880 96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4462	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4463
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4464	whitespaceWordSelectMode
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4465	"when double clicking, treat ANY non-whitespace as word-characters ?
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4466	(default is off)"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4467
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4468	^ self at:#whitespaceWordSelectMode ifAbsent:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4469
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4470	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4471	UserPreferences current whitespaceWordSelectMode
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4472	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4473
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4474	"Created: / 03-07-2006 / 16:49:58 / cg"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4475	!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4476
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4477	whitespaceWordSelectMode:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4478	"when double clicking, treat ANY non-whitespace as word-characters ?
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4479	(default is off)"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4480
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4481	^ self at:#whitespaceWordSelectMode put:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4482
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4483	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4484	UserPreferences current whitespaceWordSelectMode:true
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4485	UserPreferences current whitespaceWordSelectMode:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4486	"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4487
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed Claus Gittinger <cg@exept.de> parents: 10861 diff changeset	4488	"Created: / 03-07-2006 / 16:50:20 / cg"
10055 48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4489	! !
48ecfd4958a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 10012 diff changeset	4490
13373 4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4491	!UserPreferences methodsFor:'accessing-prefs-localization'!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4492
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4493	language
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4494	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4495	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4496	"/ 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	4497	"/ For now, forward to smalltalk, until all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4498	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4499
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4500	^ self at:#language ifAbsent:[Smalltalk language].
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4501
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4502	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4503	UserPreferences current language
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4504	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4505
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4506	"Created: / 20-09-2006 / 23:55:01 / cg"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4507	!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4508
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4509	language:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4510	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4511	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4512	"/ 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	4513	"/ For now, forward to smalltalk, until all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4514	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4515
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4516	self at:#language put:aLanguageSymbol.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4517	Smalltalk language:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4518
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4519	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4520	UserPreferences current language
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4521	UserPreferences current language:#en
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4522	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4523
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4524	"Created: / 20-09-2006 / 23:55:01 / cg"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4525	!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4526
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4527	languageTerritory
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4528	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4529	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4530	"/ 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	4531	"/ for now, forward to smalltalk, while all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4532	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4533
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4534	^ self at:#languageTerritory ifAbsent:[Smalltalk languageTerritory]
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4535
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4536	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4537	UserPreferences current languageTerritory
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4538	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4539
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4540	"Created: / 20-09-2006 / 23:55:01 / cg"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4541	!
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4542
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4543	languageTerritory:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4544	"/ intermediate migration code;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4545	"/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4546	"/ 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	4547	"/ For now, forward to smalltalk, until all references to "Smalltalk-language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4548	"/ are replaced with "UserPreferences current language"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4549
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4550	self at:#languageTerritory put:aLanguageSymbol.
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4551	Smalltalk languageTerritory:aLanguageSymbol
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4552
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4553	"
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4554	UserPreferences current languageTerritory
13373 4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4555	UserPreferences current languageTerritory:#en
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4556	"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4557
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4558	"Created: / 20-09-2006 / 23:55:01 / cg"
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4559	! !
4aae1409ec97 changed:5 methods Stefan Vogel <sv@exept.de> parents: 13347 diff changeset	4560
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4561	!UserPreferences methodsFor:'accessing-prefs-times'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4562
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4563	timeToAutoExpandItemsWhenDraggingOver
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4564	"in a hierarchical tree view"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4565
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4566	^ 700 "/ millis
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4567	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4568
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4569	twoDigitDateHandler
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4570	"return a block which converts a two-digit date.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4571	Possible algorithms:
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4572	- identity: treat as year 00..99
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4573	- add 1900: treat as 1900..1999
3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4574	- 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	4575
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4576	TODO: make this configurable, keep in dictionary and add to settings.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4577	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4578
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4579	^ [:x \| (x >= 50) ifTrue:[1900+x] ifFalse:[2000+x]].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4580	"/ ^ [:x \| 1900+x].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4581	"/ ^ [:x \| x].
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4582	! !
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4583
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4584	!UserPreferences methodsFor:'accessing-prefs-tools'!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4585
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4586	allowSendMailFromDebugger
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4587	"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	4588	mail account "
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4589
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4590	^ self at:#allowSendMailFromDebugger ifAbsent:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4591
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4592	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4593	UserPreferences current allowSendMailFromDebugger
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4594	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4595
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4596	"Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4597	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4598
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4599	allowSendMailFromDebugger:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4600	"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	4601	mail account "
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4602
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4603	^ self at:#allowSendMailFromDebugger put:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4604
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4605	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4606	UserPreferences current allowSendMailFromDebugger:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4607	UserPreferences current allowSendMailFromDebugger:false
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4608	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4609	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4610
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4611	autoDefineWorkspaceVariables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4612	"return the flag which controls automatic definition of unknown variables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4613	as workspace variables (in doIts)"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4614
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	4615	^ self at:#autoDefineWorkspaceVariables ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4616
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4617	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4618	UserPreferences current autoDefineWorkspaceVariables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4619	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4620	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4621
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4622	autoDefineWorkspaceVariables:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4623	"turn on/off automatic definition of unknown variables
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4624	as workspace variables (in doIts)"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4625
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4626	^ self at:#autoDefineWorkspaceVariables put:aBoolean
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4627
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4628	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4629	UserPreferences current autoDefineWorkspaceVariables:true
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4630	UserPreferences current autoDefineWorkspaceVariables:false
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4631	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4632	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4633
10540 ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4634	autoRaiseDebugger
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4635	"if true, the debugger raises itself automatically when entered.
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4636	The default is true"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4637
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4638	^ self at:#autoRaiseDebugger ifAbsent:true
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4639
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4640	"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4641	UserPreferences current autoRaiseDebugger
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4642	"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4643
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4644	"Created: / 15-05-2007 / 13:29:10 / cg"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4645	!
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4646
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4647	autoRaiseDebugger:aBoolean
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4648	"if true, the debugger raises itself automatically when entered.
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4649	The default is true"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4650
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4651	^ self at:#autoRaiseDebugger put:aBoolean
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4652
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4653	"
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4654	UserPreferences current autoRaiseDebugger
10540 ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4655	UserPreferences current autoRaiseDebugger:false
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4656	UserPreferences current autoRaiseDebugger:true
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4657	"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4658
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4659	"Created: / 15-05-2007 / 13:29:31 / cg"
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4660	!
ccead52b3fd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 10478 diff changeset	4661
15130 df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4662	autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4663	"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	4664	when it gets the focus (via the window manager) after that
15130 df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4665	number of milliseconds. If nil, autoRaise is disabled.
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4666	Especially useful with focusFollowsMouse under X11"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4667
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4668	^ self at:#autoRaiseOnFocusInDelay ifAbsent:nil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4669
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4670	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4671	UserPreferences current autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4672	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4673	!
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4674
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4675	autoRaiseOnFocusInDelay:anIntegerOrNil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4676	"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	4677	when it gets the focus (via the window manager) after that
15130 df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4678	number of milliseconds. If nil, autoRaise is disabled.
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4679	Especially useful with focusFollowsMouse under X11"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4680
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4681	^ self at:#autoRaiseOnFocusInDelay put:anIntegerOrNil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4682
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4683	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4684	UserPreferences current autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4685	UserPreferences current autoRaiseOnFocusInDelay:nil
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4686	UserPreferences current autoRaiseOnFocusInDelay:750
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4687	"
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4688	!
df8a9794fd74 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14915 diff changeset	4689
15417 13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4690	autoRaiseTranscript
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4691	"if true, the transcript raises itself automatically when new messages appear.
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4692	The default is false"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4693
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4694	^ self at:#autoRaiseTranscript ifAbsent:false
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4695
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4696	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4697	UserPreferences current autoRaiseTranscript
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4698	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4699	!
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4700
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4701	autoRaiseTranscript:aBoolean
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4702	"if true, the transcript raises itself automatically when new messages appear.
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4703	The default is false"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4704
15427 56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4705	\|transcript\|
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4706
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4707	self at:#autoRaiseTranscript put:aBoolean.
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4708	(self == UserPreferences current) ifTrue:[
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4709	transcript := Transcript current.
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4710	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4711	transcript autoRaise:aBoolean.
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4712	].
56edc9d91140 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15426 diff changeset	4713	].
15417 13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4714
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4715	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4716	UserPreferences current autoRaiseTranscript:true
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4717	UserPreferences current autoRaiseTranscript:false
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4718	UserPreferences current autoRaiseTranscript
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4719	"
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4720	!
13b0cb902059 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15290 diff changeset	4721
11419 ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4722	editToolbarVisibleInWorkspace
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4723	"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	4724
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4725	^ self at:#editToolbarVisibleInWorkspace ifAbsent:false
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4726	!
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4727
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4728	editToolbarVisibleInWorkspace:aBooleanOrNil
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4729	"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	4730
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4731	^ self at:#editToolbarVisibleInWorkspace put:aBooleanOrNil
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4732	!
ee9207931cac * empty log message * Claus Gittinger <cg@exept.de> parents: 11390 diff changeset	4733
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4734	functionKeySequences
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4735	"return the collection of function-key macros.
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4736	Thats a dictionary, which assigns code to F-keys"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4737
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4738	^ self at:#functionKeySequences ifAbsentPut:[Dictionary new]
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4739
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4740	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4741	UserPreferences current functionKeySequences
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4742	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4743
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4744	"Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4745	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4746
14160 0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4747	hideSupportCodeInDebugger
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4748	^ self at:#hideSupportCodeInDebugger ifAbsent:true
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4749
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4750	"
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4751	UserPreferences current hideSupportCodeInDebugger
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4752	"
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4753
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4754	"Created: / 10-06-2012 / 21:24:09 / cg"
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4755	!
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4756
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4757	hideSupportCodeInDebugger:aBooleanOrNil
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4758	^ self at:#hideSupportCodeInDebugger put:aBooleanOrNil
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4759
0654094753b4 added: Claus Gittinger <cg@exept.de> parents: 14159 diff changeset	4760	"Created: / 10-06-2012 / 21:24:18 / cg"
14159 cd88acc36933 added: Claus Gittinger <cg@exept.de> parents: 14140 diff changeset	4761	!
cd88acc36933 added: Claus Gittinger <cg@exept.de> parents: 14140 diff changeset	4762
10661 b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4763	infoVisibleInWorkspace
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4764	"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	4765
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4766	^ self at:#infoVisibleInWorkspace ifAbsent:false
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4767
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4768	"Created: / 14-07-2007 / 16:43:37 / cg"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4769	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4770
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4771	infoVisibleInWorkspace:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4772	"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	4773
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4774	^ self at:#infoVisibleInWorkspace put:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4775
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4776	"Created: / 14-07-2007 / 16:43:44 / cg"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4777	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4778
16377 b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4779	sendMessagesAlsoToTranscript
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4780	"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	4781	on both Stderr AND the Transcript, or only on Stderr"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4782
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4783	^ self at:#sendMessagesAlsoToTranscript ifAbsent:true
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4784
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4785	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4786	UserPreferences current sendMessagesAlsoToTranscript
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4787	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4788	!
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4789
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4790	sendMessagesAlsoToTranscript:aBooleanOrNil
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4791	"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	4792	on both Stderr AND the Transcript, or only on Stderr"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4793
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4794	^ self at:#sendMessagesAlsoToTranscript put:aBooleanOrNil
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4795
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4796	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4797	UserPreferences current sendMessagesAlsoToTranscript:false.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4798	'hello' infoPrintCR.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4799
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4800	UserPreferences current sendMessagesAlsoToTranscript:true.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4801	'hello' infoPrintCR.
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4802	"
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4803	!
b4401b17b2eb class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16330 diff changeset	4804
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4805	showClockInLauncher
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4806	"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	4807
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	4808	^ self at:#showClockInLauncher ifAbsent:false
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4809
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4810	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4811	UserPreferences current showClockInLauncher
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4812	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4813
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4814	"Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4815	!
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4816
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4817	showClockInLauncher:aBooleanOrNil
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4818	"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	4819
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4820	^ self at:#showClockInLauncher put:aBooleanOrNil
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4821
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4822	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4823	UserPreferences current showClockInLauncher:false.
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4824	NewLauncher open.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4825
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4826	UserPreferences current showClockInLauncher:true.
11143 3712ab6b344b * empty log message * Claus Gittinger <cg@exept.de> parents: 11064 diff changeset	4827	NewLauncher open.
7549 442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4828	"
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4829
442051ac6373 category changes Claus Gittinger <cg@exept.de> parents: 7523 diff changeset	4830	"Modified: / 11.9.1998 / 00:09:59 / cg"
7624 44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4831	!
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4832
14140 63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4833	showTypeIndicatorInInspector
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4834	^ self at:#showTypeIndicatorInInspector ifAbsent:true
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4835
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4836	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4837	UserPreferences current showTypeIndicatorInInspector
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4838	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4839
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4840	"Created: / 16-05-2012 / 19:09:50 / cg"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4841	!
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4842
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4843	showTypeIndicatorInInspector:aBooleanOrNil
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4844	^ self at:#showTypeIndicatorInInspector put:aBooleanOrNil
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4845
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4846	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4847	UserPreferences current showTypeIndicatorInInspector:false.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4848	NewLauncher inspect.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4849
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4850	UserPreferences current showTypeIndicatorInInspector:true.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4851	NewLauncher inspect.
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4852	"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4853
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4854	"Created: / 16-05-2012 / 19:10:13 / cg"
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4855	!
63962b1c884a added: Claus Gittinger <cg@exept.de> parents: 14064 diff changeset	4856
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4857	terminalOutputIsUTF8
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4858	"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	4859	the terminal emulator."
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4860
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4861	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4862	at:#terminalOutputIsUTF8
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4863	ifAbsent:[ OperatingSystem isOSXlike
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4864	"/ or ???
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4865	]
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4866
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4867	"
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4868	UserPreferences current terminalOutputIsUTF8
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4869	"
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4870	!
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4871
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4872	terminalOutputIsUTF8:aBoolean
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4873	"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	4874	the terminal emulator."
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4875
17415 50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4876	^ self
50f3123cbbb7 Oops, fixed bug introduced in previous commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17414 diff changeset	4877	at:#terminalOutputIsUTF8
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4878	put:aBoolean
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4879
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 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 terminalOutputIsUTF8
16552 7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4882	"
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4883	!
7f1225f85842 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16542 diff changeset	4884
10661 b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4885	toolbarVisibleInWorkspace
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4886	"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	4887
10665 fd0702c99a8b toolbarVisibleInWorkspace default Claus Gittinger <cg@exept.de> parents: 10661 diff changeset	4888	^ self at:#toolbarVisibleInWorkspace ifAbsent:true
fd0702c99a8b toolbarVisibleInWorkspace default Claus Gittinger <cg@exept.de> parents: 10661 diff changeset	4889
fd0702c99a8b toolbarVisibleInWorkspace default Claus Gittinger <cg@exept.de> parents: 10661 diff changeset	4890	"Modified: / 18-07-2007 / 08:55:44 / cg"
10661 b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4891	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4892
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4893	toolbarVisibleInWorkspace:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4894	"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	4895
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4896	^ self at:#toolbarVisibleInWorkspace put:aBooleanOrNil
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4897
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4898	"Created: / 14-07-2007 / 16:42:09 / cg"
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4899	!
b7a36c50567c * empty log message * Claus Gittinger <cg@exept.de> parents: 10540 diff changeset	4900
11024 464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4901	useNewLayoutInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4902	^ self at:#useNewLayoutInDebugger ifAbsent:true
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4903
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4904	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4905	UserPreferences current useNewLayoutInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4906	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4907	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4908
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4909	useNewLayoutInDebugger:aBoolean
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4910	^ self at:#useNewLayoutInDebugger put:aBoolean
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4911	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4912
7624 44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4913	useRefactoringSupport
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4914	"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	4915	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	4916	There is usually no reason to disable these."
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4917
9302 f3dae8816824 * empty log message * Claus Gittinger <cg@exept.de> parents: 9286 diff changeset	4918	^ self at:#useRefactoringSupport ifAbsent:true
7624 44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4919	!
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4920
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4921	useRefactoringSupport:aBooleanOrNil
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4922	"enable/disable use of refactoring package in browser.
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4923	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	4924	There is usually no reason to disable these."
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4925
44f0109f5115 * empty log message * Claus Gittinger <cg@exept.de> parents: 7614 diff changeset	4926	^ self at:#useRefactoringSupport put:aBooleanOrNil
7625 b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	4927
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	4928	"
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	4929	UserPreferences current useRefactoringSupport:false
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	4930	UserPreferences current useRefactoringSupport:true
b5a9bf06be59 * empty log message * Claus Gittinger <cg@exept.de> parents: 7624 diff changeset	4931	"
11024 464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4932	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4933
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4934	verboseBacktraceInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4935	^ self at:#verboseBacktraceInDebugger ifAbsent:true
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4936
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4937	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4938	UserPreferences current verboseBacktraceInDebugger
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4939	"
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4940	!
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4941
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4942	verboseBacktraceInDebugger:aBoolean
464465f8b891 new layout in debugger Claus Gittinger <cg@exept.de> parents: 11023 diff changeset	4943	^ self at:#verboseBacktraceInDebugger put:aBoolean
7549 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
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4946	!UserPreferences methodsFor:'accessing-prefs-tools-building'!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4947
15917 ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4948	autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4949	^ self at:#autoUnloadAutoloadedClassesInProjectDefinition ifAbsent:false
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4950
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4951	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4952	UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4953	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4954
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4955	"Created: / 28-01-2014 / 21:42:59 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4956	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4957
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4958	autoUnloadAutoloadedClassesInProjectDefinition:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4959	^ self at:#autoUnloadAutoloadedClassesInProjectDefinition put:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4960
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4961	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4962	UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4963	UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition:false
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4964	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4965
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4966	"Created: / 28-01-2014 / 21:43:18 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4967	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	4968
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4969	buildDirectory
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4970	^ self at:#buildDirectory ifAbsent:nil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4971
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4972	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4973	UserPreferences current buildDirectory
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4974	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4975	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4976
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4977	buildDirectory:aFilenameStringOrNil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4978	^ self at:#buildDirectory put:aFilenameStringOrNil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4979
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4980	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4981	UserPreferences current buildDirectory
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4982	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4983	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4984
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4985	localBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4986	"deployment-build in a local directory (as opposed to making via the repository)"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4987
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4988	^ self at:#localBuild ifAbsent:true
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4989
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4990	"Created: / 20-09-2006 / 23:55:01 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4991	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4992
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4993	localBuild:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4994	"deployment-build in a local directory (as opposed to making via the repository)"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4995
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4996	^ self at:#localBuild put:aBoolean
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4997
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4998	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	4999	UserPreferences current localBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5000	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5001
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5002	"Created: / 20-09-2006 / 23:55:26 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5003	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5004
15917 ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5005	suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5006	^ self at:#suppressProjectDefinitionWarnings ifAbsent:true
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5007
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5008	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5009	UserPreferences current suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5010	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5011
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5012	"Created: / 28-01-2014 / 21:41:01 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5013	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5014
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5015	suppressProjectDefinitionWarnings:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5016	^ self at:#suppressProjectDefinitionWarnings put:aBoolean
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5017
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5018	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5019	UserPreferences current suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5020	UserPreferences current suppressProjectDefinitionWarnings:true
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5021	"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5022
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5023	"Created: / 28-01-2014 / 21:41:12 / cg"
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5024	!
ac687dc34fbd class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15915 diff changeset	5025
13967 686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5026	usedCompilerForBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5027	^ self at:#usedCompilerForBuild ifAbsent:nil
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5028
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5029	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5030	UserPreferences current usedCompilerForBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5031	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5032
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5033	"Created: / 22-01-2012 / 10:52:47 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5034	!
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5035
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5036	usedCompilerForBuild:aString
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5037	^ self at:#usedCompilerForBuild put:aString
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5038
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5039	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5040	UserPreferences current usedCompilerForBuild
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5041	UserPreferences current usedCompilerForBuild:'bcc'
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5042	"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5043
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5044	"Created: / 22-01-2012 / 10:52:59 / cg"
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5045	! !
686e325a7a7f added: Claus Gittinger <cg@exept.de> parents: 13943 diff changeset	5046
13941 0621bed84963 added:9 methods Claus Gittinger <cg@exept.de> parents: 13885 diff changeset	5047	!UserPreferences methodsFor:'accessing-scm'!
13596 219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5048
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5049	showBadRevisionStringDialogs
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5050	"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	5051
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5052	^ self at: #'showBadRevisionStringDialogs' ifAbsent:true
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5053
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5054	"Created: / 19-08-2011 / 12:51:25 / cg"
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5055	!
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5056
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5057	showBadRevisionStringDialogs:aBoolean
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5058	"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	5059
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5060	^ self at: #'showBadRevisionStringDialogs' put:aBoolean
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5061
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5062	"Created: / 19-08-2011 / 12:51:58 / cg"
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5063	! !
219fd211bc2d added: Claus Gittinger <cg@exept.de> parents: 13547 diff changeset	5064
15960 fec5ba031704 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15925 diff changeset	5065
13943 26472baf6c58 category of:20 methods Claus Gittinger <cg@exept.de> parents: 13942 diff changeset	5066	!UserPreferences methodsFor:'default settings-syntax colors'!
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5067
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5068	listOfPredefinedSyntaxColoringSchemes
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5069	"return a list of pre-defined syntax highlightning styles
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5070	(as shown in the Launchers 'source and debugger settings' dialog."
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5071
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5072	^ #(
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5073	(#resetSyntaxColors 'default [ST/X style]')
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5074	(#resetSyntaxColorsWithSideEffectHighlighting 'default with side effect highlighting [new ST/X style]')
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5075	(#resetSyntaxColorsToVCStyle 'green comments; blue controlFlow, red constants [VISUAL-C style]')
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5076	(#resetSyntaxColorsBlueControlFlowSelectors 'blue controlFlow')
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5077	(#resetSyntaxColorsGreenComments 'green comments')
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5078	(#resetSyntaxColorsGreenCommentsBlueControlFlowSelectors 'green comments; blue controlFlow')
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5079	(#resetSyntaxColorsBlueSelectorsGreenComments 'blue selectors; green comments [DOLPHIN style]')
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5080	(#resetSyntaxColorsBlueSelectorsGreyComments 'blue selectors; grey comments')
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5081	(#resetSyntaxColorsToSqueakStyle1 'blue selectors; green comments [SQUEAK style]')
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5082	(#resetSyntaxColorsToSqueakStyle2 'blue selectors; green comments; brown self [new SQUEAK style]')
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5083	(#resetSyntaxColorsAllBlackExceptBadIDs 'no colors, but highlight errors')
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5084	(#resetSyntaxColorsToVAgeStyle 'blue globals; green comments [V''Age style]')
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5085	(#resetSyntaxColorsToVW7Style 'light blue comments [VW7 style]')
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5086	)
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5087
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5088	"Modified: / 17-03-2012 / 10:40:18 / cg"
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5089	!
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5090
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5091	resetSyntaxColors
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5092	"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	5093
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5094	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	5095
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5096
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5097	!
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5098
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5099	resetSyntaxColorsAllBlackExceptBadIDs
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5100	"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	5101	except for bad identifiers, which are underwaved."
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5102
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5103	self resetSyntaxColors.
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5104	self at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5105	self at:#errorColor put:Color black.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5106	self at:#commentColor put:Color black.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5107	self at:#constantColor put:Color black.
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5108	self at:#methodSelectorEmphasis put:#normal.
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5109	self at:#selectorEmphasis put:#normal.
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5110
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5111	"Modified: / 16-03-2012 / 10:35:02 / cg"
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5112	!
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5113
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5114	resetSyntaxColorsBlueControlFlowSelectors
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5115	"resets the colors in the CurrentPreferences to alternative default values
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5116	(with blue control flow selectors)"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5117
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5118	self resetSyntaxColors.
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5119	self at:#controlFlowSelectorColor put:(Color blue).
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5120
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5121	"Created: / 08-09-2006 / 16:11:52 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5122	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5123
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5124	resetSyntaxColorsBlueSelectorsGreenComments
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5125	"resets the colors in the CurrentPreferences to alternative default values
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5126	(with blue selectors and green comments)"
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5127
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5128	self resetSyntaxColors.
8551 de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5129	self at:#commentColor put:(Color green darkened).
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5130	self at:#commentEmphasis put:#italic.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5131	self at:#selectorColor put:(Color blue).
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5132	self at:#selectorEmphasis put:#normal.
de314b9f8fa3 sharedPools ca parents: 8545 diff changeset	5133	self at:#methodSelectorColor put:(Color blue).
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5134	self at:#methodSelectorEmphasis put:#bold.
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5135
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5136	"Modified: / 16-03-2012 / 10:34:55 / cg"
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5137	!
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5138
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5139	resetSyntaxColorsBlueSelectorsGreyComments
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5140	"resets the colors in the CurrentPreferences to alternative default values
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5141	(with blue selectors and grey comments)"
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5142
6171 cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5143	self resetSyntaxColorsBlueSelectorsGreenComments.
cf2befb8562e more coloring styles Claus Gittinger <cg@exept.de> parents: 6169 diff changeset	5144	self at:#commentColor put:(Color gray).
6169 1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5145	!
1176368a973a syntax coloring stuff Claus Gittinger <cg@exept.de> parents: 6059 diff changeset	5146
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5147	resetSyntaxColorsGreenComments
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5148	"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	5149	(with green comments)"
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5150
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5151	self resetSyntaxColors.
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5152	self at:#commentColor put:(Color green darkened).
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5153
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5154	"Modified: / 16-03-2012 / 10:34:50 / cg"
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5155	!
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5156
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5157	resetSyntaxColorsGreenCommentsBlueControlFlowSelectors
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5158	"resets the colors in the CurrentPreferences to alternative default values
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5159	(with green comments, blue control flow)"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5160
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5161	self resetSyntaxColors.
9834 0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5162	self at:#commentColor put:(Color green darkened).
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5163	self at:#controlFlowSelectorColor put:(Color blue).
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5164
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5165	"Created: / 08-09-2006 / 16:10:38 / cg"
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5166	!
0be637339fce control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 9820 diff changeset	5167
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5168	resetSyntaxColorsToSqueakStyle
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5169	"resets the colors in the CurrentPreferences to alternative default values"
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5170
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5171	self resetSyntaxColorsToSqueakStyle2
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5172
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5173	"Modified (comment): / 17-03-2012 / 10:38:07 / cg"
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5174	!
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5175
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5176	resetSyntaxColorsToSqueakStyle1
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5177	"resets the colors in the CurrentPreferences to alternative default values
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5178	(with blue selectors and green comments)"
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5179
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5180	self resetSyntaxColors.
9144 f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5181	self at:#commentColor put:(Color green darkened).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5182	self at:#commentEmphasis put:#italic.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5183	self at:#selectorColor put:(Color blue:80).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5184	self at:#selectorEmphasis put:#normal.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5185	self at:#methodSelectorColor put:(Color black).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5186	self at:#methodSelectorEmphasis put:#bold.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5187	self at:#globalIdentifierEmphasis put:#bold.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5188	self at:#localIdentifierColor put:(Color grey:40).
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5189	self at:#instVarIdentifierEmphasis put:#bold.
f2066ee39215 * empty log message * Claus Gittinger <cg@exept.de> parents: 9099 diff changeset	5190	self at:#constantColor put:(Color red:67).
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5191
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5192	"Modified: / 16-03-2012 / 10:34:40 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5193	"Modified (comment): / 17-03-2012 / 10:38:47 / cg"
9184 d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5194	!
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5195
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5196	resetSyntaxColorsToSqueakStyle2
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5197	"resets the colors in the CurrentPreferences to alternative default values
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5198	(with blue selectors and green comments)"
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5199
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5200	self resetSyntaxColors.
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5201	self at:#commentColor put:(Color green darkened).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5202	self at:#commentEmphasis put:#italic.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5203	self at:#selectorColor put:(Color blue:80).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5204	self at:#selectorEmphasis put:#normal.
12391 35ee0cb7fd56 changed: #resetSyntaxColorsToSqueakStyle2 Claus Gittinger <cg@exept.de> parents: 12348 diff changeset	5205	self at:#controlFlowSelectorEmphasis put:#bold.
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5206	self at:#methodSelectorColor put:(Color black).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5207	self at:#methodSelectorEmphasis put:#bold.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5208	self at:#globalIdentifierEmphasis put:#bold.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5209	self at:#localIdentifierColor put:(Color grey:40).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5210	self at:#instVarIdentifierEmphasis put:#bold.
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5211	self at:#constantColor put:(Color red:67).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5212	self at:#selfColor put:(Color red:50 ).
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5213	self at:#selfEmphasis put:#bold.
12282 03a6891e3ca5 changed: #resetSyntaxColorsToSqueakStyle2 Claus Gittinger <cg@exept.de> parents: 12281 diff changeset	5214	self at:#localIdentifierColor put:(Color grey:50 ).
03a6891e3ca5 changed: #resetSyntaxColorsToSqueakStyle2 Claus Gittinger <cg@exept.de> parents: 12281 diff changeset	5215	self at:#localIdentifierEmphasis put:#normal.
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5216
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5217	"Modified: / 16-03-2012 / 10:34:35 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5218	"Modified (comment): / 17-03-2012 / 10:38:57 / cg"
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5219	!
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5220
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5221	resetSyntaxColorsToVAgeStyle
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5222	"resets the colors in the CurrentPreferences to alternative default values
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5223	(green comments, blue globals)"
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5224
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5225	self resetSyntaxColors.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5226	self at:#identifierColor put:(Color rgbValue:16r00007F).
14064 c80388807776 changed: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14063 diff changeset	5227	self at:#argumentColor put:(Color rgbValue:16r00007F).
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5228	self at:#identifierEmphasis put:#normal.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5229	self at:#commentColor put:(Color rgbValue:16r007F00).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5230	self at:#selfColor put:(Color rgbValue:16r7F007F).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5231	self at:#constantColor put:(Color rgbValue:16r7F0000).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5232	self at:#selectorColor put:(Color black).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5233	self at:#selectorEmphasis put:#bold.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5234	self at:#globalIdentifierColor put:(Color blue).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5235	self at:#methodSelectorColor put:(Color black).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5236	self at:#methodSelectorEmphasis put:#bold.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5237
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5238	"Created: / 17-03-2012 / 10:37:42 / cg"
12281 25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5239	!
25083499d45b added: Claus Gittinger <cg@exept.de> parents: 12209 diff changeset	5240
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5241	resetSyntaxColorsToVCStyle
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5242	"resets the colors in the CurrentPreferences to visual C default style
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5243	(green comments, blue keywords, redish string constants)"
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5244
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5245	self resetSyntaxColors.
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5246	self at:#controlFlowSelectorColor put:(Color blue).
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5247	self at:#commentColor put:(Color green darkened).
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5248	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	5249
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5250	"Modified: / 16-03-2012 / 10:34:30 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5251	"Modified (comment): / 17-03-2012 / 10:39:11 / cg"
11672 202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5252	!
202d14e5686d another syntax color Claus Gittinger <cg@exept.de> parents: 11598 diff changeset	5253
9184 d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5254	resetSyntaxColorsToVW7Style
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5255	"resets the colors in the CurrentPreferences to alternative default values
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5256	(with light blue comments, green variables)"
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5257
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5258	self resetSyntaxColors.
9184 d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5259	self at:#commentColor put:(Color blue lightened).
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5260	self at:#selectorColor put:(Color black).
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5261	self at:#selectorEmphasis put:#normal.
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5262	self at:#methodSelectorColor put:(Color black).
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5263	self at:#methodSelectorEmphasis put:#bold.
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5264	self at:#identifierEmphasis put:#normal.
d56887fab7ed * empty log message * Claus Gittinger <cg@exept.de> parents: 9144 diff changeset	5265	self at:#identifierColor put:(Color green darkened).
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5266
2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5267	"Modified: / 16-03-2012 / 10:34:26 / cg"
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5268	"Modified (comment): / 17-03-2012 / 10:39:18 / cg"
14005 7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5269	!
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5270
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5271	resetSyntaxColorsWithSideEffectHighlighting
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5272	"resets the colors in the CurrentPreferences to their default values
14063 3601e2191b9d added: #resetSyntaxColorsToVAgeStyle Claus Gittinger <cg@exept.de> parents: 14062 diff changeset	5273	plus side effect highlighting (assignments to instvars and globals are marked)"
14005 7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5274
14062 2827c508307f changed:11 methods Claus Gittinger <cg@exept.de> parents: 14052 diff changeset	5275	self resetSyntaxColors.
14005 7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5276	self at:#sideEffectAssignmentBackgroundColor put:(Color rgbValue:16rFFDBDB).
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5277
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting Claus Gittinger <cg@exept.de> parents: 14004 diff changeset	5278	"Created: / 13-02-2012 / 12:12:56 / cg"
4342 f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5279	! !
f2bbfcd2f072 added some default color settings Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5280
7266 f2b64d3b43cf method category rename Claus Gittinger <cg@exept.de> parents: 7246 diff changeset	5281	!UserPreferences methodsFor:'default values'!
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5282
4583 9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5283	defaultValue
9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5284	"the defaultValue for non-existing keys"
9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5285
16652 ddeba03a6b51 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16651 diff changeset	5286	^ nil
4583 9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5287	!
9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5288
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5289	errorKeyNotFound:aKey
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5290	"for any non-existing key, false is returned"
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5291
4583 9f6051955f6a checkin from browser Claus Gittinger <cg@exept.de> parents: 4582 diff changeset	5292	^ self defaultValue
4582 31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5293	! !
31cbce168a1d return false for nonexisting keys Claus Gittinger <cg@exept.de> parents: 4580 diff changeset	5294
10789 d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5295	!UserPreferences methodsFor:'misc'!
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5296
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5297	flyByHelpSettingChanged
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5298	FlyByHelp notNil ifTrue:[
17104 39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	5299	(self at:#flyByHelpActive ifAbsent:true) ifTrue:[
39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	5300	FlyByHelp start.
39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	5301	] ifFalse:[
39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	5302	FlyByHelp stop.
39fff879b31b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 16859 diff changeset	5303	].
10789 d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5304	].
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5305	! !
d63299ba576b care for flyByHelp Claus Gittinger <cg@exept.de> parents: 10723 diff changeset	5306
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5307	!UserPreferences methodsFor:'obsolete'!
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5308
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5309	useNewSettinsApplication
11598 970f65d53e13 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5310	<resource: #obsolete>
8545 37d394b08f2b * empty log message * Claus Gittinger <cg@exept.de> parents: 8433 diff changeset	5311	"obsolete - will be removed in next release.
37d394b08f2b * empty log message * Claus Gittinger <cg@exept.de> parents: 8433 diff changeset	5312	(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	5313	saved user preference files)"
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5314
6941 1700d0c53837 make old to settings changed settins methods obsolete penk parents: 6937 diff changeset	5315	self obsoleteMethodWarning.
7029 a73bc40f9bdb * empty log message * Claus Gittinger <cg@exept.de> parents: 7028 diff changeset	5316	^ self useNewSettingsApplication
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5317	!
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5318
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5319	useNewSettinsApplication:aBoolean
11598 970f65d53e13 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 11589 diff changeset	5320	<resource: #obsolete>
7030 52b794e6abee * empty log message * Claus Gittinger <cg@exept.de> parents: 7029 diff changeset	5321	"obsolete - will be removed in next release"
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5322
6941 1700d0c53837 make old to settings changed settins methods obsolete penk parents: 6937 diff changeset	5323	self obsoleteMethodWarning.
7029 a73bc40f9bdb * empty log message * Claus Gittinger <cg@exept.de> parents: 7028 diff changeset	5324	self useNewSettingsApplication:aBoolean.
6937 3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5325	! !
3054abf221c9 * empty log message * penk parents: 6936 diff changeset	5326
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5327	!UserPreferences methodsFor:'saving'!
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5328
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5329	saveIn:fileName
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5330	self class saveSettings:self in:fileName
17569 0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5331
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5332	"
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5333	UserPreferences current saveIn:'test.settings'
0959d704ad9b class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17541 diff changeset	5334	"
7028 0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5335	! !
0911f2698be9 saveSettings here Claus Gittinger <cg@exept.de> parents: 7026 diff changeset	5336
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5337	!UserPreferences class methodsFor:'documentation'!
67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5338
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	5339	version
17593 9c4d879c9be0 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17569 diff changeset	5340	^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.403 2015-03-09 11:00:27 cg Exp $'
13885 ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	5341	!
ca2696d27e23 added: Claus Gittinger <cg@exept.de> parents: 13884 diff changeset	5342
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	5343	version_CVS
17593 9c4d879c9be0 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 17569 diff changeset	5344	^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.403 2015-03-09 11:00:27 cg Exp $'
12096 414ff00030a1 added: Claus Gittinger <cg@exept.de> parents: 12027 diff changeset	5345	!
414ff00030a1 added: Claus Gittinger <cg@exept.de> parents: 12027 diff changeset	5346
13399 eb68067907e1 changed: #version_CVS vrany parents: 13391 diff changeset	5347	version_SVN
15290 de9c34723d33 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 15158 diff changeset	5348	^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 $'
3347 67d788da4fc0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5349	! !
14698 5eeda6b08571 class: UserPreferences Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	5350

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 01 Apr 2015 10:20:10 +0100
branch	jv
changeset 18120	e3a375d5f6a8
parent 18117	eb433f2c42b2
parent 17593	9c4d879c9be0
child 18274	042d13555f1f
permissions	-rw-r--r--