styles/mswindows95b.style
author Stefan Vogel <sv@exept.de>
Wed, 05 Feb 2020 13:55:32 +0100
changeset 8985 b4d006b79f84
parent 6621 a1b4cfc5fd1d
permissions -rwxr-xr-x
#BUGFIX by stefan class: ModalBox changed: #show #showAt: #showAt:centerX:centerY: #ensure: block to destroy box on abort (e.g. via Timeout-Pin - see 15_Standard_Library_Test.ets)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6621
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2991
diff changeset
     1
; View defaultStyle:#mswindows95b
2500
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
;
6621
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2991
diff changeset
     3
; $Header: /cvs/stx/stx/libview/styles/mswindows95b.style,v 1.3 2014-11-26 19:13:52 cg Exp $
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2991
diff changeset
     4
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2991
diff changeset
     5
#include 'mswindows95.style'
2500
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
comment  'win95 with changed font'
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
#if (Language == #german) or:[Language == #de]
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
comment  'MS Windows95 mit geandertem Zeichensatz'
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
#endif
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
#if (Language == #french) or:[Language == #fr]
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
comment  'MS Windows95 aved typographie differente'
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
#endif
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
6621
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2991
diff changeset
    17
name                            #win95b
2500
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2500
diff changeset
    19
#if Screen current platformName = 'WIN32'
2500
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
#endif
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2500
diff changeset
    24
#if (Screen current platformName = 'WIN32')
2500
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
font             Font family:'COMIC SANS MS' size:10
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
textFont         Font family:'COMIC SANS MS' size:10
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
menuFont         =font
3b3f457ea74e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
selection.font   =font