-- File:	Xw_TextManager.cdl
-- Created:	Tue Apr 29 09:14:42 1993
-- Author:	Gerard GRAS
--		<gg@photox>
---Copyright:	 Matra Datavision 1993

class TextManager from Xw inherits TextManager from MFT 

---Purpose: defines the common behaviour of the Xw output driver.
--  Warning: Permits to receives draw primitives from the FontManager
--	    at DrawText(...) time.
--	    This class must be redefined by the user as an application class.

uses
	Length          from Quantity,
	PlaneAngle      from Quantity,
	TypeOfText	from Aspect

is


        -------------------------
        -- Category: Constructors
        -------------------------

	Create (aDrawable : Address from Standard;
		aWidthMap : Address from Standard) 
				returns mutable TextManager from Xw;
        ---Purpose: Does NOTHING 

        -------------------------
	-- Category: Draw methods
        -------------------------

        BeginString (me: mutable;
                X,Y: Length from Quantity;
                anOrientation: PlaneAngle from Quantity;
                aWidth,aHeight: Length from Quantity;
                aSlant: PlaneAngle from Quantity;
                aPaintType: Integer from Standard) is redefined;
        ---Purpose: Calls when string drawing is started.
        --          with a string aspect <aPaintType> :
        --            0 for filled string
        --            1 for stroke string
        --            2 for outline string
        --          The origine of the string <X>,<Y>,
        --          The orientation of the string <anOrientation>,
        --          The medium size of the char <aWidth,aHeight>,
        --          The Slant of the char <aSlant>,

        BeginChar (me: mutable;
                aCharCode: Integer from Standard;
                X,Y: Length from Quantity)
                returns Boolean from Standard is redefined;
        ---Purpose: Calls when a char drawing is started
        --          and give the current string position for this char.
        --          and give the relative char position from the beginning
        --          of the string.
        --          The application can returns FALSE for skipping the char drawing.

        SetCharBoundingBox (me: mutable;
		X1,Y1,X2,Y2,X3,Y3,X4,Y4: Length from Quantity) 
		returns Boolean from Standard is redefined;
        ---Purpose: Calls to defines the current char bounding-box. 
	--	    The application can returns FALSE for ending the char drawing.

        SetCharEncoding (me: mutable;
                anEncoding: CString from Standard)
                returns Boolean from Standard is redefined;
        ---Purpose: Calls to defines the current char encoding.
        --  Warning: The application can returns FALSE for skipping the char drawing.

        Moveto (me: mutable;
		X,Y: Length from Quantity) 
		returns Boolean from Standard is redefined;
        ---Purpose: Calls to sets the current string position. 
	--	    The application can returns FALSE for ending the char drawing.

        Lineto (me: mutable;
		X,Y: Length from Quantity) 
		returns Boolean from Standard is redefined;
        ---Purpose: Calls to drawn to the current string position. 
	--	    The application can returns FALSE for ending the char drawing.

        Curveto (me: mutable;
                X1,Y1,X2,Y2,X3,Y3,X4,Y4: Length from Quantity)
                returns Boolean from Standard is redefined;
        ---Purpose: Calls to drawn to the current string position.
        --          The application can drawn the curve defined by
        --          his descriptor P1,P2,P3,P4 or
        --          returns FALSE to let the interpretor compute the curve
        --          vectors.

        ClosePath (me: mutable) is redefined;
        ---Purpose: Calls when a char path drawing is ended 

        EndChar (me: mutable;
                X,Y: Length from Quantity)
                returns Boolean from Standard is redefined;
        ---Purpose: Calls when a char drawing is ended
        --          and give the relative char ending position from the
        --          beginning of the string.
        --          The application can returns FALSE for skipping the string
        --          drawing.


        EndString (me: mutable ) is redefined;
        ---Purpose: Calls when string drawing is ended (Normally the last call).

        -------------------------
	-- Category: Private methods
        -------------------------

	SetTextAttribs (me: mutable ;
			aTextColor: Integer from Standard;
			aTypeOfText: TypeOfText from Aspect;
			anUnderlinePosition: Length from Quantity = 0.0)
			is private;
        ---Purpose: Sets the current attribs of the text.
fields
	myDrawable:     	Address from Standard;
	myWidthMap:     	Address from Standard;

friends
	class Driver from Xw

end TextManager from Xw;