UserPreferences.st
author Claus Gittinger <cg@exept.de>
Fri, 01 Sep 2017 14:02:55 +0200
changeset 22239 abb9af0353bb
parent 22225 3984da94914f
child 22317 c0b01717c2a4
permissions -rw-r--r--
#DOCUMENTATION by cg class: UserPreferences comment/format in: #fileBrowserClass class: UserPreferences class comment/format in: #fileBrowserClass
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 1998 by eXept Software AG
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
     3
	      All Rights Reserved
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
5516
00c8b663a92e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5258
diff changeset
    12
"{ Package: 'stx:libbasic' }"
00c8b663a92e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5258
diff changeset
    13
17316
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
    14
"{ NameSpace: Smalltalk }"
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
    15
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
IdentityDictionary subclass:#UserPreferences
19633
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
    17
	instanceVariableNames:'modified'
9742
58f5e1d235a8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9492
diff changeset
    18
	classVariableNames:'CurrentPreferences DefaultPreferences'
58f5e1d235a8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9492
diff changeset
    19
	poolDictionaries:''
58f5e1d235a8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9492
diff changeset
    20
	category:'System-Support'
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!UserPreferences class methodsFor:'documentation'!
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
copyright
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 (c) 1998 by eXept Software AG
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
    28
	      All Rights Reserved
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 This software is furnished under a license and may be used
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 hereby transferred.
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
"
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
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
documentation
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
"
4582
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
    42
    A Dictionary for user preference values.
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
    43
    For non-existing keys, either a defaultValue (false),
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
    44
    or the value from a defaultDictionary is returned.
3353
0f0288822acd checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3352
diff changeset
    45
3359
a474d509302f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3358
diff changeset
    46
    This will eventually keep track of ALL user preferences.
8676
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
    47
    For now, not all preferences are found here -
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
    48
    (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
    49
    - but this will change over time.
4582
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
    50
10887
dc01356c015a comments
Claus Gittinger <cg@exept.de>
parents: 10880
diff changeset
    51
    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
    52
18690
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    53
    Notice, that ST/X is intended to be multi-user capable, supporting multiple users on multiple screens.
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    54
    This is effectively used by (at least) 2 ST/X customers we are aware of (for multi-screen applications).
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    55
    So do not break it, by putting user-specific stuff into class variables.
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    56
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    57
    Usage:
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    58
        UserPreferences current at:#foo
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    59
    or
f0a013daec58 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18689
diff changeset
    60
        UserPreferences current at:#foo put:something
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
"
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
! !
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
    64
!UserPreferences class methodsFor:'initialization'!
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
    65
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    66
initializeDefaultsIn:preferences
10240
9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps.
Claus Gittinger <cg@exept.de>
parents: 10177
diff changeset
    67
    Color isNil "Smalltalk isStandAloneApp" ifTrue:[
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    68
        ^ self.
10240
9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps.
Claus Gittinger <cg@exept.de>
parents: 10177
diff changeset
    69
    ].
19954
8ba5a0cbe56a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 19953
diff changeset
    70
    Color initialize.
10240
9b59aa4f7bd4 dont try to create Color-prefs in non-GUI standalone apps.
Claus Gittinger <cg@exept.de>
parents: 10177
diff changeset
    71
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
    72
    #(
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    73
        #useNewChangesBrowser           false
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    74
        #useNewInspector                false
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    75
        #showClockInLauncher            true
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    76
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    77
        #autoFormatting                 false
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    78
        #syntaxColoring                 true
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    79
        #fullSelectorCheck              false
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    80
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    81
        #defaultSyntaxColor             (Color black)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    82
        #defaultSyntaxEmphasis          normal
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    83
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    84
        #errorColor                     (Color red)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    85
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    86
        "/ #commentColor                   (Color 12.5 12.5 100)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    87
        #commentColor                   (Color 0 50 0)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    88
        #commentEmphasis                normal
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    89
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    90
        #methodSelectorEmphasis         bold
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    91
        #selectorEmphasis               bold
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    92
        #unimplementedSelectorColor     (Color red)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    93
        #unimplementedSelectorEmphasis  normal
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    94
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    95
        "/ I prefer red-underwave over red identifier ...
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    96
        "/      #badIdentifierColor                 (Color red)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    97
        #instVarIdentifierColor         (Color 33 0 33)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    98
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
    99
        "/ I prefer redish background
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   100
        "/      #sideEffectAssignmentColor          (Color 75 0 0)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   101
        "/ #sideEffectAssignmentBackgroundColor    (Color 100 86 86)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   102
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   103
        #jsKeywordEmphasis              bold
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   104
        "/ #jsKeywordColor                 (Color black)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   105
        #jsKeywordColor                 (Color 33 33 0)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   106
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   107
        #controlFlowSelectorColor       (Color 0 0 100)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   108
        #debugSelectorColor             (Color 80 0 0)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   109
        #errorRaisingSelectorColor      (Color 80 0 0)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   110
        "/ #constantColor                  (Color 25 0 0)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   111
        #constantColor                  (Color 64 8 8)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   112
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   113
        #globalIdentifierColor          (Color 67 0 67)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   114
        #unknownIdentifierColor         (Color 67 0 67)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   115
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   116
        #returnColor                    (Color 0 0 100)
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   117
        #returnEmphasis                 bold
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
   118
     ) pairWiseDo:[:k :v |
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   119
        preferences at:k put:(v decodeAsLiteralArray).
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
   120
    ].
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
   121
9913
b798d50affb3 focus follows mouse default.
Claus Gittinger <cg@exept.de>
parents: 9834
diff changeset
   122
    "/ I prefer red-underwave over red identifier ...
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   123
    preferences at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
4335
b301d2c92490 underwave red for bad identifiers
Claus Gittinger <cg@exept.de>
parents: 4331
diff changeset
   124
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
   125
    "
4580
654e30c513ec init defaults lazy
Claus Gittinger <cg@exept.de>
parents: 4396
diff changeset
   126
     self initializeDefaultPreferences
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
   127
    "
4335
b301d2c92490 underwave red for bad identifiers
Claus Gittinger <cg@exept.de>
parents: 4331
diff changeset
   128
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   129
    "Created: / 06-06-2016 / 10:42:14 / cg"
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
   130
! !
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
   131
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
!UserPreferences class methodsFor:'accessing'!
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
current
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
    CurrentPreferences isNil ifTrue:[
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   136
        CurrentPreferences := self new.
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   137
        self initializeDefaultsIn:CurrentPreferences.
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   138
        CurrentPreferences flyByHelpSettingChanged.
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
    ].
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
    ^ CurrentPreferences.
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
8420
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
   142
    "
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
   143
     CurrentPreferences := nil
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
   144
    "
17414
d2b54cba3e88 Changed preference lookup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17398
diff changeset
   145
d2b54cba3e88 Changed preference lookup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17398
diff changeset
   146
    "Modified: / 05-02-2015 / 07:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   147
    "Modified: / 06-06-2016 / 10:42:59 / cg"
3364
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   148
!
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   149
4318
39f9a91bc44e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4317
diff changeset
   150
default
4580
654e30c513ec init defaults lazy
Claus Gittinger <cg@exept.de>
parents: 4396
diff changeset
   151
    DefaultPreferences isNil ifTrue:[
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   152
        DefaultPreferences := self new.
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   153
        self initializeDefaultsIn:DefaultPreferences
4580
654e30c513ec init defaults lazy
Claus Gittinger <cg@exept.de>
parents: 4396
diff changeset
   154
    ].
4318
39f9a91bc44e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4317
diff changeset
   155
    ^ DefaultPreferences.
39f9a91bc44e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4317
diff changeset
   156
4582
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
   157
    "
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
   158
     DefaultPreferences := nil.
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
   159
    "
19952
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   160
fbc6851eacec #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19918
diff changeset
   161
    "Modified: / 06-06-2016 / 10:41:45 / cg"
4318
39f9a91bc44e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4317
diff changeset
   162
!
39f9a91bc44e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4317
diff changeset
   163
3364
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   164
reset
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   165
    "resets the CurrentPreferences to its default values"
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   166
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   167
    CurrentPreferences := nil
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   168
!
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   169
19918
49dd92f59382 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19852
diff changeset
   170
setCurrent:preferencesInstance
49dd92f59382 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19852
diff changeset
   171
    "sets the CurrentPreferences to preferencesInstance"
49dd92f59382 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19852
diff changeset
   172
49dd92f59382 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19852
diff changeset
   173
    CurrentPreferences := preferencesInstance
49dd92f59382 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19852
diff changeset
   174
!
49dd92f59382 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19852
diff changeset
   175
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
   176
syntaxColorKeys
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
   177
    "returns the keys of syntax color items"
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
   178
17359
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   179
    ^ self syntaxColorNamesAndKeys collectAll:[:each | each from:2]
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   180
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   181
    "
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   182
     self syntaxColorKeys
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   183
    "
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   184
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   185
"/    ^#(
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   186
"/        argumentIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   187
"/          argumentIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   188
"/        booleanConstantColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   189
"/          booleanConstantEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   190
"/        bracketColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   191
"/          bracketEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   192
"/        classVariableIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   193
"/          classVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   194
"/        constantColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   195
"/          constantEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   196
"/        controlFlowSelectorColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   197
"/          controlFlowSelectorEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   198
"/        commentColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   199
"/          commentEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   200
"/        defaultSyntaxColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   201
"/          defaultSyntaxEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   202
"/        errorColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   203
"/        globalIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   204
"/          globalIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   205
"/        globalClassIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   206
"/          globalClassIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   207
"/        hereColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   208
"/          hereEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   209
"/        identifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   210
"/          identifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   211
"/        instVarIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   212
"/          instVarIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   213
"/        localIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   214
"/          localIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   215
"/        methodSelectorColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   216
"/          methodSelectorEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   217
"/        poolVariableIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   218
"/          poolVariableIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   219
"/        returnColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   220
"/          returnEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   221
"/        selectorColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   222
"/          selectorEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   223
"/        selfColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   224
"/          selfEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   225
"/        stringColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   226
"/          stringEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   227
"/        superColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   228
"/          superEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   229
"/        symbolColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   230
"/          symbolEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   231
"/        thisContextColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   232
"/          thisContextEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   233
"/        unknownIdentifierColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   234
"/          unknownIdentifierEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   235
"/        unimplementedSelectorColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   236
"/          unimplementedSelectorEmphasis
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   237
"/        sideEffectAssignmentBackgroundColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   238
"/          sideEffectAssignmentColor
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   239
"/        colorForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   240
"/            emphasisForInstrumentedFullyCoveredCode
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   241
"/        colorForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   242
"/            emphasisForInstrumentedPartiallyCoveredCode
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   243
"/        colorForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   244
"/            emphasisForInstrumentedNeverCalledCode
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   245
"/    )
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
   246
14007
1ee2f49e87df changed: #syntaxColorKeys
Claus Gittinger <cg@exept.de>
parents: 14006
diff changeset
   247
    "Modified: / 14-02-2012 / 10:17:46 / cg"
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
   248
!
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
   249
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
   250
syntaxColorNames
3364
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   251
    "returns the syntax colors for the settings in the launcher"
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   252
17359
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   253
    ^ self syntaxColorNamesAndKeys collect:#first.
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   254
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   255
"/"/ warning, the strings below are presented to the user
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   256
"/"/ as the syntax-color boxes comboList - however, they are
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   257
"/"/ also used (without separators) as key into myself.
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   258
"/"/ Therefore, do not change the strings below.
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   259
"/"/ I know - this is bad coding ....
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   260
"/
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   261
"/^#(
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   262
"/'Argument Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   263
"/'Boolean Constant Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   264
"/'Bracket Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   265
"/'Class Variable Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   266
"/'Collection Enumeration Selector Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   267
"/'Constant Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   268
"/'Control Flow Selector Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   269
"/'Comment Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   270
"/'Debug Selector Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   271
"/'Error Raising Selector Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   272
"/'Global Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   273
"/'Global Class Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   274
"/'Here Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   275
"/'Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   276
"/'InstVar Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   277
"/'Local Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   278
"/'Method Selector Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   279
"/'Pool Variable Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   280
"/'Return Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   281
"/'Selector Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   282
"/'Self Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   283
"/'Side Effect Assignment Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   284
"/'Side Effect Assignment Background Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   285
"/'String Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   286
"/'Super Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   287
"/'Symbol Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   288
"/'This Context Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   289
"/'Unknown Identifier Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   290
"/'Unimplemented Selector Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   291
"/'Side Effect Assignment Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   292
"/'Coverage: Reached Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   293
"/'Coverage: Partially Reached Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   294
"/'Coverage: Unreached Color'
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   295
"/)
3364
626f42817289 small interface for the settings in the launcher
tz
parents: 3362
diff changeset
   296
14012
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
   297
    "Modified: / 14-02-2012 / 15:51:38 / cg"
17359
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
syntaxColorNamesAndKeys
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   301
    "returns the names and keys of syntax color items"
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   302
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   303
    ^#(
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   304
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   305
	  'Argument Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   306
	  argumentIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   307
	  argumentIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   308
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   309
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   310
	  'Boolean Constant Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   311
	  booleanConstantColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   312
	  booleanConstantEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   313
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   314
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   315
	  'Bracket Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   316
	  bracketColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   317
	  bracketEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   318
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   319
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   320
	  'Class Variable Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   321
	  classVariableIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   322
	  classVariableIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   323
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   324
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   325
	  'Constant Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   326
	  constantColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   327
	  constantEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   328
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   329
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   330
	  'Control Flow Selector Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   331
	  controlFlowSelectorColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   332
	  controlFlowSelectorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   333
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   334
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   335
	  'Comment Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   336
	  commentColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   337
	  commentEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   338
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   339
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   340
	  'Collection Enumeration Selector Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   341
	  collectionEnumerationSelectorColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   342
	  collectionEnumerationSelectorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   343
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   344
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   345
	  'Debug Selector Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   346
	  debugSelectorColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   347
	  debugSelectorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   348
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   349
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   350
	  'Default Syntax Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   351
	  defaultSyntaxColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   352
	  defaultSyntaxEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   353
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   354
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   355
	  'Error Raising Selector Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   356
	  errorColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   357
	  errorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   358
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   359
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   360
	  'Global Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   361
	  globalIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   362
	  globalIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   363
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   364
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   365
	  'Global Class Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   366
	  globalClassIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   367
	  globalClassIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   368
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   369
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   370
	  'Here Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   371
	  hereColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   372
	  hereEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   373
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   374
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   375
	  'Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   376
	  identifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   377
	  identifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   378
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   379
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   380
	  'InstVar Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   381
	  instVarIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   382
	  instVarIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   383
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   384
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   385
	  'Local Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   386
	  localIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   387
	  localIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   388
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   389
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   390
	  'Method Selector Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   391
	  methodSelectorColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   392
	  methodSelectorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   393
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   394
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   395
	  'Pool Variable Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   396
	  poolVariableIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   397
	  poolVariableIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   398
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   399
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   400
	  'Return Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   401
	  returnColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   402
	  returnEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   403
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   404
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   405
	  'Selector Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   406
	  selectorColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   407
	  selectorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   408
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   409
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   410
	  'Self Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   411
	  selfColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   412
	  selfEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   413
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   414
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   415
	  'String Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   416
	  stringColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   417
	  stringEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   418
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   419
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   420
	  'Super Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   421
	  superColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   422
	  superEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   423
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   424
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   425
	  'Symbol Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   426
	  symbolColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   427
	  symbolEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   428
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   429
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   430
	  'This Context Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   431
	  thisContextColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   432
	  thisContextEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   433
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   434
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   435
	  'Unknown Identifier Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   436
	  unknownIdentifierColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   437
	  unknownIdentifierEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   438
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   439
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   440
	  'Unimplemented Selector Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   441
	  unimplementedSelectorColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   442
	  unimplementedSelectorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   443
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   444
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   445
	  'Side Effect Assignment Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   446
	  sideEffectAssignmentColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   447
	  sideEffectAssignmentColorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   448
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   449
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   450
	  'Side Effect Assignment Background Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   451
	  sideEffectAssignmentBackgroundColor
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   452
	  sideEffectAssignmentBackgroundColorEmphasis
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   453
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   454
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   455
	  'Coverage: Reached Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   456
	  colorForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   457
	  emphasisForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   458
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   459
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   460
	  'Coverage: Partially Reached Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   461
	  colorForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   462
	  emphasisForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   463
	)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   464
	(
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   465
	  'Coverage: Unreached Color'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   466
	  colorForInstrumentedNeverCalledCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   467
	  emphasisForInstrumentedNeverCalledCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   468
	)
17359
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   469
    )
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   470
61d90dff9c88 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17358
diff changeset
   471
    "Modified: / 14-02-2012 / 10:17:46 / cg"
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
! !
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
   474
!UserPreferences class methodsFor:'accessing - defaults'!
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
   475
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
   476
defaultUserSettingsFile
16651
0954be8fb1d2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16641
diff changeset
   477
    ^ (Filename usersPrivateSmalltalkDirectory) / 'settings.stx'
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
   478
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
   479
    "Created: / 06-10-2008 / 08:27:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
18867
9685268274b6 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18826
diff changeset
   480
!
9685268274b6 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18826
diff changeset
   481
9685268274b6 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18826
diff changeset
   482
defaultWorkspaceDirectory
9685268274b6 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18826
diff changeset
   483
    ^ (Filename usersPrivateSmalltalkDirectory) / 'workspace'
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
   484
! !
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
   485
6019
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   486
!UserPreferences class methodsFor:'accessing defaultPrefs'!
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   487
11006
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder
Claus Gittinger <cg@exept.de>
parents: 11005
diff changeset
   488
defaultSettingsFilename
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder
Claus Gittinger <cg@exept.de>
parents: 11005
diff changeset
   489
    ^ 'settings.stx'
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder
Claus Gittinger <cg@exept.de>
parents: 11005
diff changeset
   490
!
fc11f0af9902 changed #showTipOfTheDayAtStartupHolder
Claus Gittinger <cg@exept.de>
parents: 11005
diff changeset
   491
6763
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   492
fileBrowserClass
22239
abb9af0353bb #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22225
diff changeset
   493
    "the class to be used for file browsing 
abb9af0353bb #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22225
diff changeset
   494
     (used to be the simple FileBrowser, but is now the FileBrowserV2)"
12949
1780725fdc63 comment/format in: #fileBrowserClass
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
   495
6763
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   496
    ^ self current fileBrowserClass
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   497
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   498
    "
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   499
     UserPreferences fileBrowserClass
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   500
    "
12949
1780725fdc63 comment/format in: #fileBrowserClass
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
   501
1780725fdc63 comment/format in: #fileBrowserClass
Claus Gittinger <cg@exept.de>
parents: 12947
diff changeset
   502
    "Modified: / 17-07-2010 / 14:50:34 / cg"
22239
abb9af0353bb #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 22225
diff changeset
   503
    "Modified (comment): / 01-09-2017 / 14:02:23 / cg"
6763
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   504
!
06c247fe72a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6762
diff changeset
   505
6019
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   506
systemBrowserClass
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   507
    ^ self current systemBrowserClass
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   508
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   509
    "
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   510
     UserPreferences systemBrowserClass
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   511
    "
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   512
!
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   513
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   514
versionDiffViewerClass
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   515
    ^ self current versionDiffViewerClass
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   516
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   517
    "
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   518
     UserPreferences versionDiffViewerClass
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   519
    "
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   520
! !
770f994a520d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5808
diff changeset
   521
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   522
!UserPreferences class methodsFor:'saving'!
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   523
17425
5b7e4af242a9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17417
diff changeset
   524
saveSettings:userPrefs in:fileNameOrString
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   525
    "save settings to a settings-file."
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   526
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
   527
    "a temporary kludge for old classVariable-based settings
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   528
     - all of those MUST go into the user-preferences dictionary eventually"
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   529
17425
5b7e4af242a9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17417
diff changeset
   530
    |screen fileName dir|
5b7e4af242a9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17417
diff changeset
   531
5b7e4af242a9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17417
diff changeset
   532
    fileName := fileNameOrString asFilename.
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   533
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   534
    screen := Screen current.
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   535
17425
5b7e4af242a9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17417
diff changeset
   536
    (dir := fileName directory) exists ifFalse:[
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   537
        dir recursiveMakeDirectory.
17417
b64ee00eabdd class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 17415
diff changeset
   538
    ].
