styles/mswindowsXP.style
author Claus Gittinger <cg@exept.de>
Fri, 15 Oct 2004 15:21:27 +0200
changeset 4312 0d265a8b7787
parent 4311 53ad3df065da
child 4314 4dcc556144dd
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
     1
; View defaultStyle:#mswindowsXP
3720
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
;
4312
0d265a8b7787 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4311
diff changeset
     3
; $Header: /cvs/stx/stx/libview/styles/mswindowsXP.style,v 1.20 2004-10-15 13:21:27 cg Exp $
3720
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
     5
name                            #winXP
3720
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
;
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
; for now, much like win95, except for some menuPanel details
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
     9
; scrollbars are to come ...
3720
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
;
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
.
3750
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    12
;
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    13
; notice: the values below
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    14
; are not used when running under native Windows
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    15
; (uses system-settings values then)
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    16
;
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
    17
#if Screen current hasGreyscales
3750
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    18
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    19
selectionBlue                   (Color red:0 green:0 blue:50) exactOrNearestOn:(Screen current)
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    20
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    21
viewGrey                        (Color redByte:241 greenByte:242 blueByte:239) exactOrNearestOn:(Screen current)
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
    22
viewLightGrey                   Color white
3750
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    23
lightColor                      Color white
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    24
halfShadowColor                 (Color grey:80) exactOrNearestOn:(Screen current)
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    25
halfLightColor                  =viewGrey
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    26
shadowColor                     (Color grey:50) exactOrNearestOn:(Screen current)
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    27
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    28
#else
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    29
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    30
selectionBlue                   Color black
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    31
viewGrey                        Color white
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
    32
