#REFACTORING by stefan
class: Font
changed: #setFamily:face:style:size:sizeUnit:encoding:device:
--- a/Font.st Tue Apr 28 15:27:50 2020 +0200
+++ b/Font.st Tue Apr 28 15:28:14 2020 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
@@ -788,25 +790,11 @@
setFamily:familyString face:faceString style:styleString size:sizeArg sizeUnit:sizeUnitArg encoding:encodingSym device:aDevice
"set my instance attributes"
- family := familyString.
- face := faceString.
- style := styleString.
- sizeUnit := (sizeUnitArg ? #pt).
- sizeUnit == #pt ifTrue:[
- size := sizeArg
- ] ifFalse:[
- sizeUnit == #px ifTrue:[
- pixelSize := sizeArg
- ] ifFalse:[
- self error:'invalid sizeUnit' mayProceed:true.
- size := 12.
- sizeUnit := #pt
- ].
- ].
- encoding := encodingSym.
+ self family:familyString face:faceString style:styleString size:sizeArg sizeUnit:sizeUnitArg encoding:encodingSym.
device := aDevice
- "Modified: 20.4.1996 / 23:26:56 / cg"
+ "Modified: / 20-04-1996 / 23:26:56 / cg"
+ "Modified: / 28-04-2020 / 14:52:10 / stefan"
!
setFontId:aFontId