Organising source

1 files changed, 0 insertions, 145 deletions

diff --git a/fltk-widgets-groups-text_displays-text_editors.adb b/fltk-widgets-groups-text_displays-text_editors.adb
deleted file mode 100644
index 0172128..0000000
--- a/fltk-widgets-groups-text_displays-text_editors.adb
+++ /dev/null
@@ -1,145 +0,0 @@
-
-
-with Interfaces.C;
-with System;
-use type System.Address;
-
-
-package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is
-
-
-    function new_fl_text_editor
-           (X, Y, W, H : in Interfaces.C.int;
-            Text       : in Interfaces.C.char_array)
-        return System.Address;
-    pragma Import (C, new_fl_text_editor, "new_fl_text_editor");
-
-    procedure free_fl_text_editor
-           (TE : in System.Address);
-    pragma Import (C, free_fl_text_editor, "free_fl_text_editor");
-
-    procedure fl_text_editor_undo
-           (TE : in System.Address);
-    pragma Import (C, fl_text_editor_undo, "fl_text_editor_undo");
-
-    procedure fl_text_editor_cut
-           (TE : in System.Address);
-    pragma Import (C, fl_text_editor_cut, "fl_text_editor_cut");
-
-    procedure fl_text_editor_copy
-           (TE : in System.Address);
-    pragma Import (C, fl_text_editor_copy, "fl_text_editor_copy");
-
-    procedure fl_text_editor_paste
-           (TE : in System.Address);
-    pragma Import (C, fl_text_editor_paste, "fl_text_editor_paste");
-
-    procedure fl_text_editor_delete
-           (TE : in System.Address);
-    pragma Import (C, fl_text_editor_delete, "fl_text_editor_delete");
-
-    procedure fl_text_editor_remove_key_binding
-           (TE : in System.Address;
-            K  : in Interfaces.C.unsigned;
-            M  : in Interfaces.C.unsigned_long);
-    pragma Import (C, fl_text_editor_remove_key_binding, "fl_text_editor_remove_key_binding");
-
-
-
-
-    procedure Finalize
-           (This : in out Text_Editor) is
-    begin
-        Finalize (Text_Display (This));
-        if This.Void_Ptr /= System.Null_Address then
-            if This in Text_Editor then
-                free_fl_text_editor (This.Void_Ptr);
-            end if;
-        end if;
-    end Finalize;
-
-
-
-
-    function Create
-           (X, Y, W, H : in Integer;
-            Text       : in String)
-        return Text_Editor is
-    begin
-        return This : Text_Editor do
-            This.Void_Ptr := new_fl_text_editor
-                   (Interfaces.C.int (X),
-                    Interfaces.C.int (Y),
-                    Interfaces.C.int (W),
-                    Interfaces.C.int (H),
-                    Interfaces.C.To_C (Text));
-            fl_group_end (This.Void_Ptr);
-            fl_widget_set_user_data
-                   (This.Void_Ptr,
-                    Widget_Convert.To_Address (This'Unchecked_Access));
-        end return;
-    end Create;
-
-
-
-
-    procedure Undo
-           (This : in out Text_Editor) is
-    begin
-        fl_text_editor_undo (This.Void_Ptr);
-    end Undo;
-
-
-
-
-    procedure Cut
-           (This : in out Text_Editor) is
-    begin
-        fl_text_editor_cut (This.Void_Ptr);
-    end Cut;
-
-
-
-
-    procedure Copy
-           (This : in out Text_Editor) is
-    begin
-        fl_text_editor_copy (This.Void_Ptr);
-    end Copy;
-
-
-
-
-    procedure Paste
-           (This : in out Text_Editor) is
-    begin
-        fl_text_editor_paste (This.Void_Ptr);
-    end Paste;
-
-
-
-
-    procedure Delete
-           (This : in out Text_Editor) is
-    begin
-        fl_text_editor_delete (This.Void_Ptr);
-    end Delete;
-
-
-
-
-    procedure Remove_Key_Binding
-           (This : in out Text_Editor;
-            Key  : in     Shortcut_Key)
-    is
-        use type Interfaces.C.unsigned_long;
-    begin
-        fl_text_editor_remove_key_binding
-               (This.Void_Ptr,
-                Character'Pos (Key.Keypress),
-                Interfaces.C.unsigned_long (Key.Modifier) * 65536);
-    end Remove_Key_Binding;
-
-
-end FLTK.Widgets.Groups.Text_Displays.Text_Editors;
-