equal
deleted
inserted
replaced
4172 |
4172 |
4173 |
4173 |
4174 ^ info |
4174 ^ info |
4175 ! |
4175 ! |
4176 |
4176 |
4177 getDefaultFont |
4177 getDefaultFontWithEncoding:encoding |
4178 "return a default font id - used when class Font cannot |
4178 "return a default font id - used when class Font cannot |
4179 find anything usable" |
4179 find anything usable" |
4180 |
4180 |
4181 ^ self createFontFor:'fixed' |
4181 ^ self createFontFor:'fixed' |
4182 ! |
4182 ! |
4212 sizeArgOrNil notNil ifTrue:[ |
4212 sizeArgOrNil notNil ifTrue:[ |
4213 theName := familyString , '-' , sizeArgOrNil printString |
4213 theName := familyString , '-' , sizeArgOrNil printString |
4214 ] ifFalse:[ |
4214 ] ifFalse:[ |
4215 theName := familyString |
4215 theName := familyString |
4216 ]. |
4216 ]. |
4217 theName isNil ifTrue:[ |
4217 theName notNil ifTrue:[ |
4218 " |
4218 theId := self createFontFor:theName. |
4219 mhmh - fall back to the default font |
|
4220 " |
|
4221 theName := 'fixed' |
|
4222 ]. |
4219 ]. |
4223 theId := self createFontFor:theName. |
|
4224 theId isNil ifTrue:[ |
4220 theId isNil ifTrue:[ |
4225 theId := self getDefaultFont |
4221 theId := self getDefaultFontWithEncoding:encodingSym |
4226 ]. |
4222 ]. |
4227 ^ theId |
4223 ^ theId |
4228 ]. |
4224 ]. |
4229 |
4225 |
4230 "/ spacing other than 'normal' is contained as last component |
4226 "/ spacing other than 'normal' is contained as last component |
6043 ! ! |
6039 ! ! |
6044 |
6040 |
6045 !WinPrinterContext class methodsFor:'documentation'! |
6041 !WinPrinterContext class methodsFor:'documentation'! |
6046 |
6042 |
6047 version |
6043 version |
6048 ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.41 2011-04-07 10:05:08 sr Exp $' |
6044 ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.42 2012-04-25 19:46:59 stefan Exp $' |
6049 ! |
6045 ! |
6050 |
6046 |
6051 version_CVS |
6047 version_CVS |
6052 ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.41 2011-04-07 10:05:08 sr Exp $' |
6048 ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.42 2012-04-25 19:46:59 stefan Exp $' |
6053 ! ! |
6049 ! ! |