--- a/XWorkstation.st Wed Oct 07 01:02:19 2015 +0200
+++ b/XWorkstation.st Wed Oct 07 01:03:42 2015 +0200
@@ -1647,6 +1647,18 @@
"
!
+suppressShadowViews
+ "return true, if this device wants to suppress shadow views
+ (i.e. shadows under popups and modalBoxes).
+ Some (slow) devices may want to return true here.
+ Also, XQuartz does not work..."
+
+ OperatingSystem isOSXlike ifTrue:[
+ ^ true
+ ].
+ ^ super suppressShadowViews
+!
+
usableHeightAt:aPoint
"returns the usable height of the display (in pixels) at a given point
Normally, the same as height, but may be smaller, in
@@ -7427,8 +7439,8 @@
!
getFontWithFoundry:foundry family:family weight:weight
- slant:slant spacing:spc pixelSize:pSize size:size
- encoding:encoding
+ slant:slant spacing:spc pixelSize:pSize size:size
+ encoding:encoding
"get the specified font, if not available, return nil.
Individual attributes can be left empty (i.e. '') or nil to match any.
@@ -7449,64 +7461,64 @@
"this works only on 'Release >= 3' - X-servers"
"name is:
- -foundry-family -weight -slant-
- sony helvetica bold r
- adobe courier medium i
- msic fixed o
- ... ...
+ -foundry-family -weight -slant-
+ sony helvetica bold r
+ adobe courier medium i
+ msic fixed o
+ ... ...
"
size isNil ifTrue:[
- sizeMatch := '*'
+ sizeMatch := '*'
] ifFalse:[
- sizeMatch := size printString , '0'
+ sizeMatch := size printString , '0'
].
foundry isNil ifTrue:[
- foundryMatch := '*'
+ foundryMatch := '*'
] ifFalse:[
- foundryMatch := foundry
+ foundryMatch := foundry
].
family isNil ifTrue:[
- familyMatch := '*'
+ familyMatch := '*'
] ifFalse:[
- familyMatch := family
+ familyMatch := family
].
weight isNil ifTrue:[
- weightMatch := '*'
+ weightMatch := '*'
] ifFalse:[
- weightMatch := weight
+ weightMatch := weight
].
slant isNil ifTrue:[
- slantMatch := '*'
+ slantMatch := '*'
] ifFalse:[
- slantMatch := slant
+ slantMatch := slant
].
spc isNil ifTrue:[
- spcMatch := '*'
+ spcMatch := '*'
] ifFalse:[
- spcMatch := spc
+ spcMatch := spc
].
pSize isNil ifTrue:[
- pSizeMatch := '*'
+ pSizeMatch := '*'
] ifFalse:[
- pSizeMatch := pSize printString
+ pSizeMatch := pSize printString
].
encoding isNil ifTrue:[
- encodingMatch := '*'
+ encodingMatch := '*'
] ifFalse:[
- encodingMatch := encoding
+ encodingMatch := encoding
].
theName := ('-' , foundryMatch,
- '-' , familyMatch,
- '-' , weightMatch ,
- '-' , slantMatch ,
- '-' , spcMatch ,
- '-*' ,
- '-' , pSizeMatch ,
- '-' , sizeMatch ,
- '-*-*-*-*' ,
- '-' , encodingMatch).
+ '-' , familyMatch,
+ '-' , weightMatch ,
+ '-' , slantMatch ,
+ '-' , spcMatch ,
+ '-*' ,
+ '-' , pSizeMatch ,
+ '-' , sizeMatch ,
+ '-*-*-*-*' ,
+ '-' , encodingMatch).
"/ Transcript showCR:theName; endEntry.
@@ -7515,24 +7527,24 @@
"
Display
- getFontWithFoundry:'*'
- family:'courier'
- weight:'medium'
- slant:'r'
- spacing:nil
- pixelSize:nil
- size:13
- encoding:#'iso8859-1'.
+ getFontWithFoundry:'*'
+ family:'courier'
+ weight:'medium'
+ slant:'r'
+ spacing:nil
+ pixelSize:nil
+ size:13
+ encoding:#'iso8859-1'.
Display
- getFontWithFoundry:'*'
- family:'courier'
- weight:'medium'
- slant:'r'
- spacing:nil
- pixelSize:nil
- size:13
- encoding:#'iso10646-1'
+ getFontWithFoundry:'*'
+ family:'courier'
+ weight:'medium'
+ slant:'r'
+ spacing:nil
+ pixelSize:nil
+ size:13
+ encoding:#'iso10646-1'
"
"Modified: 10.4.1997 / 19:15:44 / cg"