viewLightGrey                   Color white
3750
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    33
lightColor                      Color grey:50
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    34
shadowColor                     Color black
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    35
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    36
#endif
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    37
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    38
#if Screen current platformName = 'WIN32'
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    39
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    40
selectionBlue                   [Screen current getSystemColor:#'COLOR_HIGHLIGHT']
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    41
menu.backgroundColor            [Screen current getSystemColor:#'COLOR_MENU'     ]
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    42
menu.foregroundColor            [Screen current getSystemColor:#'COLOR_MENUTEXT' ]
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    43
viewGrey                        [Screen current getSystemColor:#'COLOR_BTNFACE'  ]
4311
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    44
lightenedViewGrey               [(Screen current getSystemColor:#'COLOR_BTNFACE') lightened ]
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    45
darkenedViewGrey                [(Screen current getSystemColor:#'COLOR_BTNFACE') darkened ]
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    46
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    47
#else
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    48
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    49
lightenedViewGrey               Color redByte:240 greenByte:240 blueByte:240
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    50
darkenedViewGrey                Color redByte:150 greenByte:150 blueByte:150
3750
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    51
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    52
#endif
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    53
e410988ac7ca *** empty log message ***
ca
parents: 3749
diff changeset
    54
#include 'mswindows95.common'
4311
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    55
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
    56
name                            #winXP
3720
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
    58
comment  'winXP lookalike (smarty design; experimental)'
3720
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
#if (Language == #german) or:[Language == #de]
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
comment  'an MS WindowsXP angelehnter Stil'
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
#endif
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
#if (Language == #french) or:[Language == #fr]
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
comment  'Un style qui résemble MS WindowsXP'
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
#endif
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
746e0a7b1475 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
menu.enteredLevel               0
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
    69
; menu.buttonEnteredLevel         2   "/ sigh - does not work
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
    70
3722
Claus Gittinger <cg@exept.de>
parents: 3720
diff changeset
    71
;; enable this, when old menuView cares for it also
4311
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    72
;; menu.itemMargin                          1
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    73
menu.selectionFollowsMouse                  true
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    74
menu.enteredBackgroundColor                 =menu.hilightBackgroundColor
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    75
menu.enteredForegroundColor                 =menu.hilightForegroundColor
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    76
menu.iconIndicationOn.bitmapFile            'CheckOn_xp.xpm'
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    77
menu.iconIndicationOff.bitmapFile           'CheckOff_xp.xpm'
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    78
menu.iconRadioOn.bitmapFile                 'RadioOn_xp.xpm'
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    79
menu.iconRadioOff.bitmapFile                'RadioOff_xp.xpm'
4307
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
    80
menu.iconDisabledIndicationOn.bitmapFile    'CheckOn_disabled_xp.xpm'
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
    81
menu.iconDisabledIndicationOff.bitmapFile   'CheckOff_disabled_xp.xpm'
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
    82
menu.iconDisabledRadioOn.bitmapFile         'RadioOn_disabled_xp.xpm'
Claus Gittinger <cg@exept.de>
parents: 4306
diff changeset
    83
menu.iconDisabledRadioOff.bitmapFile        'RadioOff_disabled_xp.xpm'
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
    84
4311
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    85
;button.edgeStyle                       #soft
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    86
;button.activeLevel                     -1
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    87
;button.passiveLevel                    3
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
    88
;button.enteredBackgroundColor          [ (Screen current getSystemColor:#'COLOR_BTNFACE') lightened ]
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
    89
4300
Claus Gittinger <cg@exept.de>
parents: 4296
diff changeset
    90
comboView.downFormFile                  'ComboDn_xp.xpm'.
Claus Gittinger <cg@exept.de>
parents: 4296
diff changeset
    91
comboView.disabledDownFormFile          'ComboDn_disabled_xp.xpm'.
Claus Gittinger <cg@exept.de>
parents: 4296
diff changeset
    92
comboView.activeDownFormFile            'ComboDn_active_xp.xpm'.
Claus Gittinger <cg@exept.de>
parents: 4296
diff changeset
    93
comboView.enteredDownFormFile           'ComboDn_entered_xp.xpm'.
Claus Gittinger <cg@exept.de>
parents: 4296
diff changeset
    94
comboView.button.activeLevel            0
Claus Gittinger <cg@exept.de>
parents: 4296
diff changeset
    95
comboView.button.passiveLevel           0
Claus Gittinger <cg@exept.de>
parents: 4296
diff changeset
    96
comboView.button.activeBackgroundColor  =viewGrey
4301
Claus Gittinger <cg@exept.de>
parents: 4300
diff changeset
    97
; comboView.button.activeBackgroundColor  (Color white)
Claus Gittinger <cg@exept.de>
parents: 4300
diff changeset
    98
; comboView.button.backgroundColor        (Color white)
Claus Gittinger <cg@exept.de>
parents: 4300
diff changeset
    99
; comboView.level                         0
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   100
3749
c0fac7ccb840 *** empty log message ***
ca
parents: 3728
diff changeset
   101
selection.highlightEnterItem       true         "/ underline-highlight item under cursor
c0fac7ccb840 *** empty log message ***
ca
parents: 3728
diff changeset
   102
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
   103
scroller.viewBackground          (Color redByte:16rFB greenByte:16rFB blueByte:16rF9)
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   104
scroller.thumbColor              (Color redByte:175 greenByte:190 blueByte:240) slightlyLightened
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   105
scroller.thumbLightColor         (Color redByte:16rCF greenByte:16rDD blueByte:16rFD)
4296
240f73781089 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3944
diff changeset
   106
scroller.thumbShadowColor        (Color redByte:16r83 greenByte:16r9E blueByte:16rD8)
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   107
scroller.thumbEnteredColor       (Color redByte:175 greenByte:190 blueByte:240) lightened
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   108
scroller.thumbActiveColor        (Color red:64 green:75 blue:98)
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   109
scroller.thumbLevel              0
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   110
scroller.thumbInset              1
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   111
scroller.thumbFrameColor         Color white "/ (Color redByte:175 greenByte:190 blueByte:240) darkened
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   112
scroller.thumbEdgeStyle          #edged
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   113
scroller.NTallyMarks             4
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   114
scroller.tallyLevel              1
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   115
scroller.tallyInset              4
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   116
scroller.tallyDistance           2
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   117
scroller.snapBackDistance        100
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   118
scroller.minThumbSize            16
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   119
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   120
arrowButton.upFormFile            'ScrollUp.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   121
arrowButton.enteredUpFormFile     'ScrollUp_entered.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   122
arrowButton.activeUpFormFile      'ScrollUp_active.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   123
arrowButton.disabledUpFormFile    'ScrollUp_disabled.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   124
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   125
arrowButton.downFormFile          'ScrollDn.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   126
arrowButton.enteredDownFormFile   'ScrollDn_entered.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   127
arrowButton.activeDownFormFile    'ScrollDn_active.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   128
arrowButton.disabledDownFormFile  'ScrollDn_disabled.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   129
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   130
arrowButton.leftFormFile          'ScrollLt.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   131
arrowButton.enteredLeftFormFile   'ScrollLt_entered.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   132
arrowButton.activeLeftFormFile    'ScrollLt_active.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   133
arrowButton.disabledLeftFormFile  'ScrollLt_disabled.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   134
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   135
arrowButton.rightFormFile         'ScrollRt.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   136
arrowButton.enteredRightFormFile  'ScrollRt_entered.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   137
arrowButton.activeRightFormFile   'ScrollRt_active.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   138
arrowButton.disabledRightFormFile 'ScrollRt_disabled.xp.xpm'
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   139
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   140
arrowButton.passiveLevel          0
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   141
arrowButton.activeLevel           0
3728
566b30ab2f4d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3725
diff changeset
   142
arrowButton.backgroundColor       =scroller.viewBackground
566b30ab2f4d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3725
diff changeset
   143
arrowButton.activeBackgroundColor =scroller.viewBackground
3725
ecbc42849fea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3722
diff changeset
   144
4311
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
   145
noteBook.backgroundColor          =lightenedViewGrey
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
   146
noteBook.activeBackgroundColor    =viewBackground
3944
770d3bc31490 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3750
diff changeset
   147
noteBook.foregroundColor          Color black
4311
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
   148
noteBook.lightColor               =darkenedViewGrey
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
   149
noteBook.shadowColor              =darkenedViewGrey
Claus Gittinger <cg@exept.de>
parents: 4310
diff changeset
   150
noteBook.passiveBackgroundColor   =lightenedViewGrey
4302
Claus Gittinger <cg@exept.de>
parents: 4301
diff changeset
   151
4303
Claus Gittinger <cg@exept.de>
parents: 4302
diff changeset
   152
checkToggle.bitmapFile            'CheckOn10_xp.xpm'
4306
Claus Gittinger <cg@exept.de>
parents: 4305
diff changeset
   153
radioButton.passiveImageFile      'RadioOff_xp.xpm'
Claus Gittinger <cg@exept.de>
parents: 4305
diff changeset
   154
radioButton.activeImageFile       'RadioOn_xp.xpm'
4308
Claus Gittinger <cg@exept.de>
parents: 4307
diff changeset
   155
4310
Claus Gittinger <cg@exept.de>
parents: 4308
diff changeset
   156
noteBook.activeTabMarkerColor     (Color red:100 green:78 blue:23)