package Glib.Glade is
type XML_Data is record Created : Boolean := False; -- True if the corresponding object has been created Has_Container : Boolean := False; -- True if object has a container Initialized : Boolean := False; -- True if object has been initialized, in other words, no further -- action is required on this widget. Has_Accel_Group : Boolean := False; -- True if object has created an accelerator group Has_Radio_Group : Boolean := False; -- True if object has created a radio button/menu_item group Has_Tooltip : Boolean := False; -- True if object has created a tooltip group end record;
Gettext : Boolean := True;
procedure Gen_Set
( | N | : Node_Ptr; |
Name | : String; | |
File | : File_Type; | |
Prefix | : String := ""; | |
Postfix | : String := ""; | |
Is_Float | : Boolean := False; | |
Property_Name | : String := ""); |
procedure Gen_Set
( | N | : Node_Ptr; |
Name, Field | : String; | |
File | : File_Type); |
procedure Gen_Set
( | N | : Node_Ptr; |
Name, Field1, Field2, Field3, Field4 | : String; | |
File | : File_Type; | |
Is_Float | : Boolean := False); |
procedure Gen_New
( | N | : Node_Ptr; |
Class | : String; | |
Param1, Param2, New_Name | : String := ""; | |
File | : File_Type; | |
Prefix | : String := ""; | |
Postfix | : String := ""); |
procedure Gen_New
( | N | : Node_Ptr; |
Class, Param1, Param2, Param3, Param4, Param5 | : String; | |
File | : File_Type; | |
Prefix | : String := ""; | |
Postfix | : String := ""); |
procedure Gen_Child
( | N, Child | : Node_Ptr; |
File | : File_Type); |
procedure Gen_Call_Child
( | N, Child, Parent | : Node_Ptr; |
Class, Call | : String; | |
Param1, Param2, Param3 | : String := ""; | |
File | : File_Type); |
procedure Reset_Tree
( | N | : Node_Ptr; |
Check_Next | : Boolean := True); |
procedure Gen_Signal
( | N | : Node_Ptr; |
File | : File_Type; | |
Widget_Class | : String := ""; | |
The_Object | : String := ""); |
function Gettext_Support
( | N | : Node_Ptr) return Boolean; |
function Get_Property
( | N | : Node_Ptr; |
Property | : String) return String_Ptr; |
function Get_Class
( | N | : Node_Ptr) return String; |
function Get_Property
( | N | : Node_Ptr; |
Property | : String; | |
Default | : String := "") return String; |