17425
5b7e4af242a9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17417
diff changeset
   539
    fileName writingFileDo:[:s|
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   540
        s nextPutLine:'"/ ST/X saved settings';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   541
          nextPutLine:'"/ DO NOT MODIFY MANUALLY';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   542
          nextPutLine:'"/ (modifications would be lost with next save-settings)';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   543
          nextPutLine:'"/';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   544
          nextPutLine:'"/ this file was automatically generated by the';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   545
          nextPutLine:'"/ ''save settings'' function of the SettingsDialog';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   546
          nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   547
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   548
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   549
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   550
        s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , Timestamp now printString.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   551
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   552
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   553
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   554
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   555
        s nextPutLine:'"/ Display settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   556
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   557
        s nextPutLine:'"/ only restore the display settings, if on the same Display ...'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   558
        s nextPutLine:'Display notNil ifTrue:['.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   559
        s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   560
          screen fixColors notNil ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   561
            s nextPutLine:'  Image flushDeviceImages.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   562
            s nextPutLine:'  Color colorAllocationFailSignal catch:['.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   563
            s nextPutLine:'    Color getColorsRed:6 green:6 blue:4 on:Display'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   564
            s nextPutLine:'  ].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   565
          ] ifFalse:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   566
            s nextPutLine:'  Display releaseFixColors.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   567
          ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   568
          s nextPutLine:'  Display hasColors: ' , (screen hasColors storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   569
          s nextPutLine:'  Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   570
          s nextPutLine:'  Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   571
          s nextPutLine:'  Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   572
          s nextPutLine:'  Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   573
          s nextPutLine:'  View defaultStyle:' , View defaultStyle storeString , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   574
        s nextPutLine:' ].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   575
        s nextPutLine:'].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   576
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   577
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   578
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   579
        s nextPutLine:'"/ Parser/Compiler settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   580
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   581
        s nextPutLine:'ParserFlags warnSTXSpecials: ' , (ParserFlags warnSTXSpecials storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   582
          nextPutLine:'ParserFlags warnings: ' , (ParserFlags warnings storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   583
          nextPutLine:'ParserFlags warnUnderscoreInIdentifier: ' , (ParserFlags warnUnderscoreInIdentifier storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   584
          nextPutLine:'ParserFlags warnOldStyleAssignment: ' , (ParserFlags warnOldStyleAssignment storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   585
          nextPutLine:'ParserFlags warnCommonMistakes: ' , (ParserFlags warnCommonMistakes storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   586
          nextPutLine:'ParserFlags warnPossibleIncompatibilities: ' , (ParserFlags warnPossibleIncompatibilities storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   587
          nextPutLine:'ParserFlags allowUnderscoreInIdentifier: ' , (ParserFlags allowUnderscoreInIdentifier storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   588
          nextPutLine:'ParserFlags allowSqueakExtensions: ' , (ParserFlags allowSqueakExtensions storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   589
          nextPutLine:'ParserFlags allowDolphinExtensions: ' , (ParserFlags allowDolphinExtensions storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   590
          nextPutLine:'ParserFlags allowQualifiedNames: ' , (ParserFlags allowQualifiedNames storeString) , '.';
21643
6f43e93466a3 #BUGFIX by mawalch
mawalch
parents: 21385
diff changeset
   591
          nextPutLine:'ParserFlags stringsAreImmutable: ' , (ParserFlags stringsAreImmutable storeString) , '.';
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   592
          nextPutLine:'ParserFlags arraysAreImmutable: ' , (ParserFlags arraysAreImmutable storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   593
          nextPutLine:'ParserFlags lineNumberInfo: ' , (ParserFlags lineNumberInfo storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   594
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   595
          nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   596
          nextPutLine:'ParserFlags stcCompilation: ' , (ParserFlags stcCompilation storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   597
          nextPutLine:'OperatingSystem getOSType = ' , (OperatingSystem getOSType storeString) , ' ifTrue:[';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   598
          nextPutLine:'  ParserFlags stcCompilationDefines: ' , (ParserFlags stcCompilationDefines storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   599
          nextPutLine:'  ParserFlags stcCompilationOptions: ' , (ParserFlags stcCompilationOptions storeString) , '.';
19310
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   600
          nextPutLine:'  ParserFlags ccCompilationOptions: ' , (ParserFlags ccCompilationOptions storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   601
          nextPutLine:'  ParserFlags makeCommand: ' , (ParserFlags makeCommand storeString) , '.';
19493
dc84900e9561 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19472
diff changeset
   602
          nextPutLine:'  ExternalAddress pointerSize = ' , (ExternalAddress pointerSize storeString) , ' ifTrue:[';
19310
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   603
          nextPutLine:'    ParserFlags stcCompilationIncludes: ' , (ParserFlags stcCompilationIncludes storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   604
          nextPutLine:'    ',(ParserFlags stcModulePath ? 'modules') storeString , ' asFilename exists ifTrue:[';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   605
          nextPutLine:'      ParserFlags stcModulePath: ' , (ParserFlags stcModulePath ? 'modules') storeString , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   606
          nextPutLine:'    ].';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   607
          nextPutLine:'    ParserFlags stcPath: ' , (ParserFlags stcPath storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   608
          nextPutLine:'    ParserFlags ccPath: ' , (ParserFlags ccPath storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   609
          nextPutLine:'    ParserFlags linkArgs: ' , (ParserFlags linkArgs storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   610
          nextPutLine:'    ParserFlags linkSharedArgs: ' , (ParserFlags linkSharedArgs storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   611
          nextPutLine:'    ParserFlags linkCommand: ' , (ParserFlags linkCommand storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   612
          nextPutLine:'    ParserFlags libPath: ' , (ParserFlags libPath storeString) , '.';
5b2ebad22f2f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19255
diff changeset
   613
          nextPutLine:'    ParserFlags searchedLibraries: ' , (ParserFlags searchedLibraries storeString) , '.';
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   614
          nextPutLine:'  ].';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   615
          nextPutLine:'].';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   616
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   617
          nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   618
          nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   619
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   620
        HistoryManager notNil ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   621
            HistoryManager isActive ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   622
                s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   623
                s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   624
            ] ifFalse:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   625
                s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   626
            ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   627
        ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   628
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   629
        s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   630
        s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   631
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   632
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   633
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   634
        s nextPutLine:'"/ Info & Debug Messages:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   635
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   636
        s nextPutLine:'Smalltalk hasNoConsole ifFalse:[ ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '].';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   637
          nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   638
          nextPutLine:'Smalltalk hasNoConsole ifFalse:[ Object infoPrinting: ' , (Object infoPrinting storeString) , '].';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   639
          nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
14307
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   640
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   641
    "/    FlyByHelp isActive ifTrue:[
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   642
    "/        s nextPutLine:'FlyByHelp start.'
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   643
    "/    ].
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   644
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   645
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   646
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   647
        s nextPutLine:'"/ Edit settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   648
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   649
        "/ s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   650
        "/ s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   651
        s nextPutLine:'UserPreferences current syntaxColoring: ' , (userPrefs syntaxColoring storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   652
        (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   653
            s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   654
        ] ifFalse:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   655
            s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   656
        ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   657
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   658
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   659
        s nextPutLine:'"/ User preference values:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   660
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   661
        userPrefs keysAndValuesDo:[:k :v |
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   662
            |putSelector|
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   663
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   664
            putSelector := (k , ':') asSymbolIfInterned.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   665
            (UserPreferences includesSelector:putSelector) ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   666
                s nextPutAll:'UserPreferences current ';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   667
                  nextPutAll:putSelector.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   668
            ] ifFalse:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   669
                s nextPutAll:'UserPreferences current at:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   670
                k storeOn:s.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   671
                s nextPutAll:' put:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   672
            ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   673
            v storeOn:s.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   674
            s nextPut:$.; cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   675
        ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   676
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   677
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   678
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   679
        s nextPutLine:'"/ GC settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   680
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   681
        s nextPutLine:'ObjectMemory newSpaceSize: ' , (ObjectMemory newSpaceSize storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   682
          nextPutLine:'ObjectMemory dynamicCodeGCTrigger: ' , (ObjectMemory dynamicCodeGCTrigger storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   683
          nextPutLine:'ObjectMemory freeSpaceGCAmount: ' , (ObjectMemory freeSpaceGCAmount storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   684
          nextPutLine:'ObjectMemory freeSpaceGCLimit: ' , (ObjectMemory freeSpaceGCLimit storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   685
          nextPutLine:'ObjectMemory incrementalGCLimit: ' , (ObjectMemory incrementalGCLimit storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   686
          nextPutLine:'ObjectMemory oldSpaceCompressLimit: ' , (ObjectMemory oldSpaceCompressLimit storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   687
          nextPutLine:'ObjectMemory oldSpaceIncrement: ' , (ObjectMemory oldSpaceIncrement storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   688
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   689
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   690
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   691
        s nextPutLine:'"/ Misc settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   692
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   693
        s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   694
          nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   695
          nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   696
          nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   697
          nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   698
20815
9d37f600a822 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 20712
diff changeset
   699
          "/ claus - I don't think its a good idea to save those ...
14307
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   700
    "/      nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   701
    "/      nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
67d0d208989d changed: #saveSettings:in:
Stefan Vogel <sv@exept.de>
parents: 14267
diff changeset
   702
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   703
          nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   704
          nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   705
          nextPutLine:'Display notNil ifTrue:[';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   706
          nextPutLine:' Display activateOnClick: ' , ((screen activateOnClick:nil) storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   707
          nextPutLine:'].';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   708
          nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   709
          nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   710
        (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   711
            s nextPutLine:'NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   712
        ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   713
        Processor isTimeSlicing ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   714
            s nextPutLine:'Processor startTimeSlicing.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   715
            s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.').
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   716
        ] ifFalse:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   717
            s nextPutLine:'Processor stopTimeSlicing.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   718
        ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   719
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   720
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   721
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   722
        s nextPutLine:'"/ Printer settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   723
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   724
        Printer notNil ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   725
            s nextPutLine:'Printer := ' , (Printer name) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   726
            Printer supportsPrintingToCommand ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   727
                s nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   728
            ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   729
            Printer supportsPageSizes ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   730
                s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   731
                s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   732
            ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   733
            Printer supportsMargins ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   734
                s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   735
                s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   736
                s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   737
                s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   738
            ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   739
            Printer supportsPostscript ifTrue:[
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   740
                s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   741
            ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   742
        ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   743
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   744
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   745
        s nextPutLine:'"/ Font settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   746
        s nextPutLine:'"/ (only restored, if image is restarted on the same display)'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   747
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   748
        s nextPutLine:'Display notNil ifTrue:['.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   749
        s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   750
        {
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   751
            SimpleView . Label . CheckBox . CheckLabel . Button . Toggle .
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   752
            SelectionInListView . MenuView . MenuPanel . NoteBookView . PullDownMenu .
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   753
            TextView . EditTextView . CodeView
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   754
        } do:[:cls |
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   755
            s nextPutLine:'  ',cls name,' defaultFont: ' , (cls defaultFont storeString) , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   756
        ].
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   757
        s nextPutLine:' ].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   758
        s nextPutLine:'].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   759
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   760
        s cr.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   761
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   762
        s nextPutLine:'"/ SourceCodeManager settings:'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   763
        s nextPutLine:'"/ (repositories are networked nowadays, so the settings are host independent)'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   764
        s nextPutLine:'"/'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   765
        s nextPutLine:'Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   766
        s nextPutLine:'AbstractSourceCodeManager notNil ifTrue:[AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '].'.
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   767
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   768
        AbstractSourceCodeManager availableManagers do:[:eachManager |
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   769
            eachManager savePreferencesOn:s
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   770
        ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
   771
18824
9511004e8aa9 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18823
diff changeset
   772
        userPrefs useSystemLanguage ifFalse:[
18825
818e7cc51e31 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18824
diff changeset
   773
            s nextPutAll:('Smalltalk language:',UserPreferences current language storeString).
18826
e5a65a9bb86f #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18825
diff changeset
   774
            s nextPutLine:(' territory:',UserPreferences current languageTerritory storeString,'.').
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
   775
        ].
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
   776
        s syncData.
19634
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   777
        userPrefs beUnmodified.
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   778
    ].
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   779
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   780
    "
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   781
     Transcript topView application saveSettings
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   782
    "
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   783
9492
89bfc46b3b48 make command
fm
parents: 9491
diff changeset
   784
    "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
   785
    "Modified: / 26-09-2012 / 13:33:47 / cg"
21643
6f43e93466a3 #BUGFIX by mawalch
mawalch
parents: 21385
diff changeset
   786
    "Modified: / 13-03-2017 / 17:21:04 / mawalch"
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   787
! !
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
   788
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
   789
!UserPreferences methodsFor:'accessing'!
3883
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
   790
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
   791
at:key
13941
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   792
    ^ super at:key asSymbol
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   793
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   794
    "Created: / 15-01-2012 / 14:27:29 / cg"
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   795
!
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   796
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
   797
at:key ifAbsent:exceptionValue
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
   798
    ^ super
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   799
	at:key asSymbol
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   800
	ifAbsent:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   801
	    "/ Look to DefaultPreferences first...
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   802
	    (DefaultPreferences notNil and:[self ~~ DefaultPreferences]) ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   803
		DefaultPreferences at:key ifAbsent:exceptionValue
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   804
	    ] ifFalse:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   805
		exceptionValue value
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   806
	    ]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   807
	].
13941
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   808
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   809
    "Created: / 15-01-2012 / 14:27:21 / cg"
17414
d2b54cba3e88 Changed preference lookup.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17398
diff changeset
   810
    "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
   811
!
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   812
5790
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
   813
at:key put:value
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
   814
    |classNameToCheck classToCheck|
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
   815
13119
82da961e9fb2 changed: #at:put:
Claus Gittinger <cg@exept.de>
parents: 13103
diff changeset
   816
"/    key isSymbol ifFalse:[
82da961e9fb2 changed: #at:put:
Claus Gittinger <cg@exept.de>
parents: 13103
diff changeset
   817
"/        self halt.
82da961e9fb2 changed: #at:put:
Claus Gittinger <cg@exept.de>
parents: 13103
diff changeset
   818
"/        self at:key asSymbol put:value.
82da961e9fb2 changed: #at:put:
Claus Gittinger <cg@exept.de>
parents: 13103
diff changeset
   819
"/        ^ self
82da961e9fb2 changed: #at:put:
Claus Gittinger <cg@exept.de>
parents: 13103
diff changeset
   820
"/    ].
82da961e9fb2 changed: #at:put:
Claus Gittinger <cg@exept.de>
parents: 13103
diff changeset
   821
6059
e2cbd67e3d07 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 6019
diff changeset
   822
    value == true ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   823
	key == #useNewVersionDiffBrowser ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   824
	    classNameToCheck := #'VersionDiffBrowser'.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   825
	].
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   826
	key == #useNewChangesBrowser ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   827
	    classNameToCheck := #'NewChangesBrowser'.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   828
	].
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   829
	key == #useNewFileBrowser ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   830
	    classNameToCheck := #'FileBrowserV2'.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   831
	].
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   832
	key == #useNewSystemBrowser ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   833
	    classNameToCheck := #'Tools::NewSystemBrowser'.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   834
	].
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   835
	key == #useNewInspector ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   836
	    classNameToCheck := #'NewInspector::NewInspectorView'.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   837
	].
5790
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
   838
    ].
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
   839
5791
8e96850a568d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5790
diff changeset
   840
    classNameToCheck notNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   841
	classToCheck := Smalltalk at:classNameToCheck.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   842
	classToCheck isNil ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   843
	    ('UserPreferences [warning]: no class ' , classNameToCheck , ' class in system.') errorPrintCR.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   844
	] ifFalse:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   845
	    Autoload autoloadFailedSignal handle:[:ex |
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   846
		'UserPreferences [warning]: autoload of ' , classNameToCheck , ' failed.' errorPrintCR.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   847
	    ] do:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   848
		classToCheck autoload.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   849
	    ]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   850
	]
5790
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
   851
    ].
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
   852
13941
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   853
    ^ super at:key asSymbol put:value
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   854
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
   855
    "Modified: / 15-01-2012 / 14:26:53 / cg"
19633
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   856
!
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   857
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   858
beModified
19634
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   859
    "this is not needed for settings applications, which notice any modifications
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   860
     themself. Howvever, if someone else modifies the settings (programmatically),
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   861
     the change should be remembered, so that the user can be warned at session end"
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   862
     
19633
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   863
    modified := true
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   864
!
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   865
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   866
beUnmodified
19634
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   867
    "done when saved"
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   868
    
19633
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   869
    modified := false
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   870
!
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   871
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   872
isModified
19634
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   873
    "this is set, if someone modifies the settings programmatically,
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   874
     so that the user can be warned at session end"
6b8ab3b097e4 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19633
diff changeset
   875
19633
ad50603adc56 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19632
diff changeset
   876
    ^ modified ? false
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
   877
! !
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
   878
21776
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
   879
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
   880
14342
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   881
!UserPreferences methodsFor:'accessing-locale'!
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   882
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   883
dateInputFormat
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   884
    "return a format used when tools read a date from the user"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   885
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
   886
    ^ self
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   887
	at:#dateInputFormat
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   888
	ifAbsentPut:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   889
	    (self language == #en and:[ self languageTerritory ~= #en])
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   890
		ifTrue:[ '%m %d %y' ]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   891
		ifFalse:[ '%d %m %y' ]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   892
	]
14342
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   893
!
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   894
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   895
dateInputFormat:aFormatString
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   896
    "return a format used when tools read a date from the user"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   897
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
   898
    ^ self
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   899
	at:#dateInputFormat
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   900
	ifAbsentPut:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   901
	    (self language == #en and:[ self languageTerritory ~= #en])
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   902
		ifTrue:[ '%m %d %y' ]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   903
		ifFalse:[ '%d %m %y' ]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   904
	]
14342
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   905
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   906
    "
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   907
     UserPreferences current dateInputFormat:'%d %m %y'  -- european
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   908
     UserPreferences current dateInputFormat:'%m %d %y'  -- us
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   909
    "
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   910
!
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   911
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   912
decimalPointCharacter
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   913
    "toDo: migrate from ClassVar in Number;
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   914
     use this for new applications"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   915
20865
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   916
    ^ self at:#decimalPointCharacter ifAbsent:[ $. ]
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   917
!
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   918
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   919
decimalPointCharacter:aCharacter
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   920
    ^ self at:#decimalPointCharacter put:aCharacter
14342
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   921
!
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   922
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   923
thousandsSeparatorCharacter
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   924
    "toDo: migrate from ClassVar elsewhere;
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   925
     use this for new applications"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   926
20865
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   927
    ^ self at:#thousandsSeparatorCharacter ifAbsent:[ $, ]
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   928
!
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   929
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   930
thousandsSeparatorCharacter:aCharacter
d60381249b45 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20852
diff changeset
   931
    ^ self at:#thousandsSeparatorCharacter put:aCharacter
14342
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   932
! !
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
   933
14267
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   934
!UserPreferences methodsFor:'accessing-misc'!
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   935
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   936
selectorNamespacesEnabled
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   937
    "Return true, if selector namespaces support is enabled
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   938
     for this system. Note, that this method may return true
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   939
     even if selector namespaces are not supported by this system.
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   940
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   941
     This is rather user setting. To ask whether the selector namespaces
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   942
     support should be used, use:
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   943
18928
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   944
        UserPreferences current selectorNamespacesSupportedAndEnabled
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   945
    "
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   946
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   947
    ^self at:#selectorNamespacesEnabled ifAbsent:false.
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   948
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   949
    "
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   950
        UserPreferences current selectorNamespacesEnabled
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   951
        UserPreferences current selectorNamespacesSupportedAndEnabled
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   952
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   953
        UserPreferences current selectorNamespacesEnabled: true.
a10897820618 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 18922
diff changeset
   954
        UserPreferences current selectorNamespacesEnabled: false.
14267
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   955
    "
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   956
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   957
    "Created: / 19-07-2012 / 15:26:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   958
!
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   959
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   960
selectorNamespacesEnabled: aBoolean
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   961
    "Enables/disables selector namespaces support for this system.
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   962
     Please note that even if selector namespaces are enabled here,
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   963
     they may not be supported by the system/VM.
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   964
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   965
     This is rather user setting. To ask whether the selector namespaces
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   966
     are supported use
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   967
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   968
	ConfigurableFeatures includesFeature:#SelectorNamespaces
14267
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   969
    "
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   970
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   971
    self at:#selectorNamespacesEnabled put: aBoolean
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   972
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   973
    "
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   974
	UserPreferences current selectorNamespacesEnabled
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   975
	UserPreferences current selectorNamespacesSupportedAndEnabled
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   976
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   977
	UserPreferences current selectorNamespacesEnabled: true.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   978
	UserPreferences current selectorNamespacesEnabled: false.
14267
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   979
    "
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   980
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   981
    "Created: / 19-07-2012 / 15:27:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   982
!
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   983
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   984
selectorNamespacesSupportedAndEnabled
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   985
    "Return true, if selector namespaces are both enabled
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   986
     and supported by this system/VM, false otherwise
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   987
    "
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   988
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   989
    ^ (ConfigurableFeatures includesFeature:#SelectorNamespaces)
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   990
	and:[self selectorNamespacesEnabled]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   991
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   992
    "
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   993
	UserPreferences current selectorNamespacesEnabled
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   994
	UserPreferences current selectorNamespacesSupportedAndEnabled
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   995
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   996
	UserPreferences current selectorNamespacesEnabled: true.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
   997
	UserPreferences current selectorNamespacesEnabled: false.
14267
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   998
    "
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
   999
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
  1000
    "Created: / 19-07-2012 / 15:32:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
  1001
! !
Claus Gittinger <cg@exept.de>
parents: 14258
diff changeset
  1002
10723
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1003
!UserPreferences methodsFor:'accessing-misc-communication'!
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1004
11023
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1005
dotNetBridgeRunsInIDE
11930
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1006
    "a debugging flag: if true, the dotNetBridge is assumed to be
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1007
     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
  1008
11023
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1009
    ^ self at:#dotNetBridgeRunsInIDE ifAbsent:false
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1010
!
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1011
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1012
dotNetBridgeRunsInIDE:aBoolean
11930
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1013
    "a debugging flag: if true, the dotNetBridge is assumed to be
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1014
     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
  1015
11023
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1016
    ^ self at:#dotNetBridgeRunsInIDE put:aBoolean
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1017
!
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1018
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1019
dotNetBridgeVerbose
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1020
    ^ self at:#dotNetBridgeVerbose ifAbsent:false
11027
b7639c2fdeb5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11024
diff changeset
  1021
b7639c2fdeb5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11024
diff changeset
  1022
    "
b7639c2fdeb5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11024
diff changeset
  1023
     UserPreferences current dotNetBridgeVerbose
b7639c2fdeb5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11024
diff changeset
  1024
    "
11023
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1025
!
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1026
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1027
dotNetBridgeVerbose:aBoolean
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1028
    ^ self at:#dotNetBridgeVerbose put:aBoolean
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1029
!
3a4668a789f9 dotNetBridge settings
Claus Gittinger <cg@exept.de>
parents: 11012
diff changeset
  1030
11930
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1031
javaBridgeRunsInIDE
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1032
    "a debugging flag: if true, the javaBridge is assumed to be
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1033
     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
  1034
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1035
    ^ self at:#javaBridgeRunsInIDE ifAbsent:false
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1036
!
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1037
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1038
javaBridgeRunsInIDE:aBoolean
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1039
    "a debugging flag: if true, the javaBridge is assumed to be
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1040
     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
  1041
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1042
    ^ self at:#javaBridgeRunsInIDE put:aBoolean
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1043
!
dafd3ec98be5 preps for javaBridge
Claus Gittinger <cg@exept.de>
parents: 11929
diff changeset
  1044
12792
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1045
logHTTPRequests
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1046
    ^ self at:#logHTTPRequests ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1047
!
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1048
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1049
logHTTPRequests:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1050
    ^ self at:#logHTTPRequests put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1051
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1052
    "
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1053
     UserPreferences current logHTTPRequests
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1054
     UserPreferences current logHTTPRequests:true
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1055
     UserPreferences current logHTTPRequests:false
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1056
    "
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1057
!
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1058
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1059
logSOAPRequests
12793
b01055f1932b changed:
Claus Gittinger <cg@exept.de>
parents: 12792
diff changeset
  1060
    ^ (self soapLoggingLevel ? 0) > 0
12792
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1061
!
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1062
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1063
logSOAPRequests:aBoolean
12793
b01055f1932b changed:
Claus Gittinger <cg@exept.de>
parents: 12792
diff changeset
  1064
    self soapLoggingLevel:(aBoolean ifTrue:3 ifFalse:0)
12792
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1065
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1066
    "
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1067
     UserPreferences current logSOAPRequests
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1068
     UserPreferences current logSOAPRequests:true
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1069
     UserPreferences current logSOAPRequests:false
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1070
    "
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1071
!
Claus Gittinger <cg@exept.de>
parents: 12774
diff changeset
  1072
19386
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1073
smallteamViaXMPPEnabled
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1074
    ^ self at:#smallteamViaXMPPEnabled ifAbsent:false
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1075
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1076
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1077
smallteamViaXMPPEnabled:aBoolean
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1078
    self at:#smallteamViaXMPPEnabled put:aBoolean
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1079
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1080
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1081
smallteamXMPPPassword
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1082
    ^ self at:#smallteamXMPPPassword ifAbsent:[ '' ]
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1083
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1084
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1085
smallteamXMPPPassword:aPasswordString
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1086
    self at:#smallteamXMPPPassword put:aPasswordString
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1087
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1088
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1089
smallteamXMPPServer
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1090
    ^ self at:#smallteamXMPPServer ifAbsent:[ 'exept.de' ]
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1091
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1092
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1093
smallteamXMPPServer:aHostname
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1094
    self at:#smallteamXMPPServer put:aHostname
19391
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1095
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1096
    "
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1097
     UserPreferences current smallteamXMPPUser:'exept.de'.
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1098
    "
19386
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1099
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1100
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1101
smallteamXMPPUser
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1102
    ^ self at:#smallteamXMPPUser ifAbsent:[ OperatingSystem getLoginName ]
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1103
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1104
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1105
smallteamXMPPUser:aUsernameString
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1106
    self at:#smallteamXMPPUser put:aUsernameString
19391
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1107
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1108
    "
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1109
     UserPreferences current smallteamXMPPUser:'cg'.
d183062072aa #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 19386
diff changeset
  1110
    "
19386
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1111
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  1112
10723
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1113
smtpServerName
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1114
    ^ self at:#smtpServerName ifAbsent:nil
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1115
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1116
    "Created: / 20-09-2007 / 15:59:20 / cg"
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1117
!
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1118
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1119
smtpServerName:aHostnameString
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1120
    ^ self at:#smtpServerName put:aHostnameString
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1121
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1122
    "
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1123
     UserPreferences current smtpServerName
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1124
     UserPreferences current smtpServerName:'mailhost'
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1125
    "
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1126
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1127
    "Created: / 20-09-2007 / 15:59:58 / cg"
12562
Claus Gittinger <cg@exept.de>
parents: 12522
diff changeset
  1128
!
Claus Gittinger <cg@exept.de>
parents: 12522
diff changeset
  1129
12563
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1130
soapErrorDebugging
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1131
    "open a debugger on error, or report it as a soap-error"
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1132
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1133
    ^ self at:#soapErrorDebugging ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1134
!
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1135
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1136
soapErrorDebugging:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1137
    "open a debugger on error, or report it as a soap-error"
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1138
    ^ self at:#soapErrorDebugging put:aBoolean
12774
3d5e2c85faef comment/format in: #soapErrorDebugging:
Claus Gittinger <cg@exept.de>
parents: 12619
diff changeset
  1139
3d5e2c85faef comment/format in: #soapErrorDebugging:
Claus Gittinger <cg@exept.de>
parents: 12619
diff changeset
  1140
    "
3d5e2c85faef comment/format in: #soapErrorDebugging:
Claus Gittinger <cg@exept.de>
parents: 12619
diff changeset
  1141
     UserPreferences current soapErrorDebugging:true
3d5e2c85faef comment/format in: #soapErrorDebugging:
Claus Gittinger <cg@exept.de>
parents: 12619
diff changeset
  1142
    "
12563
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1143
!
Claus Gittinger <cg@exept.de>
parents: 12562
diff changeset
  1144
12562
Claus Gittinger <cg@exept.de>
parents: 12522
diff changeset
  1145
soapLoggingLevel
20674
f2a78b474642 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20625
diff changeset
  1146
    ^ self at:#soapLoggingLevel ifAbsent:[0]
f2a78b474642 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20625
diff changeset
  1147
f2a78b474642 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20625
diff changeset
  1148
    "Modified: / 16-10-2016 / 23:55:34 / cg"
12562
Claus Gittinger <cg@exept.de>
parents: 12522
diff changeset
  1149
!
Claus Gittinger <cg@exept.de>
parents: 12522
diff changeset
  1150
Claus Gittinger <cg@exept.de>
parents: 12522
diff changeset
  1151
soapLoggingLevel:anIntegerBetween0_and_3
Claus Gittinger <cg@exept.de>
parents: 12522
diff changeset
  1152
    ^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3
13884
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1153
!
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1154
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1155
socksProxyHost
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1156
    ^ self at:#socksProxyHost ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1157
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1158
    "Created: / 27-12-2011 / 14:40:27 / cg"
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1159
!
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1160
13885
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1161
socksProxyHost:aString
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1162
    ^ self at:#socksProxyHost put:aString
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1163
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1164
    "Created: / 27-12-2011 / 14:42:15 / cg"
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1165
!
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1166
13884
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1167
socksProxyPort
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1168
    ^ self at:#socksProxyPort ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1169
Claus Gittinger <cg@exept.de>
parents: 13722
diff changeset
  1170
    "Created: / 27-12-2011 / 14:40:32 / cg"
13885
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1171
!
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1172
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1173
socksProxyPort:aNumber
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1174
    ^ self at:#socksProxyPort put:aNumber
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1175
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  1176
    "Created: / 27-12-2011 / 14:42:29 / cg"
10723
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1177
! !
6fb861a1e7fd smtpServer
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1178
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  1179
!UserPreferences methodsFor:'accessing-pref''d tools'!
5790
83f92b49caae checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5784
diff changeset
  1180
13477
2cf9f960c33e added: #changeSetBrowserClass
Claus Gittinger <cg@exept.de>
parents: 13470
diff changeset
  1181
changeSetBrowserClass
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1182
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1183
    | class className |
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1184
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1185
    className := self at: #changeSetBrowserClassName ifAbsent:[nil].
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1186
    className notNil ifTrue:[
19576
e84a1ba22872 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 19575
diff changeset
  1187
        class := Smalltalk at: className asSymbol.
e84a1ba22872 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 19575
diff changeset
  1188
        class notNil ifTrue:[ ^ class ].
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1189
    ].
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1190
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1191
    "Original code"
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1192
    ^ ChangeSetBrowser.
19576
e84a1ba22872 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 19575
diff changeset
  1193
e84a1ba22872 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 19575
diff changeset
  1194
"/    self useNewChangeSetBrowser ifTrue:[
e84a1ba22872 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 19575
diff changeset
  1195
"/        ^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
e84a1ba22872 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 19575
diff changeset
  1196
"/    ].
e84a1ba22872 #DOCUMENTATION by stefan
Stefan Vogel <sv@exept.de>
parents: 19575
diff changeset
  1197
"/    ^ ChangeSetBrowser ? Tools::ChangeSetBrowser2
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1198
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1199
    "
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1200
     self current changeSetBrowserClass
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1201
    "
13477
2cf9f960c33e added: #changeSetBrowserClass
Claus Gittinger <cg@exept.de>
parents: 13470
diff changeset
  1202
2cf9f960c33e added: #changeSetBrowserClass
Claus Gittinger <cg@exept.de>
parents: 13470
diff changeset
  1203
    "Created: / 01-07-2011 / 16:33:13 / cg"
13523
03ec11a75c9d changed: #changeSetBrowserClass
sr
parents: 13522
diff changeset
  1204
    "Modified: / 25-07-2011 / 12:21:42 / sr"
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1205
    "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
  1206
!
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1207
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1208
changeSetBrowserClass: aClass
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1209
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1210
    self at: #changeSetBrowserClassName put: aClass name.
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1211
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1212
    "
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1213
	UserPreferences current changeSetBrowserClass
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1214
	UserPreferences current changeSetBrowserClass: Tools::ChangeSetBrowser2.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1215
	UserPreferences current changeSetBrowserClass: ChangeSetBrowser.
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1216
    "
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1217
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1218
    "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
  1219
!
2cf9f960c33e added: #changeSetBrowserClass
Claus Gittinger <cg@exept.de>
parents: 13470
diff changeset
  1220
3883
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
  1221
changesBrowserClass
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1222
    "the browser to be used for the changeFile"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1223
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1224
    | class className |
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1225
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1226
    className := self at: #changesBrowserClassName ifAbsent:[nil].
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1227
    className notNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1228
	class := Smalltalk at: className asSymbol.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1229
	class notNil ifTrue:[ ^ class ].
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1230
    ].
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1231
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1232
    "/ Old code
3883
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
  1233
    self useNewChangesBrowser ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1234
	^ (NewChangesBrowser ? ChangesBrowser)
3883
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
  1235
    ].
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
  1236
    ^ ChangesBrowser
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
  1237
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1238
    "Created: / 17-10-1998 / 14:37:46 / cg"
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1239
    "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
  1240
!
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1241
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1242
changesBrowserClass: aClass
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1243
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1244
    self at: #changesBrowserClassName put: aClass name.
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1245
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1246
    "
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1247
	UserPreferences current changesBrowserClass
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1248
	UserPreferences current changesBrowserClass: Tools::ChangeSetBrowser2.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1249
	UserPreferences current changesBrowserClass: ChangeSetBrowser.
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1250
    "
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1251
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  1252
    "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
  1253
!
361c7dd4c2bb category change
Claus Gittinger <cg@exept.de>
parents: 5516
diff changeset
  1254
14735
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1255
externalDiffCommandTemplate
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1256
    "the external command to use for diff"
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1257
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  1258
    ^ self
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1259
	at:#externalDiffCommandTemplate
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1260
	ifAbsent:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1261
	    OperatingSystem isMSDOSlike ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1262
		'diff %1 %2'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1263
	    ] ifFalse:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1264
		'diff -b %1 %2'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1265
	    ]
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1266
	]
14735
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1267
14736
6f662581a5de class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14735
diff changeset
  1268
    "
6f662581a5de class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14735
diff changeset
  1269
     UserPreferences current externalDiffCommandTemplate
6f662581a5de class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14735
diff changeset
  1270
    "
6f662581a5de class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14735
diff changeset
  1271
14735
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1272
    "Modified: / 13-10-1998 / 15:53:05 / cg"
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1273
    "Created: / 26-07-2012 / 15:06:31 / cg"
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1274
!
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1275
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1276
externalDiffCommandTemplate:aString
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1277
    "the external command to use for diff.
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1278
     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
  1279
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1280
    self at:#externalDiffCommandTemplate put:aString
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1281
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1282
    "
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1283
     UserPreferences current externalDiffCommandTemplate
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1284
    "
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1285
!
928c076e96b9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14734
diff changeset
  1286
6177
ffdc0e8dc4c0 inspector
Claus Gittinger <cg@exept.de>
parents: 6171
diff changeset
  1287
inspectorClassSetting
ffdc0e8dc4c0 inspector
Claus Gittinger <cg@exept.de>
parents: 6171
diff changeset
  1288
    self useNewInspector ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1289
	^ (NewInspector::NewInspectorView ? InspectorView)
6177
ffdc0e8dc4c0 inspector
Claus Gittinger <cg@exept.de>
parents: 6171
diff changeset
  1290
    ].
ffdc0e8dc4c0 inspector
Claus Gittinger <cg@exept.de>
parents: 6171
diff changeset
  1291
    ^ InspectorView
ffdc0e8dc4c0 inspector
Claus Gittinger <cg@exept.de>
parents: 6171
diff changeset
  1292
ffdc0e8dc4c0 inspector
Claus Gittinger <cg@exept.de>
parents: 6171
diff changeset
  1293
    "Modified: / 12.11.2001 / 15:47:35 / cg"
ffdc0e8dc4c0 inspector
Claus Gittinger <cg@exept.de>
parents: 6171
diff changeset
  1294
    "Created: / 12.11.2001 / 15:49:00 / cg"
5541
057aef033483 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5536
diff changeset
  1295
!
057aef033483 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5536
diff changeset
  1296
11005
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1297
showTipOfTheDayAtStartup
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1298
    ^ self at:#showTipOfTheDayAtStartup ifAbsent:false
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1299
!
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1300
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1301
showTipOfTheDayAtStartup:aBoolean
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1302
    self at:#showTipOfTheDayAtStartup put:aBoolean.
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1303
!
72032eb19a6b tip of the day
Claus Gittinger <cg@exept.de>
parents: 10992
diff changeset
  1304
5535
361c7dd4c2bb category change
Claus Gittinger <cg@exept.de>
parents: 5516
diff changeset
  1305
systemBrowserClass
361c7dd4c2bb category change
Claus Gittinger <cg@exept.de>
parents: 5516
diff changeset
  1306
    self useNewSystemBrowser ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1307
	^ ((Tools::NewSystemBrowser ? NewSystemBrowser) ? SystemBrowser)
5535
361c7dd4c2bb category change
Claus Gittinger <cg@exept.de>
parents: 5516
diff changeset
  1308
    ].
361c7dd4c2bb category change
Claus Gittinger <cg@exept.de>
parents: 5516
diff changeset
  1309
    ^ SystemBrowser
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1310
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1311
13502
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1312
testRunnerClass
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1313
    self useTestRunner2 ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1314
	^ Tools::TestRunner2 ? TestRunner
13502
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1315
    ].
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1316
    ^ TestRunner
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1317
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1318
    "Created: / 06-07-2011 / 13:55:03 / cg"
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1319
!
600830578bae added: #testRunnerClass
Claus Gittinger <cg@exept.de>
parents: 13501
diff changeset
  1320
13486
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1321
useInspector2
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1322
    "using brand new or old inspector"
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1323
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1324
    ^ self at:#useInspector2 ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1325
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1326
    "
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1327
     UserPreferences current useInspector2
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1328
    "
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1329
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1330
    "Modified: / 17-10-1998 / 14:45:12 / cg"
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1331
    "Created: / 03-07-2011 / 22:35:50 / cg"
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1332
!
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1333
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1334
useInspector2:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1335
    "using very new or old inspector"
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1336
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1337
    self at:#useInspector2 put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1338
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1339
    "
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1340
     UserPreferences current useInspector2
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1341
    "
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1342
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1343
    "Created: / 03-07-2011 / 22:36:13 / cg"
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1344
!
Claus Gittinger <cg@exept.de>
parents: 13477
diff changeset
  1345
10924
aab0b298ebf9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10887
diff changeset
  1346
useNativeFileDialog
13047
a81c5a240b3a added:10 methods
sr
parents: 12949
diff changeset
  1347
    ^ self nativeFileDialogs
a81c5a240b3a added:10 methods
sr
parents: 12949
diff changeset
  1348
a81c5a240b3a added:10 methods
sr
parents: 12949
diff changeset
  1349
    "Modified: / 24-08-2010 / 17:02:10 / sr"
10924
aab0b298ebf9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10887
diff changeset
  1350
!
aab0b298ebf9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10887
diff changeset
  1351
aab0b298ebf9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10887
diff changeset
  1352
useNativeFileDialog:aBoolean
13047
a81c5a240b3a added:10 methods
sr
parents: 12949
diff changeset
  1353
    self nativeFileDialogs:aBoolean
a81c5a240b3a added:10 methods
sr
parents: 12949
diff changeset
  1354
a81c5a240b3a added:10 methods
sr
parents: 12949
diff changeset
  1355
    "Modified: / 24-08-2010 / 17:02:13 / sr"
10924
aab0b298ebf9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10887
diff changeset
  1356
!
aab0b298ebf9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10887
diff changeset
  1357
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1358
useNewChangeSetBrowser
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1359
    "using old or jan's changeSetBrowser for package diffs"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1360
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1361
    ^ self at:#useNewChangeSetBrowser ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1362
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1363
    "Modified: / 13-10-1998 / 15:53:05 / cg"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1364
    "Created: / 26-07-2012 / 15:06:31 / cg"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1365
!
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1366
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1367
useNewChangeSetBrowser:aBoolean
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1368
    "using old or jan's changeSetBrowser for package diffs"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1369
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1370
    ^ self at:#useNewChangeSetBrowser put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1371
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1372
    "Created: / 26-07-2012 / 15:06:50 / cg"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1373
!
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1374
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1375
useNewChangesBrowser
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1376
    "using new or old change browser for the changes file"
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1377
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1378
    ^ self at:#useNewChangesBrowser ifAbsent:false
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1379
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1380
    "Modified: / 13-10-1998 / 15:53:05 / cg"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1381
    "Modified (comment): / 26-07-2012 / 15:04:37 / cg"
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1382
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1383
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1384
useNewChangesBrowser:aBoolean
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1385
    "using new or old changeBrowser for the changes file"
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1386
5784
c6458c4f3c49 oops - usage of new tools could not be turned off
Claus Gittinger <cg@exept.de>
parents: 5712
diff changeset
  1387
    self at:#useNewChangesBrowser put:aBoolean
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1388
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1389
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1390
     UserPreferences current useNewChangesBrowser
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1391
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1392
14252
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1393
    "Modified: / 13-10-1998 / 15:53:21 / cg"
Claus Gittinger <cg@exept.de>
parents: 14160
diff changeset
  1394
    "Modified (comment): / 26-07-2012 / 15:04:39 / cg"
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1395
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1396
6717
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1397
useNewFileBrowser
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1398
    "using new or old version diff viewer"
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1399
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1400
    ^ self at:#useNewFileBrowser ifAbsent:(FileBrowserV2 notNil and:[FileBrowserV2 isLoaded])
6717
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1401
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1402
    "Modified: / 13.10.1998 / 15:53:05 / cg"
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1403
!
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1404
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1405
useNewFileBrowser:aBoolean
6765
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1406
    "using new or old file browser"
6717
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1407
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1408
    self at:#useNewFileBrowser put:aBoolean
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1409
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1410
    "
6769
8cd2d038bfc6 *** empty log message ***
penk
parents: 6767
diff changeset
  1411
     UserPreferences current useNewFileBrowser
6717
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1412
    "
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1413
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1414
    "Modified: / 13.10.1998 / 15:53:21 / cg"
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1415
!
680a8f3f8c4d add new fileBrowser in tool settings
penk
parents: 6666
diff changeset
  1416
6765
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1417
useNewFileDialog
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1418
    "using new or old file dialog"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1419
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1420
    ^ self at:#useNewFileDialog ifAbsent:true
13973
c5f0893cbb11 comment/format in: #useNewFileDialog
Claus Gittinger <cg@exept.de>
parents: 13967
diff changeset
  1421
c5f0893cbb11 comment/format in: #useNewFileDialog
Claus Gittinger <cg@exept.de>
parents: 13967
diff changeset
  1422
    "
c5f0893cbb11 comment/format in: #useNewFileDialog
Claus Gittinger <cg@exept.de>
parents: 13967
diff changeset
  1423
     UserPreferences current useNewFileDialog:false
c5f0893cbb11 comment/format in: #useNewFileDialog
Claus Gittinger <cg@exept.de>
parents: 13967
diff changeset
  1424
     UserPreferences current useNewFileDialog:true
c5f0893cbb11 comment/format in: #useNewFileDialog
Claus Gittinger <cg@exept.de>
parents: 13967
diff changeset
  1425
    "
c5f0893cbb11 comment/format in: #useNewFileDialog
Claus Gittinger <cg@exept.de>
parents: 13967
diff changeset
  1426
c5f0893cbb11 comment/format in: #useNewFileDialog
Claus Gittinger <cg@exept.de>
parents: 13967
diff changeset
  1427
    "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
  1428
!
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1429
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1430
useNewFileDialog:aBoolean
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1431
    "using new or old file dialog"
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1432
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1433
    self at:#useNewFileDialog put:aBoolean
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1434
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1435
    "
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1436
     UserPreferences current useNewFileDialog:true
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1437
    "
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1438
!
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1439
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1440
useNewInspector
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1441
    "using new or old inspector"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1442
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1443
    ^ self at:#useNewInspector ifAbsent:false
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1444
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1445
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1446
     UserPreferences current useNewInspector
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1447
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1448
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1449
    "Modified: / 17.10.1998 / 14:45:12 / cg"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1450
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1451
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1452
useNewInspector:aBoolean
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1453
    "using new or old inspector"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1454
5784
c6458c4f3c49 oops - usage of new tools could not be turned off
Claus Gittinger <cg@exept.de>
parents: 5712
diff changeset
  1455
    self at:#useNewInspector put:aBoolean
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1456
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1457
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1458
     UserPreferences current useNewInspector
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1459
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1460
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1461
6935
7cc9b6a59299 change accessor 'type in error'
penk
parents: 6928
diff changeset
  1462
useNewSettingsApplication
6838
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1463
    "using one application for the settings"
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1464
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1465
    ^ self at:#useNewSettingsApplication ifAbsent:true
6838
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1466
!
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1467
6935
7cc9b6a59299 change accessor 'type in error'
penk
parents: 6928
diff changeset
  1468
useNewSettingsApplication:aBoolean
6838
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1469
    "using one application for the settings"
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1470
6935
7cc9b6a59299 change accessor 'type in error'
penk
parents: 6928
diff changeset
  1471
    self at:#useNewSettingsApplication put:aBoolean
6838
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1472
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1473
    "
6935
7cc9b6a59299 change accessor 'type in error'
penk
parents: 6928
diff changeset
  1474
     UserPreferences current useNewSettingsApplication:true
6838
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1475
    "
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1476
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1477
    "Modified: / 13.10.1998 / 15:53:21 / cg"
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1478
!
26d49b3a22c9 add preferences for use new settings
penk
parents: 6832
diff changeset
  1479
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1480
useNewSystemBrowser
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1481
    "using new or old system browser"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1482
8593
ad78295d4605 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8551
diff changeset
  1483
    |newSystemBrowserClass useIt|
8000
44413c7ef9c8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7993
diff changeset
  1484
44413c7ef9c8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7993
diff changeset
  1485
    newSystemBrowserClass := (Tools::NewSystemBrowser ? NewSystemBrowser).
8593
ad78295d4605 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8551
diff changeset
  1486
    useIt := self at:#useNewSystemBrowser ifAbsent:nil.
ad78295d4605 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8551
diff changeset
  1487
    useIt isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1488
	useIt := (newSystemBrowserClass notNil and:[ newSystemBrowserClass isLoaded]).
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1489
	useIt ifTrue:[
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1490
	    self at:#useNewSystemBrowser put:true.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1491
	].
8593
ad78295d4605 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8551
diff changeset
  1492
    ].
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1493
    ^ useIt
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1494
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1495
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1496
useNewSystemBrowser:aBoolean
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1497
    "using new or old systemBrowser"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1498
5784
c6458c4f3c49 oops - usage of new tools could not be turned off
Claus Gittinger <cg@exept.de>
parents: 5712
diff changeset
  1499
    self at:#useNewSystemBrowser put:aBoolean
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1500
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1501
    "
5541
057aef033483 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5536
diff changeset
  1502
     UserPreferences current useNewSystemBrowser:true
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1503
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1504
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1505
    "Modified: / 13.10.1998 / 15:53:21 / cg"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1506
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1507
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1508
useNewVersionDiffBrowser
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1509
    "using new or old version diff viewer"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1510
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1511
    ^ self at:#useNewVersionDiffBrowser ifAbsent:true
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1512
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1513
    "Modified: / 13.10.1998 / 15:53:05 / cg"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1514
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1515
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1516
useNewVersionDiffBrowser:aBoolean
6765
446b64493274 use newFileDialog preferences added and FileBrowserV2 class name changed
penk
parents: 6763
diff changeset
  1517
    "using new or old versionDiffBrowser"
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1518
5784
c6458c4f3c49 oops - usage of new tools could not be turned off
Claus Gittinger <cg@exept.de>
parents: 5712
diff changeset
  1519
    self at:#useNewVersionDiffBrowser put:aBoolean
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1520
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1521
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1522
     UserPreferences current useNewVersionDiffBrowser
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1523
    "
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1524
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1525
    "Modified: / 13.10.1998 / 15:53:21 / cg"
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1526
!
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1527
6959
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1528
useProcessMonitorV2
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1529
    "using ProcessMonitorV2 application for display Processes"
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1530
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1531
    ^ self at:#useProcessMonitorV2 ifAbsent:(ProcessMonitorV2 notNil)
6959
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1532
!
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1533
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1534
useProcessMonitorV2:aBoolean
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1535
    "using ProcessMonitorV2 application for display Processes"
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1536
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1537
    self at:#useProcessMonitorV2 put:aBoolean
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1538
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1539
    "
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1540
     UserPreferences current useProcessMonitorV2:true
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1541
    "
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1542
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1543
    "Modified: / 13.10.1998 / 15:53:21 / cg"
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1544
!
e766340a8f5b add useProcessMonitorV2
penk
parents: 6951
diff changeset
  1545
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1546
useSmalltalkDocumentViewer
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1547
    "using the smalltalk-DocumentViewer (as opposed to the native systems Browser)
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1548
     to display documentation"
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1549
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1550
    ^ self at:#useSmalltalkDocumentViewer ifAbsent:true
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1551
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1552
    "
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1553
     UserPreferences current useSmalltalkDocumentViewer
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1554
     UserPreferences current useSmalltalkDocumentViewer:false
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1555
    "
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1556
!
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1557
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1558
useSmalltalkDocumentViewer:aBoolean
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1559
    "using the smalltalk-DocumentViewer (as opposed to the native systems Browser)
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1560
     to display documentation"
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1561
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1562
    ^ self at:#useSmalltalkDocumentViewer put:aBoolean
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1563
!
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1564
13501
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1565
useTestRunner2
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1566
    "using new or old test runner"
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1567
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1568
    ^ self at:#useTestRunner2 ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1569
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1570
    "Created: / 06-07-2011 / 13:41:33 / cg"
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1571
!
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1572
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1573
useTestRunner2:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1574
    "using new or old test runner"
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1575
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1576
    self at:#useTestRunner2 put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1577
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1578
    "
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1579
     UserPreferences current useTestRunner2:true
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1580
    "
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1581
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1582
    "Created: / 06-07-2011 / 13:41:40 / cg"
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1583
!
Claus Gittinger <cg@exept.de>
parents: 13486
diff changeset
  1584
16542
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1585
useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1586
    "switch between xtermView (xembed) and vt100 (st/x emulation)
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1587
     if possible on that architecture."
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1588
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1589
    ^ self at:#useXTermViewIfAvailable ifAbsent:false
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1590
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1591
    "
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1592
     UserPreferences current useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1593
    "
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1594
!
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1595
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1596
useXTermViewIfAvailable:aBoolean
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1597
    "switch between xtermView (xembed) and vt100 (st/x emulation)
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1598
     if possible on that architecture."
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1599
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1600
    self at:#useXTermViewIfAvailable put:aBoolean
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1601
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1602
    "
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1603
     UserPreferences current useXTermViewIfAvailable
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1604
    "
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1605
!
9c8eb61c5f36 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16484
diff changeset
  1606
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1607
versionDiffViewerClass
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1608
    self useNewVersionDiffBrowser ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  1609
	^ (VersionDiffBrowser ? DiffTextView)
5536
683a52b52f50 tool access
Claus Gittinger <cg@exept.de>
parents: 5535
diff changeset
  1610
    ].
10992
f03d40b016f4 use new DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 10924
diff changeset
  1611
    ^ DiffCodeView
3883
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
  1612
! !
8e0771f4a196 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3875
diff changeset
  1613
21776
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  1614
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  1615
!UserPreferences methodsFor:'accessing-prefs-UI'!
3358
f1b2b7b83d3e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3357
diff changeset
  1616
11390
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1617
allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1618
    "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
  1619
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1620
    ^ self at:#allowMouseWheelZoom ifAbsent:[ true ]
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1621
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1622
    "
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1623
     UserPreferences current allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1624
    "
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1625
!
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1626
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1627
allowMouseWheelZoom:aBooleanOrNil
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1628
    "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
  1629
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1630
    ^ self at:#allowMouseWheelZoom put:aBooleanOrNil
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1631
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1632
    "
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1633
     UserPreferences current allowMouseWheelZoom:true
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1634
     UserPreferences current allowMouseWheelZoom:false
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1635
     UserPreferences current allowMouseWheelZoom
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1636
    "
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1637
!
f0f1b0711272 allowMouseWheelZoom
Claus Gittinger <cg@exept.de>
parents: 11214
diff changeset
  1638
14342
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1639
avoidConfirmationsForExperiencedUsers
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1640
    "some confirmers ara annoying, if you are an experienced st/x user"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1641
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1642
    ^ self at:#avoidConfirmationsForExperiencedUsers ifAbsent:[ false ]
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1643
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1644
    "
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1645
     UserPreferences current avoidConfirmationsForExperiencedUsers
14698
5eeda6b08571 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14543
diff changeset
  1646
     UserPreferences current avoidConfirmationsForExperiencedUsers:true
14342
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1647
    "
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1648
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1649
    "Created: / 05-09-2012 / 11:26:55 / cg"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1650
!
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1651
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1652
avoidConfirmationsForExperiencedUsers:aBooleanOrNil
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1653
    "some confirmers ara annoying, if you are an experienced st/x user.
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1654
     Set/clear the flag which controls this"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1655
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1656
    ^ self at:#avoidConfirmationsForExperiencedUsers put:aBooleanOrNil
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1657
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1658
    "
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1659
     UserPreferences current avoidConfirmationsForExperiencedUsers:true
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1660
    "
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1661
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1662
    "Created: / 05-09-2012 / 11:27:09 / cg"
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1663
!
Claus Gittinger <cg@exept.de>
parents: 14307
diff changeset
  1664
11929
9128526725d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11897
diff changeset
  1665
avoidSlowDrawingOperationsUnderWindows
9128526725d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11897
diff changeset
  1666
    ^ OperatingSystem isMSWINDOWSlike
9128526725d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11897
diff changeset
  1667
!
9128526725d9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11897
diff changeset
  1668
5071
ps
parents: 4684
diff changeset
  1669
beepEnabled
ps
parents: 4684
diff changeset
  1670
    "return the flag which controls the beeper"
ps
parents: 4684
diff changeset
  1671
ps
parents: 4684
diff changeset
  1672
    ^ self at:#beepEnabled ifAbsentPut:true
ps
parents: 4684
diff changeset
  1673
ps
parents: 4684
diff changeset
  1674
    "
ps
parents: 4684
diff changeset
  1675
     UserPreferences current beepEnabled
ps
parents: 4684
diff changeset
  1676
    "
ps
parents: 4684
diff changeset
  1677
ps
parents: 4684
diff changeset
  1678
    "Modified: / 11.9.1998 / 00:09:59 / cg"
ps
parents: 4684
diff changeset
  1679
    "Created: / 3.12.1999 / 17:09:49 / ps"
ps
parents: 4684
diff changeset
  1680
!
ps
parents: 4684
diff changeset
  1681
ps
parents: 4684
diff changeset
  1682
beepEnabled:aBoolean
ps
parents: 4684
diff changeset
  1683
    "set/clear the flag which controls the beeper"
ps
parents: 4684
diff changeset
  1684
ps
parents: 4684
diff changeset
  1685
    ^ self at:#beepEnabled put:aBoolean
ps
parents: 4684
diff changeset
  1686
ps
parents: 4684
diff changeset
  1687
    "
ps
parents: 4684
diff changeset
  1688
     UserPreferences current beepEnabled:false
ps
parents: 4684
diff changeset
  1689
    "
ps
parents: 4684
diff changeset
  1690
ps
parents: 4684
diff changeset
  1691
    "Modified: / 11.9.1998 / 00:09:59 / cg"
ps
parents: 4684
diff changeset
  1692
    "Created: / 3.12.1999 / 17:10:27 / ps"
ps
parents: 4684
diff changeset
  1693
!
ps
parents: 4684
diff changeset
  1694
8676
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1695
beepForErrorDialog
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1696
    "return the flag which controls beeping for error dialogs"
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1697
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1698
    ^ self at:#beepForErrorDialog ifAbsent:true
8676
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1699
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1700
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1701
     UserPreferences current beepForErrorDialog
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1702
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1703
!
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1704
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1705
beepForErrorDialog:aBoolean
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1706
    "set/clear the flag which controls beeping for error dialogs"
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1707
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1708
    ^ self at:#beepForErrorDialog put:aBoolean
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1709
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1710
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1711
     UserPreferences current beepForErrorDialog:true
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1712
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1713
!
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1714
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1715
beepForInfoDialog
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1716
    "return the flag which controls beeping for info dialogs"
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1717
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1718
    ^ self at:#beepForInfoDialog ifAbsent:false
8676
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1719
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1720
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1721
     UserPreferences current beepForInfoDialog
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1722
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1723
!
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1724
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1725
beepForInfoDialog:aBoolean
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1726
    "set/clear the flag which controls beeping for info dialogs"
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1727
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1728
    ^ self at:#beepForInfoDialog put:aBoolean
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1729
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1730
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1731
     UserPreferences current beepForInfoDialog:true
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1732
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1733
!
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1734
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1735
beepForWarningDialog
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1736
    "return the flag which controls beeping for warning dialogs"
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1737
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  1738
    ^ self at:#beepForWarningDialog ifAbsent:true
8676
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1739
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1740
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1741
     UserPreferences current beepForWarningDialog
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1742
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1743
!
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1744
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1745
beepForWarningDialog:aBoolean
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1746
    "set/clear the flag which controls beeping for warning dialogs"
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1747
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1748
    ^ self at:#beepForWarningDialog put:aBoolean
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1749
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1750
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1751
     UserPreferences current beepForWarningDialog:true
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1752
    "
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1753
!
7466762d325e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8619
diff changeset
  1754
11691
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1755
beepInEditor
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1756
    "return the flag which controls the beeper"
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1757
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1758
    ^ self at:#beepInEditor ifAbsentPut:true
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1759
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1760
    "
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1761
     UserPreferences current beepInEditor
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1762
    "
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1763
!
ca6390f483cf changed #beepInEditor
Claus Gittinger <cg@exept.de>
parents: 11672
diff changeset
  1764
14734
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1765
button2WithAltKey
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1766
    "if true, an ALT-left click is translated to a right click
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1767
     Useful with 1-button mice"
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1768
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1769
    ^ self at:#button2WithAltKey ifAbsent:[ false ]
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1770
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1771
    "
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1772
     UserPreferences current button2WithAltKey
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1773
    "
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1774
!
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1775
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1776
button2WithAltKey: aBoolean
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1777
    "if true, an ALT-left click is translated to a right click
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1778
     Useful with 1-button mice"
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1779
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1780
    ^ self at:#button2WithAltKey put: aBoolean
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1781
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1782
    "
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1783
     UserPreferences current button2WithAltKey
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1784
     UserPreferences current button2WithAltKey:true
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1785
     UserPreferences current button2WithAltKey:false
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1786
    "
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1787
!
f297241056ce class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14733
diff changeset
  1788
12209
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1789
closePopUpMenuChainOnEscape
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1790
    "if true, the whole chain of popUpMenus is closed when escape is pressed.
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1791
     if false (the default), only the last popup-view is closed.
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1792
     The first corresponds to X-behavior, the later is how windows does it - sigh."
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1793
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1794
    ^ self at:#closePopUpMenuChainOnEscape ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1795
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1796
    "
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1797
     UserPreferences current closePopUpMenuChainOnEscape:false
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1798
     UserPreferences current closePopUpMenuChainOnEscape:true
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1799
    "
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1800
!
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1801
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1802
closePopUpMenuChainOnEscape:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1803
    "if true, the whole chain of popUpMenus is closed when escape is pressed.
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1804
     if false (the default), only the last popup-view is closed.
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1805
     The first corresponds to X-behavior, the later is how windows does it - sigh."
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1806
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1807
    ^ self at:#closePopUpMenuChainOnEscape put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1808
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1809
    "
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1810
     UserPreferences current closePopUpMenuChainOnEscape:true
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1811
     UserPreferences current closePopUpMenuChainOnEscape:false
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1812
    "
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1813
!
Claus Gittinger <cg@exept.de>
parents: 12206
diff changeset
  1814
13151
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1815
delayedMenuShowAndHide
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1816
    "the Windows behavior of showing submenus of a menu slightly delayed,
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1817
     to allow for short-time leaving of the mouse pointer.
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1818
     (bug #D1480943)"
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1819
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1820
    ^ self at:#delayedMenuShowAndHide ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1821
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1822
    "Created: / 29-11-2010 / 19:47:21 / cg"
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1823
!
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1824
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1825
delayedMenuShowAndHide:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1826
    "the Windows behavior of showing submenus of a menu slightly delayed,
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1827
     to allow for short-time leaving of the mouse pointer.
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1828
     (bug #D1480943)"
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1829
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1830
    ^ self at:#delayedMenuShowAndHide put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1831
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1832
    "
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1833
     UserPreferences current delayedMenuShowAndHide
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1834
    "
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1835
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1836
    "Created: / 29-11-2010 / 19:47:36 / cg"
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1837
!
Claus Gittinger <cg@exept.de>
parents: 13145
diff changeset
  1838
13503
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1839
eclipseStyleMenus
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1840
    "if true, return menus organized like in eclipse;
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1841
     if false (the default) return them as usual"
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1842
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1843
    ^ self at:#eclipseStyleMenus ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1844
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1845
    "Created: / 08-07-2011 / 13:22:45 / cg"
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1846
!
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1847
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1848
eclipseStyleMenus:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1849
    "if true, return menus organized like in eclipse;
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1850
     if false (the default) return them as usual"
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1851
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1852
    ^ self at:#eclipseStyleMenus put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1853
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1854
    "
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1855
     UserPreferences current eclipseStyleMenus:true
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1856
    "
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1857
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1858
    "Created: / 08-07-2011 / 13:22:50 / cg"
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1859
!
Claus Gittinger <cg@exept.de>
parents: 13502
diff changeset
  1860
15817
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1861
enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1862
    "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
  1863
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1864
    ^ self at:#enableVMWareDrawingBugWorkaround ifAbsent:[ false ]
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1865
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1866
    "
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1867
     UserPreferences current enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1868
    "
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1869
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1870
    "Created: / 19-11-2013 / 09:53:20 / cg"
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1871
!
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1872
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1873
enableVMWareDrawingBugWorkaround:aBoolean
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1874
    "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
  1875
20712
f494e69b5d2e #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20674
diff changeset
  1876
    "/ self assert:(aBoolean isBoolean).
15817
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1877
    self at:#enableVMWareDrawingBugWorkaround put:aBoolean.
20712
f494e69b5d2e #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20674
diff changeset
  1878
    (Screen notNil and:[Screen current notNil and:[Screen current isX11Platform]]) ifTrue:[
18489
710dbb73f2e8 class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 18419
diff changeset
  1879
        Screen current maxOperationsUntilFlush:(aBoolean ifTrue:[1] ifFalse:[nil])
15817
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1880
    ].
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1881
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1882
    "
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1883
     UserPreferences current enableVMWareDrawingBugWorkaround
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1884
     UserPreferences current enableVMWareDrawingBugWorkaround:true
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1885
     UserPreferences current enableVMWareDrawingBugWorkaround:false
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1886
    "
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1887
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1888
    "Created: / 19-11-2013 / 09:53:45 / cg"
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1889
!
319ae2f183c4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15767
diff changeset
  1890
10880
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1891
expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1892
    "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
  1893
     more lines. Default is not FALSE !!"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1894
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1895
    ^ self at:#expandSelectionOnMouseMoveWithButtonPressed ifAbsent:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1896
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1897
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1898
     UserPreferences current expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1899
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1900
!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1901
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1902
expandSelectionOnMouseMoveWithButtonPressed:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1903
    "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
  1904
     more lines. Default is not FALSE !!"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1905
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1906
    ^ self at:#expandSelectionOnMouseMoveWithButtonPressed put:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1907
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1908
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1909
     UserPreferences current expandSelectionOnMouseMoveWithButtonPressed
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1910
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1911
!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  1912
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1913
flyByHelpActive
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1914
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1915
    ^ self at:#flyByHelpActive ifAbsent:true "(FlyByHelp notNil and:[FlyByHelp isActive])"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1916
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1917
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1918
flyByHelpActive:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1919
    aBoolean ~~ self flyByHelpActive ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  1920
	self at:#flyByHelpActive put:aBoolean.
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1921
    ].
17104
39fff879b31b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16859
diff changeset
  1922
    self flyByHelpSettingChanged.
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1923
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  1924
4075
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1925
focusFollowsMouse
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1926
    "return the flag which controls if the keyboard focus should
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1927
     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
  1928
     This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1929
     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
  1930
13391
0a6201dcb4b4 changed: #focusFollowsMouse
Stefan Vogel <sv@exept.de>
parents: 13373
diff changeset
  1931
    ^ self at:#focusFollowsMouse ifAbsent:[ false ]
4075
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1932
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1933
    "
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1934
     UserPreferences current focusFollowsMouse
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1935
    "
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1936
    "Modified: / 11.9.1998 / 00:09:59 / cg"
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1937
!
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1938
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1939
focusFollowsMouse:aBooleanOrNil
4121
4fbe619d6047 comments
Claus Gittinger <cg@exept.de>
parents: 4076
diff changeset
  1940
    "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
  1941
     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
  1942
     This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1943
     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
  1944
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1945
    ^ self at:#focusFollowsMouse put:aBooleanOrNil
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1946
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1947
    "
4121
4fbe619d6047 comments
Claus Gittinger <cg@exept.de>
parents: 4076
diff changeset
  1948
     UserPreferences current focusFollowsMouse:true
4fbe619d6047 comments
Claus Gittinger <cg@exept.de>
parents: 4076
diff changeset
  1949
     UserPreferences current focusFollowsMouse:false
4075
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1950
     UserPreferences current focusFollowsMouse
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1951
    "
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1952
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1953
    "Modified: / 11.9.1998 / 00:09:59 / cg"
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1954
!
816898d4922c added #focusFollowsMouse setting
Claus Gittinger <cg@exept.de>
parents: 4024
diff changeset
  1955
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1956
fontPreferences
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1957
    "experimental"
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1958
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1959
    ^ self at:#fontPreferences
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1960
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1961
    "
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1962
     UserPreferences current fontPreferences
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1963
     UserPreferences current fontPreferences:nil
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1964
    "
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1965
!
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1966
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1967
fontPreferences:aDictionary
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1968
    "experimental"
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1969
18818
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1970
    self at:#fontPreferences put:aDictionary.
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1971
    aDictionary isNil ifTrue:[^ self].
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1972
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1973
    self fontPreferencesChanged.
19630
6588977b5589 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19582
diff changeset
  1974
6588977b5589 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19582
diff changeset
  1975
    "
6588977b5589 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19582
diff changeset
  1976
     UserPreferences current fontPreferences
6588977b5589 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19582
diff changeset
  1977
     UserPreferences current fontPreferences:nil
6588977b5589 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 19582
diff changeset
  1978
    "
18818
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1979
!
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1980
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1981
fontPreferencesChanged
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1982
    "tells view classes about changed font preferences"
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1983
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1984
    |dict fn getFont|
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  1985
18818
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1986
    dict := self at:#fontPreferences.
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1987
    dict isNil ifTrue:[^ self].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  1988
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  1989
    getFont :=
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1990
        [:key|
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1991
            |s fn|
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  1992
18818
2e6061696ce1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18813
diff changeset
  1993
            s := dict at:key ifAbsent:nil.
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1994
            s notNil ifTrue:[
18813
b213982a4cb8 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18812
diff changeset
  1995
                fn := Object readFrom:s.
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1996
                self useXftFontsOnly ifTrue:[
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  1997
                    fn := XftFontDescription for:fn
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  1998
                    "/ cg: don't allocate on the display, because it takes
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  1999
                    "/ dam long sometimes when Xft fonts are used.
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2000
                    "/ startup feels better, if we do it lazy.
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2001
                ] ifFalse:[
19787
08c4eaf6cfb3 lazy Xft font allocation makes startup faster
Claus Gittinger <cg@exept.de>
parents: 19783
diff changeset
  2002
                    Display notNil ifTrue:[fn := fn onDevice:Display].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2003
                ]
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2004
            ].
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2005
            fn
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2006
        ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2007
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2008
    fn := getFont value:#Other.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2009
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2010
        SimpleView withAllSubclasses do:[:cls | cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2011
    ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2012
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2013
    fn := getFont value:#Label.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2014
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2015
        Label defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2016
        CheckBox defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2017
    ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2018
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2019
    fn := getFont value:#Button.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2020
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2021
        Button defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2022
        Toggle defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2023
    ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2024
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2025
    fn := getFont value:#Text.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2026
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2027
        TextView withAllSubclasses do:[:cls | cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2028
    ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2029
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2030
    fn := getFont value:#InputField.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2031
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2032
        EditField withAllSubclasses do:[:cls | cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2033
    ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2034
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2035
    fn := getFont value:#List.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2036
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2037
        SelectionInListView withAllSubclasses do:[:cls | cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2038
    ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2039
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2040
    fn := getFont value:#Tooltip.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2041
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2042
        ActiveHelpView withAllSubclasses do:[:cls | cls defaultFont:fn].
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2043
    ].
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2044
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2045
    fn := getFont value:#Menu.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  2046
    fn notNil ifTrue:[
18812
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2047
        ListView defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2048
        MenuView defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2049
        MenuPanel defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2050
        NoteBookView defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2051
        PullDownMenu defaultFont:fn.
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2052
    ].
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2053
!
9294dd824dda #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18808
diff changeset
  2054
13103
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2055
forceWindowsIntoMonitorBounds
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2056
    "if true, windows are forced to be placed into a monitor's bounds completely;
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2057
     if false, they may be placed as to cross a boundary. This only affects initial placement,
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2058
     not window movement."
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2059
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2060
    ^ self at:#forceWindowsIntoMonitorBounds ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2061
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2062
    "Created: / 22-10-2010 / 10:59:10 / cg"
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2063
!
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2064
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2065
forceWindowsIntoMonitorBounds:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2066
    "if true, windows are forced to be placed into a monitor's bounds completely;
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2067
     if false, they may be placed as to cross a boundary. This only affects initial placement,
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2068
     not window movement."
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2069
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2070
    ^ self at:#forceWindowsIntoMonitorBounds put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2071
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2072
    "
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2073
     UserPreferences current forceWindowsIntoMonitorBounds:false
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2074
     UserPreferences current forceWindowsIntoMonitorBounds:true
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2075
    "
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2076
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2077
    "Modified: / 22-10-2010 / 11:13:54 / cg"
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2078
!
Claus Gittinger <cg@exept.de>
parents: 13048
diff changeset
  2079
14543
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2080
menuPanelTakesFocusOnClick
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2081
    "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
  2082
     cursor and tab keys."
afc7517c76cc class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14736
diff changeset
  2083
15713
2ab7ecc832d9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15703
diff changeset
  2084
    "/ read comment in menuPanel - for now, it should be on,
2ab7ecc832d9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15703
diff changeset
  2085
    "/ otherwise you cannot control a menu with cursor keys or escape. sigh.
21125
aa7155bed06e #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 21041
diff changeset
  2086
    ^ self at:#menuPanelTakesFocusOnClick ifAbsent:[ true "false" ]
14543
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2087
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2088
    "
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2089
     UserPreferences current menuPanelTakesFocusOnClick
16641
2a3e378e9516 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16589
diff changeset
  2090
     UserPreferences current menuPanelTakesFocusOnClick:false
2a3e378e9516 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16589
diff changeset
  2091
     UserPreferences current menuPanelTakesFocusOnClick:true
14543
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2092
    "
14742
afc7517c76cc class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14736
diff changeset
  2093
14543
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2094
    "Modified: / 11.9.1998 / 00:09:59 / cg"
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2095
!
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2096
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2097
menuPanelTakesFocusOnClick:aBooleanOrNil
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2098
    "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
  2099
     cursor and tab keys.
14543
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2100
     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
  2101
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2102
    ^ self at:#menuPanelTakesFocusOnClick put:aBooleanOrNil
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2103
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2104
    "
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2105
     UserPreferences current menuPanelTakesFocusOnClick:true
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2106
     UserPreferences current menuPanelTakesFocusOnClick:false
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2107
     UserPreferences current menuPanelTakesFocusOnClick
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2108
    "
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2109
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2110
    "Modified: / 11.9.1998 / 00:09:59 / cg"
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2111
!
f66741e8d140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14459
diff changeset
  2112
22225
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2113
metaIsMouseWheelZoom
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2114
    "return the flag which controls if meta+mouseWheel shall invoke the zoom.
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2115
     (or else, the horizontal scroll)"
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2116
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2117
    ^ self at:#metaIsMouseWheelZoom ifAbsent:[ false ]
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2118
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2119
    "
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2120
     UserPreferences current metaIsMouseWheelZoom
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2121
    "
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2122
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2123
    "Created: / 30-08-2017 / 14:46:12 / cg"
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2124
!
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2125
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2126
metaIsMouseWheelZoom:aBoolean
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2127
    "set/clear the flag which controls if meta+mouseWheel shall invoke the zoom.
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2128
     (or else, the horizontal scroll)"
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2129
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2130
    self at:#metaIsMouseWheelZoom put:aBoolean
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2131
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2132
    "
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2133
     UserPreferences current metaIsMouseWheelZoom
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2134
     UserPreferences current metaIsMouseWheelZoom:true
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2135
     UserPreferences current metaIsMouseWheelZoom:false
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2136
    "
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2137
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2138
    "Created: / 30-08-2017 / 14:46:34 / cg"
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2139
!
3984da94914f #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 22145
diff changeset
  2140
8759
8e6b635057ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8758
diff changeset
  2141
motionDistanceToStartDrag
8e6b635057ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8758
diff changeset
  2142
    "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
  2143
8e6b635057ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8758
diff changeset
  2144
    ^ "DragMotionDistance ?" 10
8e6b635057ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8758
diff changeset
  2145
!
8e6b635057ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8758
diff changeset
  2146
17457
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2147
mouseWheelDirectionReversed
17458
892c4059acd4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17457
diff changeset
  2148
    "if set, mouse wheel motions are upside-down.
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2149
     I got very confused with macOSX10.9, behavind different from 10.6,
17458
892c4059acd4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17457
diff changeset
  2150
     so I added this option"
17457
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2151
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2152
    ^ self at:#mouseWheelDirectionReversed ifAbsent:[ false ]
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2153
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2154
    "
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2155
     UserPreferences current mouseWheelDirectionReversed
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2156
     UserPreferences current mouseWheelDirectionReversed:true
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2157
     UserPreferences current mouseWheelDirectionReversed:false
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2158
    "
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2159
!
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2160
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2161
mouseWheelDirectionReversed:aBoolean
17458
892c4059acd4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17457
diff changeset
  2162
    "if set, mouse wheel motions are upside-down.
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2163
     I got very confused with macOSX10.9, behavind different from 10.6,
17458
892c4059acd4 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17457
diff changeset
  2164
     so I added this option"
17457
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2165
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2166
    self at:#mouseWheelDirectionReversed put:aBoolean
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2167
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2168
    "
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2169
     UserPreferences current mouseWheelDirectionReversed
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2170
     UserPreferences current mouseWheelDirectionReversed:true
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2171
     UserPreferences current mouseWheelDirectionReversed:false
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2172
    "
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2173
!
ca170782c081 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17425
diff changeset
  2174
11589
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2175
mouseWheelFocusFollowsMouse
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2176
    "return the flag which controls if the mouseWheel focus should
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2177
     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
  2178
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2179
    self focusFollowsMouse ifTrue:[^ true].
16859
0fb09ef5abf0 class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 16813
diff changeset
  2180
    ^ self at:#mouseWheelFocusFollowsMouse ifAbsent:[ Screen current isWindowsPlatform ]
11589
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2181
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2182
    "
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2183
     UserPreferences current mouseWheelFocusFollowsMouse
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2184
    "
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2185
!
13741af10676 +mouseWheelFocusFollowsMouse
Claus Gittinger <cg@exept.de>
parents: 11419
diff changeset
  2186
17316
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2187
mouseWheelScale
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2188
    "if set, mouse wheel motions are scaled by this number"
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2189
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2190
    ^ self at:#mouseWheelScale ifAbsent:[ 1 ]
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2191
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2192
    "
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2193
     UserPreferences current mouseWheelScale
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2194
     UserPreferences current mouseWheelScale:0.5
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2195
     UserPreferences current mouseWheelScale:1
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2196
    "
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2197
!
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2198
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2199
mouseWheelScale:aNumber
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2200
    "if set, mouse wheel motions are scaled by this number"
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2201
18643
dffc9ea26ca9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18641
diff changeset
  2202
    self at:#mouseWheelScale put:aNumber.
dffc9ea26ca9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18641
diff changeset
  2203
    WindowSensor mouseWheelScale:aNumber.
17316
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2204
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2205
    "
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2206
     UserPreferences current mouseWheelScale
18643
dffc9ea26ca9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18641
diff changeset
  2207
     UserPreferences current mouseWheelScale:0.25
17316
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2208
     UserPreferences current mouseWheelScale:0.5
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2209
     UserPreferences current mouseWheelScale:1
18643
dffc9ea26ca9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18641
diff changeset
  2210
dffc9ea26ca9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18641
diff changeset
  2211
     WindowSensor mouseWheelScale
17316
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2212
    "
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2213
!
4e37db3ce151 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17232
diff changeset
  2214
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2215
nativeDialogs
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2216
    ^ self at:#nativeDialogs ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2217
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2218
    "Created: / 24-08-2010 / 17:01:47 / sr"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2219
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2220
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2221
nativeDialogs:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2222
    |currentScreen|
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2223
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2224
    self at:#nativeDialogs put:aBoolean.
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2225
    currentScreen := Screen current.
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2226
    currentScreen notNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2227
	currentScreen supportsNativeDialogs ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2228
	    currentScreen nativeDialogs:aBoolean
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2229
	].
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2230
    ].
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2231
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2232
    "Modified: / 24-08-2010 / 18:06:43 / sr"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2233
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2234
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2235
nativeFileDialogs
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2236
    ^ self at:#nativeFileDialogs ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2237
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2238
    "Created: / 24-08-2010 / 17:01:59 / sr"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2239
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2240
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2241
nativeFileDialogs:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2242
    |currentScreen|
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2243
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2244
    self at:#nativeFileDialogs put:aBoolean.
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2245
    currentScreen := Screen current.
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2246
    currentScreen notNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2247
	currentScreen supportsNativeFileDialogs ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2248
	    currentScreen nativeFileDialogs:aBoolean
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2249
	].
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2250
    ].
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2251
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2252
    "Modified: / 24-08-2010 / 18:06:27 / sr"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2253
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2254
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2255
nativeWidgets
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2256
    ^ self at:#nativeWidgets ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2257
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2258
    "Created: / 24-08-2010 / 16:58:44 / sr"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2259
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2260
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2261
nativeWidgets:aBoolean
16813
4d8bb499fc3b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16699
diff changeset
  2262
    "enable/disable native widgets on the current display"
4d8bb499fc3b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16699
diff changeset
  2263
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2264
    |currentScreen|
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2265
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2266
    self at:#nativeWidgets put:aBoolean.
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2267
    currentScreen := Screen current.
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2268
    currentScreen notNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2269
	currentScreen supportsNativeWidgets ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2270
	    currentScreen nativeWidgets:aBoolean
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2271
	].
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2272
    ].
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2273
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2274
    "Created: / 24-08-2010 / 16:58:14 / sr"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2275
    "Modified: / 24-08-2010 / 18:05:56 / sr"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2276
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  2277
16587
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2278
onlyShowTooltipsForActiveWindow
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2279
    "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
  2280
17180
f37997ce874f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17138
diff changeset
  2281
    ^ self at:#onlyShowTooltipsForActiveWindow ifAbsent:true
16587
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2282
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2283
    "
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2284
     UserPreferences current onlyShowTooltipsForActiveWindow
21031
44d5bfdb4f58 #FEATURE by mawalch
mawalch
parents: 20872
diff changeset
  2285
     UserPreferences current onlyShowTooltipsForActiveWindow:false
16587
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2286
    "
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2287
!
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2288
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2289
onlyShowTooltipsForActiveWindow:aBooleanOrNil
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2290
    "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
  2291
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2292
    ^ self at:#onlyShowTooltipsForActiveWindow put:aBooleanOrNil
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2293
!
1810332fcba2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16586
diff changeset
  2294
5808
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2295
opaqueTableColumnResizing
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2296
    "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
  2297
     animated (opaque)"
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2298
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  2299
    ^ self at:#opaqueTableColumnResizing ifAbsent:false
5808
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2300
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2301
    "
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2302
     UserPreferences current opaqueTableColumnResizing
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2303
    "
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2304
!
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2305
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2306
opaqueTableColumnResizing:aBoolean
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2307
    "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
  2308
     animated (opaque)"
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2309
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2310
    ^ self at:#opaqueTableColumnResizing put:aBoolean
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2311
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2312
    "
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2313
     UserPreferences current opaqueTableColumnResizing:true
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2314
    "
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2315
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2316
    "Modified: / 11.9.1998 / 00:09:59 / cg"
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2317
!
02b371f5f80a opaque table col resize
Claus Gittinger <cg@exept.de>
parents: 5791
diff changeset
  2318
4684
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2319
opaqueVariablePanelResizing
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2320
    "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
  2321
     animated (opaque)"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2322
18550
ecbf5bb59f22 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18497
diff changeset
  2323
    ^ self at:#opaqueVariablePanelResizing ifAbsent:true
4684
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2324
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2325
    "
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2326
     UserPreferences current opaqueVariablePanelResizing
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2327
    "
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2328
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2329
    "Modified: / 11.9.1998 / 00:09:59 / cg"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2330
!
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2331
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2332
opaqueVariablePanelResizing:aBoolean
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2333
    "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
  2334
     animated (opaque)"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2335
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2336
    ^ self at:#opaqueVariablePanelResizing put:aBoolean
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2337
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2338
    "
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2339
     UserPreferences current opaqueVariablePanelResizing:true
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2340
    "
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2341
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2342
    "Modified: / 11.9.1998 / 00:09:59 / cg"
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2343
!
45fe4b0a22b0 moved variablePanelOpaqueResize setting to userprefs.
Claus Gittinger <cg@exept.de>
parents: 4628
diff changeset
  2344
6525
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2345
searchDialogIsModal
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2346
    "true if the search dialog (in textViews) shall be modal (the default)"
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2347
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2348
    ^ self at:#searchDialogIsModal ifAbsent:true
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2349
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2350
    "
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2351
     UserPreferences current searchDialogIsModal
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2352
    "
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2353
!
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2354
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2355
searchDialogIsModal:aBooleanOrNil
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2356
    "true if the search dialog (in textViews) shall be modal (the default)"
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2357
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2358
    ^ self at:#searchDialogIsModal put:aBooleanOrNil
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2359
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2360
    "
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2361
     UserPreferences current searchDialogIsModal:true
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2362
     UserPreferences current searchDialogIsModal:false
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2363
     UserPreferences current searchDialogIsModal
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2364
    "
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2365
!
f62b8454b724 added #searchDialogIsModal.
Claus Gittinger <cg@exept.de>
parents: 6252
diff changeset
  2366
11931
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2367
selectOnRightClick
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2368
    "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
  2369
21385
679f333fec78 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21235
diff changeset
  2370
    ^ self 
679f333fec78 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21235
diff changeset
  2371
        at:#selectOnRightClick 
679f333fec78 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21235
diff changeset
  2372
        ifAbsent:[ OperatingSystem isMSWINDOWSlike ]
11931
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2373
!
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2374
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2375
selectOnRightClick:aBoolean
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2376
    "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
  2377
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2378
    ^ self at:#selectOnRightClick put:aBoolean
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2379
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2380
    "
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2381
     UserPreferences current selectOnRightClick:true.
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2382
     UserPreferences current selectOnRightClick:false.
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2383
    "
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2384
!
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2385
18808
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2386
shiftMouseWheelScrollsHorizontally
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2387
    "if true (the default), a shift-mouse-wheel does horizontal scrolling"
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2388
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2389
    ^ self at:#shiftMouseWheelScrollsHorizontally ifAbsent:[ true ]
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2390
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2391
    "
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2392
     UserPreferences current shiftMouseWheelScrollsHorizontally
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2393
    "
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2394
!
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2395
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2396
shiftMouseWheelScrollsHorizontally:aBoolean
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2397
    "if true (the default), a shift-mouse-wheel does horizontal scrolling"
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2398
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2399
    self at:#shiftMouseWheelScrollsHorizontally put:aBoolean
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2400
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2401
    "
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2402
     UserPreferences current shiftMouseWheelScrollsHorizontally
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2403
    "
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2404
!
2bceb0681510 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18804
diff changeset
  2405
15588
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2406
shouldRememberLastExtent
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2407
    ^ self at:#shouldRememberLastExtent ifAbsent:true
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2408
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2409
    "Created: / 31-07-2013 / 18:11:17 / cg"
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2410
!
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2411
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2412
shouldRememberLastExtent:aBoolean
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2413
    ^ self at:#shouldRememberLastExtent put:aBoolean
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2414
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2415
    "
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2416
     UserPreferences current shouldRememberLastExtent.
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2417
     UserPreferences current shouldRememberLastExtent:true.
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2418
     UserPreferences current shouldRememberLastExtent:false.
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2419
    "
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2420
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2421
    "Created: / 31-07-2013 / 18:11:25 / cg"
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2422
!
4fbc618e5f2c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15548
diff changeset
  2423
13161
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2424
showDottedLinesInTree
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  2425
    ^ self
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2426
	at:#showDottedLinesInTree
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2427
	ifAbsent:[ OperatingSystem isMSWINDOWSlike not
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2428
		   or:[  OperatingSystem isVistaLike not ] ]
13161
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2429
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2430
    "Created: / 03-12-2010 / 11:31:46 / cg"
13304
19bb57822f90 changed: #showDottedLinesInTree
Claus Gittinger <cg@exept.de>
parents: 13161
diff changeset
  2431
    "Modified: / 09-02-2011 / 23:27:03 / cg"
13161
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2432
!
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2433
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2434
showDottedLinesInTree:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2435
    ^ self at:#showDottedLinesInTree put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2436
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2437
    "
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2438
     UserPreferences current showDottedLinesInTree:true.
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2439
     UserPreferences current showDottedLinesInTree:false.
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2440
    "
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2441
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2442
    "Created: / 03-12-2010 / 11:31:53 / cg"
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2443
!
Claus Gittinger <cg@exept.de>
parents: 13151
diff changeset
  2444
11931
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2445
showRightButtonMenuOnRelease
17232
e1f21dd5c764 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17180
diff changeset
  2446
    "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
  2447
21385
679f333fec78 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21235
diff changeset
  2448
    ^ self 
679f333fec78 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21235
diff changeset
  2449
        at:#showRightButtonMenuOnRelease 
679f333fec78 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21235
diff changeset
  2450
        ifAbsent:[ OperatingSystem isMSWINDOWSlike ]
11931
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2451
!
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2452
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2453
showRightButtonMenuOnRelease:aBoolean
17232
e1f21dd5c764 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17180
diff changeset
  2454
    "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
  2455
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2456
    ^ self at:#showRightButtonMenuOnRelease put:aBoolean
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2457
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2458
    "
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2459
     UserPreferences current showRightButtonMenuOnRelease:true.
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2460
     UserPreferences current showRightButtonMenuOnRelease:false.
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2461
    "
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2462
!
59251a906e85 preps for right-menu on buttonRelease
Claus Gittinger <cg@exept.de>
parents: 11930
diff changeset
  2463
6730
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2464
startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2465
    "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
  2466
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2467
    ^ self at:#startTextDragWithControl ifAbsent:true
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2468
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2469
    "
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2470
     UserPreferences current startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2471
    "
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2472
!
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2473
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2474
startTextDragWithControl:aBooleanOrNil
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2475
    "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
  2476
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2477
    ^ self at:#startTextDragWithControl put:aBooleanOrNil
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2478
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2479
    "
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2480
     UserPreferences current startTextDragWithControl:true
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2481
     UserPreferences current startTextDragWithControl:false
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2482
     UserPreferences current startTextDragWithControl
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2483
    "
12522
0abaa650d83e added: #waitCursorVisibleTime
Stefan Vogel <sv@exept.de>
parents: 12501
diff changeset
  2484
!
0abaa650d83e added: #waitCursorVisibleTime
Stefan Vogel <sv@exept.de>
parents: 12501
diff changeset
  2485
13125
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2486
toolTipAutoHideDelay
16466
11c565cfffc2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16385
diff changeset
  2487
    "return the time in seconds, tooltips are shown. 0 means: show forever"
13125
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2488
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2489
    ^ self at:#toolTipAutoHideDelay ifAbsentPut:[FlyByHelp showTime]
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2490
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2491
    "
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2492
     UserPreferences current toolTipAutoHideDelay
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2493
    "
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2494
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2495
    "Created: / 10-11-2010 / 12:08:58 / cg"
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2496
!
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2497
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2498
toolTipAutoHideDelay:aTimeDuration
20815
9d37f600a822 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 20712
diff changeset
  2499
    "set the time, tooltips are shown. 0 means: don't hide"
13125
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2500
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2501
    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
  2502
    FlyByHelp showTime: (aTimeDuration isInteger
20815
9d37f600a822 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 20712
diff changeset
  2503
                            ifTrue:[aTimeDuration]
9d37f600a822 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 20712
diff changeset
  2504
                            ifFalse:[aTimeDuration asSeconds]).
13125
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2505
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2506
    "
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2507
     UserPreferences current toolTipAutoHideDelay:10 seconds
16466
11c565cfffc2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16385
diff changeset
  2508
     UserPreferences current toolTipAutoHideDelay:0
13125
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2509
    "
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2510
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2511
    "Created: / 10-11-2010 / 12:09:33 / cg"
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  2512
    "Modified: / 07-03-2011 / 23:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13125
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2513
!
Claus Gittinger <cg@exept.de>
parents: 13124
diff changeset
  2514
15728
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2515
toolTipShapeStyle
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2516
    "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
  2517
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2518
    ^ self at:#toolTipShapeStyle ifAbsent:[ nil ]
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2519
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2520
    "
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2521
     UserPreferences current toolTipShapeStyle
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2522
     UserPreferences current toolTipShapeStyle:#cartoon
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2523
     UserPreferences current toolTipShapeStyle:nil
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2524
    "
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2525
!
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2526
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2527
toolTipShapeStyle:aSymbolOrNil
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2528
    "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
  2529
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2530
    self at:#toolTipShapeStyle put:aSymbolOrNil
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2531
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2532
    "
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2533
     UserPreferences current toolTipShapeStyle
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2534
     UserPreferences current toolTipShapeStyle:#cartoon
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2535
     UserPreferences current toolTipShapeStyle:nil
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2536
    "
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2537
!
68b68fafbd79 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15726
diff changeset
  2538
17541
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2539
useColorsForColorBlindness
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2540
    "return the flag which controls some color combinations
17593
9c4d879c9be0 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17569
diff changeset
  2541
     to compensate for color deficiencies, such as red-green blindness.
17541
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2542
     For example, red-green is replaced by red-blue"
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2543
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2544
    ^ self at:#useColorsForColorBlindness ifAbsent:[ false ]
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2545
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2546
    "
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2547
     UserPreferences current useColorsForColorBlindness
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2548
     UserPreferences current useColorsForColorBlindness:true
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2549
     UserPreferences current useColorsForColorBlindness:false
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2550
    "
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2551
!
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2552
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2553
useColorsForColorBlindness:aBoolean
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2554
    "change the flag which controls some color combinations
17593
9c4d879c9be0 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17569
diff changeset
  2555
     to compensate for color deficiencies, such as red-green blindness.
17541
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2556
     For example, red-green is replaced by red-blue"
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2557
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2558
    self at:#useColorsForColorBlindness put:aBoolean
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2559
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2560
    "
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2561
     UserPreferences current useColorsForColorBlindness
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2562
     UserPreferences current useColorsForColorBlindness:true
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2563
     UserPreferences current useColorsForColorBlindness:false
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2564
    "
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2565
!
921bd42c0558 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17458
diff changeset
  2566
17138
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2567
useXFontsOnly
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2568
    "experimental:
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2569
     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
  2570
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2571
    ^ self at:#useXFontsOnly ifAbsent:[ false ]
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2572
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2573
    "
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2574
     UserPreferences current useXFontsOnly
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2575
    "
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2576
!
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2577
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2578
useXFontsOnly:aBoolean
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2579
    "experimental:
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2580
     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
  2581
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2582
    self at:#useXFontsOnly put:aBoolean
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2583
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2584
    "
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2585
     UserPreferences current useXFontsOnly
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2586
     UserPreferences current useXFontsOnly:true
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2587
     UserPreferences current useXFontsOnly:false
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2588
     UserPreferences current useXftFontsOnly:true
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2589
     UserPreferences current useXftFontsOnly:false
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2590
    "
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2591
!
e2ef970368f8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17104
diff changeset
  2592
16265
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2593
useXftFontsOnly
16266
d6dd2288fe0d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16265
diff changeset
  2594
    "experimental:
d6dd2288fe0d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16265
diff changeset
  2595
     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
  2596
     If changed, this should be done very early during startup, before any other fonts
20119
2fac94083d6f #OTHER by mawalch
mawalch
parents: 19965
diff changeset
  2597
     are already acquired (i.e. before any views are opened)"
16265
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2598
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2599
    ^ self at:#useXftFontsOnly ifAbsent:[ false ]
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2600
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2601
    "
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2602
     UserPreferences current useXftFontsOnly
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2603
    "
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2604
!
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2605
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2606
useXftFontsOnly:aBooleanOrNil
16266
d6dd2288fe0d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16265
diff changeset
  2607
    "experimental:
d6dd2288fe0d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16265
diff changeset
  2608
     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
  2609
     If changed, this should be done very early during startup, before any other fonts
20119
2fac94083d6f #OTHER by mawalch
mawalch
parents: 19965
diff changeset
  2610
     are already acquired (i.e. before any views are opened)"
16265
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2611
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2612
    ^ self at:#useXftFontsOnly put:aBooleanOrNil
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2613
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2614
    "
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2615
     UserPreferences current useXftFontsOnly:true
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2616
     UserPreferences current useXftFontsOnly:false
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2617
     UserPreferences current useXftFontsOnly
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2618
    "
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2619
!
32842903fc11 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
  2620
21041
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2621
viewStyle
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2622
    ^ self at:#viewStyle ifAbsent:[ nil ]
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2623
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2624
    "
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2625
     UserPreferences current viewStyle
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2626
     UserPreferences current viewStyle:(ViewStyle adwaita)
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2627
    "
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2628
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2629
    "Created: / 24-11-2016 / 17:58:30 / cg"
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2630
!
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2631
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2632
viewStyle:aStyleSymbol
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2633
    self at:#viewStyle put:aStyleSymbol
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2634
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2635
    "
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2636
     UserPreferences current viewStyle
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2637
     UserPreferences current viewStyle:(ViewStyle adwaita)
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2638
    "
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2639
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2640
    "Created: / 24-11-2016 / 17:58:51 / cg"
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2641
!
76b15013e62c #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 21031
diff changeset
  2642
12522
0abaa650d83e added: #waitCursorVisibleTime
Stefan Vogel <sv@exept.de>
parents: 12501
diff changeset
  2643
waitCursorVisibleTime
21781
6ccea3435815 #DOCUMENTATION by mawalch
mawalch
parents: 21776
diff changeset
  2644
    "answer the time (in ms), how long a wait cursor should be visible at least"
12522
0abaa650d83e added: #waitCursorVisibleTime
Stefan Vogel <sv@exept.de>
parents: 12501
diff changeset
  2645
13684
a55755f5d41b changed: #waitCursorVisibleTime
Claus Gittinger <cg@exept.de>
parents: 13652
diff changeset
  2646
    ^ 100
a55755f5d41b changed: #waitCursorVisibleTime
Claus Gittinger <cg@exept.de>
parents: 13652
diff changeset
  2647
a55755f5d41b changed: #waitCursorVisibleTime
Claus Gittinger <cg@exept.de>
parents: 13652
diff changeset
  2648
    "Modified: / 12-09-2011 / 11:08:53 / cg"
21781
6ccea3435815 #DOCUMENTATION by mawalch
mawalch
parents: 21776
diff changeset
  2649
    "Modified (comment): / 30-05-2017 / 19:44:41 / mawalch"
13122
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13119
diff changeset
  2650
!
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13119
diff changeset
  2651
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13119
diff changeset
  2652
workAroundRenderingBugOnVista
13124
ae7477260767 changed: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13122
diff changeset
  2653
    "a temporary kludge for the vista-cleartype character redraw bug"
13122
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13119
diff changeset
  2654
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13119
diff changeset
  2655
    ^ OperatingSystem isMSWINDOWSlike
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13119
diff changeset
  2656
ddeb0c08d6c7 added: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13119
diff changeset
  2657
    "Created: / 08-11-2010 / 14:47:52 / cg"
13124
ae7477260767 changed: #workAroundRenderingBugOnVista
Claus Gittinger <cg@exept.de>
parents: 13122
diff changeset
  2658
    "Modified: / 09-11-2010 / 13:02:43 / cg"
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2659
! !
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2660
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2661
!UserPreferences methodsFor:'accessing-prefs-browser'!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2662
19852
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2663
acceptCancelBarOrder
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2664
    "the original order was accept-cancel-compare.
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2665
     However, we found that the danger of pressing cancel by accident
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2666
     was too high, so we changed the default.
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2667
     If you want to go back, return #acceptCancelCompare here"
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2668
     
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2669
    ^ self at:#acceptCancelBarOrder ifAbsent:#acceptCompareCancel
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2670
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2671
    "
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2672
     UserPreferences current acceptCancelBarOrder
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2673
     UserPreferences current acceptCancelBarOrder: #acceptCompareCancel
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2674
     UserPreferences current acceptCancelBarOrder: #acceptCancelCompare
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2675
    "
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2676
!
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2677
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2678
acceptCancelBarOrder:aSymbol
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2679
    "the original order was accept-cancel-compare.
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2680
     However, we found that the danger of pressing cancel by accident
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2681
     was too high, so we changed the default.
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2682
     If you want to go back, return #acceptCancelCompare here"
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2683
     
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2684
    self at:#acceptCancelBarOrder put:aSymbol
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2685
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2686
    "
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2687
     UserPreferences current acceptCancelBarOrder
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2688
     UserPreferences current acceptCancelBarOrder: #acceptCompareCancel
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2689
     UserPreferences current acceptCancelBarOrder: #acceptCancelCompare
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2690
    "
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2691
!
9c6ec9384612 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19797
diff changeset
  2692
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2693
autoFormatting
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2694
    "return the flag which controls automatic formatting of code (in some browsers)
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2695
     Notice, the regular browser does not (yet) do automatic formating."
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2696
8233
354850231fe7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8232
diff changeset
  2697
    ^ self at:#autoFormatting ifAbsent:false
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2698
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2699
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2700
     UserPreferences current autoFormatting
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2701
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2702
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2703
    "Created: / 4.2.2000 / 20:08:08 / cg"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2704
    "Modified: / 5.2.2000 / 15:38:33 / cg"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2705
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2706
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2707
autoFormatting:aBoolean
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2708
    "turn on/off automatic formatting of code (in some browsers);
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2709
     Notice, the regular browser does not (yet) do automatic formating."
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2710
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2711
    ^ self at:#autoFormatting put:aBoolean
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2712
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2713
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2714
     UserPreferences current autoFormatting:true
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2715
     UserPreferences current autoFormatting:false
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2716
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2717
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2718
    "Created: / 4.2.2000 / 20:08:26 / cg"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2719
    "Modified: / 5.2.2000 / 15:38:20 / cg"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2720
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2721
15290
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2722
autoIndentInCodeView
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2723
    "return the flag which controls automatic cursor control in editors which
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2724
     show code(autoIndent)"
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2725
16699
eafc8ff6f15a class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16698
diff changeset
  2726
    ^ self at:#autoIndentInCodeView ifAbsent:true
15290
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2727
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2728
    "
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2729
     UserPreferences current autoIndentInCodeView
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2730
    "
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2731
!
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2732
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2733
autoIndentInCodeView:aBoolean
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2734
    "flag which controls automatic cursor control in editors which
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2735
     show code(autoIndent)"
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2736
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2737
    ^ self at:#autoIndentInCodeView put:aBoolean
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2738
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2739
    "
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2740
     UserPreferences current autoIndentInCodeView:true
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2741
     UserPreferences current autoIndentInCodeView:false
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2742
    "
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2743
!
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  2744
20852
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2745
confirmCheckinOfPrivateClasses
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2746
    "If set, a confirmation dialog is shown when attempting to checkin a private class."
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2747
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2748
    ^ self at:#confirmCheckinOfPrivateClasses ifAbsent:[true].
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2749
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2750
    "
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2751
     UserPreferences current confirmCheckinOfPrivateClasses
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2752
     UserPreferences current confirmCheckinOfPrivateClasses:true
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2753
     UserPreferences current confirmCheckinOfPrivateClasses:false
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2754
    "
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2755
!
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2756
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2757
confirmCheckinOfPrivateClasses:aBoolean
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2758
    "If set, a confirmation dialog is shown when attempting to checkin a private class."
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2759
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2760
    self at:#confirmCheckinOfPrivateClasses put:aBoolean.
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2761
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2762
    "
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2763
     UserPreferences current confirmCheckinOfPrivateClasses
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2764
     UserPreferences current confirmCheckinOfPrivateClasses:true
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2765
     UserPreferences current confirmCheckinOfPrivateClasses:false
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2766
    "
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2767
!
77d4e07567b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 20815
diff changeset
  2768
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2769
enforceCodeStyle
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2770
    "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
  2771
8233
354850231fe7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8232
diff changeset
  2772
    ^ self at:#enforceCodeStyle ifAbsent:false
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2773
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2774
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2775
     UserPreferences current enforceCodeStyle
10478
34a91987e7b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10310
diff changeset
  2776
     UserPreferences current enforceCodeStyle:true
34a91987e7b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10310
diff changeset
  2777
     UserPreferences current enforceCodeStyle:false
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2778
    "
10478
34a91987e7b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10310
diff changeset
  2779
34a91987e7b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10310
diff changeset
  2780
    "Modified: / 27-03-2007 / 21:51:42 / cg"
6730
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2781
!
7bbf6fdeda01 textDrag start with CTRL (optional)
Claus Gittinger <cg@exept.de>
parents: 6717
diff changeset
  2782
12947
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2783
enforceComment
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2784
    "return the flag which controls enforcing a comment in accepted methods"
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2785
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2786
    ^ self at:#enforceComment ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2787
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2788
    "
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2789
     UserPreferences current enforceComment
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2790
     UserPreferences current enforceComment:true
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2791
     UserPreferences current enforceComment:false
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2792
    "
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2793
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2794
    "Created: / 17-07-2010 / 14:16:27 / cg"
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2795
!
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2796
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2797
enforceComment:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2798
    "set/clear the flag which controls enforcing a comment in accepted methods"
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2799
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2800
    ^ self at:#enforceComment put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2801
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2802
    "
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2803
     UserPreferences current enforceComment:true
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2804
     UserPreferences current enforceComment:false
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2805
    "
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2806
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2807
    "Created: / 17-07-2010 / 14:17:02 / cg"
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2808
!
Claus Gittinger <cg@exept.de>
parents: 12930
diff changeset
  2809
14415
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2810
runLintChecksInBackground
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2811
    "controls the browser's lint-check behavior;
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2812
     background operation (Jan's pref) makes it difficult to stop and debug...)"
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2813
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2814
    ^ self at:#runLintChecksInBackground ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2815
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2816
    "
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2817
     UserPreferences current runLintChecksInBackground
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2818
     UserPreferences current runLintChecksInBackground:true
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2819
     UserPreferences current runLintChecksInBackground:false
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2820
    "
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2821
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2822
    "Created: / 17-07-2010 / 14:16:27 / cg"
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2823
!
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2824
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2825
runLintChecksInBackground:aBoolean
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2826
    "controls the browser's lint-check behavior;
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2827
     background operation (Jan's pref) makes it difficult to stop and debug...)"
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2828
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2829
    ^ self at:#runLintChecksInBackground put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2830
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2831
    "
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2832
     UserPreferences current runLintChecksInBackground:true
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2833
     UserPreferences current runLintChecksInBackground:false
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2834
    "
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2835
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2836
    "Created: / 17-07-2010 / 14:17:02 / cg"
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2837
!
Claus Gittinger <cg@exept.de>
parents: 14358
diff changeset
  2838
9320
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2839
showAcceptCancelBarInBrowser
19797
fb12455698e1 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19787
diff changeset
  2840
    "this is a little confusing: the codeview2 has its own accept/cancel bar
fb12455698e1 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19787
diff changeset
  2841
     which can be turned on separately.
fb12455698e1 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19787
diff changeset
  2842
     The codeview2 will suppress the regular accept/cancel bar, if it uses its own."
fb12455698e1 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19787
diff changeset
  2843
     
11214
ad61819068b9 changed #showAcceptCancelBarInBrowser
Claus Gittinger <cg@exept.de>
parents: 11213
diff changeset
  2844
    ^ self at:#showAcceptCancelBarInBrowser ifAbsent:true
9320
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2845
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2846
    "
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2847
     UserPreferences current showAcceptCancelBarInBrowser
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2848
     UserPreferences current showAcceptCancelBarInBrowser:true
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2849
     UserPreferences current showAcceptCancelBarInBrowser:false
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2850
    "
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2851
!
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2852
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2853
showAcceptCancelBarInBrowser:aBoolean
19797
fb12455698e1 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19787
diff changeset
  2854
    "this is a little confusing: the codeview2 has its own accept/cancel bar
fb12455698e1 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19787
diff changeset
  2855
     which can be turned on separately.
fb12455698e1 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19787
diff changeset
  2856
     The codeview2 will suppress the regular accept/cancel bar, if it uses its own."
9320
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2857
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2858
    ^ self at:#showAcceptCancelBarInBrowser put:aBoolean
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2859
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2860
    "
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2861
     UserPreferences current showAcceptCancelBarInBrowser:true
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2862
     UserPreferences current showAcceptCancelBarInBrowser:false
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2863
    "
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2864
!
3915cefea352 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9302
diff changeset
  2865
20625
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2866
showMarqueeInfo
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2867
    "If set, show multiline infos in the info area as a scrolling marquee text"
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2868
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2869
    ^ self at:#showMarqueeInfo ifAbsent:[true].
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2870
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2871
    "
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2872
     UserPreferences current showMarqueeInfo
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2873
     UserPreferences current showMarqueeInfo:true
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2874
     UserPreferences current showMarqueeInfo:false
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2875
    "
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2876
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2877
    "Created: / 04-04-2012 / 14:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2878
!
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2879
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2880
showMarqueeInfo:aBoolean
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2881
    "If set, show multiline infos in the info area as a scrolling marquee text"
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2882
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2883
    self at:#showMarqueeInfo put:aBoolean.
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2884
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2885
    "
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2886
     UserPreferences current showMarqueeInfo
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2887
     UserPreferences current showMarqueeInfo:true
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2888
     UserPreferences current showMarqueeInfo:false
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2889
    "
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2890
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2891
    "Created: / 04-04-2012 / 14:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2892
!
2e8560b3d14c #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 20613
diff changeset
  2893
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2894
syntaxColoring
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  2895
    "return the flag which controls syntax coloring (in the browsers)"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  2896
8233
354850231fe7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8232
diff changeset
  2897
    ^ self at:#syntaxColoring ifAbsent:true
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2898
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2899
    "
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2900
     UserPreferences current syntaxColoring
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2901
    "
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2902
3827
d3dd75b5ced3 syntax coloring is on by default;
Claus Gittinger <cg@exept.de>
parents: 3409
diff changeset
  2903
    "Modified: / 11.9.1998 / 00:09:59 / cg"
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2904
!
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2905
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2906
syntaxColoring:aBoolean
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  2907
    "turn on/off syntaxColoring (in the browsers)."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  2908
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2909
    ^ self at:#syntaxColoring put:aBoolean
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2910
3357
bc42e06c8422 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3356
diff changeset
  2911
    "
bc42e06c8422 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3356
diff changeset
  2912
     UserPreferences current syntaxColoring:true
bc42e06c8422 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3356
diff changeset
  2913
     UserPreferences current syntaxColoring:false
bc42e06c8422 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3356
diff changeset
  2914
    "
bc42e06c8422 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3356
diff changeset
  2915
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2916
    "Created: / 31.3.1998 / 13:44:00 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  2917
    "Modified: / 1.4.1998 / 13:23:03 / cg"
12189
fm
parents: 12175
diff changeset
  2918
!
fm
parents: 12175
diff changeset
  2919
fm
parents: 12175
diff changeset
  2920
useSearchBarInBrowser
12191
e7cc3e6975cc comment/format in:
Claus Gittinger <cg@exept.de>
parents: 12189
diff changeset
  2921
    "true, if the search-entry fields are initially shown in the browser itself
12189
fm
parents: 12175
diff changeset
  2922
     (like in firefox). False if a dialog is to be opened."
fm
parents: 12175
diff changeset
  2923
fm
parents: 12175
diff changeset
  2924
    "/ cg: disabled for now, until fixed.
fm
parents: 12175
diff changeset
  2925
    "/ does not initially select the searchString.
fm
parents: 12175
diff changeset
  2926
    "/ thereby interrupting the workflow...
fm
parents: 12175
diff changeset
  2927
fm
parents: 12175
diff changeset
  2928
    ^ self at:#useSearchBarInBrowser ifAbsent:false
fm
parents: 12175
diff changeset
  2929
fm
parents: 12175
diff changeset
  2930
    "
fm
parents: 12175
diff changeset
  2931
     UserPreferences current useSearchBarInBrowser
fm
parents: 12175
diff changeset
  2932
     UserPreferences current useSearchBarInBrowser:true
fm
parents: 12175
diff changeset
  2933
     UserPreferences current useSearchBarInBrowser:false
fm
parents: 12175
diff changeset
  2934
    "
fm
parents: 12175
diff changeset
  2935
!
fm
parents: 12175
diff changeset
  2936
fm
parents: 12175
diff changeset
  2937
useSearchBarInBrowser:aBoolean
12191
e7cc3e6975cc comment/format in:
Claus Gittinger <cg@exept.de>
parents: 12189
diff changeset
  2938
    "true, if the search-entry fields are initially shown in the browser itself
12189
fm
parents: 12175
diff changeset
  2939
     (like in firefox). False if a dialog is to be opened."
fm
parents: 12175
diff changeset
  2940
fm
parents: 12175
diff changeset
  2941
    ^ self at:#useSearchBarInBrowser put:aBoolean
fm
parents: 12175
diff changeset
  2942
fm
parents: 12175
diff changeset
  2943
    "
fm
parents: 12175
diff changeset
  2944
     UserPreferences current useSearchBarInBrowser:true
fm
parents: 12175
diff changeset
  2945
     UserPreferences current useSearchBarInBrowser:false
fm
parents: 12175
diff changeset
  2946
    "
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  2947
! !
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  2948
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2949
!UserPreferences methodsFor:'accessing-prefs-browser-colors'!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  2950
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2951
colorForInstrumentedFullyCoveredCode
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  2952
    "the color for code in the browser which is instrumented
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2953
     and where all branches have been executed (also code, which has been executed)"
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2954
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2955
    |clr|
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2956
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2957
    clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil.
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2958
    clr isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2959
	clr := Color green slightlyDarkened "darkened".
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2960
	"/ self at:#colorForInstrumentedFullyCoveredCode put:clr.
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2961
    ].
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2962
    ^ clr
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2963
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2964
    "
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2965
     UserPreferences current
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2966
	at:#emphasisForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2967
	put:(Color green slightlyDarkened).
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2968
    "
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2969
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2970
    "Created: / 28-04-2010 / 13:58:52 / cg"
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2971
!
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2972
15915
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2973
colorForInstrumentedFullyCoveredCode:aColor
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  2974
    "the color for code in the browser which is instrumented
15915
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2975
     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
  2976
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2977
    self at:#colorForInstrumentedFullyCoveredCode put:aColor.
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2978
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2979
    "
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2980
     UserPreferences current colorForInstrumentedFullyCoveredCode:(Color green slightlyDarkened).
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2981
     UserPreferences current colorForInstrumentedFullyCoveredCode:nil.
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2982
    "
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2983
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2984
    "Created: / 28-04-2010 / 13:58:52 / cg"
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2985
!
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  2986
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2987
colorForInstrumentedNeverCalledCode
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2988
    "the color for code in the browser which is instrumented but has never been called"
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2989
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2990
    |clr|
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2991
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2992
    clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil.
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2993
    clr isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2994
	clr := Color red "slightlyDarkened" "darkened".
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  2995
	"/ self at:#colorForInstrumentedNeverCalledCode put:clr.
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2996
    ].
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2997
    ^ clr
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2998
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  2999
    "
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3000
     UserPreferences current
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3001
	at:#colorForInstrumentedNeverCalledCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3002
	put:(Color red slightlyDarkened).
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3003
    "
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3004
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3005
    "Created: / 28-04-2010 / 13:59:43 / cg"
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3006
!
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3007
15915
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3008
colorForInstrumentedNeverCalledCode:aColor
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3009
    "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
  3010
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3011
    self at:#colorForInstrumentedNeverCalledCode put:aColor.
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3012
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3013
    "
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3014
     UserPreferences current colorForInstrumentedNeverCalledCode:(Color red slightlyDarkened).
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3015
     UserPreferences current colorForInstrumentedNeverCalledCode:nil.
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3016
    "
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3017
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3018
    "Created: / 28-04-2010 / 13:59:43 / cg"
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3019
!
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3020
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3021
colorForInstrumentedPartiallyCoveredCode
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3022
    "color for code in the browser which is instrumented and where some branches have been
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3023
     executed"
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3024
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3025
    |clr|
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3026
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3027
    clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil.
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3028
    clr isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3029
	clr := Color orange "slightlyDarkened".
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3030
	"/ self at:#colorForInstrumentedPartiallyCoveredCode put:clr.
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3031
    ].
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3032
    ^ clr
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3033
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3034
    "
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3035
     UserPreferences current
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3036
	at:#colorForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3037
	put:(Color orange slightlyLightened).
12905
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3038
    "
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3039
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3040
    "Created: / 28-04-2010 / 14:00:56 / cg"
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3041
!
Claus Gittinger <cg@exept.de>
parents: 12902
diff changeset
  3042
15915
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3043
colorForInstrumentedPartiallyCoveredCode:aColor
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3044
    "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
  3045
     executed"
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3046
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3047
    self at:#colorForInstrumentedPartiallyCoveredCode put:aColor.
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3048
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3049
    "
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3050
     UserPreferences current colorForInstrumentedPartiallyCoveredCode:(Color orange slightlyLightened).
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3051
     UserPreferences current colorForInstrumentedPartiallyCoveredCode:nil.
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3052
    "
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3053
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3054
    "Created: / 28-04-2010 / 14:00:56 / cg"
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3055
!
b8bc99b1b16f class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15913
diff changeset
  3056
13652
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3057
colorForPseudoProtocolsInMethodListInBrowser
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3058
    "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
  3059
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3060
    |bg|
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3061
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3062
    SelectionInListView notNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3063
	bg := SelectionInListView defaultBackgroundColor.
13652
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3064
    ].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3065
    bg isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3066
	View notNil ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3067
	    bg := View defaultBackgroundColor.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3068
	].
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3069
	bg isNil ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3070
	    ^ Color gray
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3071
	].
13652
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3072
    ].
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3073
16698
6cc3755c970a class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16695
diff changeset
  3074
    (Color gray brightness - (bg brightness)) abs < 0.3 ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3075
	(bg brightness) > 0.7 ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3076
	    ^ Color gray:20.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3077
	].
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3078
	^ Color gray:80.
