Package RASCAL.ToolboxFontDbox

Description	ToolboxFontDbox related types and methods.
Author	bbracke
Date	2005/11/21 20:14:33
Revision	1.1

Clauses

Basic Objects
*Name*	*Type*	*Default*
FontDBox_Generate_About_To_Be_Shown		16#1#	constant
Flags
FontDBox_Generate_Dialogue_Completed		16#2#	constant
FontDBox_Include_System_Font		16#4#	constant
FontDBox_Set_Height		16#1#	constant
FontDBox_Set_Aspect		16#2#	constant
FontDBox_Apply		16#82A0000#	constant
FontDBox_Cancel		16#82A0001#	constant
FontDBox_Try		16#82A0002#	constant
FontDBox_Try_String		16#82A0003#	constant
FontDBox_Aspect_Ratio		16#82A0004#	constant
FontDBox_Height		16#82A0005#	constant
FontDBox_Standard_Size0		16#82A0006#	constant
FontDBox_Standard_Size1		16#82A0007#	constant
FontDBox_Standard_Size2		16#82A0008#	constant
FontDBox_Standard_Size3		16#82A0009#	constant
FontDBox_Standard_Size4		16#82A000A#	constant
FontDBox_Standard_Size5		16#82A000B#	constant
FontDBox_Standard_Size6		16#82A000C#	constant
FontDBox_Standard_Size7		16#82A000D#	constant
FontDBox_Standard_Size8		16#82A000E#	constant
FontDBox_Standard_Size9		16#82A000F#	constant
FontDBox_Style		16#82A0010#	constant
FontDBox_Weight		16#82A0011#	constant
FontDBox_Font		16#82A0012#	constant

Types
*Name*	*Declaration*
Toolbox_FontDbox_AboutToBeShown_Pointer	access Toolbox_FontDbox_AboutToBeShown
Toolbox_FontDbox_ApplyFont_Pointer	access Toolbox_FontDbox_ApplyFont
Toolbox_FontDbox_DialogueCompleted_Pointer	access Toolbox_FontDbox_DialogueCompleted

FonDBoxTemplate	record
*Component*	*Type*	*Default*
Window	Address
Try_String	Address
Initial_Aspect	Integer
Initial_Height	Integer
Initial_Font	Address
Max_Title	Integer
Title	Address
Flags	System.Unsigned_Types.Unsigned

Toolbox_FontDbox_AboutToBeShown	record
Event is raised just before the Font Dialgue window is displayed. Type lacks union.
*Component*	*Type*	*Default*
Info	Window_Position_Type (Full_Spec)
Show_Type	Integer
Header	Toolbox_Event_Header

ATEL_Toolbox_FontDbox_AboutToBeShown	abstract tagged record
inheritance from	Toolbox_EventListener (Toolbox_Event_FontDbox_AboutToBeShown, -1, -1)
*Component*	*Type*	*Default*
Event	Toolbox_FontDbox_AboutToBeShown_Pointer

Toolbox_FontDbox_ApplyFont	record
Event is raised immediately after the Font dialogue window is hidden.
*Component*	*Type*	*Default*
Font	Char_Array (1..208)
Aspect	System.Unsigned_Types.Unsigned
Height	System.Unsigned_Types.Unsigned
Header	Toolbox_Event_Header

ATEL_Toolbox_FontDbox_ApplyFont	abstract tagged record
inheritance from	Toolbox_EventListener (Toolbox_Event_FontDbox_ApplyFont, -1, -1)
*Component*	*Type*	*Default*
Event	Toolbox_FontDbox_ApplyFont_Pointer

Toolbox_FontDbox_DialogueCompleted	record
Event is raised immediately after the Font Dialogue window is hidden.
*Component*	*Type*	*Default*
Header	Toolbox_Event_Header

ATEL_Toolbox_FontDbox_DialogueCompleted	abstract tagged record
inheritance from	Toolbox_EventListener (Toolbox_Event_FontDbox_DialogueCompleted, -1, -1)
*Component*	*Type*	*Default*
Event	Toolbox_FontDbox_DialogueCompleted_Pointer

Pragmas
Convention	(C, FonDBoxTemplate)
Convention	(C, Toolbox_FontDbox_AboutToBeShown)
Convention	(C, Toolbox_FontDbox_ApplyFont)
Convention	(C, Toolbox_FontDbox_DialogueCompleted)

Get_Font	function
*Return*	string
Returns the currently selected font for the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Flags	System.Unsigned_Types.Unsigned	in	0

Set_Font	procedure
Sets the currently selected font for the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Font	string	in
Flags	System.Unsigned_Types.Unsigned	in	0

Get_Size	procedure
Returns the size for the currently selected font for the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Height	integer	out
Aspect	integer	out
Flags	System.Unsigned_Types.Unsigned	in	0

Set_Size	procedure
Sets the size for the currently selected font for the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Height	integer	in
Aspect	integer	in
Flags	System.Unsigned_Types.Unsigned	in	0

Get_Title	function
*Return*	string
Returns the title for the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Flags	System.Unsigned_Types.Unsigned	in	0

Set_Title	procedure
Sets the title for the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Title	string	in
Flags	System.Unsigned_Types.Unsigned	in	0

Get_TryString	function
*Return*	string
Returns the string for the 'Try' writable field in the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Flags	System.Unsigned_Types.Unsigned	in	0

Set_TryString	procedure
Sets the string for the 'Try' writable field in the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
TryString	string	in
Flags	System.Unsigned_Types.Unsigned	in	0

Get_Window_ID	function
*Return*	Object_ID
Returns the id of the underlying Wimp window for the Font dialogue.

*Parameter name*	*Type*	*Mode*	*Default*
FontDbox	Object_ID	in
Flags	System.Unsigned_Types.Unsigned	in	0