type Gtkada_Multi_Paned_Record is new Gtk.Fixed.Gtk_Fixed_Record with private;
type Gtkada_Multi_Paned is access all Gtkada_Multi_Paned_Record'Class;
type Pane is private;
Root_Pane : constant Pane;
procedure Gtk_New
( | Win | : out Gtkada_Multi_Paned); |
procedure Initialize
( | Win | : access Gtkada_Multi_Paned_Record'Class); |
function Handle_Size
( | Win | : access Gtkada_Multi_Paned_Record'Class) return Gint; |
procedure Set_Opaque_Resizing
( | Win | : access Gtkada_Multi_Paned_Record; |
Opaque | : Boolean); |
procedure Add_Child
( | Win | : access Gtkada_Multi_Paned_Record; |
New_Child | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
Orientation | : Gtk.Enums.Gtk_Orientation := Gtk.Enums.Orientation_Horizontal; | |
Fixed_Size | : Boolean := False; | |
Width, Height | : Glib.Gint := -1; | |
After | : Boolean := True); |
procedure Split
( | Win | : access Gtkada_Multi_Paned_Record; |
Ref_Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
New_Child | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
Orientation | : Gtk.Enums.Gtk_Orientation; | |
Fixed_Size | : Boolean := False; | |
Width, Height | : Glib.Gint := -1; | |
After | : Boolean := True); |
procedure Set_Size
( | Win | : access Gtkada_Multi_Paned_Record; |
Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
Width, Height | : Glib.Gint := -1; | |
Fixed_Size | : Boolean := False); |
function Splitted_Area
( | Win | : access Gtkada_Multi_Paned_Record; |
Ref_Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
Orientation | : Gtk.Enums.Gtk_Orientation; | |
After | : Boolean := True) return Gtk.Widget.Gtk_Widget; |
function Get_Pane
( | Win | : access Gtkada_Multi_Paned_Record; |
Widget | : access Gtk.Widget.Gtk_Widget_Record'Class) return Pane; |
procedure Split
( | Win | : access Gtkada_Multi_Paned_Record; |
Ref_Pane | : Pane; | |
New_Child | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
Orientation | : Gtk.Enums.Gtk_Orientation; | |
Fixed_Size | : Boolean := False; | |
Width, Height | : Glib.Gint := -1; | |
After | : Boolean := True); |
procedure Freeze
( | Win | : access Gtkada_Multi_Paned_Record); |
procedure Thaw
( | Win | : access Gtkada_Multi_Paned_Record); |
function Start
( | Win | : access Gtkada_Multi_Paned_Record) return Child_Iterator; |
function At_End
( | Iter | : Child_Iterator) return Boolean; |
function Get_Widget
( | Iter | : Child_Iterator) return Gtk.Widget.Gtk_Widget; |
function Get_Orientation
( | Iter | : Child_Iterator) return Gtk.Enums.Gtk_Orientation; |
function Get_Depth
( | Iter | : Child_Iterator) return Natural; |
procedure Get_Size
( | Iter | : Child_Iterator; |
Width, Height | : out Gint; | |
Parent_Width, Parent_Height | : out Gint; | |
Parent_Orientation | : out Gtk.Enums.Gtk_Orientation); |
procedure Dump
( | Split | : access Gtkada_Multi_Paned_Record'Class); |
procedure Print_Debug
( | Msg | : String; |
Mode | : Debug_Level_Change := Debug_Preserve); |
This widget implements a multi-paned widget, similar to the standard Gtk_Paned widget, but which can contain several children side to side.
This widget can mix vertical and horizontal splits