13652
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3079
    ].
16698
6cc3755c970a class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16695
diff changeset
  3080
    ^ Color gray
13652
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3081
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3082
    "Created: / 07-09-2011 / 09:51:12 / cg"
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3083
!
af8438e37bd6 added: #colorForPseudoProtocolsInMethodListInBrowser
Claus Gittinger <cg@exept.de>
parents: 13597
diff changeset
  3084
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3085
emphasisForChangedCode
10177
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3086
    "the emphasis for changed code (in changeSet) in the browser"
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3087
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3088
    |emp|
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3089
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3090
    emp := self at:#emphasisForChangedCode ifAbsent:nil.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3091
    emp isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3092
	emp := #color->Color red darkened.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3093
	emp := Array with:#bold with:emp.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3094
	"/ emp := #color->Color blue darkened.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3095
	self at:#emphasisForChangedCode put:emp.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3096
    ].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3097
    ^ emp
9276
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3098
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3099
    "
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3100
     self allInstancesDo:[:pref |pref at:#emphasisForChangedCode put:nil].
9807
da320936bf87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9742
diff changeset
  3101
     UserPreferences current emphasisForChangedCode.
da320936bf87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9742
diff changeset
  3102
     UserPreferences current at:#emphasisForChangedCode put:nil.
9276
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3103
    "
9807
da320936bf87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9742
diff changeset
  3104
10177
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3105
    "Modified: / 10-11-2006 / 17:27:23 / cg"
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3106
!
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3107
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3108
emphasisForChangedCodeInSmallTeam
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3109
    "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
  3110
     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
  3111
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3112
    |emp|
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3113
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3114
    emp := self at:#emphasisForChangedCodeInSmallTeam ifAbsent:nil.
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3115
    emp isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3116
	emp := #color->Color yellow darkened.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3117
	emp := Array with:#bold with:emp.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3118
	self at:#emphasisForChangedCodeInSmallTeam put:emp.
10177
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3119
    ].
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3120
    ^ emp
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3121
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3122
    "
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3123
     self allInstancesDo:[:pref |pref at:#emphasisForChangedCodeInSmallTeam put:nil].
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3124
     UserPreferences current emphasisForChangedCodeInSmallTeam.
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3125
     UserPreferences current at:#emphasisForChangedCodeInSmallTeam put:nil.
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3126
    "
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3127
01b7ae1bb878 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10165
diff changeset
  3128
    "Created: / 10-11-2006 / 16:31:00 / cg"
6832
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3129
!
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3130
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3131
emphasisForDifferentPackage
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3132
    |emp|
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3133
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3134
    emp := self at:#emphasisForDifferentPackage ifAbsent:nil.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3135
    emp isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3136
	emp := #color->Color green darkened.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3137
	"/ emp := Array with:#bold with:emp.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3138
	self at:#emphasisForDifferentPackage put:emp.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3139
    ].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3140
    ^ emp
