static const char * class_id = "Fl_Surface_Device";

Fl_Surface_Device(Fl_Graphics_Driver *graphics_driver);

function Create
       (Graphics : in out FLTK.Devices.Graphics.Graphics_Driver)
    return Surface_Device;

const char * class_name();

Fl_Graphics_Driver * driver();

function Has_Driver
       (This : in Surface_Device)
    return Boolean;

function Get_Driver
       (This : in out Surface_Device)
    return FLTK.Devices.Graphics.Graphics_Driver_Reference;

void driver(Fl_Graphics_Driver *graphics_driver);

procedure Set_Driver
       (This   : in out Surface_Device;
        Driver : in out FLTK.Devices.Graphics.Graphics_Driver'Class);

virtual void set_current(void);

procedure Set_Current
       (This : in out Surface_Device);

static Fl_Surface_Device * surface();

function Get_Current
    return Surface_Device_Reference;

function Get_Original
    return Surface_Device_Reference;