type User_Data is private;
type Menu_Registration_Procedure is access procedure (User : User_Data; Item_Name : String; Accel_Path : String);
type Save_Desktop_Function is access function (Widget : access Gtk.Widget.Gtk_Widget_Record'Class; User : User_Data) return Glib.Xml_Int.Node_Ptr;
type Load_Desktop_Function is access function (MDI : MDI_Window; Node : Glib.Xml_Int.Node_Ptr; User : User_Data) return MDI_Child;
function Create_Menu
( | MDI | : access MDI_Window_Record'Class; |
Accel_Path_Prefix | : String := " | |
User | : User_Data; | |
Registration | : Menu_Registration_Procedure := null) return Gtk.Menu.Gtk_Menu; |
procedure Register_Desktop_Functions
( | Save | : Save_Desktop_Function; |
Load | : Load_Desktop_Function); |
function Restore_Desktop
( | MDI | : access MDI_Window_Record'Class; |
Perspectives | : Glib.Xml_Int.Node_Ptr; | |
From_Tree | : Glib.Xml_Int.Node_Ptr; | |
User | : User_Data) return Boolean; |
procedure Load_Perspective
( | MDI | : access MDI_Window_Record'Class; |
Name | : String; | |
User | : User_Data); |
procedure Create_Perspective
( | MDI | : access MDI_Window_Record'Class; |
Name | : String; | |
User | : User_Data); |
procedure Define_Perspective
( | MDI | : access MDI_Window_Record'Class; |
XML | : Glib.Xml_Int.Node_Ptr; | |
User | : User_Data); |
procedure Save_Desktop
( | MDI | : access MDI_Window_Record'Class; |
User | : User_Data; | |
Perspectives | : out Glib.Xml_Int.Node_Ptr; | |
Central | : out Glib.Xml_Int.Node_Ptr); |
function Get_XML_Content
( | MDI | : access MDI_Window_Record'Class; |
Tag | : String) return Glib.Xml_Int.Node_Ptr; |