9276
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3141
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3142
    "
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3143
     self allInstancesDo:[:pref |pref at:#emphasisForDifferentPackage put:nil].
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3144
    "
6832
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3145
!
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3146
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3147
emphasisForInstrumentedFullyCoveredCode
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3148
    "the emphasis for code in the browser which is instrumented and where all branches have been
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3149
     executed"
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3150
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3151
    |emp|
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3152
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3153
    emp := self at:#emphasisForInstrumentedFullyCoveredCode ifAbsent:nil.
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3154
    emp isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3155
	emp := #color->Color green slightlyDarkened.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3156
	emp := Array with:#bold with:emp.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3157
	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3158
	self at:#emphasisForInstrumentedFullyCoveredCode put:emp.
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3159
    ].
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3160
    ^ emp
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3161
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3162
    "
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3163
     UserPreferences current
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3164
	at:#emphasisForInstrumentedFullyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3165
	put:(Array with:#bold with:(#color->Color green slightlyDarkened)).
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3166
    "
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3167
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3168
    "Created: / 27-04-2010 / 13:01:01 / cg"
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3169
    "Modified: / 27-04-2010 / 14:48:11 / cg"
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3170
!
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3171
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3172
emphasisForInstrumentedNeverCalledCode
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3173
    "the emphasis for code in the browser which is instrumented but has never been called"
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3174
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3175
    |emp|
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3176
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3177
    emp := self at:#emphasisForInstrumentedNeverCalledCode ifAbsent:nil.
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3178
    emp isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3179
	emp := #color->Color red slightlyDarkened.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3180
	emp := Array with:#bold with:emp.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3181
	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3182
	self at:#emphasisForInstrumentedNeverCalledCode put:emp.
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3183
    ].
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3184
    ^ emp
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3185
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3186
    "
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3187
     UserPreferences current
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3188
	at:#emphasisForInstrumentedNeverCalledCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3189
	put:(Array with:#bold with:(#color->Color red slightlyDarkened)).
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3190
    "
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3191
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3192
    "Created: / 27-04-2010 / 12:59:47 / cg"
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3193
    "Modified: / 27-04-2010 / 14:48:39 / cg"
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3194
!
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3195
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3196
emphasisForInstrumentedPartiallyCoveredCode
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3197
    "the emphasis for code in the browser which is instrumented and where some branches have been
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3198
     executed"
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3199
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3200
    |emp|
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3201
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3202
    emp := self at:#emphasisForInstrumentedPartiallyCoveredCode ifAbsent:nil.
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3203
    emp isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3204
	emp := #color->Color orange.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3205
	emp := Array with:#bold with:emp.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3206
	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3207
	self at:#emphasisForInstrumentedPartiallyCoveredCode put:emp.
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3208
    ].
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3209
    ^ emp
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3210
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3211
    "
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3212
     UserPreferences current
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3213
	at:#emphasisForInstrumentedPartiallyCoveredCode
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3214
	put:(Array with:#bold with:(#color->Color orange slightlyLightened)).
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3215
    "
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3216
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3217
    "Created: / 27-04-2010 / 13:01:20 / cg"
12902
a7d0611e313a comment/format in: #emphasisForInstrumentedPartiallyCoveredCode
Claus Gittinger <cg@exept.de>
parents: 12901
diff changeset
  3218
    "Modified: / 27-04-2010 / 18:50:43 / cg"
12901
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3219
!
Claus Gittinger <cg@exept.de>
parents: 12793
diff changeset
  3220
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3221
emphasisForModifiedBuffer
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3222
    |emp|
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3223
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3224
    emp := self at:#emphasisForModifiedBuffer ifAbsent:nil.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3225
    emp isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3226
	emp := #color->Color red darkened.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3227
	emp := Array with:#bold with:emp.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3228
	self at:#emphasisForModifiedBuffer put:emp.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3229
    ].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3230
    ^ emp
