type Gtk_Sheet_Record is new Gtk.Container.Gtk_Container_Record with private;
type Gtk_Sheet_Child_Record is new Gtk.Widget.Gtk_Widget_Record with private;
type Gtk_Sheet is access all Gtk_Sheet_Record'Class;
type Gtk_Sheet_Range is access all Gtk_Sheet_Range_Record;
type Gtk_Sheet_Child is access all Gtk_Sheet_Child_Record'Class;
type Sheet_Attr_Type is (Sheet_Foreground, Sheet_Background, Sheet_Font, Sheet_Justification, Sheet_Border, Sheet_Border_Color, Sheet_Is_Editable, Sheet_Is_Visible);
type Sheet_State is (Sheet_Normal, Sheet_Row_Selected, Sheet_Column_Selected, Sheet_Range_Selected);
No_Border : constant Gtk_Sheet_Border;
Left_Border : constant Gtk_Sheet_Border;
Right_Border : constant Gtk_Sheet_Border;
Top_Border : constant Gtk_Sheet_Border;
Bottom_Border : constant Gtk_Sheet_Border;
All_Borders : constant Gtk_Sheet_Border;
procedure Gtk_New
| ( | Sheet | : out Gtk_Sheet; |
| Rows | : Guint; | |
| Columns | : Guint; | |
| Title | : UTF8_String := ""; | |
| Entry_Type | : Gtk_Type := GType_Invalid); |
procedure Initialize
| ( | Sheet | : access Gtk_Sheet_Record'Class; |
| Rows | : Guint; | |
| Columns | : Guint; | |
| Title | : UTF8_String := ""; | |
| Entry_Type | : Gtk_Type := GType_Invalid); |
procedure Gtk_New_Browser
| ( | Sheet | : out Gtk_Sheet; |
| Rows | : Guint; | |
| Columns | : Guint; | |
| Title | : UTF8_String := ""); |
procedure Initialize_Browser
| ( | Sheet | : access Gtk_Sheet_Record'Class; |
| Rows | : in Guint; | |
| Columns | : in Guint; | |
| Title | : in UTF8_String := ""); |
function Get_Type return Gtk.Gtk_Type;
procedure Set_Hadjustment
| ( | Sheet | : access Gtk_Sheet_Record; |
| Adjustment | : access Gtk_Adjustment_Record'Class); |
procedure Set_Vadjustment
| ( | Sheet | : access Gtk_Sheet_Record; |
| Adjustment | : access Gtk_Adjustment_Record'Class); |
function Get_Vadjustment
| ( | Sheet | : access Gtk_Sheet_Record) return Gtk.Adjustment.Gtk_Adjustment; |
function Get_Hadjustment
| ( | Sheet | : access Gtk_Sheet_Record) return Gtk.Adjustment.Gtk_Adjustment; |
procedure Change_Entry
| ( | Sheet | : access Gtk_Sheet_Record; |
| Entry_Type | : Gtk_Type); |
function Get_Entry
| ( | Sheet | : access Gtk_Sheet_Record) return Gtk.GEntry.Gtk_Entry; |
function Get_Entry_Widget
| ( | Sheet | : access Gtk_Sheet_Record) return Gtk.Widget.Gtk_Widget; |
procedure Set_Title
| ( | Sheet | : access Gtk_Sheet_Record; |
| Title | : UTF8_String); |
procedure Freeze
| ( | Sheet | : access Gtk_Sheet_Record); |
procedure Thaw
| ( | Sheet | : access Gtk_Sheet_Record); |
procedure Moveto
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Column | : Gint; | |
| Row_Align | : Gfloat; | |
| Col_Align | : Gfloat); |
procedure Set_Background
| ( | Sheet | : access Gtk_Sheet_Record; |
| Color | : Gdk.Color.Gdk_Color); |
procedure Set_Grid
| ( | Sheet | : access Gtk_Sheet_Record; |
| Color | : Gdk.Color.Gdk_Color); |
procedure Show_Grid
| ( | Sheet | : access Gtk_Sheet_Record; |
| Show | : Boolean); |
function Grid_Visible
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
function Get_State
| ( | Sheet | : access Gtk_Sheet_Record) return Sheet_State; |
function Get_Range
| ( | Sheet | : access Gtk_Sheet_Record) return Gtk_Sheet_Range; |
procedure Get_Visible_Range
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : out Gtk_Sheet_Range); |
procedure Set_Selection_Mode
| ( | Sheet | : access Gtk_Sheet_Record; |
| Mode | : Gtk.Enums.Gtk_Selection_Mode); |
procedure Select_Column
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint); |
procedure Select_Row
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint); |
procedure Set_Autoresize
| ( | Sheet | : access Gtk_Sheet_Record; |
| Autoresize | : Boolean); |
function Autoresize
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Set_Autoscroll
| ( | Sheet | : access Gtk_Sheet_Record; |
| Autoscroll | : Boolean); |
function Autoscroll
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Set_Clip_Text
| ( | Sheet | : access Gtk_Sheet_Record; |
| Clip | : Boolean); |
function Clip_Text
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Set_Justify_Entry
| ( | Sheet | : access Gtk_Sheet_Record; |
| Justify_Entry | : Boolean); |
function Justify_Entry
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Set_Locked
| ( | Sheet | : access Gtk_Sheet_Record; |
| Locked | : Boolean); |
function Locked
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Select_Range
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range); |
procedure Unselect_Range
| ( | Sheet | : access Gtk_Sheet_Record); |
procedure Clip_Range
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : in Gtk_Sheet_Range); |
function In_Clip
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
function Set_Active_Cell
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Column | : Gint) return Boolean; |
procedure Get_Active_Cell
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : out Gint; | |
| Column | : out Gint); |
procedure Set_Column_Title
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Title | : UTF8_String); |
function Get_Column_Title
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint) return UTF8_String; |
procedure Set_Column_Titles_Height
| ( | Sheet | : access Gtk_Sheet_Record; |
| Height | : Guint); |
procedure Column_Button_Add_Label
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Label | : UTF8_String); |
function Column_Button_Get_Label
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint) return UTF8_String; |
procedure Column_Button_Justify
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Justification | : Gtk.Enums.Gtk_Justification); |
procedure Show_Column_Titles
| ( | Sheet | : access Gtk_Sheet_Record); |
procedure Hide_Column_Titles
| ( | Sheet | : access Gtk_Sheet_Record); |
function Column_Titles_Visible
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Columns_Set_Sensitivity
| ( | Sheet | : access Gtk_Sheet_Record; |
| Sensitive | : Boolean); |
procedure Column_Set_Sensitivity
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Sensitive | : Boolean); |
procedure Column_Set_Visibility
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Visible | : Boolean); |
procedure Columns_Set_Resizable
| ( | Sheet | : access Gtk_Sheet_Record; |
| Resizable | : Boolean); |
function Columns_Resizable
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Column_Label_Set_Visibility
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Visible | : Boolean := True); |
procedure Columns_Labels_Set_Visibility
| ( | Sheet | : access Gtk_Sheet_Record; |
| Visible | : Boolean := True); |
procedure Set_Column_Width
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Width | : Guint); |
function Get_Column_Width
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : in Gint) return Gint; |
procedure Add_Column
| ( | Sheet | : access Gtk_Sheet_Record; |
| Ncols | : Guint); |
procedure Insert_Columns
| ( | Sheet | : access Gtk_Sheet_Record; |
| Col | : Guint; | |
| Ncols | : Guint); |
procedure Delete_Columns
| ( | Sheet | : access Gtk_Sheet_Record; |
| Col | : Guint; | |
| Ncols | : Guint); |
procedure Column_Set_Justification
| ( | Sheet | : access Gtk_Sheet_Record; |
| Column | : Gint; | |
| Justification | : Gtk.Enums.Gtk_Justification); |
function Get_Columns_Count
| ( | Sheet | : access Gtk_Sheet_Record) return Guint; |
procedure Set_Row_Title
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Title | : UTF8_String); |
function Get_Row_Title
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint) return UTF8_String; |
procedure Set_Row_Titles_Width
| ( | Sheet | : access Gtk_Sheet_Record; |
| Width | : Guint); |
procedure Row_Button_Add_Label
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Label | : UTF8_String); |
function Row_Button_Get_Label
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint) return UTF8_String; |
procedure Row_Button_Justify
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Justification | : Gtk.Enums.Gtk_Justification); |
procedure Show_Row_Titles
| ( | Sheet | : access Gtk_Sheet_Record); |
procedure Hide_Row_Titles
| ( | Sheet | : access Gtk_Sheet_Record); |
function Row_Titles_Visible
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Rows_Set_Sensitivity
| ( | Sheet | : access Gtk_Sheet_Record; |
| Sensitive | : in Boolean); |
procedure Row_Set_Sensitivity
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : in Gint; | |
| Sensitive | : in Boolean); |
procedure Row_Set_Visibility
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : in Gint; | |
| Visible | : in Boolean); |
procedure Row_Label_Set_Visibility
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : in Gint; | |
| Visible | : in Boolean := True); |
procedure Rows_Labels_Set_Visibility
| ( | Sheet | : access Gtk_Sheet_Record; |
| Visible | : Boolean := True); |
procedure Rows_Set_Resizable
| ( | Sheet | : access Gtk_Sheet_Record; |
| Resizable | : Boolean); |
function Rows_Resizable
| ( | Sheet | : access Gtk_Sheet_Record) return Boolean; |
procedure Set_Row_Height
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Height | : Guint); |
function Get_Row_Height
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : in Gint) return Gint; |
procedure Add_Row
| ( | Sheet | : access Gtk_Sheet_Record; |
| Nrows | : Guint); |
procedure Insert_Rows
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Guint; | |
| Nrows | : Guint); |
procedure Delete_Rows
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Guint; | |
| Nrows | : Guint); |
function Get_Rows_Count
| ( | Sheet | : access Gtk_Sheet_Record) return Guint; |
function Range_Get_Type return Gtk.Gtk_Type;
procedure Range_Clear
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range); |
procedure Range_Delete
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range); |
procedure Range_Set_Background
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range; | |
| Color | : Gdk.Color.Gdk_Color); |
procedure Range_Set_Foreground
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range; | |
| Color | : Gdk.Color.Gdk_Color); |
procedure Range_Set_Justification
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range; | |
| Justification | : Gtk.Enums.Gtk_Justification); |
procedure Range_Set_Editable
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range; | |
| Editable | : Boolean); |
procedure Range_Set_Visible
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : in Gtk_Sheet_Range; | |
| Visible | : in Boolean); |
procedure Range_Set_Border
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range; | |
| Mask | : Gtk_Sheet_Border; | |
| Width | : Guint; | |
| Line_Style | : Gdk.GC.Gdk_Line_Style); |
procedure Range_Set_Border_Color
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range; | |
| Color | : Gdk.Color.Gdk_Color); |
procedure Range_Set_Font
| ( | Sheet | : access Gtk_Sheet_Record; |
| The_Range | : Gtk_Sheet_Range; | |
| Font | : Pango.Font.Pango_Font_Description); |
procedure Set_Cell
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Col | : Gint; | |
| Justification | : Gtk.Enums.Gtk_Justification; | |
| Text | : UTF8_String); |
procedure Set_Cell_Text
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Col | : Gint; | |
| Text | : UTF8_String); |
function Cell_Get_Text
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Col | : Gint) return UTF8_String; |
procedure Cell_Clear
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Col | : Gint); |
procedure Cell_Delete
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Col | : Gint); |
function Cell_Get_State
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : in Gint; | |
| Col | : in Gint) return Gtk.Enums.Gtk_State_Type; |
procedure Get_Pixel_Info
| ( | Sheet | : access Gtk_Sheet_Record; |
| X | : Gint; | |
| Y | : Gint; | |
| Row | : out Gint; | |
| Column | : out Gint); |
procedure Get_Cell_Area
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Column | : Gint; | |
| Area | : out Gdk.Rectangle.Gdk_Rectangle); |
procedure Put
| ( | Sheet | : access Gtk_Sheet_Record; |
| Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
| X | : Gint; | |
| Y | : Gint); |
procedure Attach
| ( | Sheet | : access Gtk_Sheet_Record; |
| Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
| Row | : Gint; | |
| Col | : Gint; | |
| Xoptions | : Gtk.Enums.Gtk_Attach_Options := Expand or Fill; | |
| Yoptions | : Gtk.Enums.Gtk_Attach_Options := Expand or Fill; | |
| Xpadding | : Gint := 0; | |
| Ypadding | : Gint := 0); |
procedure Attach_Floating
| ( | Sheet | : access Gtk_Sheet_Record; |
| Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
| Row | : Gint; | |
| Col | : Gint); |
procedure Move_Child
| ( | Sheet | : access Gtk_Sheet_Record; |
| Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
| X | : Gint; | |
| Y | : Gint); |
function Get_Child_At
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Col | : Gint) return Gtk_Sheet_Child; |
function Get_Widget
| ( | Child | : Gtk_Sheet_Child) return Gtk.Widget.Gtk_Widget; |
procedure Button_Attach
| ( | Sheet | : access Gtk_Sheet_Record; |
| Widget | : access Gtk.Widget.Gtk_Widget_Record'Class; | |
| Row | : Gint; | |
| Col | : Gint); |
procedure Remove_Link
| ( | Sheet | : access Gtk_Sheet_Record; |
| Row | : Gint; | |
| Col | : Gint); |
A Gtk_Sheet is a table like the one you can find in most spreadsheets.
Each cell can contain some text or any kind of widgets.
Binding from C File version gtkextra 2.1.1
<testgtk>create_sheet.adb</testgtk>