Fl_Group Binding Map

Back to Index
Package name
Fl_Group FLTK.Widgets.Groups

Note:

Groups automatically have end / End_Current called on them as part of their construction. This is because otherwise the usual begin/end behaviour would get confusing with the style of declaration this binding uses.

Types
Fl_Group Group
  Group_Reference
int Index
int Extended_Index
int Clip_Mode
  Cursor
Constructors
Fl_Group(int, int, int, int, const char *=0);

function Create
       (X, Y, W, H : in Integer;
        Text       : in String := "")
    return Group;
Static Functions and Procedures
static Fl_Group * current();

function Get_Current
    return access Group'Class;

static void current(Fl_Group *g);

procedure Set_Current
       (To : in Group'Class);
Functions and Procedures
Fl_Widget *& _ddfdesign_kludge();
Intentionally left unbound. 
void add(Fl_Widget &);

void add(Fl_Widget *o);

procedure Add
       (This : in out Group;
        Item : in out Widget'Class);

void add_resizable(Fl_Widget &o);

procedure Add_Resizable
       (This : in out Group;
        Item : in out Widget'Class);

Fl_Widget * const * array() const;
Use iterators instead. 
virtual Fl_Group * as_group();
Use runtime tag checks and view conversions instead. 
void begin();

procedure Begin_Current
       (This : in out Group);
Check if the index value is in range manually. 
function Has_Child
       (This  : in Group;
        Place : in Index)
    return Boolean;
  
function Has_Child
       (Place : in Cursor)
    return Boolean;

Fl_Widget * child(int n) const;

function Child
       (This  : in Group;
        Place : in Index)
    return Widget_Reference
with Pre => This.Has_Child (Place);
  
function Child
       (This  : in Group;
        Place : in Cursor)
    return Widget_Reference;

int children() const;

function Number_Of_Children
       (This : in Group)
    return Natural;

void clear();

procedure Clear
       (This : in out Group);

unsigned int clip_children();

function Get_Clip_Mode
       (This : in Group)
    return Clip_Mode;

void clip_children(int c);

procedure Set_Clip_Mode
       (This : in out Group;
        Mode : in     Clip_Mode := Clip);

void end();

procedure End_Current
       (This : in out Group);

int find(const Fl_Widget *) const;

int find(const Fl_Widget &o) const;

function Find
       (This : in     Group;
        Item : in out Widget'Class)
    return Extended_Index;

void focus(Fl_Widget *W);
Deprecated, see take_focus / Take_Focus in Fl_Widget. 
void forms_end();
Intentionally left unbound. 
int handle(int);

function Handle
       (This  : in out Group;
        Event : in     Event_Kind)
    return Event_Outcome;

void init_sizes();

procedure Reset_Sizes
       (This : in out Group);

void insert(Fl_Widget &, int i);

procedure Insert
       (This  : in out Group;
        Item  : in out Widget'Class;
        Place : in     Index);

void insert(Fl_Widget &o, Fl_Widget *before);

procedure Insert
       (This   : in out Group;
        Item   : in out Widget'Class;
        Before : in     Widget'Class);
Use a for loop to iterate over the group's children. 
function Iterate
       (This : in Group)
    return Group_Iterators.Reversible_Iterator'Class;

void remove(int index);

procedure Remove
       (This  : in out Group;
        Place : in     Index);

void remove(Fl_Widget &);

void remove(Fl_Widget *o);

procedure Remove
       (This : in out Group;
        Item : in out Widget'Class);

Fl_Widget * resizable() const;

function Get_Resizable
       (This : in Group)
    return access Widget'Class;

void resizable(Fl_Widget &o);

void resizable(Fl_Widget *o);

procedure Set_Resizable
       (This : in out Group;
        Item : in     Widget'Class);

void resize(int, int, int, int);

procedure Resize
       (This       : in out Group;
        X, Y, W, H : in     Integer);
Protected Functions and Procedures
void draw();

procedure Draw
       (This : in out Group);

void draw_child(Fl_Widget &widget) const;

procedure Draw_Child
       (This : in out Group;
        Item : in out Widget'Class);

void draw_children();

procedure Draw_Children
       (This : in out Group);

void draw_outside_label(const Fl_Widget &widget) const;

procedure Draw_Outside_Label
       (This : in out Group;
        Item : in out Widget'Class);

int * sizes();
Intentionally left unbound. 
void update_child(Fl_Widget &widget) const;

procedure Update_Child
       (This : in out Group;
        Item : in out Widget'Class);