9276
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3231
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3232
    "
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3233
     self allInstancesDo:[:pref |pref at:#emphasisForModifiedBuffer put:nil].
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3234
    "
6832
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3235
!
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3236
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3237
emphasisForNamespacedCode
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3238
    "the emphasis for changed code (in changeSet) in the browser"
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3239
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3240
    |emp|
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3241
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3242
    emp := self at:#emphasisForNamespacedCode ifAbsent:nil.
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3243
    emp isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3244
	emp := #color->Color green darkened.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3245
	"/ emp := Array with:#bold with:emp.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3246
	"/ emp := #color->Color blue darkened.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  3247
	self at:#emphasisForNamespacedCode put:emp.
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3248
    ].
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3249
    ^ emp
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3250
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3251
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  3252
     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
  3253
     UserPreferences current emphasisForNamespacedCode.
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3254
     UserPreferences current at:#emphasisForNamespacedCode put:nil.
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3255
    "
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3256
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3257
    "Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3258
!
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  3259
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3260
emphasisForObsoleteCode
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3261
    |emp|
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3262
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3263
    emp := self at:#emphasisForObsoleteCode ifAbsent:nil.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3264
    emp isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3265
	emp := #color->Color red.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3266
	emp := Array with:#bold with:emp.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3267
	self at:#emphasisForObsoleteCode put:emp.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3268
    ].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3269
    ^ emp
9276
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3270
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3271
    "
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3272
     self allInstancesDo:[:pref |pref at:#emphasisForObsoleteCode put:nil].
120c3f8fc50b changed code: boldify by default
Claus Gittinger <cg@exept.de>
parents: 9184
diff changeset
  3273
    "
6832
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3274
!
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3275
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3276
emphasisForReadVariable
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3277
    |emp|
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3278
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3279
    emp := self at:#emphasisForReadVariable ifAbsent:nil.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3280
    emp isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3281
	emp := #underline.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3282
	self at:#emphasisForReadVariable put:emp.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3283
    ].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3284
    ^ emp
6832
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3285
!
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3286
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3287
emphasisForWrittenVariable
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3288
    |emp|
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3289
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3290
    emp := self at:#emphasisForWrittenVariable ifAbsent:nil.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3291
    emp isNil ifTrue:[
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3292
	emp := Array with:#underline with:#underlineColor->Color red.
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3293
	self at:#emphasisForWrittenVariable put:emp.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3294
    ].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3295
    ^ emp
6832
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3296
! !
4169c2542062 add the FileBrowserV2 settings
penk
parents: 6818
diff changeset
  3297
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  3298
!UserPreferences methodsFor:'accessing-prefs-browser-syntaxColoring'!
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3299
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3300
argumentIdentifierColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3301
    "the color used for argument identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3302
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3303
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3304
    ^ self at:#argumentIdentifierColor ifAbsent:[self identifierColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3305
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3306
    "Created: / 31.3.1998 / 15:08:20 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3307
    "Modified: / 1.4.1998 / 13:19:58 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3308
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3309
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3310
argumentIdentifierEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3311
    "the emphasis used for argument identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3312
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3313
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3314
    ^ self at:#argumentIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3315
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3316
    "Created: / 31.3.1998 / 15:16:40 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3317
    "Modified: / 1.4.1998 / 13:19:55 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3318
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3319
4326
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3320
badIdentifierColor
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3321
    "the color used for illegal identifiers;
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3322
     If syntaxColoring is turned on."
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3323
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3324
    ^ self at:#badIdentifierColor ifAbsent:[self identifierColor]
4326
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3325
!
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3326
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3327
badIdentifierEmphasis
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3328
    "the emphasis used for illegal identifiers;
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3329
     If syntaxColoring is turned on."
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3330
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3331
    ^ self at:#badIdentifierEmphasis ifAbsent:[UserPreferences default at:#badIdentifierEmphasis ifAbsent:#normal]
13347
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3332
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3333
    "Modified: / 21-04-2011 / 12:34:50 / cg"
4326
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3334
!
9b1d4f1bf719 inserted badIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 4320
diff changeset
  3335
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3336
booleanConstantColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3337
    "the color used for boolean constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3338
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3339
16589
89edf4b377f9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16587
diff changeset
  3340
    ^ self at:#booleanConstantColor ifAbsent:[self constantColor]
3360
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
    "Created: / 31.3.1998 / 18:12:06 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3343
    "Modified: / 1.4.1998 / 13:20:07 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3344
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3345
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3346
booleanConstantEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3347
    "the emphasis used for boolean constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3348
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3349
16589
89edf4b377f9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16587
diff changeset
  3350
    ^ self at:#booleanConstantEmphasis ifAbsent:[self constantEmphasis]
3360
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
    "Created: / 31.3.1998 / 18:12:46 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3353
    "Modified: / 1.4.1998 / 13:26:01 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3354
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3355
3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3356
bracketColor
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3357
    "the color used for brackets;
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3358
     If syntaxColoring is turned on."
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3359
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3360
    ^ self at:#bracketColor ifAbsent:[self defaultSyntaxColor]
3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3362
    "
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3363
     self current at:#bracketColor  put:Color red.
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3364
     self current at:#bracketEmphasis  put:#bold
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3365
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3366
     self current bracketColor
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3367
     self current bracketEmphasis
3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3368
    "
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3369
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3370
    "Created: / 31.3.1998 / 19:11:38 / cg"
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3371
    "Modified: / 1.4.1998 / 13:22:33 / cg"
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3372
!
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3373
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3374
bracketEmphasis
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3375
    "the emphasis used for brackets;
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3376
     If syntaxColoring is turned on."
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3377
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3378
    ^ self at:#bracketEmphasis ifAbsent:[self defaultSyntaxEmphasis]
3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3379
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3380
    "
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3381
     self current at:#bracketEmphasis  put:#bold
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3382
     self current bracketEmphasis
3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3383
    "
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3384
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3385
    "Created: / 31.3.1998 / 19:11:38 / cg"
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3386
    "Modified: / 1.4.1998 / 13:22:33 / cg"
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3387
!
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3388
4320
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3389
classVariableIdentifierColor
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3390
    "the color used for classVar/classInstVar identifiers
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3391
     If syntaxColoring is turned on."
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3392
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3393
    ^ self at:#classVariableIdentifierColor ifAbsent:[self globalIdentifierColor]
4320
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3394
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3395
    "Modified: / 1.4.1998 / 13:20:47 / cg"
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3396
    "Created: / 4.3.1999 / 12:50:31 / cg"
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3397
!
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3398
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3399
classVariableIdentifierEmphasis
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3400
    "the color used for classVar/classInstVar identifiers
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3401
     If syntaxColoring is turned on."
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3402
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3403
    ^ self at:#classVariableIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
4320
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3404
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3405
    "Modified: / 1.4.1998 / 13:20:47 / cg"
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3406
    "Created: / 4.3.1999 / 12:50:31 / cg"
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3407
!
9d6e4f645e97 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4319
diff changeset
  3408
14012
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3409
collectionEnumerationSelectorColor
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3410
    "the color used for some selected collection enumeration
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3411
     selectors (such as collect:, select: etc.);
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3412
     If syntaxColoring is turned on.
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3413
     If left nil, the normal selector color is used."
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3414
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3415
    ^ self at:#collectionEnumerationSelectorColor ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3416
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3417
    "Created: / 14-02-2012 / 15:52:39 / cg"
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3418
!
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3419
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3420
collectionEnumerationSelectorEmphasis
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3421
    "the color used for some selected collection enumeration
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3422
     selectors (such as collect:, select: etc.);
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3423
     If syntaxColoring is turned on.
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3424
     If left nil, the normal selector emphasis is used."
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3425
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3426
    ^ self at:#collectionEnumerationSelectorEmphasis ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3427
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3428
    "Created: / 14-02-2012 / 15:58:58 / cg"
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3429
!
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3430
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3431
commentColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3432
    "the color used for comments;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3433
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3434
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3435
    ^ self at:#commentColor ifAbsent:[UserPreferences default at:#commentColor ifAbsent:[Color black]]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3436
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3437
    "Created: / 31-03-1998 / 15:10:23 / cg"
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3438
    "Modified: / 21-04-2011 / 12:33:39 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3439
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3440
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3441
commentEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3442
    "the emphasis used for comments;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3443
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3444
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3445
    ^ self at:#commentEmphasis ifAbsent:[UserPreferences default at:#commentEmphasis ifAbsent:#normal]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3446
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3447
    "Created: / 31-03-1998 / 15:09:59 / cg"
13347
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3448
    "Modified: / 21-04-2011 / 12:34:48 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3449
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3450
5258
3490a1891a53 query added
Claus Gittinger <cg@exept.de>
parents: 5236
diff changeset
  3451
commentEmphasisAndColor
13307
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3452
    ^ self emphasis:(self commentEmphasis) andColor:(self commentColor).
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3453
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3454
    "Modified: / 17-02-2011 / 14:20:41 / cg"
5258
3490a1891a53 query added
Claus Gittinger <cg@exept.de>
parents: 5236
diff changeset
  3455
!
3490a1891a53 query added
Claus Gittinger <cg@exept.de>
parents: 5236
diff changeset
  3456
