FontDescription

CopyFontDescription FontDescriptionForTextStyle MatchesInstance ScaledSize TextStyleForFontDescription

Attributes

FontIdentifier FontName FontSize IsBold IsItalic IsUnderlined

Fields

instance FontDescription tag;
 fontIdentifier: nilObject;
       fontName: nilObject;
       fontSize: 0;
         isBold: false;
       isItalic: false;
   isUnderlined: false;
end instance;

Define Class FontDescription;
    inherits from Object;
    shares members;

    field fontIdentifier:       Buffer, getter, setter; 
        // Panos #, or something
    field fontName:             Text, getter;
    field fontSize:             Unsigned, getter, setter;
    field isBold:               Boolean, getter, setter;
    field isItalic:             Boolean, getter, setter;
    field isUnderlined:         Boolean, getter, setter;
    
    intrinsic FontDescriptionForTextStyle(textStyle: TextStyle; nearThis: Object): FontDescription;
    intrinsic TextStyleForFontDescription(fontDescription: FontDescription; nearThis: Object): TextStyle;
    operation CopyFontDescription(nearThis: Object): FontDescription;
    overrides MatchesInstance;
    operation ScaledSize(pixelSize: Unsigned): Micron;
    
    attribute FontIdentifier: Buffer;
    attribute FontName: Text;
    attribute FontSize: Unsigned;
    attribute IsBold: Boolean;
    attribute IsItalic: Boolean;
    attribute IsUnderlined: Boolean;
end class;