styles/mswindows10.style
author Stefan Vogel <sv@exept.de>
Tue, 28 Apr 2020 15:28:14 +0200
changeset 9038 dd177fea6408
parent 9003 de9be1ccbdb4
permissions -rw-r--r--
#REFACTORING by stefan class: Font changed: #setFamily:face:style:size:sizeUnit:encoding:device:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
     1
; View defaultStyle:#mswindows10
8940
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
;
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
; $Header$
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
8945
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
     5
iconLibrary                         ?(Smalltalk at:#Windows10ToolbarIconLibrary) ? (Smalltalk at:#Windows8ToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
     6
8940
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
#include 'mswindows8.style'
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
     9
name                                #win10
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    10
comment                             'Windows10 lookalike (unfinished)'
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    11
previewFileName                     'viewStyleSample_win10.png'
8940
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
#if (Language == #german) or:[Language == #de]
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    14
comment                             'an Windows10 angelehnter Stil (unvollständig)'
8940
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
#endif
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
#if (Language == #french) or:[Language == #fr]
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    18
comment                             'Un style qui résemble Windows10 (incomplet)'
8940
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
#endif
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
;
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
; unfinished
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
;
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    25
menu.enteredLevel                   0
9003
de9be1ccbdb4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8950
diff changeset
    26
embeddedToolBar.level               0
8948
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    27
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    28
selection.hilightForegroundColor            Color black
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    29
selection.hilightBackgroundColor            (Color rgbValue:16rCCE8FF)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    30
selection.hilightForegroundColorNoFocus     Color black
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    31
selection.hilightBackgroundColorNoFocus     (Color rgbValue:16rD9D9D9)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    32
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    33
selection.hilightFrameColor                 (Color rgbValue:16r99D1FF)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    34
selection.hilightFrameColorNoFocus          (Color rgbValue:16rD9D9D9)
8950
d3a9546499c3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8948
diff changeset
    35
selection.hilightMode                       #line
8948
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    36
8940
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
scrollableView.level                0
81a5ccd9a4cf *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
scrolledView.level                  0
8948
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    39
scroller.thumbInset                 0
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    40
scrollBar.disableButtons            true
9003
de9be1ccbdb4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8950
diff changeset
    41
scrollBar.vScrollBarWidth           (OperatingSystem isMSWINDOWSlike ifTrue:[ (Display getSystemMetrics:#SM_CXHTHUMB)-2 ] ifFalse:[15])
de9be1ccbdb4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8950
diff changeset
    42
scrollBar.hScrollBarHeight          (OperatingSystem isMSWINDOWSlike ifTrue:[ (Display getSystemMetrics:#SM_CYVTHUMB)-2 ] ifFalse:[15])
8943
3bafdad0a4ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8941
diff changeset
    43
; currently has trouble on win machines
8941
df352d8d9cfb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8940
diff changeset
    44
; scrollBar.hideIfPointerOutside      true
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    45
8948
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    46
variablePanel.barSideLineColor      (Color rgbValue:16rF0F0F0)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    47
variablePanel.backgroundColor       Color white
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    48
8948
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    49
arrowButton.backgroundColor         (Color rgbValue:16rF0F0F0)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    50
arrowButton.foregroundColor         (Color rgbValue:16r606060)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    51
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    52
arrowButton.enteredBackgroundColor  (Color rgbValue:16rDADADA)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    53
arrowButton.enteredForegroundColor  (Color black)
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    54
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    55
arrowButton.activeBackgroundColor   (Color rgbValue:16r606060)
8945
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    56
arrowButton.activeForegroundColor   (Color white)
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    57
8948
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
    58
arrowButton.disabledBackgroundColor (Color rgbValue:16r606060)
8945
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    59
arrowButton.disabledForegroundColor (Color grey:80)
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    60
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    61
arrowButton.upForm                  =iconLibrary scrollUpIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    62
arrowButton.downForm                =iconLibrary scrollDownIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    63
arrowButton.leftForm                =iconLibrary scrollLeftIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    64
arrowButton.rightForm               =iconLibrary scrollRightIcon
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    65
8945
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    66
;arrowButton.upForm                  =iconLibrary scrollUpOffIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    67
;arrowButton.enteredUpForm           =iconLibrary scrollUpOffEnteredIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    68
;arrowButton.activeUpForm            =iconLibrary scrollUpActiveIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    69
;arrowButton.disabledUpForm          =iconLibrary scrollUpDisabledIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    70
;
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    71
;arrowButton.downForm                =iconLibrary scrollDownOffIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    72
;arrowButton.enteredDownForm         =iconLibrary scrollDownOffEnteredIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    73
;arrowButton.activeDownForm          =iconLibrary scrollDownActiveIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    74
;arrowButton.disabledDownForm        =iconLibrary scrollDownDisabledIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    75
;
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    76
;arrowButton.leftForm                =iconLibrary scrollLeftOffIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    77
;arrowButton.enteredLeftForm         =iconLibrary scrollLeftOffEnteredIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    78
;arrowButton.activeLeftForm          =iconLibrary scrollLeftActiveIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    79
;arrowButton.disabledLeftForm        =iconLibrary scrollLeftDisabledIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    80
;
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    81
;arrowButton.rightForm               =iconLibrary scrollRightOffIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    82
;arrowButton.enteredRightForm        =iconLibrary scrollRightOffEnteredIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    83
;arrowButton.activeRightForm         =iconLibrary scrollRightActiveIcon
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    84
;arrowButton.disabledRightForm       =iconLibrary scrollRightDisabledIcon
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    85
8945
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    86
arrowButton.enteredUpForm     nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    87
arrowButton.activeUpForm      nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    88
arrowButton.disabledUpForm    nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    89
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    90
arrowButton.enteredDownForm    nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    91
arrowButton.activeDownForm     nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    92
arrowButton.disabledDownForm   nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    93
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    94
arrowButton.enteredLeftForm     nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    95
arrowButton.activeLeftForm      nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    96
arrowButton.disabledLeftForm    nil
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
    97
8945
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    98
arrowButton.enteredRightForm    nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
    99
arrowButton.activeRightForm     nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   100
arrowButton.disabledRightForm   nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   101
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   102
arrowButton.upFormFile            nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   103
arrowButton.enteredUpFormFile     nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   104
arrowButton.activeUpFormFile      nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   105
arrowButton.disabledUpFormFile    nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   106
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   107
arrowButton.downFormFile           nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   108
arrowButton.enteredDownFormFile    nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   109
arrowButton.activeDownFormFile     nil
477f180be689 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8944
diff changeset
   110
arrowButton.disabledDownFormFile   nil
8944
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   111
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   112
arrowButton.leftFormFile            nil
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   113
arrowButton.enteredLeftFormFile     nil
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   114
arrowButton.activeLeftFormFile      nil
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   115
arrowButton.disabledLeftFormFile    nil
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   116
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   117
arrowButton.rightFormFile           nil
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   118
arrowButton.enteredRightFormFile    nil
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   119
arrowButton.activeRightFormFile     nil
1107b103868c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8943
diff changeset
   120
arrowButton.disabledRightFormFile   nil
8948
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
   121
64b7075196d5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8945
diff changeset
   122
; splitterLine: F7