[Win32forth-cvs] win32forth-stc/src FONTS.F,NONE,1.1

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv13545

Added Files:
	FONTS.F 
Log Message:
Needed for the demo.

--- NEW FILE: FONTS.F ---
\ $Id: FONTS.F,v 1.1 2007/05/01 17:15:33 jos_ven Exp $

\ FONTS.F       Font Class and Methods
\ Font creation Class and control methods

cr .( Loading Font class...)

in-application

needs gdi/gdiFont.f

\ ----------------------------------------------------------------------
\ Font class
\ ----------------------------------------------------------------------
:Class Font     <Super GdiFont

:M Height:         ( n1 -- )  SetHeight: super         ;M
:M Width:          ( n1 -- )  SetWidth: super          ;M
:M Escapement:     ( n1 -- )  SetEscapement: super     ;M
:M Orientation:    ( n1 -- )  SetOrientation: super    ;M
:M Weight:         ( n1 -- )  SetWeight: super         ;M
:M Italic:         ( f1 -- )  SetItalic: super         ;M
:M Underline:      ( f1 -- )  SetUnderline: super      ;M
:M StrikeOut:      ( f1 -- )  SetStrikeOut: super      ;M
:M CharSet:        ( n1 -- )  SetCharSet: super        ;M
:M OutPrecision:   ( n1 -- )  SetOutPrecision: super   ;M
:M ClipPrecision:  ( n1 -- )  SetClipPrecision: super  ;M
:M Quality:        ( n1 -- )  SetQuality: super        ;M
:M PitchAndFamily: ( n1 -- )  SetPitchAndFamily: super ;M

:M Create:      ( -- )
                Create: super drop ;M

:M Delete:      ( -- )
                Destroy: super ;M

:M Handle:      ( -- hFont )
                GetHandle: super ;M

;class