path: root/src/fltk-widgets-groups-text_displays-text_editors.ads

private with

    Interfaces.C,
    Ada.Containers.Vectors;


package FLTK.Widgets.Groups.Text_Displays.Text_Editors is


    type Text_Editor is new Text_Display with private;

    type Insert_Mode is (Before, After);
    --  type Tab_Navigation is (Insert_Char, Widget_Focus);

    type Key_Func is access procedure
           (This : in out Text_Editor'Class);

    type Default_Key_Func is access procedure
           (This : in out Text_Editor'Class;
            Key  : in     Shortcut_Key);

    type Key_Binding is record
        Key  : Shortcut_Key;
        Func : Key_Func;
    end record;

    type Key_Binding_List is array (Positive range <>) of Key_Binding;




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




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




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

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

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

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

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

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




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

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

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

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




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

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

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

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

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

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

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

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




    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);




    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);




    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);




    Default_Key_Bindings : constant Key_Binding_List :=
           ((Enter_Key,        KF_Enter'Access),
            (Keypad_Enter_Key, KF_Enter'Access),
            (Backspace_Key,    KF_Backspace'Access),
            (Insert_Key,       KF_Insert'Access),

            (Delete_Key,     Delete'Access),
            (Mod_Ctrl + 'c', Copy'Access),
            (Mod_Ctrl + 'v', Paste'Access),
            (Mod_Ctrl + 'x', Cut'Access),
            (Mod_Ctrl + 'z', Undo'Access),
            (Mod_Ctrl + 'a', Select_All'Access),

            (Home_Key,      KF_Home'Access),
            (End_Key,       KF_End'Access),
            (Page_Down_Key, KF_Page_Down'Access),
            (Page_Up_Key,   KF_Page_Up'Access),
            (Down_Key,      KF_Down'Access),
            (Left_Key,      KF_Left'Access),
            (Right_Key,     KF_Right'Access),
            (Up_Key,        KF_Up'Access),

            (Mod_Shift + Home_Key,      KF_Shift_Home'Access),
            (Mod_Shift + End_Key,       KF_Shift_End'Access),
            (Mod_Shift + Page_Down_Key, KF_Shift_Page_Down'Access),
            (Mod_Shift + Page_Up_Key,   KF_Shift_Page_Up'Access),
            (Mod_Shift + Down_Key,      KF_Shift_Down'Access),
            (Mod_Shift + Left_Key,      KF_Shift_Left'Access),
            (Mod_Shift + Right_Key,     KF_Shift_Right'Access),
            (Mod_Shift + Up_Key,        KF_Shift_Up'Access),

            (Mod_Ctrl + Home_Key,      KF_Ctrl_Home'Access),
            (Mod_Ctrl + End_Key,       KF_Ctrl_End'Access),
            (Mod_Ctrl + Page_Down_Key, KF_Ctrl_Page_Down'Access),
            (Mod_Ctrl + Page_Up_Key,   KF_Ctrl_Page_Up'Access),
            (Mod_Ctrl + Down_Key,      KF_Ctrl_Down'Access),
            (Mod_Ctrl + Left_Key,      KF_Ctrl_Left'Access),
            (Mod_Ctrl + Right_Key,     KF_Ctrl_Right'Access),
            (Mod_Ctrl + Up_Key,        KF_Ctrl_Up'Access),

            (Mod_Ctrl + Mod_Shift + Home_Key,      KF_Ctrl_Shift_Home'Access),
            (Mod_Ctrl + Mod_Shift + End_Key,       KF_Ctrl_Shift_End'Access),
            (Mod_Ctrl + Mod_Shift + Page_Down_Key, KF_Ctrl_Shift_Page_Down'Access),
            (Mod_Ctrl + Mod_Shift + Page_Up_Key,   KF_Ctrl_Shift_Page_Up'Access),
            (Mod_Ctrl + Mod_Shift + Down_Key,      KF_Ctrl_Shift_Down'Access),
            (Mod_Ctrl + Mod_Shift + Left_Key,      KF_Ctrl_Shift_Left'Access),
            (Mod_Ctrl + Mod_Shift + Right_Key,     KF_Ctrl_Shift_Right'Access),
            (Mod_Ctrl + Mod_Shift + Up_Key,        KF_Ctrl_Shift_Up'Access));




    --  NOTE NOTE NOTE NOTE NOTE
    --
    --  Changing the keybindings for Shortcut_Keys that include modifiers
    --  currently does not work due to some bugbear in the FLTK side of things.
    --
    --  Until that's fixed, the default keybindings for those key combinations
    --  that include modifiers have been left in place.
    --
    --  NOTE NOTE NOTE NOTE NOTE




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

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

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

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

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

    procedure Remove_All_Key_Bindings
           (This : in out Text_Editor);

    function Get_Default_Key_Function
           (This : in Text_Editor)
        return Default_Key_Func;

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




    function Get_Insert_Mode
           (This : in Text_Editor)
        return Insert_Mode;

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




    --  function Get_Tab_Nav_Mode
    --         (This : in Text_Editor)
    --      return Tab_Navigation;

    --  procedure Set_Tab_Nav_Mode
    --         (This : in out Text_Editor;
    --          To   : in     Tab_Navigation);




    procedure Draw
           (This : in out Text_Editor);

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


private


    package Binding_Vectors is new Ada.Containers.Vectors
           (Index_Type => Positive, Element_Type => Key_Binding);




    type Text_Editor is new Text_Display with
        record
            Bindings     : Binding_Vectors.Vector;
            Default_Func : Default_Key_Func;
        end record;

    overriding procedure Finalize
           (This : in out Text_Editor);




    function Key_Func_Hook
           (K : in Interfaces.C.int;
            E : in System.Address)
        return Interfaces.C.int;
    pragma Convention (C, Key_Func_Hook);




    package Editor_Convert is new System.Address_To_Access_Conversions (Text_Editor'Class);


end FLTK.Widgets.Groups.Text_Displays.Text_Editors;