15925
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3457
commentFont
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3458
    "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
  3459
     If syntaxColoring is turned on."
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3460
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3461
    ^ self at:#commentFont ifAbsent:nil
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3462
!
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3463
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3464
commentFont:aFont
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3465
    "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
  3466
     If syntaxColoring is turned on."
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3467
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3468
    self at:#commentFont put:aFont
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3469
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3470
    "
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3471
     UserPreferences current commentFont:(XftFontDescription family: 'Comic Sans' size: 12)
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3472
     UserPreferences current commentFont
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3473
    "
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3474
!
80810829f468 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15917
diff changeset
  3475
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3476
constantColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3477
    "the color used for constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3478
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3479
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3480
    ^ self at:#constantColor ifAbsent:[UserPreferences default at:#constantColor ifAbsent:[Color black]]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3481
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3482
    "Created: / 31-03-1998 / 18:13:15 / cg"
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3483
    "Modified: / 21-04-2011 / 12:33:36 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3484
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3485
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3486
constantEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3487
    "the emphasis used for constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3488
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3489
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3490
    ^ self at:#constantEmphasis ifAbsent:[self identifierEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3491
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3492
    "Created: / 31.3.1998 / 18:13:23 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3493
    "Modified: / 1.4.1998 / 13:25:43 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3494
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3495
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3496
controlFlowSelectorColor
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3497
    "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
  3498
     If syntaxColoring is turned on."
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3499
14012
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3500
    ^ self at:#controlFlowSelectorColor ifAbsent:nil
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3501
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3502
    "Created: / 08-09-2006 / 15:51:20 / cg"
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3503
!
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3504
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3505
controlFlowSelectorEmphasis
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3506
    "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
  3507
     If syntaxColoring is turned on."
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3508
14012
Claus Gittinger <cg@exept.de>
parents: 14007
diff changeset
  3509
    ^ self at:#controlFlowSelectorEmphasis ifAbsent:nil
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3510
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3511
    "Created: / 08-09-2006 / 15:51:04 / cg"
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3512
!
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  3513
15545
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3514
debugSelectorColor
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3515
    "the color used for some selected debug
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3516
     selectors (such as halt etc.);
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3517
     If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3518
     If left nil, the normal selector color is used."
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3519
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3520
    ^ self at:#debugSelectorColor ifAbsent:nil
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3521
!
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3522
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3523
debugSelectorEmphasis
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3524
    "the color used for some selected debug
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3525
     selectors (such as halt etc.);
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3526
     If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3527
     If left nil, the normal selector emphasis is used."
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3528
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3529
    ^ self at:#debugSelectorEmphasis ifAbsent:nil
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3530
!
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3531
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3532
defaultSyntaxColor
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3533
    "the color used for anything else;
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3534
     If syntaxColoring is turned on."
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3535
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3536
    ^ self at:#defaultSyntaxColor ifAbsent:[UserPreferences default at:#defaultSyntaxColor ifAbsent:[Color black]]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3537
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3538
    "Modified: / 21-04-2011 / 12:31:48 / cg"
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3539
!
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3540
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3541
defaultSyntaxEmphasis
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3542
    "the emphasis used for anything else;
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3543
     If syntaxColoring is turned on."
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3544
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  3545
    ^ self
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3546
        at:#defaultSyntaxEmphasis
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3547
        ifAbsent:[UserPreferences default at:#defaultSyntaxEmphasis ifAbsent:#normal]
13347
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3548
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3549
    "Modified: / 21-04-2011 / 12:34:46 / cg"
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3550
!
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3551
13307
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3552
emphasis:e andColor:c
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3553
    ^ Text addEmphasis:e to:(#color->c).
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3554
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3555
    "Created: / 17-02-2011 / 14:20:25 / cg"
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3556
!
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  3557
8965
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3558
emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3559
    ^ self at:#emphasizeParenthesisLevel ifAbsent:true
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3560
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3561
    "
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3562
     UserPreferences current emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3563
     UserPreferences current emphasizeParenthesisLevel:true
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3564
     UserPreferences current emphasizeParenthesisLevel:false
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3565
    "
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3566
!
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3567
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3568
emphasizeParenthesisLevel:aBoolean
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3569
    self at:#emphasizeParenthesisLevel put:aBoolean
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3570
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3571
    "
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3572
     UserPreferences current emphasizeParenthesisLevel
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3573
     UserPreferences current emphasizeParenthesisLevel:true
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3574
     UserPreferences current emphasizeParenthesisLevel:false
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3575
    "
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3576
!
b3cebce55744 emphasize parenthesis nesting
Claus Gittinger <cg@exept.de>
parents: 8869
diff changeset
  3577
4341
eb862eba0a0b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4336
diff changeset
  3578
errorColor
eb862eba0a0b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4336
diff changeset
  3579
    "the color used for illegal identifiers;
eb862eba0a0b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4336
diff changeset
  3580
     If syntaxColoring is turned on."
eb862eba0a0b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4336
diff changeset
  3581
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3582
    ^ self at:#errorColor ifAbsent:[UserPreferences default at:#errorColor ifAbsent:[Color black]]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3583
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3584
    "Modified: / 21-04-2011 / 12:33:33 / cg"
4341
eb862eba0a0b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4336
diff changeset
  3585
!
eb862eba0a0b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4336
diff changeset
  3586
15545
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3587
errorRaisingSelectorColor
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3588
    "the color used for some selected error raising
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3589
     selectors (such as raise etc.);
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3590
     If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3591
     If left nil, the normal selector color is used."
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3592
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3593
    ^ self at:#errorRaisingSelectorColor ifAbsent:nil
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3594
!
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3595
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3596
errorRaisingSelectorEmphasis
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3597
    "the color used for some selected error raising
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3598
     selectors (such as raise etc.);
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3599
     If syntaxColoring is turned on.
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3600
     If left nil, the normal selector emphasis is used."
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3601
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3602
    ^ self at:#errorRaisingSelectorEmphasis ifAbsent:nil
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3603
!
afc9b6289701 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15427
diff changeset
  3604
4306
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3605
fullSelectorCheck
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3606
    "with fullSelector check, selectors are searched immediately for
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3607
     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
  3608
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3609
    ^ self at:#fullSelectorCheck ifAbsent:[UserPreferences default at:#fullSelectorCheck]
4306
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3610
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3611
    "Created: / 31.3.1998 / 15:09:41 / cg"
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3612
    "Modified: / 1.4.1998 / 13:25:06 / cg"
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3613
!
a4720d8dd3b7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4121
diff changeset
  3614
4023
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3615
globalClassIdentifierColor
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3616
    "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
  3617
     If syntaxColoring is turned on."
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3618
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3619
    ^ self at:#globalClassIdentifierColor ifAbsent:[self globalIdentifierColor]
4023
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3620
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3621
    "Modified: / 1.4.1998 / 13:20:47 / cg"
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3622
    "Created: / 4.3.1999 / 12:50:31 / cg"
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3623
!
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3624
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3625
globalClassIdentifierEmphasis
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3626
    "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
  3627
     If syntaxColoring is turned on."
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3628
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3629
    ^ self at:#globalClassIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
4023
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3630
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3631
    "Modified: / 1.4.1998 / 13:25:31 / cg"
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3632
    "Created: / 4.3.1999 / 12:51:00 / cg"
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3633
!
46805a0a73b3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3883
diff changeset
  3634
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3635
globalIdentifierColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3636
    "the color used for global identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3637
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3638
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3639
    ^ self at:#globalIdentifierColor ifAbsent:[self identifierColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3640
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3641
    "Created: / 31.3.1998 / 15:18:49 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3642
    "Modified: / 1.4.1998 / 13:20:47 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3643
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3644
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3645
globalIdentifierEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3646
    "the emphasis used for global variable identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3647
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3648
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3649
    ^ self at:#globalIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3650
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3651
    "Created: / 31.3.1998 / 15:18:29 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3652
    "Modified: / 1.4.1998 / 13:25:31 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3653
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3654
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3655
hereColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3656
    "the color used for the here pseudoVariable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3657
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3658
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3659
    ^ self at:#hereColor ifAbsent:[self selfColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3660
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3661
    "Created: / 31.3.1998 / 17:38:09 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3662
    "Modified: / 1.4.1998 / 13:20:57 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3663
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3664
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3665
hereEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3666
    "the emphasis used for the hre special variable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3667
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3668
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3669
    ^ self at:#hereEmphasis ifAbsent:[self selfEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3670
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3671
    "Created: / 31.3.1998 / 17:35:13 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3672
    "Modified: / 1.4.1998 / 13:25:17 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3673
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3674
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3675
identifierColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3676
    "the color used for other 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
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3679
    ^ self at:#identifierColor ifAbsent:[self defaultSyntaxColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3680
3362
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3681
    "
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3682
     UserPreferences current at:#identifierColor put:Color green darkened darkened.
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3683
     UserPreferences current at:#identifierColor put:Color black.
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3684
    "
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3685
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3686
    "Created: / 31.3.1998 / 17:35:55 / cg"
3362
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3687
    "Modified: / 2.4.1998 / 10:39:42 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3688
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3689
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3690
identifierEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3691
    "the emphasis used for other identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3692
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3693
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3694
    ^ self at:#identifierEmphasis ifAbsent:[self defaultSyntaxEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3695
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3696
    "Created: / 31.3.1998 / 15:09:41 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3697
    "Modified: / 1.4.1998 / 13:25:06 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3698
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3699
3378
92288628a6bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3377
diff changeset
  3700
instVarIdentifierColor
3377
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3701
    "the color used for instance variable identifiers;
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3702
     If syntaxColoring is turned on."
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3703
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3704
    ^ self at:#instVarIdentifierColor ifAbsent:[self identifierColor]
3377
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3705
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3706
    "
3378
92288628a6bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3377
diff changeset
  3707
     UserPreferences current at:#instVarIdentifierColor put:Color green darkened.
92288628a6bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3377
diff changeset
  3708
     UserPreferences current at:#instVarIdentifierColor put:Color black.
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  3709
     UserPreferences current instVarIdentifierColor
3377
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3710
    "
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3711
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3712
    "Created: / 16.4.1998 / 18:31:29 / cg"
3378
92288628a6bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3377
diff changeset
  3713
    "Modified: / 16.4.1998 / 18:57:06 / cg"
3377
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3714
!
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3715
3378
92288628a6bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3377
diff changeset
  3716
instVarIdentifierEmphasis
3377
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3717
    "the emphais used for instance variable identifiers;
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3718
     If syntaxColoring is turned on."
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3719
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3720
    ^ self at:#instVarIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3377
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3721
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3722
    "Modified: / 1.4.1998 / 13:24:42 / cg"
3378
92288628a6bf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3377
diff changeset
  3723
    "Created: / 16.4.1998 / 18:40:05 / cg"
3377
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3724
!
9d7c8b2ef58e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3364
diff changeset
  3725
8420
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
  3726
jsKeywordColor
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3727
    ^ self at:#jsKeywordColor ifAbsent:[self defaultSyntaxColor]
8420
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
  3728
!
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
  3729
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
  3730
jsKeywordEmphasis
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3731
    ^ self at:#jsKeywordEmphasis ifAbsent:[self defaultSyntaxEmphasis]
8420
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
  3732
!
08756fae71a0 prefs for js
ca
parents: 8252
diff changeset
  3733
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3734
localIdentifierColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3735
    "the color used for local variable identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3736
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3737
9144
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3738
    ^ self at:#localIdentifierColor ifAbsent:[self identifierColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3739
3362
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3740
    "
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3741
     UserPreferences current at:#localIdentifierColor put:Color green darkened.
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3742
     UserPreferences current at:#localIdentifierColor put:Color black.
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3743
    "
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3744
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3745
    "Created: / 31.3.1998 / 15:18:07 / cg"
3362
6855944431e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3361
diff changeset
  3746
    "Modified: / 2.4.1998 / 10:40:05 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3747
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3748
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3749
localIdentifierEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3750
    "the emphais used for local variable identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3751
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3752
9144
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3753
    ^ self at:#localIdentifierEmphasis ifAbsent:[self identifierEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3754
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3755
    "Created: / 31.3.1998 / 15:16:56 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3756
    "Modified: / 1.4.1998 / 13:24:42 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3757
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3758
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3759
methodSelectorColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3760
    "the color used for a methods selector pattern;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3761
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3762
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3763
    ^ self at:#methodSelectorColor ifAbsent:[self defaultSyntaxColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3764
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3765
    "Created: / 31.3.1998 / 15:11:24 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3766
    "Modified: / 1.4.1998 / 13:24:26 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3767
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3768
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3769
methodSelectorEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3770
    "the emphasis used for a methods selector pattern;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3771
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3772
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3773
    ^ self at:#methodSelectorEmphasis ifAbsent:[UserPreferences default at:#methodSelectorEmphasis ifAbsent:#normal]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3774
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3775
    "Created: / 31-03-1998 / 15:11:16 / cg"
13347
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3776
    "Modified: / 21-04-2011 / 12:34:42 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3777
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3778
9144
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3779
numberConstantColor
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3780
    "the color used for number constants;
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3781
     If syntaxColoring is turned on."
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3782
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3783
    ^ self at:#numberConstantColor ifAbsent:[ self constantColor ]
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3784
!
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3785
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3786
numberConstantEmphasis
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3787
    "the emphasis used for number constants;
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3788
     If syntaxColoring is turned on."
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3789
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3790
    ^ self at:#numberConstantEmphasis ifAbsent:[ self constantEmphasis ]
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3791
!
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  3792
8551
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3793
poolVariableIdentifierColor
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3794
    "the color used for pool variable identifiers
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3795
     If syntaxColoring is turned on."
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3796
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3797
    ^ self at:#poolVariableIdentifierColor ifAbsent:[self globalIdentifierColor]
8551
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3798
!
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3799
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3800
poolVariableIdentifierEmphasis
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3801
    "the color used for pool variable identifiers
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3802
     If syntaxColoring is turned on."
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3803
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3804
    ^ self at:#poolVariableIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
8551
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3805
!
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  3806
4076
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3807
returnColor
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3808
    "the color used for the return expression;
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3809
     If syntaxColoring is turned on."
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3810
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3811
    ^ self at:#returnColor ifAbsent:[self defaultSyntaxColor]
4076
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3812
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3813
    "Modified: / 5.1.1980 / 00:43:52 / cg"
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3814
!
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3815
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3816
returnEmphasis
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3817
    "the emphasis used for returns;
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3818
     If syntaxColoring is turned on."
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3819
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3820
    ^ self at:#returnEmphasis ifAbsent:[#bold "self defaultSyntaxEmphasis"]
4076
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3821
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3822
    "Created: / 5.1.1980 / 00:43:39 / cg"
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3823
!
96cb7146bc59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4075
diff changeset
  3824
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3825
selectorColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3826
    "the color used for message selectors;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3827
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3828
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3829
    ^ self at:#selectorColor ifAbsent:[self defaultSyntaxColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3830
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3831
    "Created: / 31.3.1998 / 15:19:19 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3832
    "Modified: / 1.4.1998 / 13:24:04 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3833
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3834
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3835
selectorEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3836
    "the emphasis used for message selectors;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3837
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3838
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3839
    ^ self at:#selectorEmphasis ifAbsent:[UserPreferences default at:#selectorEmphasis ifAbsent:#normal]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3840
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3841
    "Created: / 31-03-1998 / 15:19:09 / cg"
13347
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3842
    "Modified: / 21-04-2011 / 12:34:39 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3843
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3844
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3845
selfColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3846
    "the color used for the self pseudoVariable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3847
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3848
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3849
    ^ self at:#selfColor ifAbsent:[self identifierColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3850
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3851
    "Created: / 31.3.1998 / 17:35:45 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3852
    "Modified: / 1.4.1998 / 13:21:07 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3853
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3854
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3855
selfEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3856
    "the emphasis used for the self pseudoVariable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3857
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3858
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3859
    ^ self at:#selfEmphasis ifAbsent:[self identifierEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3860
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3861
    "Created: / 31.3.1998 / 17:34:57 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3862
    "Modified: / 1.4.1998 / 13:21:51 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3863
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3864
14004
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3865
sideEffectAssignmentBackgroundColor
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3866
    "the bg-color used for assignments with side effect (i.e. to instvars, globals, classvars or pool vars).
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3867
     If nil is returned, the variable's color is used"
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3868
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3869
    ^ self at:#sideEffectAssignmentBackgroundColor ifAbsent:[ nil ]
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3870
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3871
    "Created: / 13-02-2012 / 11:35:20 / cg"
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3872
!
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3873
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3874
sideEffectAssignmentColor
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3875
    "the color used for assignments with side effect (i.e. to instvars, globals, classvars or pool vars).
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3876
     If nil is returned, the variable's color is used"
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3877
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3878
    ^ self at:#sideEffectAssignmentColor ifAbsent:[ nil ]
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3879
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3880
    "Created: / 13-02-2012 / 11:35:09 / cg"
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3881
!
Claus Gittinger <cg@exept.de>
parents: 13973
diff changeset
  3882
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3883
stringColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3884
    "the color used for string constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3885
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3886
16589
89edf4b377f9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16587
diff changeset
  3887
    ^ self at:#stringColor ifAbsent:[self constantColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3888
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3889
    "Created: / 31.3.1998 / 15:19:50 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3890
    "Modified: / 1.4.1998 / 13:22:06 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3891
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3892
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3893
stringEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3894
    "the emphasis used for string constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3895
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3896
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3897
    ^ self at:#stringEmphasis ifAbsent:[self constantEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3898
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3899
    "Created: / 31.3.1998 / 15:19:09 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3900
    "Modified: / 1.4.1998 / 13:22:00 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3901
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3902
13308
d49548a99889 added: #stringEmphasisAndColor
Claus Gittinger <cg@exept.de>
parents: 13307
diff changeset
  3903
stringEmphasisAndColor
d49548a99889 added: #stringEmphasisAndColor
Claus Gittinger <cg@exept.de>
parents: 13307
diff changeset
  3904
    ^ self emphasis:(self stringEmphasis) andColor:(self stringColor).
d49548a99889 added: #stringEmphasisAndColor
Claus Gittinger <cg@exept.de>
parents: 13307
diff changeset
  3905
d49548a99889 added: #stringEmphasisAndColor
Claus Gittinger <cg@exept.de>
parents: 13307
diff changeset
  3906
    "Created: / 17-02-2011 / 14:29:10 / cg"
d49548a99889 added: #stringEmphasisAndColor
Claus Gittinger <cg@exept.de>
parents: 13307
diff changeset
  3907
!
d49548a99889 added: #stringEmphasisAndColor
Claus Gittinger <cg@exept.de>
parents: 13307
diff changeset
  3908
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3909
superColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3910
    "the color used for the super pseudoVariable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3911
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3912
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3913
    ^ self at:#superColor ifAbsent:[self selfColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3914
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3915
    "Created: / 31.3.1998 / 17:37:56 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3916
    "Modified: / 1.4.1998 / 13:21:15 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3917
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3918
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3919
superEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3920
    "the emphasis used for the super pseudoVariable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3921
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3922
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3923
    ^ self at:#superEmphasis ifAbsent:[self selfEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3924
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3925
    "Created: / 31.3.1998 / 17:35:08 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3926
    "Modified: / 1.4.1998 / 13:21:41 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3927
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3928
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3929
symbolColor
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3930
    "the color used for symbol constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3931
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3932
16589
89edf4b377f9 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16587
diff changeset
  3933
    ^ self at:#symbolColor ifAbsent:[self constantColor]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3934
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3935
    "Created: / 1.4.1998 / 12:57:35 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3936
    "Modified: / 1.4.1998 / 13:22:16 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3937
!
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3938
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3939
symbolEmphasis
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3940
    "the emphasis used for symbol constants;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3941
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3942
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3943
    ^ self at:#symbolEmphasis ifAbsent:[self constantEmphasis]
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3944
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3945
    "Created: / 1.4.1998 / 12:57:43 / cg"
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3946
    "Modified: / 1.4.1998 / 13:23:43 / cg"
3352
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3947
!
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3948
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3949
thisContextColor
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3950
    "the color used for the thisContext pseudoVariable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3951
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3952
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3953
    ^ self at:#thisContextColor ifAbsent:[self identifierColor]
3352
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3954
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3955
    "Created: / 31.3.1998 / 17:37:49 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3956
    "Modified: / 1.4.1998 / 13:21:24 / cg"
3352
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3957
!
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3958
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3959
thisContextEmphasis
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3960
    "the emphasis used for the thisContext pseudoVariable;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3961
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3962
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3963
    ^ self at:#thisContextEmphasis ifAbsent:[self identifierEmphasis]
3352
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3964
ebf6c330ff71 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3351
diff changeset
  3965
    "Created: / 31.3.1998 / 17:35:27 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3966
    "Modified: / 1.4.1998 / 13:21:30 / cg"
3354
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  3967
!
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  3968
4316
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3969
unimplementedSelectorColor
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3970
    "the color used for bad message selectors;
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3971
     If syntaxColoring is turned on."
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3972
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3973
    ^ self at:#unimplementedSelectorColor ifAbsent:[UserPreferences default at:#unimplementedSelectorColor ifAbsent:[Color black]]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3974
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3975
    "Modified: / 21-04-2011 / 12:33:29 / cg"
4316
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3976
!
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3977
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3978
unimplementedSelectorEmphasis
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3979
    "the emphasis used for bad message selectors;
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3980
     If syntaxColoring is turned on."
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3981
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3982
    ^ self at:#unimplementedSelectorEmphasis ifAbsent:[UserPreferences default at:#unimplementedSelectorEmphasis ifAbsent:#normal]
13346
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3983
9f020c62dbfe changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 13340
diff changeset
  3984
    "Created: / 31-03-1998 / 15:19:09 / cg"
13347
b3245e290ed0 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 13346
diff changeset
  3985
    "Modified: / 21-04-2011 / 12:34:36 / cg"
4316
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3986
!
c3934d0d1e3e added unimplementedSelector emphasis&colors
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
  3987
3354
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  3988
unknownIdentifierColor
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3989
    "the color used for unknown identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3990
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  3991
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  3992
    ^ self at:#unknownIdentifierColor ifAbsent:[self badIdentifierColor]
3354
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  3993
3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3994
    "
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3995
     self current at:#unknownIdentifierColor  put:Color red.
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  3996
     self current at:#unknownIdentifierEmphasis  put:#bold
4317
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3997
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3998
     self current unknownIdentifierColor
aba88adaf752 concentrated defaults into #initialize method.
Claus Gittinger <cg@exept.de>
parents: 4316
diff changeset
  3999
     self current unknownIdentifierEmphasis
3361
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  4000
    "
daabd9bf9c3b checkin from browser
ca
parents: 3360
diff changeset
  4001
3354
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  4002
    "Created: / 31.3.1998 / 19:11:38 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  4003
    "Modified: / 1.4.1998 / 13:22:33 / cg"
3354
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  4004
!
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  4005
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  4006
unknownIdentifierEmphasis
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  4007
    "the emphasis used for unknown identifiers;
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  4008
     If syntaxColoring is turned on."
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  4009
19255
0796978111de #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 19087
diff changeset
  4010
    ^ self at:#unknownIdentifierEmphasis ifAbsent:[self badIdentifierEmphasis]
3354
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  4011
9336b571ee90 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3353
diff changeset
  4012
    "Created: / 31.3.1998 / 19:11:55 / cg"
3360
3ca08e2afd68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3359
diff changeset
  4013
    "Modified: / 1.4.1998 / 13:22:45 / cg"
13307
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4014
!
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4015
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4016
xmlAttributeColor
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4017
    "the emphasis used for xml-attributes;
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4018
     If syntaxColoring is turned on."
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4019
18804
f8c6e2e7ba78 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18690
diff changeset
  4020
    ^ self at:#xmlAttributeColor ifAbsent:[ Color green darkened ]
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4021
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4022
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4023
     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
  4024
     self current xmlAttributeColor
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4025
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4026
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4027
    "Created: / 24-07-2011 / 21:30:59 / cg"
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4028
!
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4029
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4030
xmlAttributeEmphasis
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4031
    "the emphasis used for xml-attributes;
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4032
     If syntaxColoring is turned on."
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4033
18804
f8c6e2e7ba78 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18690
diff changeset
  4034
    ^ self at:#xmlAttributeEmphasis ifAbsent:[ #bold "#normal" ]
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4035
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4036
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4037
     self current at:#xmlAttributeEmphasis put:#normal
18804
f8c6e2e7ba78 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18690
diff changeset
  4038
     self current at:#xmlAttributeEmphasis put:#bold
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4039
     self current xmlAttributeEmphasis
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4040
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4041
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4042
    "Created: / 24-07-2011 / 21:30:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4043
!
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4044
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4045
xmlCDataColor
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4046
    "the emphasis used for xml-CData;
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4047
     If syntaxColoring is turned on."
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4048
18804
f8c6e2e7ba78 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18690
diff changeset
  4049
    ^ self at:#xmlCDataColor ifAbsent:[ Color blue ]
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4050
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4051
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4052
     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
  4053
     self current xmlCDataColor
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4054
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4055
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4056
    "Created: / 24-07-2011 / 21:31:30 / cg"
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4057
!
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4058
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4059
xmlCDataEmphasis
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4060
    "the emphasis used for xml-CData;
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4061
     If syntaxColoring is turned on."
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4062
18804
f8c6e2e7ba78 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18690
diff changeset
  4063
    ^ self at:#xmlCDataEmphasis ifAbsent:[ #normal ]
13522
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4064
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4065
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4066
     self current at:#xmlCDataEmphasis put:#normal
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4067
     self current xmlCDataEmphasis
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4068
    "
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4069
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4070
    "Created: / 24-07-2011 / 21:31:52 / cg"
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4071
!
Claus Gittinger <cg@exept.de>
parents: 13503
diff changeset
  4072
13307
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4073
xmlTagColor
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4074
    "the emphasis used for xml-tags;
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4075
     If syntaxColoring is turned on."
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4076
18804
f8c6e2e7ba78 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18690
diff changeset
  4077
    ^ self at:#xmlTagColor ifAbsent:[ Color blue ]
13307
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4078
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4079
    "
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4080
     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
  4081
     self current xmlTagColor
13307
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4082
    "
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4083
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4084
    "Created: / 17-02-2011 / 14:18:28 / cg"
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4085
!
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4086
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4087
xmlTagEmphasis
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4088
    "the emphasis used for xml-tags;
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4089
     If syntaxColoring is turned on."
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4090
18804
f8c6e2e7ba78 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 18690
diff changeset
  4091
    ^ self at:#xmlTagEmphasis ifAbsent:[ #bold ]
13307
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4092
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4093
    "
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4094
     self current at:#xmlTagEmphasis put:#normal
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4095
     self current xmlTagEmphasis
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4096
    "
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4097
Claus Gittinger <cg@exept.de>
parents: 13304
diff changeset
  4098
    "Created: / 17-02-2011 / 14:18:01 / cg"
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4099
! !
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4100
19472
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4101
!UserPreferences methodsFor:'accessing-prefs-changes & history'!
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4102
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4103
historyManagerAllowEditOfHistory:aBoolean
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4104
    "useful if you have 'beginner students', to prevent them from changing the history"
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4105
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4106
    self 
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4107
        at: #'history-manager.allow-edit-of-history'
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4108
        put:aBoolean
21234
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4109
!
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4110
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4111
historyManagerEnabled
21235
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4112
    "automatically add history line comments to accepted methods"
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4113
21234
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4114
    ^self 
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4115
        at: #'history-manager.enabled'
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4116
        ifAbsent: true 
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4117
!
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4118
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4119
historyManagerEnabled:aBoolean
21235
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4120
    "automatically add history line comments to accepted methods"
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4121
21234
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4122
    ^self 
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4123
        at: #'history-manager.enabled'
5484b13cded1 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21125
diff changeset
  4124
        put: aBoolean 
21235
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4125
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4126
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4127
    "
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4128
     UserPreferences current historyManagerEnabled
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4129
     UserPreferences current historyManagerEnabled:true
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4130
     UserPreferences current historyManagerEnabled:false
4859f3fef7ca #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 21234
diff changeset
  4131
    "
19472
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4132
! !
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  4133
8232
371649bcd96a generateComments (from codeGenerator tool) settings
Claus Gittinger <cg@exept.de>
parents: 8005
diff changeset
  4134
!UserPreferences methodsFor:'accessing-prefs-code'!
371649bcd96a generateComments (from codeGenerator tool) settings
Claus Gittinger <cg@exept.de>
parents: 8005
diff changeset
  4135
371649bcd96a generateComments (from codeGenerator tool) settings
Claus Gittinger <cg@exept.de>
parents: 8005
diff changeset
  4136
categoryForMenuActionsMethods
371649bcd96a generateComments (from codeGenerator tool) settings
Claus Gittinger <cg@exept.de>
parents: 8005
diff changeset
  4137
    ^ 'menu actions'.
12117
5ffce12a6b14 added: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12104
diff changeset
  4138
!
5ffce12a6b14 added: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12104
diff changeset
  4139
15715
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4140
haltInObsoleteMethod
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4141
    "sometimes, these are annoying..."
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4142
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4143
    ^ self at:#haltInObsoleteMethod ifAbsent:true
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4144
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4145
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4146
     UserPreferences current haltInObsoleteMethod
15715
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4147
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4148
     UserPreferences current haltInObsoleteMethod:true
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4149
     UserPreferences current haltInObsoleteMethod:false
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4150
    "
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4151
!
88c954271347 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15713
diff changeset
  4152
13722
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4153
ignorePublicPrivateCategories
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4154
    "used when loading dolphin code (which defines multiple categories per method);
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4155
     if on, categories like public and private are ignored (if the method already has a category).
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4156
     Turn this on, to get reasonable categories when loading dolphin code"
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4157
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4158
    ^ self at:#ignorePublicPrivateCategories ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4159
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4160
    "
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4161
     UserPreferences current ignorePublicPrivateCategories
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4162
    "
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4163
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4164
    "Created: / 23-09-2011 / 19:49:37 / cg"
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4165
!
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4166
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4167
ignorePublicPrivateCategories:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4168
    "used when loading dolphin code (which defines multiple categories per method);
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4169
     if on, categories like public and private are ignored (if the method already has a category).
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4170
     Turn this on, to get reasonable categories when loading dolphin code"
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4171
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4172
    self at:#ignorePublicPrivateCategories put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4173
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4174
    "
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4175
     UserPreferences current ignorePublicPrivateCategories
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4176
    "
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4177
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4178
    "Created: / 23-09-2011 / 19:49:54 / cg"
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4179
!
Claus Gittinger <cg@exept.de>
parents: 13684
diff changeset
  4180
12618
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4181
keepMethodSourceCode
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4182
    "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
  4183
     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
  4184
     (will stay that high, even if switched off afterwards)"
12618
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4185
19755
6f0e180f46a6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19700
diff changeset
  4186
    "/ changed to always cache the sources.
6f0e180f46a6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19700
diff changeset
  4187
    "/ these days, memory is so cheap (times of 4Mb machines are gone)
6f0e180f46a6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19700
diff changeset
  4188
    ^ self at:#keepMethodSourceCode ifAbsent:true
12618
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4189
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4190
    "
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4191
     UserPreferences current keepMethodSourceCode
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4192
    "
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4193
!
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4194
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4195
keepMethodSourceCode:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4196
    "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
  4197
     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
  4198
     (will stay that high, even if switched off afterwards)"
12618
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4199
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4200
    ^ self at:#keepMethodSourceCode put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4201
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4202
    "
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4203
     UserPreferences current keepMethodSourceCode
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4204
     UserPreferences current keepMethodSourceCode:true
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4205
    "
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4206
!
Claus Gittinger <cg@exept.de>
parents: 12563
diff changeset
  4207
12117
5ffce12a6b14 added: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12104
diff changeset
  4208
numberOfLinesForLongMethod
5ffce12a6b14 added: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12104
diff changeset
  4209
    "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
  4210
12175
d22d131dbfed changed: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12167
diff changeset
  4211
    ^ self at:#numberOfLinesForLongMethod ifAbsent:30
d22d131dbfed changed: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12167
diff changeset
  4212
d22d131dbfed changed: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12167
diff changeset
  4213
    "
d22d131dbfed changed: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12167
diff changeset
  4214
     UserPreferences current numberOfLinesForLongMethod
d22d131dbfed changed: #numberOfLinesForLongMethod
Claus Gittinger <cg@exept.de>
parents: 12167
diff changeset
  4215
    "
8232
371649bcd96a generateComments (from codeGenerator tool) settings
Claus Gittinger <cg@exept.de>
parents: 8005
diff changeset
  4216
! !
371649bcd96a generateComments (from codeGenerator tool) settings
Claus Gittinger <cg@exept.de>
parents: 8005
diff changeset
  4217
12501
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4218
!UserPreferences methodsFor:'accessing-prefs-code generator'!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4219
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4220
generateComments
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4221
    "return true; comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4222
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4223
    ^ self at:#generateComments ifAbsent:true.
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4224
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4225
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4226
     UserPreferences current generateComments
12501
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4227
     UserPreferences current generateComments:false
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4228
     UserPreferences current generateComments:true
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4229
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4230
!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4231
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4232
generateComments:aBoolean
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4233
    "true if comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4234
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4235
    self at:#generateComments put:aBoolean.
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4236
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4237
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4238
     UserPreferences current generateComments
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4239
     UserPreferences current generateComments:false
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4240
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4241
!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4242
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4243
generateCommentsForAspectMethods
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4244
    "return true; comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4245
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4246
    ^ self at:#generateCommentsForAspectMethods ifAbsent:true.
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4247
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4248
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4249
     UserPreferences current generateCommentsForAspectMethods
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4250
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4251
!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4252
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4253
generateCommentsForAspectMethods:aBoolean
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4254
    "true if comments shall be generated (by the codeGenerator tool)"
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4255
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4256
    self at:#generateCommentsForAspectMethods put:aBoolean.
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4257
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4258
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4259
     UserPreferences current generateCommentsForAspectMethods:false
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4260
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4261
!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4262
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4263
generateCommentsForGetters
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4264
    "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
  4265
     The default is now false, as these look stupid in the browser and were only generated
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  4266
     for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
12501
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4267
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4268
    ^ self generateComments and:[self at:#generateCommentsForGetters ifAbsent:false].
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4269
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4270
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4271
     UserPreferences current generateCommentsForGetters
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4272
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4273
!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4274
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4275
generateCommentsForGetters:aBoolean
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4276
    "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
  4277
     The default is now false, as these look stupid in the browser and were only generated
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  4278
     for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
12501
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4279
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4280
    self at:#generateCommentsForGetters put:aBoolean.
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4281
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4282
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4283
     UserPreferences current generateCommentsForGetters
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4284
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4285
!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4286
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4287
generateCommentsForSetters
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4288
    "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
  4289
     The default is now false, as these look stupid in the browser and were only generated
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  4290
     for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
12501
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4291
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4292
    ^ self generateComments and:[self at:#generateCommentsForSetters ifAbsent:false].
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4293
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4294
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4295
     UserPreferences current generateCommentsForSetters
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4296
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4297
!
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4298
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4299
generateCommentsForSetters:aBoolean
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4300
    "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
  4301
     The default is now false, as these look stupid in the browser and were only generated
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  4302
     for the HTMLDocumentGenerator, which is not able to generate these comments on the fly."
12501
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4303
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4304
    self at:#generateCommentsForSetters put:aBoolean.
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4305
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4306
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4307
     UserPreferences current generateSommentsForGetters
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4308
    "
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4309
! !
0d9b7d311412 added:5 methods
Claus Gittinger <cg@exept.de>
parents: 12391
diff changeset
  4310
14732
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4311
!UserPreferences methodsFor:'accessing-prefs-code view'!
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4312
15426
8fb81aa4e9e2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15417
diff changeset
  4313
assignmentBackgroundColorForNavigationService
8fb81aa4e9e2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15417
diff changeset
  4314
    ^ (Color rgbValue:16rFFDBDB)
8fb81aa4e9e2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15417
diff changeset
  4315
!
8fb81aa4e9e2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15417
diff changeset
  4316
15290
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4317
codeView2AutoPrettyPrint
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4318
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4319
    ^self at:#codeView2AutoPrettyPrint ifAbsent: false
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4320
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4321
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4322
     UserPreferences current codeView2AutoPrettyPrint
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4323
     UserPreferences current codeView2AutoPrettyPrint:true
15290
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4324
     UserPreferences current codeView2AutoPrettyPrint:false"
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4325
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4326
    "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
  4327
    "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
  4328
!
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4329
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4330
codeView2AutoPrettyPrint: aBoolean
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4331
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4332
    ^self at:#codeView2AutoPrettyPrint put: aBoolean
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4333
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4334
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4335
     UserPreferences current codeView2AutoPrettyPrint
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4336
     UserPreferences current codeView2AutoPrettyPrint:true
15290
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4337
     UserPreferences current codeView2AutoPrettyPrint:false"
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4338
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4339
    "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
  4340
    "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
  4341
!
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  4342
14732
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4343
codeView2QuickSendersAndImplementorsOnControl
14733
d354dd094956 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14732
diff changeset
  4344
    "if true, CTRL-click opens the quick senders/implementors menu;
d354dd094956 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14732
diff changeset
  4345
     if false, you have to press ALT"
d354dd094956 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14732
diff changeset
  4346
14732
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4347
    ^self at:#codeView2QuickSendersAndImplementorsOnControl ifAbsent: false
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4348
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4349
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4350
     UserPreferences current codeView2QuickSendersAndImplementorsOnControl
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4351
     UserPreferences current codeView2QuickSendersAndImplementorsOnControl:true
14732
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4352
     UserPreferences current codeView2QuickSendersAndImplementorsOnControl:false"
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4353
!
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4354
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4355
codeView2QuickSendersAndImplementorsOnControl: aBoolean
14733
d354dd094956 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14732
diff changeset
  4356
    "if true, CTRL-click opens the quick senders/implementors menu;
d354dd094956 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14732
diff changeset
  4357
     if false, you have to press ALT"
d354dd094956 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14732
diff changeset
  4358
14732
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4359
    ^self at:#codeView2QuickSendersAndImplementorsOnControl put: aBoolean
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4360
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4361
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4362
     UserPreferences current codeView2QuickSendersAndImplementorsOnControl
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4363
     UserPreferences current codeView2QuickSendersAndImplementorsOnControl:true
14732
d52239daa817 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14698
diff changeset
  4364
     UserPreferences current codeView2QuickSendersAndImplementorsOnControl:false"
14915
a6cc6e21f9cf class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14761
diff changeset
  4365
!
a6cc6e21f9cf class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14761
diff changeset
  4366
a6cc6e21f9cf class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14761
diff changeset
  4367
selectorBackgroundColorForNavigationService
a6cc6e21f9cf class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14761
diff changeset
  4368
    ^ (Color rgbValue:"16rADD9FF" 16rDBEEFF)
a6cc6e21f9cf class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14761
diff changeset
  4369
!
a6cc6e21f9cf class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14761
diff changeset
  4370
a6cc6e21f9cf class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14761
diff changeset
  4371
variableBackgroundColorForNavigationService
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4372
    ^ self
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4373
	at: #variableBackgroundColorForNavigationService
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4374
	ifAbsent: [
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4375
	    (Color rgbValue:16rFFFFA7)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4376
	    "/ (Color rgbValue:16rEFD7A7)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4377
	]
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  4378
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  4379
    "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
  4380
! !
13547
f08daec3c459 changed: #historyManagerSignature
Claus Gittinger <cg@exept.de>
parents: 13523
diff changeset
  4381
17569
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4382
!UserPreferences methodsFor:'accessing-prefs-defaultPackages'!
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4383
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4384
addPreloadedPackage:packageName
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4385
    "add this to the set of preloaded packages.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4386
     This will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4387
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4388
    (self at:#preloadedPackages ifAbsentPut:[Set new]) add:packageName.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4389
    Smalltalk loadPackage:packageName.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4390
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4391
    "
18557
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4392
     UserPreferences current preloadedPackages
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4393
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4394
     UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4395
     UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
17569
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4396
    "
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4397
!
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4398
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4399
preloadedPackages
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4400
    "the set of preloaded packages.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4401
     These will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4402
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4403
    ^ self at:#preloadedPackages ifAbsent:[ #() ].
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4404
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4405
    "
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4406
     UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4407
     UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4408
     UserPreferences current preloadedPackages
17569
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4409
    "
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4410
!
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4411
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4412
preloadedPackages:setOfPreloadedPackages
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4413
    "define the set of preloaded packages.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4414
     This will be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4415
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4416
    |set|
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4417
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4418
    set := setOfPreloadedPackages asSet.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4419
    self at:#preloadedPackages put:set.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4420
    set do:[:each |
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4421
	Smalltalk loadPackage:each
17569
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4422
    ].
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4423
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4424
    "
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4425
     UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4426
     UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4427
     UserPreferences current preloadedPackages
17569
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4428
    "
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4429
!
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4430
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4431
removePreloadedPackage:packageName
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4432
    "remove this from the set of preloaded packages.
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4433
     This will be no longer be automatically loaded whenever the system starts"
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4434
18557
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4435
    |preloaded|
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4436
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4437
    preloaded := self at:#preloadedPackages ifAbsent:[nil].
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4438
    preloaded notNil ifTrue:[
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4439
        preloaded remove:packageName ifAbsent:[]
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4440
    ].
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4441
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4442
    "
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4443
     UserPreferences current preloadedPackages
cee27e3e432e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18550
diff changeset
  4444
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4445
     UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4446
     UserPreferences current removePreloadedPackage:'stx:goodies/smallsense'
17569
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4447
    "
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4448
! !
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  4449
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4450
!UserPreferences methodsFor:'accessing-prefs-editor'!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4451
15913
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4452
appendAbbreviationsToCompletionSuggestions
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4453
    "show abbreviations in completion"
15913
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4454
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4455
    ^ self at:#appendAbbreviationsToCompletionSuggestions ifAbsent:false
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4456
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4457
    "
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4458
     UserPreferences current appendAbbreviationsToCompletionSuggestions
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4459
     UserPreferences current appendAbbreviationsToCompletionSuggestions:true
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4460
     UserPreferences current appendAbbreviationsToCompletionSuggestions:false
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4461
    "
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4462
!
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4463
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4464
appendAbbreviationsToCompletionSuggestions:aBoolean
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4465
    "show abbreviations in completion"
15913
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4466
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4467
    ^ self at:#appendAbbreviationsToCompletionSuggestions put:aBoolean
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4468
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4469
    "
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4470
     UserPreferences current appendAbbreviationsToCompletionSuggestions
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4471
     UserPreferences current appendAbbreviationsToCompletionSuggestions:true
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4472
     UserPreferences current appendAbbreviationsToCompletionSuggestions:false
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4473
    "
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4474
!
9ed7da7df9b7 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15893
diff changeset
  4475
15742
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4476
codeCompletionOnControlKey
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4477
    "show completion with CTRL-key - experimental"
15742
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4478
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4479
    ^ self at:#codeCompletionOnControlKey ifAbsent:false
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4480
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4481
    "
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4482
     UserPreferences current codeCompletionOnControlKey
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4483
     UserPreferences current codeCompletionOnControlKey:true
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4484
     UserPreferences current codeCompletionOnControlKey:false
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4485
    "
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4486
!
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4487
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4488
codeCompletionOnControlKey:aBoolean
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4489
    "show completion with CTRL key - experimental"
15742
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4490
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4491
    ^ self at:#codeCompletionOnControlKey put:aBoolean
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4492
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4493
    "
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4494
     UserPreferences current codeCompletionOnControlKey
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4495
     UserPreferences current codeCompletionOnControlKey:true
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4496
     UserPreferences current codeCompletionOnControlKey:false
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4497
    "
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4498
!
47bbc2ffe61e class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15728
diff changeset
  4499
15747
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4500
codeCompletionOnTabKey
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4501
    "show completion with TAB-key - experimental"
15747
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4502
15767
169f9c6acec2 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15748
diff changeset
  4503
    ^ self at:#codeCompletionOnTabKey ifAbsent:true
15747
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4504
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4505
    "
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4506
     UserPreferences current codeCompletionOnTabKey
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4507
     UserPreferences current codeCompletionOnTabKey:true
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4508
     UserPreferences current codeCompletionOnTabKey:false
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4509
    "
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4510
!
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4511
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4512
codeCompletionOnTabKey:aBoolean
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4513
    "show completion with TAB-key - experimental"
15747
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4514
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4515
    self at:#codeCompletionOnTabKey put:aBoolean
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4516
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4517
    "
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4518
     UserPreferences current codeCompletionOnTabKey
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4519
     UserPreferences current codeCompletionOnTabKey:true
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4520
     UserPreferences current codeCompletionOnTabKey:false
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4521
    "
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4522
!
bba1859a6cd8 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15742
diff changeset
  4523
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4524
codeCompletionViewKeyboardNavigationNeedsModifier
16584
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4525
    "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
  4526
     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
  4527
     view if a shift- or control modifier is pressed.
16584
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4528
     The default is false for backward compatibility"
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4529
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4530
    ^ self at:#codeCompletionViewKeyboardNavigationNeedsModifier ifAbsent:[false]
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4531
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4532
    "
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4533
     UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4534
     UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:true
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4535
     UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:false
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4536
    "
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4537
!
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4538
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4539
codeCompletionViewKeyboardNavigationNeedsModifier:aBoolean
16584
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4540
    "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
  4541
     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
  4542
     view if a shift- or control modifier is pressed.
16584
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4543
     The default is false for backward compatibility"
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4544
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4545
    self at:#codeCompletionViewKeyboardNavigationNeedsModifier put:aBoolean
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4546
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4547
    "
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4548
     UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4549
     UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:true
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4550
     UserPreferences current codeCompletionViewKeyboardNavigationNeedsModifier:false
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4551
    "
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4552
!
6d43426bc7eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16570
diff changeset
  4553
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4554
deleteSetsClipboardText
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4555
    "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
  4556
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4557
    ^ self at:#deleteSetsClipboardText ifAbsent:false
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4558
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4559
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4560
     UserPreferences current deleteSetsClipboardText
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4561
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4562
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4563
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4564
deleteSetsClipboardText:aBooleanOrNil
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4565
    "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
  4566
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4567
    ^ self at:#deleteSetsClipboardText put:aBooleanOrNil
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4568
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4569
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4570
     UserPreferences current deleteSetsClipboardTextdeleteSetsClipboardText:true
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4571
     UserPreferences current deleteSetsClipboardText:false
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4572
     UserPreferences current deleteSetsClipboardText
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4573
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4574
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4575
11897
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4576
enforcedDropModeForFiles
12930
bc3ca82d5a81 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 12905
diff changeset
  4577
    "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
  4578
     (default is nil, for ask)"
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4579
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4580
    ^ self at:#enforcedDropModeForFiles ifAbsent:nil
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4581
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4582
    "
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4583
     UserPreferences current enforcedDropModeForFiles
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4584
    "
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4585
!
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4586
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4587
enforcedDropModeForFiles:aSymbolOrNil
12930
bc3ca82d5a81 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 12905
diff changeset
  4588
    "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
  4589
     (default is nil, for ask)"
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4590
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4591
    ^ self at:#enforcedDropModeForFiles put:aSymbolOrNil
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4592
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4593
    "
12930
bc3ca82d5a81 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 12905
diff changeset
  4594
     UserPreferences current enforcedDropModeForFiles:#contents
bc3ca82d5a81 comment/format in:
Claus Gittinger <cg@exept.de>
parents: 12905
diff changeset
  4595
     UserPreferences current enforcedDropModeForFiles:#name
11897
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4596
    "
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4597
!
e8003f2d538c Always Paste the Contents when Dropping a File
Claus Gittinger <cg@exept.de>
parents: 11694
diff changeset
  4598
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4599
extendedWordSelectMode
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4600
    "when double clicking, include underscore, dollar and at-character as word-characters ?
10880
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4601
     (default is on)"
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4602
10310
89d972739353 extendedWordSelectMode (underline in word) defaults to true
Claus Gittinger <cg@exept.de>
parents: 10240
diff changeset
  4603
    ^ self at:#extendedWordSelectMode ifAbsent:true
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4604
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4605
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4606
     UserPreferences current extendedWordSelectMode
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4607
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4608
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4609
    "Created: / 03-07-2006 / 16:49:58 / cg"
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4610
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4611
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4612
extendedWordSelectMode:aBoolean
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4613
    "when double clicking, include underscore, dollar and at-character as word-characters ?
10880
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4614
     (default is on)"
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4615
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4616
    ^ self at:#extendedWordSelectMode put:aBoolean
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4617
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4618
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4619
     UserPreferences current extendedWordSelectMode:true
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4620
     UserPreferences current extendedWordSelectMode:false
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4621
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4622
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4623
    "Created: / 03-07-2006 / 16:50:20 / cg"
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4624
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4625
19965
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4626
generateBackupFileWhenSaving
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4627
    "if true, the editor will write a backup file
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4628
     before saving. The default is true"
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4629
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4630
    ^ self at:#generateBackupFileWhenSaving ifAbsent:true "false"
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4631
!
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4632
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4633
generateBackupFileWhenSaving:aBoolean
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4634
    "if true, the editor will write a backup file
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4635
     before saving. The default is true"
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4636
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4637
    self at:#generateBackupFileWhenSaving put:aBoolean
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4638
!
13ab13cf8d72 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19954
diff changeset
  4639
15724
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4640
immediateCodeCompletion
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4641
    "show completion, as you type - experimental"
15724
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4642
19684
95ecd59eca16 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 19634
diff changeset
  4643
    ^ self at:#immediateCodeCompletion ifAbsent:true "false"
15724
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4644
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4645
    "
15725
a1ac75bd5b52 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15724
diff changeset
  4646
     UserPreferences current immediateCodeCompletion
a1ac75bd5b52 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15724
diff changeset
  4647
     UserPreferences current immediateCodeCompletion:true
a1ac75bd5b52 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15724
diff changeset
  4648
     UserPreferences current immediateCodeCompletion:false
15724
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4649
    "
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4650
!
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4651
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4652
immediateCodeCompletion:aBoolean
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4653
    "show completion, as you type - experimental"
15724
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4654
15726
a38e1e075388 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15725
diff changeset
  4655
    ^ self at:#immediateCodeCompletion put:aBoolean
15724
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4656
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4657
    "
15725
a1ac75bd5b52 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15724
diff changeset
  4658
     UserPreferences current immediateCodeCompletion
a1ac75bd5b52 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15724
diff changeset
  4659
     UserPreferences current immediateCodeCompletion:true
a1ac75bd5b52 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15724
diff changeset
  4660
     UserPreferences current immediateCodeCompletion:false
15724
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4661
    "
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4662
!
d28434d361f3 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15715
diff changeset
  4663
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4664
numberOfRememberedUndoOperationsInEditor
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4665
    "the number of possible undo-operations.
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4666
     Nil means: unlimited.
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4667
     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
  4668
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4669
    ^ self at:#numberOfRememberedUndoOperationsInEditor ifAbsent:nil
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4670
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4671
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4672
     UserPreferences current numberOfRememberedUndoOperationsInEditor
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4673
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4674
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4675
    "Modified: / 09-10-2006 / 11:01:35 / cg"
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4676
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4677
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4678
numberOfRememberedUndoOperationsInEditor:aNumberOrNil
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4679
    "the number of possible undo-operations.
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4680
     Nil means: unlimited.
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4681
     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
  4682
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4683
    ^ self at:#numberOfRememberedUndoOperationsInEditor put:aNumberOrNil
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4684
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4685
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4686
     UserPreferences current numberOfRememberedUndoOperationsInEditor:20
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4687
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4688
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4689
    "Created: / 09-10-2006 / 11:00:56 / cg"
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4690
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4691
14052
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4692
selectAllWhenClickingBeyondEnd
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4693
    "select mode, when clicking after the end of text,
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4694
     as in st80 (or squeak), select all"
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4695
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4696
    ^ self at:#selectAllWhenClickingBeyondEnd ifAbsent:false
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4697
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4698
    "
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4699
     UserPreferences current selectAllWhenClickingBeyondEnd
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4700
    "
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4701
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4702
    "Created: / 07-03-2012 / 14:00:17 / cg"
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4703
!
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4704
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4705
selectAllWhenClickingBeyondEnd:aBoolean
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4706
    "select mode, when clicking after the end of text,
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4707
     as in st80 (or squeak), select all"
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4708
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4709
    ^ self at:#selectAllWhenClickingBeyondEnd put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4710
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4711
    "
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4712
     UserPreferences current selectAllWhenClickingBeyondEnd:true
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4713
     UserPreferences current selectAllWhenClickingBeyondEnd:false
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4714
    "
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4715
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4716
    "Created: / 07-03-2012 / 14:00:23 / cg"
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4717
!
Claus Gittinger <cg@exept.de>
parents: 14012
diff changeset
  4718
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4719
selectionExtensionMode
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4720
    "Returns selection extension mode. Mode is either
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4721
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4722
    #traditional ... Shift-End always moves end of selection (iff it is on the same line)
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4723
		     Shift->Home always moves beggining of selection (iff it is on the same line)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4724
		     That's how CG likes it.
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4725
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4726
    #standard ...    That's how vast majority text editors and text widgets behaves, therefore
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4727
		     this is how most users expects it to behave.
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4728
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4729
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4730
    For historical reasons, #traditional is the default..."
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4731
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4732
    ^ self at: #selectionExtensionMode ifAbsent:[ #traditional ]
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4733
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4734
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4735
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4736
    "
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4737
    UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4738
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4739
    UserPreferences current selectionExtensionMode:#traditional
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4740
    UserPreferences current selectionExtensionMode:#standard
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4741
    UserPreferences current selectionExtensionMode:nil
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4742
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4743
    UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4744
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4745
    "
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4746
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4747
    "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
  4748
!
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4749
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4750
selectionExtensionMode: aSymbol
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4751
    "Sets selection extension mode. Must be either:
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4752
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4753
    #traditional ... Shift-End always moves end of selection (iff it is on the same line)
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4754
		     Shift->Home always moves beggining of selection (iff it is on the same line)
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4755
		     That's how CG likes it.
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4756
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4757
    #standard ...    That's how vast majority text editors and text widgets behaves, therefore
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4758
		     this is how most users expects it to behave.
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4759
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4760
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4761
    For historical reasons, #traditional is the default..."
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4762
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4763
    aSymbol isNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4764
	self removeKey:#selectionExtensionMode.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4765
	^ self.
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4766
    ].
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4767
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4768
    (#(traditional standard) includes: aSymbol) ifFalse:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  4769
	self error:'Invalid value. Possible values are #traditional and #standard'.
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4770
    ].
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  4771
    self at: #selectionExtensionMode put: aSymbol
16284
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4772
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4773
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4774
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4775
    "
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4776
    UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4777
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4778
    UserPreferences current selectionExtensionMode:#traditional
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4779
    UserPreferences current selectionExtensionMode:#standard
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4780
    UserPreferences current selectionExtensionMode:nil
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4781
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4782
    UserPreferences current selectionExtensionMode
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4783
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4784
    "
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4785
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4786
    "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
  4787
!
6eb367d12be5 class: UserPreferences
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16278
diff changeset
  4788
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4789
st80EditMode
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4790
    "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)."
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4791
20613
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4792
    ^ self at:#st80EditMode ifAbsent:[false]
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4793
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4794
    "
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4795
     UserPreferences current st80EditMode
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4796
     UserPreferences current st80EditMode:true
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4797
     UserPreferences current st80EditMode
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4798
     UserPreferences current st80EditMode:false
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4799
     UserPreferences current st80EditMode
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4800
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4801
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4802
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4803
st80EditMode:aBoolean
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4804
    "editing as in st80 (do not allow cursor beyond endOfLine/endOftext)."
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4805
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4806
    ^ self at:#st80EditMode put:aBoolean
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4807
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4808
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4809
     UserPreferences current st80EditMode:true
20613
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4810
     UserPreferences current st80EditMode:false
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4811
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4812
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4813
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4814
st80SelectMode
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  4815
    "select mode, when double clicking as in st80
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4816
     (select to corresponding lparen/double-quote) ?"
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4817
20613
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4818
    ^ self at:#st80SelectMode ifAbsent:[false]
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4819
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4820
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4821
     UserPreferences current st80SelectMode
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4822
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4823
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4824
    "Created: / 03-07-2006 / 16:25:19 / cg"
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4825
!
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4826
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4827
st80SelectMode:aBoolean
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  4828
    "select mode, when double clicking as in st80
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4829
     (select to corresponding lparen/double-quote)."
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4830
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4831
    ^ self at:#st80SelectMode put:aBoolean
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4832
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4833
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4834
     UserPreferences current st80SelectMode:true
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4835
     UserPreferences current st80SelectMode:false
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4836
    "
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4837
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4838
    "Created: / 03-07-2006 / 16:25:27 / cg"
10880
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4839
!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4840
20613
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4841
trimBlankLines
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4842
    "if true, blank lines are trimmed to zero size in the editor"
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4843
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4844
    ^ self at:#trimBlankLines ifAbsent:[true]
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4845
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4846
    "
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4847
     UserPreferences current trimBlankLines
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4848
     UserPreferences current trimBlankLines:true
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4849
     UserPreferences current trimBlankLines
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4850
     UserPreferences current trimBlankLines:false
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4851
     UserPreferences current trimBlankLines
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4852
    "
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4853
!
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4854
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4855
trimBlankLines:aBoolean
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4856
    "if true, blank lines are trimmed to zero size in the editor"
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4857
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4858
    self at:#trimBlankLines put:aBoolean
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4859
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4860
    "
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4861
     UserPreferences current trimBlankLines
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4862
     UserPreferences current trimBlankLines:true
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4863
     UserPreferences current trimBlankLines
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4864
     UserPreferences current trimBlankLines:false
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4865
     UserPreferences current trimBlankLines
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4866
    "
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4867
!
b70eb66c0f7a #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 20607
diff changeset
  4868
10880
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4869
whitespaceWordSelectMode
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4870
    "when double clicking, treat ANY non-whitespace as word-characters ?
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4871
     (default is off)"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4872
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4873
    ^ self at:#whitespaceWordSelectMode ifAbsent:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4874
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4875
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4876
     UserPreferences current whitespaceWordSelectMode
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4877
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4878
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4879
    "Created: / 03-07-2006 / 16:49:58 / cg"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4880
!
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4881
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4882
whitespaceWordSelectMode:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4883
    "when double clicking, treat ANY non-whitespace as word-characters ?
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4884
     (default is off)"
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4885
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4886
    ^ self at:#whitespaceWordSelectMode put:aBoolean
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4887
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4888
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4889
     UserPreferences current whitespaceWordSelectMode:true
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4890
     UserPreferences current whitespaceWordSelectMode:false
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4891
    "
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4892
96f17c8c9d3a expandSelectionOnMouseMoveWithButtonPressed
Claus Gittinger <cg@exept.de>
parents: 10861
diff changeset
  4893
    "Created: / 03-07-2006 / 16:50:20 / cg"
10055
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4894
! !
48ecfd4958a2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10012
diff changeset
  4895
18920
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4896
!UserPreferences methodsFor:'accessing-prefs-external tools'!
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4897
19386
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4898
defaultFileOpenCommandFor:suffix
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4899
    "for the fileBrowser - remember which command to use as-per suffix"
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4900
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4901
    ^ (self at:#defaultFileOpenCommands ifAbsentPut:[Dictionary new])
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4902
        at:suffix ifAbsent:nil
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4903
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4904
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4905
defaultFileOpenCommandFor:suffix put:openCmd
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4906
    "for the fileBrowser - remember which command to use as-per suffix"
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4907
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4908
    (self at:#defaultFileOpenCommands ifAbsentPut:[Dictionary new])
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4909
        at:suffix put:openCmd
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4910
!
0fc2c8343a5a #FEATURE
Claus Gittinger <cg@exept.de>
parents: 19310
diff changeset
  4911
22145
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4912
dllPath
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4913
    ^ self at:#dllPath ifAbsent:[OrderedCollection new]
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4914
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4915
    "
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4916
     ExpeccoPreferences current dllPath.
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4917
     ExpeccoPreferences current dllPath:{ '/usr/local/lib' '/opt/local/lib' }
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4918
    "
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4919
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4920
    "Created: / 12-02-2017 / 01:39:41 / cg"
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4921
!
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4922
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4923
dllPath:aCollectionOfFolderNames
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4924
    self at:#dllPath put:aCollectionOfFolderNames.
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4925
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4926
    "
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4927
     UserPreferences current dllPath.
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4928
     UserPreferences current dllPath:{ '/usr/local/lib' '/opt/local/lib' }
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4929
    "
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4930
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4931
    "Created: / 12-02-2017 / 01:39:57 / cg"
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4932
!
3728c8f40263 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 21845
diff changeset
  4933
18920
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4934
osFileExplorerCommand
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4935
    "return an OS command template to open a finder/explorer or similar"
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4936
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4937
    ^ self at:#osFileExplorerCommand ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4938
!
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4939
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4940
osFileExplorerCommand:aString
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4941
    "define an OS command template to open a finder/explorer or similar"
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4942
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4943
    self at:#osFileExplorerCommand put:aString
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4944
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4945
    "
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4946
     UserPreferences current osFileExplorerCommand
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4947
     
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4948
     osx:
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4949
     UserPreferences current osFileExplorerCommand:'open %1'
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4950
     
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4951
     linux:
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4952
     UserPreferences current osFileExplorerCommand:'nautilus %1'
18922
aee337248062 #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18920
diff changeset
  4953
     UserPreferences current osFileExplorerCommand:'dolphin %1'
18920
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4954
    "
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4955
! !
Claus Gittinger <cg@exept.de>
parents: 18871
diff changeset
  4956
18871
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4957
!UserPreferences methodsFor:'accessing-prefs-files and directories'!
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4958
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4959
changeFileName
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4960
    "were to keep changes"
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4961
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4962
    ^ self 
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4963
        at: #'changeFileName' 
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4964
        ifAbsent: [nil] 
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4965
!
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4966
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4967
changeFileName:aFilename
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4968
    "were to keep changes"
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4969
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4970
    self
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4971
	at: #'changeFileName'
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4972
	put: aFilename.
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4973
!
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4974
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4975
usersModuleName
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4976
    "this will be taken as the user's module in the workspace and as a default for new projects"
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4977
    
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4978
    ^ self at:#usersModuleName ifAbsent:[OperatingSystem getLoginName ]
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4979
!
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4980
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4981
usersModuleName:aString
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4982
    self at:#usersModuleName put:aString
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4983
!
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4984
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4985
workspaceDirectory
20607
aaf92896a6b8 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 20243
diff changeset
  4986
    "this is the folder where snapshot images, the change file and any stc-compiled
aaf92896a6b8 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 20243
diff changeset
  4987
     object files are stored.
aaf92896a6b8 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 20243
diff changeset
  4988
     The idea is to keep that stuff together, so we can move it as a bunch.
aaf92896a6b8 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 20243
diff changeset
  4989
     These used to be in the bin-folder of st/x, but that would not work with readonly/shared
aaf92896a6b8 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 20243
diff changeset
  4990
     st/x installations."
aaf92896a6b8 #BUGFIX by cg
Claus Gittinger <cg@exept.de>
parents: 20243
diff changeset
  4991
     
18871
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4992
    ^ self at:#workspaceDirectory ifAbsent:[self class defaultWorkspaceDirectory]
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4993
!
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4994
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4995
workspaceDirectory:aDirectoryOrNilForDefault
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4996
    |d|
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4997
    
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4998
    (d := aDirectoryOrNilForDefault) notNil ifTrue:[
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  4999
        d := d asFilename
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  5000
    ].    
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  5001
    self at:#workspaceDirectory put:d
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  5002
! !
8ba61705c02e #DOCUMENTATION
Claus Gittinger <cg@exept.de>
parents: 18867
diff changeset
  5003
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5004
!UserPreferences methodsFor:'accessing-prefs-localization'!
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5005
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5006
language
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5007
    "/ intermediate migration code;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5008
    "/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5009
    "/ however, for multi-user operation, this must be in a preference-setting.
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5010
    "/ For now, forward to Smalltalk, while all references to "Smalltalk-language"
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5011
    "/ and "Smalltalk-languageTerritory" are replaced with "UserPreferences current"-messages
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5012
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5013
    ^ self at:#language ifAbsent:[Smalltalk language].
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5014
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5015
    "
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5016
     UserPreferences current language
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5017
    "
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5018
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5019
    "Created: / 20-09-2006 / 23:55:01 / cg"
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5020
    "Modified (comment): / 20-06-2017 / 09:03:04 / cg"
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5021
!
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5022
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5023
language:aLanguageSymbol
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5024
    "/ intermediate migration code;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5025
    "/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5026
    "/ however, for multi-user operation, this must be in a preference-setting.
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5027
    "/ For now, forward to Smalltalk, while all references to "Smalltalk-language"
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5028
    "/ and "Smalltalk-languageTerritory" are replaced with "UserPreferences current"-messages
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5029
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5030
    self at:#language put:aLanguageSymbol.
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5031
    Smalltalk language:aLanguageSymbol
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5032
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5033
    "
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5034
     UserPreferences current language
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5035
     UserPreferences current language:#en
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5036
    "
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5037
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5038
    "Created: / 20-09-2006 / 23:55:01 / cg"
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5039
    "Modified (comment): / 20-06-2017 / 09:03:09 / cg"
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5040
!
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5041
21776
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5042
language:aLanguageSymbol territory:aTerritorySymbol
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5043
    "/ intermediate migration code;
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5044
    "/ for now, Smalltalk uses a global language and territory setting;
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5045
    "/ however, for multi-user operation, this must be in a preference-setting.
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5046
    "/ For now, forward to Smalltalk, while all references to "Smalltalk-language"
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5047
    "/ and "Smalltalk-languageTerritory" are replaced with "UserPreferences current"-messages
21776
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5048
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5049
    self at:#language put:aLanguageSymbol.
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5050
    self at:#languageTerritory put:aTerritorySymbol.
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5051
    Smalltalk language:aLanguageSymbol territory:aTerritorySymbol
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5052
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5053
    "
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5054
     UserPreferences current language
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5055
     UserPreferences current language:#en territory:#us
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5056
     UserPreferences current language:#de territory:#de
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5057
    "
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5058
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5059
    "Created: / 30-05-2017 / 16:02:06 / stefan"
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5060
    "Modified (comment): / 20-06-2017 / 09:03:16 / cg"
21776
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5061
!
44d6b4483aa3 #BUGFIX by stefan
Stefan Vogel <sv@exept.de>
parents: 21643
diff changeset
  5062
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5063
languageTerritory
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5064
    "/ intermediate migration code;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5065
    "/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5066
    "/ however, for multi-user operation, this must be in a preference-setting.
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5067
    "/ For now, forward to Smalltalk, while all references to "Smalltalk-language"
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5068
    "/ and "Smalltalk-languageTerritory" are replaced with "UserPreferences current"-messages
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5069
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5070
    ^ self at:#languageTerritory ifAbsent:[Smalltalk languageTerritory]
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5071
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5072
    "
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5073
     UserPreferences current languageTerritory
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5074
    "
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5075
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5076
    "Created: / 20-09-2006 / 23:55:01 / cg"
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5077
    "Modified (comment): / 20-06-2017 / 09:02:59 / cg"
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5078
!
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5079
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5080
languageTerritory:aLanguageSymbol
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5081
    "/ intermediate migration code;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5082
    "/ for now, Smalltalk uses a global language and territory setting;
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5083
    "/ however, for multi-user operation, this must be in a preference-setting.
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5084
    "/ For now, forward to Smalltalk, while all references to "Smalltalk-language"
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5085
    "/ and "Smalltalk-languageTerritory" are replaced with "UserPreferences current"-messages
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5086
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5087
    self at:#languageTerritory put:aLanguageSymbol.
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5088
    Smalltalk languageTerritory:aLanguageSymbol
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5089
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5090
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  5091
     UserPreferences current languageTerritory
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5092
     UserPreferences current languageTerritory:#en
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5093
    "
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5094
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5095
    "Created: / 20-09-2006 / 23:55:01 / cg"
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5096
    "Modified (comment): / 20-06-2017 / 09:03:23 / cg"
18496
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5097
!
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5098
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5099
unitForFileSize
18497
c3a299986ccc class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18496
diff changeset
  5100
    "may return either 1000 or 1024"
c3a299986ccc class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18496
diff changeset
  5101
c3a299986ccc class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18496
diff changeset
  5102
    ^ self at:#unitForFileSize ifAbsent:[1000]
18496
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5103
!
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5104
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5105
unitStringsForFileSize
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5106
    self unitForFileSize == 1024 ifTrue:[
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5107
        ^ #('Byte' 'KiB' 'MiB' 'GiB' 'TiB' 'PiB' 'EiB' 'ZiB' 'YiB')
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5108
    ] ifFalse:[
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5109
        ^ #('Byte' 'KB' 'MB' 'GB' 'TB' 'PB' 'EB' 'ZB' 'YB')
59571300e735 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18489
diff changeset
  5110
    ].
18823
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5111
!
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5112
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5113
useSystemLanguage
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5114
    "if true, the operating system's language is used (i.e. LANG environment variable),
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5115
     when the system comes up. If false, the setting here is used.
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5116
     The default is true."
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5117
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5118
    ^ self at:#useSystemLanguage ifAbsent:[true].
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5119
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5120
    "
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5121
     UserPreferences current useSystemLanguage
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5122
     UserPreferences current useSystemLanguage:false
18824
9511004e8aa9 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18823
diff changeset
  5123
     UserPreferences current useSystemLanguage:true
18823
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5124
    "
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5125
!
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5126
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5127
useSystemLanguage:aBoolean
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5128
    "if true, the operating system's language is used (i.e. LANG environment variable),
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5129
     when the system comes up. If false, the setting here is used.
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5130
     The default is true."
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5131
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5132
    self at:#useSystemLanguage put:aBoolean.
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5133
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5134
    "
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5135
     UserPreferences current useSystemLanguage
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5136
     UserPreferences current useSystemLanguage:false
01a452c69668 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 18818
diff changeset
  5137
    "
13373
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5138
! !
4aae1409ec97 changed:5 methods
Stefan Vogel <sv@exept.de>
parents: 13347
diff changeset
  5139
19472
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5140
!UserPreferences methodsFor:'accessing-prefs-startup'!
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5141
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5142
autoloadedPackages
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5143
    "list of package names, which are automatically loaded upon startup"
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5144
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5145
    ^ self at:#autoloadedPackages ifAbsent:[#()]
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5146
!
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5147
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5148
autoloadedPackages:aCollectionOfPackageNames
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5149
    "list of package names, which are automatically loaded upon startup"
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5150
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5151
    self at:#autoloadedPackages put:aCollectionOfPackageNames
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5152
! !
1c71c47b35d1 #BUGFIX
Claus Gittinger <cg@exept.de>
parents: 19391
diff changeset
  5153
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5154
!UserPreferences methodsFor:'accessing-prefs-times'!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5155
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5156
timeToAutoExpandItemsWhenDraggingOver
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5157
    "in a hierarchical tree view"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5158
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5159
    ^ 700  "/ millis
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5160
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5161
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5162
twoDigitDateHandler
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5163
    "return a block which converts a two-digit date.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5164
     Possible algorithms:
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  5165
	- identity: treat as year 00..99
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  5166
	- add 1900: treat as 1900..1999
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  5167
	- 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
  5168
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5169
     TODO: make this configurable, keep in dictionary and add to settings.
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5170
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5171
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5172
    ^ [:x | (x >= 50) ifTrue:[1900+x] ifFalse:[2000+x]].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5173
    "/ ^ [:x | 1900+x].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5174
    "/ ^ [:x | x].
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5175
! !
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5176
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5177
!UserPreferences methodsFor:'accessing-prefs-tools'!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5178
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5179
allowSendMailFromDebugger
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5180
    "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
  5181
     mail account "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5182
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5183
    ^ self at:#allowSendMailFromDebugger ifAbsent:true
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5184
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5185
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5186
     UserPreferences current allowSendMailFromDebugger
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5187
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5188
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5189
    "Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5190
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5191
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5192
allowSendMailFromDebugger:aBoolean
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5193
    "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
  5194
     mail account "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5195
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5196
    ^ self at:#allowSendMailFromDebugger put:aBoolean
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5197
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5198
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5199
     UserPreferences current allowSendMailFromDebugger:true
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5200
     UserPreferences current allowSendMailFromDebugger:false
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5201
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5202
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5203
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5204
autoDefineWorkspaceVariables
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5205
    "return the flag which controls automatic definition of unknown variables
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5206
     as workspace variables (in doIts)"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5207
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  5208
    ^ self at:#autoDefineWorkspaceVariables ifAbsent:false
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5209
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5210
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5211
     UserPreferences current autoDefineWorkspaceVariables
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5212
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5213
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5214
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5215
autoDefineWorkspaceVariables:aBoolean
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5216
    "turn on/off automatic definition of unknown variables
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5217
     as workspace variables (in doIts)"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5218
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5219
    ^ self at:#autoDefineWorkspaceVariables put:aBoolean
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5220
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5221
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5222
     UserPreferences current autoDefineWorkspaceVariables:true
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5223
     UserPreferences current autoDefineWorkspaceVariables:false
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5224
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5225
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5226
10540
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5227
autoRaiseDebugger
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5228
    "if true, the debugger raises itself automatically when entered.
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5229
     The default is true"
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5230
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5231
    ^ self at:#autoRaiseDebugger ifAbsent:true
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5232
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5233
    "
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5234
     UserPreferences current autoRaiseDebugger
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5235
    "
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5236
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5237
    "Created: / 15-05-2007 / 13:29:10 / cg"
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5238
!
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5239
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5240
autoRaiseDebugger:aBoolean
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5241
    "if true, the debugger raises itself automatically when entered.
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5242
     The default is true"
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5243
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5244
    ^ self at:#autoRaiseDebugger put:aBoolean
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5245
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5246
    "
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  5247
     UserPreferences current autoRaiseDebugger
10540
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5248
     UserPreferences current autoRaiseDebugger:false
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5249
     UserPreferences current autoRaiseDebugger:true
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5250
    "
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5251
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5252
    "Created: / 15-05-2007 / 13:29:31 / cg"
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5253
!
ccead52b3fd9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10478
diff changeset
  5254
15130
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5255
autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5256
    "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
  5257
     when it gets the focus (via the window manager) after that
15130
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5258
     number of milliseconds. If nil, autoRaise is disabled.
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5259
     Especially useful with focusFollowsMouse under X11"
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5260
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5261
    ^ self at:#autoRaiseOnFocusInDelay ifAbsent:nil
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5262
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5263
    "
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5264
     UserPreferences current autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5265
    "
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5266
!
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5267
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5268
autoRaiseOnFocusInDelay:anIntegerOrNil
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5269
    "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
  5270
     when it gets the focus (via the window manager) after that
15130
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5271
     number of milliseconds. If nil, autoRaise is disabled.
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5272
     Especially useful with focusFollowsMouse under X11"
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5273
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5274
    ^ self at:#autoRaiseOnFocusInDelay put:anIntegerOrNil
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5275
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5276
    "
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5277
     UserPreferences current autoRaiseOnFocusInDelay
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5278
     UserPreferences current autoRaiseOnFocusInDelay:nil
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5279
     UserPreferences current autoRaiseOnFocusInDelay:750
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5280
    "
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5281
!
df8a9794fd74 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 14915
diff changeset
  5282
15417
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5283
autoRaiseTranscript
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5284
    "if true, the transcript raises itself automatically when new messages appear.
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5285
     The default is false"
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5286
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5287
    ^ self at:#autoRaiseTranscript ifAbsent:false
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5288
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5289
    "
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5290
     UserPreferences current autoRaiseTranscript
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5291
    "
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5292
!
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5293
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5294
autoRaiseTranscript:aBoolean
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5295
    "if true, the transcript raises itself automatically when new messages appear.
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5296
     The default is false"
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5297
15427
56edc9d91140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15426
diff changeset
  5298
    |transcript|
56edc9d91140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15426
diff changeset
  5299
56edc9d91140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15426
diff changeset
  5300
    self at:#autoRaiseTranscript put:aBoolean.
56edc9d91140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15426
diff changeset
  5301
    (self == UserPreferences current) ifTrue:[
18641
95284fb28b6b class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 18557
diff changeset
  5302
        transcript := Transcript current.
95284fb28b6b class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 18557
diff changeset
  5303
        (transcript notNil and:[transcript isTextCollector]) ifTrue:[
95284fb28b6b class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 18557
diff changeset
  5304
            transcript autoRaise:aBoolean.
95284fb28b6b class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 18557
diff changeset
  5305
        ].
15427
56edc9d91140 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15426
diff changeset
  5306
    ].
15417
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5307
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5308
    "
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5309
     UserPreferences current autoRaiseTranscript:true
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5310
     UserPreferences current autoRaiseTranscript:false
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5311
     UserPreferences current autoRaiseTranscript
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5312
    "
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5313
!
13b0cb902059 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15290
diff changeset
  5314
19087
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5315
debuggerLogFile
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5316
    "if non nil, any entered debugger writes a backrace to that logfile.
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5317
     This is useful to record all session-problems"
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5318
     
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5319
    ^ self at:#debuggerLogFile ifAbsent:nil
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5320
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5321
    "
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5322
     UserPreferences current debuggerLogFile
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5323
     UserPreferences current debuggerLogFile:'debug.log'
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5324
     UserPreferences current debuggerLogFile:nil
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5325
    "
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5326
!
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5327
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5328
debuggerLogFile:aFilename
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5329
    "if non nil, any entered debugger writes a backrace to that logfile.
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5330
     This is useful to record all session-problems"
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  5331
19087
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5332
    ^ self at:#debuggerLogFile put:aFilename
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5333
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5334
    "
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5335
     UserPreferences current debuggerLogFile
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5336
     UserPreferences current debuggerLogFile:'debug.log'
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5337
     UserPreferences current debuggerLogFile:nil
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5338
    "
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5339
!
8dd2de981030 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18928
diff changeset
  5340
11419
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5341
editToolbarVisibleInWorkspace
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5342
    "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
  5343
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5344
    ^ self at:#editToolbarVisibleInWorkspace ifAbsent:false
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5345
!
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5346
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5347
editToolbarVisibleInWorkspace:aBooleanOrNil
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5348
    "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
  5349
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5350
    ^ self at:#editToolbarVisibleInWorkspace put:aBooleanOrNil
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5351
!
ee9207931cac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11390
diff changeset
  5352
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5353
functionKeySequences
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5354
    "return the collection of function-key macros.
19953
af1909f1dbec #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19952
diff changeset
  5355
     That's a dictionary, which assigns code to F-keys"
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5356
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5357
    ^ self at:#functionKeySequences ifAbsentPut:[Dictionary new]
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5358
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5359
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5360
     UserPreferences current functionKeySequences
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5361
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5362
19953
af1909f1dbec #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19952
diff changeset
  5363
    "Modified: / 11-09-1998 / 00:09:59 / cg"
af1909f1dbec #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 19952
diff changeset
  5364
    "Modified (comment): / 06-06-2016 / 10:43:30 / cg"
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5365
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5366
14160
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5367
hideSupportCodeInDebugger
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5368
    ^ self at:#hideSupportCodeInDebugger ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5369
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5370
    "
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5371
     UserPreferences current hideSupportCodeInDebugger
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5372
    "
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5373
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5374
    "Created: / 10-06-2012 / 21:24:09 / cg"
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5375
!
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5376
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5377
hideSupportCodeInDebugger:aBooleanOrNil
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5378
    ^ self at:#hideSupportCodeInDebugger put:aBooleanOrNil
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5379
Claus Gittinger <cg@exept.de>
parents: 14159
diff changeset
  5380
    "Created: / 10-06-2012 / 21:24:18 / cg"
14159
Claus Gittinger <cg@exept.de>
parents: 14140
diff changeset
  5381
!
Claus Gittinger <cg@exept.de>
parents: 14140
diff changeset
  5382
10661
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5383
infoVisibleInWorkspace
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5384
    "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
  5385
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5386
    ^ self at:#infoVisibleInWorkspace ifAbsent:false
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5387
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5388
    "Created: / 14-07-2007 / 16:43:37 / cg"
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5389
!
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5390
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5391
infoVisibleInWorkspace:aBooleanOrNil
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5392
    "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
  5393
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5394
    ^ self at:#infoVisibleInWorkspace put:aBooleanOrNil
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5395
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5396
    "Created: / 14-07-2007 / 16:43:44 / cg"
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5397
!
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5398
16377
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5399
sendMessagesAlsoToTranscript
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5400
    "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
  5401
     on both Stderr AND the Transcript, or only on Stderr"
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5402
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5403
    ^ self at:#sendMessagesAlsoToTranscript ifAbsent:true
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5404
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5405
    "
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5406
     UserPreferences current sendMessagesAlsoToTranscript
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5407
    "
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5408
!
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5409
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5410
sendMessagesAlsoToTranscript:aBooleanOrNil
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5411
    "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
  5412
     on both Stderr AND the Transcript, or only on Stderr"
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5413
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5414
    ^ self at:#sendMessagesAlsoToTranscript put:aBooleanOrNil
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5415
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5416
    "
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5417
     UserPreferences current sendMessagesAlsoToTranscript:false.
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5418
     'hello' infoPrintCR.
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5419
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5420
     UserPreferences current sendMessagesAlsoToTranscript:true.
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5421
     'hello' infoPrintCR.
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5422
    "
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5423
!
b4401b17b2eb class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16330
diff changeset
  5424
19783
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5425
sendMessagesOnlyToTranscript
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5426
    "return the flag which controls if info/error messages are to be shown
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5427
     on Stderr (if true is returned, they are only shown on the Transcript)"
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5428
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5429
    ^ self at:#sendMessagesOnlyToTranscript ifAbsent:false
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5430
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5431
    "
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5432
     UserPreferences current sendMessagesOnlyToTranscript
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5433
    "
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5434
!
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5435
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5436
sendMessagesOnlyToTranscript:aBoolean
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5437
    "set the flag which controls if info/error messages are to be shown
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5438
     on Stderr (if true is returned, they are only shown on the Transcript)"
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5439
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5440
    self at:#sendMessagesOnlyToTranscript put:aBoolean
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5441
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5442
    "
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5443
     UserPreferences current sendMessagesOnlyToTranscript:true.
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5444
     'hello' errorPrintCR.
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5445
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5446
     UserPreferences current sendMessagesOnlyToTranscript:false.
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5447
     'hello' errorPrintCR.
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5448
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5449
     UserPreferences current sendMessagesOnlyToTranscript
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5450
    "
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5451
!
7bfb43d27fb9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 19755
diff changeset
  5452
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5453
showClockInLauncher
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5454
    "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
  5455
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  5456
    ^ self at:#showClockInLauncher ifAbsent:false
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5457
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5458
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5459
     UserPreferences current showClockInLauncher
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5460
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5461
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5462
    "Modified: / 11.9.1998 / 00:09:59 / cg"
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5463
!
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5464
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5465
showClockInLauncher:aBooleanOrNil
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5466
    "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
  5467
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5468
    ^ self at:#showClockInLauncher put:aBooleanOrNil
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5469
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5470
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5471
     UserPreferences current showClockInLauncher:false.
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  5472
     NewLauncher open.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5473
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5474
     UserPreferences current showClockInLauncher:true.
11143
3712ab6b344b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11064
diff changeset
  5475
     NewLauncher open.
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5476
    "
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5477
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5478
    "Modified: / 11.9.1998 / 00:09:59 / cg"
7624
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5479
!
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5480
14140
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5481
showTypeIndicatorInInspector
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5482
    ^ self at:#showTypeIndicatorInInspector ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5483
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5484
    "
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5485
     UserPreferences current showTypeIndicatorInInspector
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5486
    "
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5487
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5488
    "Created: / 16-05-2012 / 19:09:50 / cg"
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5489
!
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5490
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5491
showTypeIndicatorInInspector:aBooleanOrNil
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5492
    ^ self at:#showTypeIndicatorInInspector put:aBooleanOrNil
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5493
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5494
    "
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5495
     UserPreferences current showTypeIndicatorInInspector:false.
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5496
     NewLauncher inspect.
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5497
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5498
     UserPreferences current showTypeIndicatorInInspector:true.
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5499
     NewLauncher inspect.
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5500
    "
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5501
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5502
    "Created: / 16-05-2012 / 19:10:13 / cg"
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5503
!
Claus Gittinger <cg@exept.de>
parents: 14064
diff changeset
  5504
18689
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5505
terminalInputIsUTF8
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5506
    "if true, a shell or unix command accepts utf8 encoded input and character input
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5507
     should be encoded as such by the terminal emulator."
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5508
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5509
    ^ self
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5510
        at:#terminalInputIsUTF8
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5511
        ifAbsent:[ OperatingSystem isOSXlike
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5512
                   "/ or ???
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5513
                 ]
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5514
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5515
    "
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5516
     UserPreferences current terminalInputIsUTF8
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5517
    "
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5518
!
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5519
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5520
terminalInputIsUTF8:aBoolean
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5521
    "if true, a shell or unix command accepts utf8 encoded input and character input
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5522
     should be encoded as such by the terminal emulator.
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5523
     This specifies a default setting for terminal views; individual instances can be
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5524
     changed be calling a corresponding setup method on it."
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5525
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5526
    ^ self
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5527
        at:#terminalInputIsUTF8
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5528
        put:aBoolean
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5529
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5530
    "
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5531
     UserPreferences current terminalInputIsUTF8
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5532
     UserPreferences current terminalInputIsUTF8:true
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5533
     UserPreferences current terminalInputIsUTF8:false
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5534
    "
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5535
!
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5536
16552
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5537
terminalOutputIsUTF8
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5538
    "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
  5539
     the terminal emulator."
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5540
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  5541
    ^ self
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5542
	at:#terminalOutputIsUTF8
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5543
	ifAbsent:[ OperatingSystem isOSXlike
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5544
		   "/ or ???
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5545
		 ]
16552
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5546
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5547
    "
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5548
     UserPreferences current terminalOutputIsUTF8
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5549
    "
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5550
!
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5551
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5552
terminalOutputIsUTF8:aBoolean
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5553
    "if true, the shell's output is utf8 encoded and should be decoded by
18689
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5554
     the terminal emulator.
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5555
     This specifies a default setting for terminal views; individual instances can be
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5556
     changed be calling a corresponding setup method on it."
16552
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5557
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  5558
    ^ self
18689
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5559
        at:#terminalOutputIsUTF8
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5560
        put:aBoolean
16552
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5561
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5562
    "
17415
50f3123cbbb7 Oops, fixed bug introduced in previous commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17414
diff changeset
  5563
     UserPreferences current terminalOutputIsUTF8
18689
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5564
     UserPreferences current terminalOutputIsUTF8:true
7d2f54384c6c class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18643
diff changeset
  5565
     UserPreferences current terminalOutputIsUTF8:false
16552
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5566
    "
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5567
!
7f1225f85842 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16542
diff changeset
  5568
10661
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5569
toolbarVisibleInWorkspace
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5570
    "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
  5571
10665
fd0702c99a8b toolbarVisibleInWorkspace default
Claus Gittinger <cg@exept.de>
parents: 10661
diff changeset
  5572
    ^ self at:#toolbarVisibleInWorkspace ifAbsent:true
fd0702c99a8b toolbarVisibleInWorkspace default
Claus Gittinger <cg@exept.de>
parents: 10661
diff changeset
  5573
fd0702c99a8b toolbarVisibleInWorkspace default
Claus Gittinger <cg@exept.de>
parents: 10661
diff changeset
  5574
    "Modified: / 18-07-2007 / 08:55:44 / cg"
10661
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5575
!
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5576
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5577
toolbarVisibleInWorkspace:aBooleanOrNil
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5578
    "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
  5579
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5580
    ^ self at:#toolbarVisibleInWorkspace put:aBooleanOrNil
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5581
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5582
    "Created: / 14-07-2007 / 16:42:09 / cg"
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5583
!
b7a36c50567c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10540
diff changeset
  5584
19700
3775538c52dc #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 19684
diff changeset
  5585
useJavaCompletionEngineSimple
3775538c52dc #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 19684
diff changeset
  5586
    "/ switch to false, when the JavaCompletionEngine is
3775538c52dc #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 19684
diff changeset
  5587
    "/ finished.
20243
44d5a7ba8756 #DOCUMENTATION by mawalch
mawalch
parents: 20119
diff changeset
  5588
19700
3775538c52dc #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 19684
diff changeset
  5589
    ^ true
3775538c52dc #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 19684
diff changeset
  5590
!
3775538c52dc #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 19684
diff changeset
  5591
11024
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5592
useNewLayoutInDebugger
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5593
    ^ self at:#useNewLayoutInDebugger ifAbsent:true
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5594
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5595
    "
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5596
     UserPreferences current useNewLayoutInDebugger
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5597
    "
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5598
!
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5599
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5600
useNewLayoutInDebugger:aBoolean
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5601
    ^ self at:#useNewLayoutInDebugger put:aBoolean
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5602
!
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5603
7624
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5604
useRefactoringSupport
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5605
    "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
  5606
     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
  5607
     There is usually no reason to disable these."
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5608
9302
f3dae8816824 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9286
diff changeset
  5609
    ^ self at:#useRefactoringSupport ifAbsent:true
7624
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5610
!
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5611
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5612
useRefactoringSupport:aBooleanOrNil
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5613
    "enable/disable use of refactoring package in browser.
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5614
     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
  5615
     There is usually no reason to disable these."
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5616
44f0109f5115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7614
diff changeset
  5617
    ^ self at:#useRefactoringSupport put:aBooleanOrNil
7625
b5a9bf06be59 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7624
diff changeset
  5618
b5a9bf06be59 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7624
diff changeset
  5619
    "
b5a9bf06be59 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7624
diff changeset
  5620
     UserPreferences current useRefactoringSupport:false
b5a9bf06be59 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7624
diff changeset
  5621
     UserPreferences current useRefactoringSupport:true
b5a9bf06be59 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7624
diff changeset
  5622
    "
11024
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5623
!
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5624
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5625
verboseBacktraceInDebugger
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5626
    ^ self at:#verboseBacktraceInDebugger ifAbsent:true
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5627
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5628
    "
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5629
     UserPreferences current verboseBacktraceInDebugger
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5630
    "
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5631
!
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5632
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5633
verboseBacktraceInDebugger:aBoolean
464465f8b891 new layout in debugger
Claus Gittinger <cg@exept.de>
parents: 11023
diff changeset
  5634
    ^ self at:#verboseBacktraceInDebugger put:aBoolean
7549
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5635
! !
442051ac6373 category changes
Claus Gittinger <cg@exept.de>
parents: 7523
diff changeset
  5636
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5637
!UserPreferences methodsFor:'accessing-prefs-tools-building'!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5638
15917
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5639
autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5640
    ^ self at:#autoUnloadAutoloadedClassesInProjectDefinition ifAbsent:false
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5641
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5642
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5643
     UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5644
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5645
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5646
    "Created: / 28-01-2014 / 21:42:59 / cg"
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5647
!
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5648
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5649
autoUnloadAutoloadedClassesInProjectDefinition:aBoolean
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5650
    ^ self at:#autoUnloadAutoloadedClassesInProjectDefinition put:aBoolean
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5651
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5652
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5653
     UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5654
     UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition:false
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5655
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5656
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5657
    "Created: / 28-01-2014 / 21:43:18 / cg"
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5658
!
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5659
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5660
buildDirectory
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5661
    ^ self at:#buildDirectory ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5662
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5663
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5664
     UserPreferences current buildDirectory
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5665
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5666
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5667
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5668
buildDirectory:aFilenameStringOrNil
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5669
    ^ self at:#buildDirectory put:aFilenameStringOrNil
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5670
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5671
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5672
     UserPreferences current buildDirectory
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5673
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5674
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5675
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5676
localBuild
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5677
    "deployment-build in  a local directory (as opposed to making via the repository)"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5678
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5679
    ^ self at:#localBuild ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5680
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5681
    "Created: / 20-09-2006 / 23:55:01 / cg"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5682
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5683
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5684
localBuild:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5685
    "deployment-build in  a local directory (as opposed to making via the repository)"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5686
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5687
    ^ self at:#localBuild put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5688
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5689
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5690
     UserPreferences current localBuild
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5691
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5692
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5693
    "Created: / 20-09-2006 / 23:55:26 / cg"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5694
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5695
15917
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5696
suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5697
    ^ self at:#suppressProjectDefinitionWarnings ifAbsent:true
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5698
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5699
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5700
     UserPreferences current suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5701
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5702
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5703
    "Created: / 28-01-2014 / 21:41:01 / cg"
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5704
!
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5705
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5706
suppressProjectDefinitionWarnings:aBoolean
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5707
    ^ self at:#suppressProjectDefinitionWarnings put:aBoolean
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5708
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5709
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5710
     UserPreferences current suppressProjectDefinitionWarnings
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5711
     UserPreferences current suppressProjectDefinitionWarnings:true
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5712
    "
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5713
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5714
    "Created: / 28-01-2014 / 21:41:12 / cg"
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5715
!
ac687dc34fbd class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15915
diff changeset
  5716
13967
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5717
usedCompilerForBuild
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5718
    ^ self at:#usedCompilerForBuild ifAbsent:nil
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5719
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5720
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5721
     UserPreferences current usedCompilerForBuild
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5722
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5723
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5724
    "Created: / 22-01-2012 / 10:52:47 / cg"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5725
!
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5726
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5727
usedCompilerForBuild:aString
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5728
    ^ self at:#usedCompilerForBuild put:aString
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5729
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5730
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5731
     UserPreferences current usedCompilerForBuild
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5732
     UserPreferences current usedCompilerForBuild:'bcc'
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5733
    "
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5734
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5735
    "Created: / 22-01-2012 / 10:52:59 / cg"
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5736
! !
Claus Gittinger <cg@exept.de>
parents: 13943
diff changeset
  5737
13941
0621bed84963 added:9 methods
Claus Gittinger <cg@exept.de>
parents: 13885
diff changeset
  5738
!UserPreferences methodsFor:'accessing-scm'!
13596
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5739
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5740
showBadRevisionStringDialogs
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5741
    "show a dialog when a bad revision string is encountered, or silently fix it"
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5742
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5743
    ^ self at: #'showBadRevisionStringDialogs' ifAbsent:true
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5744
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5745
    "Created: / 19-08-2011 / 12:51:25 / cg"
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5746
!
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5747
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5748
showBadRevisionStringDialogs:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5749
    "show a dialog when a bad revision string is encountered, or silently fix it"
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5750
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5751
    ^ self at: #'showBadRevisionStringDialogs' put:aBoolean
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5752
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5753
    "Created: / 19-08-2011 / 12:51:58 / cg"
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5754
! !
Claus Gittinger <cg@exept.de>
parents: 13547
diff changeset
  5755
15960
fec5ba031704 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15925
diff changeset
  5756
13943
26472baf6c58 category of:20 methods
Claus Gittinger <cg@exept.de>
parents: 13942
diff changeset
  5757
!UserPreferences methodsFor:'default settings-syntax colors'!
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5758
6169
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5759
listOfPredefinedSyntaxColoringSchemes
6171
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5760
    "return a list of pre-defined syntax highlightning styles
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5761
     (as shown in the Launchers 'source and debugger settings' dialog."
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5762
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5763
    ^ #(
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5764
	    (#resetSyntaxColors                                         'default [ST/X style]')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5765
	    (#resetSyntaxColorsWithSideEffectHighlighting               'default with side effect highlighting [new ST/X style]')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5766
	    (#resetSyntaxColorsToVCStyle                                'green comments; blue controlFlow, red constants [VISUAL-C style]')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5767
	    (#resetSyntaxColorsBlueControlFlowSelectors                 'blue controlFlow')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5768
	    (#resetSyntaxColorsGreenComments                            'green comments')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5769
	    (#resetSyntaxColorsGreenCommentsBlueControlFlowSelectors    'green comments; blue controlFlow')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5770
	    (#resetSyntaxColorsBlueSelectorsGreenComments               'blue selectors; green comments [DOLPHIN style]')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5771
	    (#resetSyntaxColorsBlueSelectorsGreyComments                'blue selectors; grey comments')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5772
	    (#resetSyntaxColorsToSqueakStyle1                           'blue selectors; green comments [SQUEAK style]')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5773
	    (#resetSyntaxColorsToSqueakStyle2                           'blue selectors; green comments; brown self [new SQUEAK style]')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5774
	    (#resetSyntaxColorsAllBlackExceptBadIDs                     'no colors, but highlight errors')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5775
	    (#resetSyntaxColorsToVAgeStyle                              'blue globals; green comments [V''Age style]')
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  5776
	    (#resetSyntaxColorsToVW7Style                               'light blue comments [VW7 style]')
6171
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5777
      )
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5778
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5779
    "Modified: / 17-03-2012 / 10:40:18 / cg"
6169
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5780
!
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5781
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5782
resetSyntaxColors
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5783
    "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
  5784
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5785
    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
  5786
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5787
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5788
!
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5789
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5790
resetSyntaxColorsAllBlackExceptBadIDs
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5791
    "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
  5792
     except for bad identifiers, which are underwaved."
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5793
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5794
    self resetSyntaxColors.
8551
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5795
    self at:#badIdentifierEmphasis  put:(Array with:#underwave with:(#underlineColor->Color red)).
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5796
    self at:#errorColor             put:Color black.
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5797
    self at:#commentColor           put:Color black.
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5798
    self at:#constantColor          put:Color black.
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5799
    self at:#methodSelectorEmphasis put:#normal.
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5800
    self at:#selectorEmphasis       put:#normal.
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5801
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5802
    "Modified: / 16-03-2012 / 10:35:02 / cg"
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5803
!
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5804
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5805
resetSyntaxColorsBlueControlFlowSelectors
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5806
    "resets the colors in the CurrentPreferences to alternative default values
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5807
     (with blue control flow selectors)"
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5808
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5809
    self resetSyntaxColors.
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5810
    self at:#controlFlowSelectorColor put:(Color blue).
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5811
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5812
    "Created: / 08-09-2006 / 16:11:52 / cg"
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5813
!
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5814
6171
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5815
resetSyntaxColorsBlueSelectorsGreenComments
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5816
    "resets the colors in the CurrentPreferences to alternative default values
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5817
     (with blue selectors and green comments)"
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5818
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5819
    self resetSyntaxColors.
8551
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5820
    self at:#commentColor           put:(Color green darkened).
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5821
    self at:#commentEmphasis        put:#italic.
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5822
    self at:#selectorColor          put:(Color blue).
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5823
    self at:#selectorEmphasis       put:#normal.
de314b9f8fa3 sharedPools
ca
parents: 8545
diff changeset
  5824
    self at:#methodSelectorColor    put:(Color blue).
6171
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5825
    self at:#methodSelectorEmphasis put:#bold.
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5826
21845
ea439df44c7f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 21781
diff changeset
  5827
    "Modified: / 20-06-2017 / 08:35:49 / cg"
6171
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5828
!
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5829
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5830
resetSyntaxColorsBlueSelectorsGreyComments
6169
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5831
    "resets the colors in the CurrentPreferences to alternative default values
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5832
     (with blue selectors and grey comments)"
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5833
6171
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5834
    self resetSyntaxColorsBlueSelectorsGreenComments.
cf2befb8562e more coloring styles
Claus Gittinger <cg@exept.de>
parents: 6169
diff changeset
  5835
    self at:#commentColor    put:(Color gray).
6169
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5836
!
1176368a973a syntax coloring stuff
Claus Gittinger <cg@exept.de>
parents: 6059
diff changeset
  5837
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5838
resetSyntaxColorsGreenComments
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5839
    "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
  5840
     (with green comments)"
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5841
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5842
    self resetSyntaxColors.
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5843
    self at:#commentColor put:(Color green darkened).
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5844
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5845
    "Modified: / 16-03-2012 / 10:34:50 / cg"
9144
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5846
!
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5847
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5848
resetSyntaxColorsGreenCommentsBlueControlFlowSelectors
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5849
    "resets the colors in the CurrentPreferences to alternative default values
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5850
     (with green comments, blue control flow)"
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5851
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5852
    self resetSyntaxColors.
9834
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5853
    self at:#commentColor put:(Color green darkened).
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5854
    self at:#controlFlowSelectorColor put:(Color blue).
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5855
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5856
    "Created: / 08-09-2006 / 16:10:38 / cg"
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5857
!
0be637339fce control flow color&emphasis
Claus Gittinger <cg@exept.de>
parents: 9820
diff changeset
  5858
9144
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5859
resetSyntaxColorsToSqueakStyle
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5860
    "resets the colors in the CurrentPreferences to alternative default values"
9144
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5861
12281
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5862
    self resetSyntaxColorsToSqueakStyle2
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5863
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5864
    "Modified (comment): / 17-03-2012 / 10:38:07 / cg"
12281
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5865
!
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5866
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5867
resetSyntaxColorsToSqueakStyle1
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5868
    "resets the colors in the CurrentPreferences to alternative default values
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5869
     (with blue selectors and green comments)"
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5870
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5871
    self resetSyntaxColors.
9144
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5872
    self at:#commentColor             put:(Color green darkened).
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5873
    self at:#commentEmphasis          put:#italic.
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5874
    self at:#selectorColor            put:(Color blue:80).
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5875
    self at:#selectorEmphasis         put:#normal.
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5876
    self at:#methodSelectorColor      put:(Color black).
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5877
    self at:#methodSelectorEmphasis   put:#bold.
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5878
    self at:#globalIdentifierEmphasis put:#bold.
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5879
    self at:#localIdentifierColor     put:(Color grey:40).
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5880
    self at:#instVarIdentifierEmphasis put:#bold.
f2066ee39215 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9099
diff changeset
  5881
    self at:#constantColor            put:(Color red:67).
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5882
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5883
    "Modified: / 16-03-2012 / 10:34:40 / cg"
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5884
    "Modified (comment): / 17-03-2012 / 10:38:47 / cg"
9184
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5885
!
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5886
12281
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5887
resetSyntaxColorsToSqueakStyle2
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5888
    "resets the colors in the CurrentPreferences to alternative default values
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5889
     (with blue selectors and green comments)"
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5890
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5891
    self resetSyntaxColors.
12281
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5892
    self at:#commentColor             put:(Color green darkened).
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5893
    self at:#commentEmphasis          put:#italic.
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5894
    self at:#selectorColor            put:(Color blue:80).
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5895
    self at:#selectorEmphasis         put:#normal.
12391
35ee0cb7fd56 changed: #resetSyntaxColorsToSqueakStyle2
Claus Gittinger <cg@exept.de>
parents: 12348
diff changeset
  5896
    self at:#controlFlowSelectorEmphasis put:#bold.
12281
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5897
    self at:#methodSelectorColor      put:(Color black).
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5898
    self at:#methodSelectorEmphasis   put:#bold.
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5899
    self at:#globalIdentifierEmphasis put:#bold.
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5900
    self at:#localIdentifierColor     put:(Color grey:40).
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5901
    self at:#instVarIdentifierEmphasis put:#bold.
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5902
    self at:#constantColor            put:(Color red:67).
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5903
    self at:#selfColor                put:(Color red:50 ).
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5904
    self at:#selfEmphasis             put:#bold.
12282
03a6891e3ca5 changed: #resetSyntaxColorsToSqueakStyle2
Claus Gittinger <cg@exept.de>
parents: 12281
diff changeset
  5905
    self at:#localIdentifierColor     put:(Color grey:50 ).
03a6891e3ca5 changed: #resetSyntaxColorsToSqueakStyle2
Claus Gittinger <cg@exept.de>
parents: 12281
diff changeset
  5906
    self at:#localIdentifierEmphasis  put:#normal.
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5907
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5908
    "Modified: / 16-03-2012 / 10:34:35 / cg"
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5909
    "Modified (comment): / 17-03-2012 / 10:38:57 / cg"
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5910
!
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5911
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5912
resetSyntaxColorsToVAgeStyle
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5913
    "resets the colors in the CurrentPreferences to alternative default values
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5914
     (green comments, blue globals)"
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5915
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5916
    self resetSyntaxColors.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5917
    self at:#identifierColor          put:(Color rgbValue:16r00007F).
14064
c80388807776 changed: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14063
diff changeset
  5918
    self at:#argumentColor            put:(Color rgbValue:16r00007F).
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5919
    self at:#identifierEmphasis       put:#normal.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5920
    self at:#commentColor             put:(Color rgbValue:16r007F00).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5921
    self at:#selfColor                put:(Color rgbValue:16r7F007F).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5922
    self at:#constantColor            put:(Color rgbValue:16r7F0000).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5923
    self at:#selectorColor            put:(Color black).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5924
    self at:#selectorEmphasis         put:#bold.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5925
    self at:#globalIdentifierColor    put:(Color blue).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5926
    self at:#methodSelectorColor      put:(Color black).
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5927
    self at:#methodSelectorEmphasis   put:#bold.
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5928
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5929
    "Created: / 17-03-2012 / 10:37:42 / cg"
12281
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5930
!
Claus Gittinger <cg@exept.de>
parents: 12209
diff changeset
  5931
11672
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5932
resetSyntaxColorsToVCStyle
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5933
    "resets the colors in the CurrentPreferences to visual C default style
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5934
     (green comments, blue keywords, redish string constants)"
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5935
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5936
    self resetSyntaxColors.
11672
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5937
    self at:#controlFlowSelectorColor put:(Color blue).
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5938
    self at:#commentColor             put:(Color green darkened).
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5939
    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
  5940
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5941
    "Modified: / 16-03-2012 / 10:34:30 / cg"
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5942
    "Modified (comment): / 17-03-2012 / 10:39:11 / cg"
11672
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5943
!
202d14e5686d another syntax color
Claus Gittinger <cg@exept.de>
parents: 11598
diff changeset
  5944
9184
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5945
resetSyntaxColorsToVW7Style
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5946
    "resets the colors in the CurrentPreferences to alternative default values
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5947
     (with light blue comments, green variables)"
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5948
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5949
    self resetSyntaxColors.
9184
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5950
    self at:#commentColor             put:(Color blue lightened).
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5951
    self at:#selectorColor            put:(Color black).
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5952
    self at:#selectorEmphasis         put:#normal.
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5953
    self at:#methodSelectorColor      put:(Color black).
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5954
    self at:#methodSelectorEmphasis   put:#bold.
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5955
    self at:#identifierEmphasis       put:#normal.
d56887fab7ed *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9144
diff changeset
  5956
    self at:#identifierColor          put:(Color green darkened).
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5957
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5958
    "Modified: / 16-03-2012 / 10:34:26 / cg"
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5959
    "Modified (comment): / 17-03-2012 / 10:39:18 / cg"
14005
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5960
!
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5961
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5962
resetSyntaxColorsWithSideEffectHighlighting
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5963
    "resets the colors in the CurrentPreferences to their default values
14063
3601e2191b9d added: #resetSyntaxColorsToVAgeStyle
Claus Gittinger <cg@exept.de>
parents: 14062
diff changeset
  5964
     plus side effect highlighting (assignments to instvars and globals are marked)"
14005
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5965
14062
2827c508307f changed:11 methods
Claus Gittinger <cg@exept.de>
parents: 14052
diff changeset
  5966
    self resetSyntaxColors.
14005
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5967
    self at:#sideEffectAssignmentBackgroundColor put:(Color rgbValue:16rFFDBDB).
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5968
7d4c58528d0e added: #resetSyntaxColorsWithSideEffectHighlighting
Claus Gittinger <cg@exept.de>
parents: 14004
diff changeset
  5969
    "Created: / 13-02-2012 / 12:12:56 / cg"
4342
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5970
! !
f2bbfcd2f072 added some default color settings
Claus Gittinger <cg@exept.de>
parents: 4341
diff changeset
  5971
7266
f2b64d3b43cf method category rename
Claus Gittinger <cg@exept.de>
parents: 7246
diff changeset
  5972
!UserPreferences methodsFor:'default values'!
4582
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
  5973
4583
9f6051955f6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4582
diff changeset
  5974
defaultValue
9f6051955f6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4582
diff changeset
  5975
    "the defaultValue for non-existing keys"
9f6051955f6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4582
diff changeset
  5976
16652
ddeba03a6b51 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 16651
diff changeset
  5977
    ^ nil
4583
9f6051955f6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4582
diff changeset
  5978
!
9f6051955f6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4582
diff changeset
  5979
4582
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
  5980
errorKeyNotFound:aKey
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
  5981
    "for any non-existing key, false is returned"
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
  5982
4583
9f6051955f6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4582
diff changeset
  5983
    ^ self defaultValue
4582
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
  5984
! !
31cbce168a1d return false for nonexisting keys
Claus Gittinger <cg@exept.de>
parents: 4580
diff changeset
  5985
10789
d63299ba576b care for flyByHelp
Claus Gittinger <cg@exept.de>
parents: 10723
diff changeset
  5986
!UserPreferences methodsFor:'misc'!
d63299ba576b care for flyByHelp
Claus Gittinger <cg@exept.de>
parents: 10723
diff changeset
  5987
20872
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5988
doesNotUnderstand:aMessage
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5989
    |k def numArgs|
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5990
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5991
    k := aMessage selector.
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5992
    (numArgs := aMessage numArgs) == 0 ifTrue:[
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5993
        (self includesKey:k) ifTrue:[
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5994
            ^ self at:k
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5995
        ].
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5996
        ((def := self class default) includesKey:k) ifTrue:[
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5997
            ^ def at:k
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5998
        ].
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  5999
        ^ self defaultValue
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6000
    ].
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6001
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6002
    "/ this is needed, if a setting is loaded (via the settings.stx) at a time
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6003
    "/ when the corresponding package which uses that setting is not yet loaded;
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6004
    "/ for example: libsvn settings, with no libsvn being present.
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6005
    "/ if obsolete keys accumulate over time, we might need a settings cleanup GUI to
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6006
    "/ care for that.
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6007
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6008
    (numArgs == 1 and:[k endsWith:$:]) ifTrue:[
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6009
        k := k copyButLast asSymbol.
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6010
        ^ self at:k put:(aMessage arg1)
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6011
    ].
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6012
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6013
    numArgs == 1 ifTrue:[
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6014
        Logger info:'obsolete settings key ignored: %1' with:aMessage selector.
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6015
        ^ nil
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6016
    ].
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6017
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6018
    ^ super doesNotUnderstand:aMessage
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6019
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6020
    "Modified (comment): / 19-08-2011 / 14:01:56 / cg"
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6021
!
7e6390bf67a5 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 20865
diff changeset
  6022
10789
d63299ba576b care for flyByHelp
Claus Gittinger <cg@exept.de>
parents: 10723
diff changeset
  6023
flyByHelpSettingChanged
d63299ba576b care for flyByHelp
Claus Gittinger <cg@exept.de>
parents: 10723
diff changeset
  6024
    FlyByHelp notNil ifTrue:[
18262
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  6025
	(self at:#flyByHelpActive ifAbsent:true) ifTrue:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  6026
	    FlyByHelp start.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  6027
	] ifFalse:[
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  6028
	    FlyByHelp stop.
572b30c5626f avoid another message send
Claus Gittinger <cg@exept.de>
parents: 17593
diff changeset
  6029
	].
10789
d63299ba576b care for flyByHelp
Claus Gittinger <cg@exept.de>
parents: 10723
diff changeset
  6030
    ].
d63299ba576b care for flyByHelp
Claus Gittinger <cg@exept.de>
parents: 10723
diff changeset
  6031
! !
d63299ba576b care for flyByHelp
Claus Gittinger <cg@exept.de>
parents: 10723
diff changeset
  6032
6937
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6033
!UserPreferences methodsFor:'obsolete'!
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6034
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6035
useNewSettinsApplication
11598
970f65d53e13 Mark obsolete methods
Stefan Vogel <sv@exept.de>
parents: 11589
diff changeset
  6036
    <resource: #obsolete>
8545
37d394b08f2b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8433
diff changeset
  6037
    "obsolete - will be removed in next release.
37d394b08f2b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8433
diff changeset
  6038
     (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
  6039
      saved user preference files)"
6937
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6040
6941
1700d0c53837 make old to settings changed settins methods obsolete
penk
parents: 6937
diff changeset
  6041
    self obsoleteMethodWarning.
7029
a73bc40f9bdb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7028
diff changeset
  6042
    ^ self useNewSettingsApplication
6937
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6043
!
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6044
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6045
useNewSettinsApplication:aBoolean
11598
970f65d53e13 Mark obsolete methods
Stefan Vogel <sv@exept.de>
parents: 11589
diff changeset
  6046
    <resource: #obsolete>
7030
52b794e6abee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7029
diff changeset
  6047
    "obsolete - will be removed in next release"
6937
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6048
6941
1700d0c53837 make old to settings changed settins methods obsolete
penk
parents: 6937
diff changeset
  6049
    self obsoleteMethodWarning.
7029
a73bc40f9bdb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7028
diff changeset
  6050
    self useNewSettingsApplication:aBoolean.
6937
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6051
! !
3054abf221c9 *** empty log message ***
penk
parents: 6936
diff changeset
  6052
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
  6053
!UserPreferences methodsFor:'saving'!
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
  6054
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
  6055
saveIn:fileName
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
  6056
    self class saveSettings:self in:fileName
17569
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  6057
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  6058
    "
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  6059
     UserPreferences current saveIn:'test.settings'
0959d704ad9b class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 17541
diff changeset
  6060
    "
7028
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
  6061
! !
0911f2698be9 saveSettings here
Claus Gittinger <cg@exept.de>
parents: 7026
diff changeset
  6062
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6063
!UserPreferences class methodsFor:'documentation'!
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6064
13885
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  6065
version
18489
710dbb73f2e8 class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 18419
diff changeset
  6066
    ^ '$Header$'
13885
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  6067
!
Claus Gittinger <cg@exept.de>
parents: 13884
diff changeset
  6068
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  6069
version_CVS
18489
710dbb73f2e8 class: UserPreferences
Stefan Vogel <sv@exept.de>
parents: 18419
diff changeset
  6070
    ^ '$Header$'
12096
Claus Gittinger <cg@exept.de>
parents: 12027
diff changeset
  6071
!
Claus Gittinger <cg@exept.de>
parents: 12027
diff changeset
  6072
13399
eb68067907e1 changed: #version_CVS
vrany
parents: 13391
diff changeset
  6073
version_SVN
15290
de9c34723d33 class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 15158
diff changeset
  6074
    ^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1  $'
3347
67d788da4fc0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  6075
! !
18419
0b0564c6352d class: UserPreferences
Claus Gittinger <cg@exept.de>
parents: 18262
diff changeset
  6076