Fl_Text_Editor(int X, int Y, int W, int H, const char *L=0);

function Create
       (X, Y, W, H : in Integer;
        Text       : in String)
    return Text_Editor;

void add_default_key_bindings(Key_Binding **list);

void add_key_binding(int key, int state, Key_Func f, Key_Binding **list);

procedure Add_Key_Binding
       (This : in out Text_Editor;
        Bind : in     Key_Binding);

void add_key_binding(int key, int state, Key_Func f);

procedure Add_Key_Binding
       (This : in out Text_Editor;
        Key  : in     Key_Combo;
        Func : in     Key_Func);

procedure Add_Key_Bindings
       (This : in out Text_Editor;
        List : in     Key_Binding_List);

Key_Func bound_key_function(int key, int state, Key_Binding *list) const;

Key_Func bound_key_function(int key, int state) const;

function Get_Bound_Key_Function
       (This : in Text_Editor;
        Key  : in Key_Combo)
    return Key_Func;

void default_key_function(Key_Func f);

procedure Set_Default_Key_Function
       (This : in out Text_Editor;
        Func : in     Default_Key_Func);

function Get_Default_Key_Function
       (This : in Text_Editor)
    return Default_Key_Func;

procedure Draw
       (This : in out Text_Editor);

virtual int handle(int e);

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

void insert_mode(int b);

procedure Set_Insert_Mode
       (This : in out Text_Editor;
        To   : in     Insert_Mode);

int insert_mode();

function Get_Insert_Mode
       (This : in Text_Editor)
    return Insert_Mode;

void remove_all_key_bindings(Key_Binding **list);

procedure Remove_Key_Bindings
       (This : in out Text_Editor;
        List : in     Key_Binding_List);

void remove_all_key_bindings();

procedure Remove_All_Key_Bindings
       (This : in out Text_Editor);

void remove_key_binding(int key, int state, Key_Binding **list);

procedure Remove_Key_Binding
       (This : in out Text_Editor;
        Bind : in     Key_Binding);

void remove_key_binding(int key, int state);

procedure Remove_Key_Binding
       (This : in out Text_Editor;
        Key  : in     Key_Combo);

void tab_nav(int val);

int tab_nav() const;

static int kf_backspace(int c, Fl_Text_Editor *e);

procedure KF_Backspace
       (This : in out Text_Editor'Class);

static int kf_c_s_move(int c, Fl_Text_Editor *e);

procedure KF_Ctrl_Shift_Home
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Shift_End
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Shift_Page_Down
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Shift_Page_Up
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Shift_Down
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Shift_Left
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Shift_Right
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Shift_Up
       (This : in out Text_Editor'Class);

static int kf_copy(int c, Fl_Text_Editor *e);

procedure Copy
       (This : in out Text_Editor'Class);

static int kf_ctrl_move(int c, Fl_Text_Editor *e);

procedure KF_Ctrl_Home
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_End
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Page_Down
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Page_Up
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Down
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Left
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Right
       (This : in out Text_Editor'Class);

procedure KF_Ctrl_Up
       (This : in out Text_Editor'Class);

static int kf_cut(int c, Fl_Text_Editor *e);

procedure Cut
       (This : in out Text_Editor'Class);

static int kf_default(int c, Fl_Text_Editor *e);

procedure Default
       (This : in out Text_Editor'Class;
        Key  : in     Key_Combo);

static int kf_delete(int c, Fl_Text_Editor *e);

procedure Delete
       (This : in out Text_Editor'Class);

static int kf_down(int c, Fl_Text_Editor *e);

procedure KF_Down
       (This : in out Text_Editor'Class);

static int kf_end(int c, Fl_Text_Editor *e);

procedure KF_End
       (This : in out Text_Editor'Class);

static int kf_enter(int c, Fl_Text_Editor *e);

procedure KF_Enter
       (This : in out Text_Editor'Class);

static int kf_home(int, Fl_Text_Editor *e);

procedure KF_Home
       (This : in out Text_Editor'Class);

static int kf_ignore(int c, Fl_Text_Editor *e);

procedure KF_Ignore
       (This : in out Text_Editor'Class);

static int kf_insert(int c, Fl_Text_Editor *e);

procedure KF_Insert
       (This : in out Text_Editor'Class);

static int kf_left(int c, Fl_Text_Editor *e);

procedure KF_Left
       (This : in out Text_Editor'Class);

static int kf_m_s_move(int c, Fl_Text_Editor *e);

static int kf_meta_move(int c, Fl_Text_Editor *e);

static int kf_move(int c, Fl_Text_Editor *e);

static int kf_page_down(int c, Fl_Text_Editor *e);

procedure KF_Page_Down
       (This : in out Text_Editor'Class);

static int kf_page_up(int c, Fl_Text_Editor *e);

procedure KF_Page_Up
       (This : in out Text_Editor'Class);

static int kf_paste(int c, Fl_Text_Editor *e);

procedure Paste
       (This : in out Text_Editor'Class);

static int kf_right(int c, Fl_Text_Editor *e);

procedure KF_Right
       (This : in out Text_Editor'Class);

static int kf_select_all(int c, Fl_Text_Editor *e);

procedure Select_All
       (This : in out Text_Editor'Class);

static int kf_shift_move(int c, Fl_Text_Editor *e);

procedure KF_Shift_Home
       (This : in out Text_Editor'Class);

procedure KF_Shift_End
       (This : in out Text_Editor'Class);

procedure KF_Shift_Page_Down
       (This : in out Text_Editor'Class);

procedure KF_Shift_Page_Up
       (This : in out Text_Editor'Class);

procedure KF_Shift_Down
       (This : in out Text_Editor'Class);

procedure KF_Shift_Left
       (This : in out Text_Editor'Class);

procedure KF_Shift_Right
       (This : in out Text_Editor'Class);

procedure KF_Shift_Up
       (This : in out Text_Editor'Class);

static int kf_undo(int c, Fl_Text_Editor *e);

procedure Undo
       (This : in out Text_Editor'Class);

static int kf_up(int c, Fl_Text_Editor *e);

procedure KF_Up
       (This : in out Text_Editor'Class);