Fl_Copy_Surface(int w, int h);

function Create
       (W, H : in Natural)
    return Copy_Surface;

const char * class_name();

void draw(Fl_Widget *widget, int delta_x=0, int delta_y=0);

procedure Draw_Widget
       (This               : in out Copy_Surface;
        Item               : in     FLTK.Widgets.Widget'Class;
        Offset_X, Offset_Y : in     Integer := 0);

void draw_decorated_window(Fl_Window *win, int delta_x=0, int delta_y=0);

procedure Draw_Decorated_Window
       (This               : in out Copy_Surface;
        Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
        Offset_X, Offset_Y : in     Integer := 0);

int h();

function Get_H
       (This : in Copy_Surface)
    return Integer;

void set_current();

procedure Set_Current
       (This : in out Copy_Surface);

int w();

function Get_W
       (This : in Copy_Surface)
    return Integer;