diff options
Diffstat (limited to 'spec/fltk-widgets-inputs.ads')
| -rw-r--r-- | spec/fltk-widgets-inputs.ads | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/spec/fltk-widgets-inputs.ads b/spec/fltk-widgets-inputs.ads index c7f9c17..6de80da 100644 --- a/spec/fltk-widgets-inputs.ads +++ b/spec/fltk-widgets-inputs.ads @@ -10,8 +10,7 @@ limited with private with - Interfaces.C.Strings, - System; + Interfaces.C.Strings; package FLTK.Widgets.Inputs is @@ -50,6 +49,8 @@ package FLTK.Widgets.Inputs is + -- Clipboard -- + procedure Copy (This : in out Input; Destination : in Clipboard_Kind := Cut_Paste_Board); @@ -101,6 +102,8 @@ package FLTK.Widgets.Inputs is + -- Readonly, Tabs, Wrap -- + function Is_Readonly (This : in Input) return Boolean; @@ -128,15 +131,17 @@ package FLTK.Widgets.Inputs is + -- Shortcut, Input Position -- + function Get_Kind (This : in Input) return Input_Kind; - function Get_Shortcut_Key + function Get_Shortcut (This : in Input) return Key_Combo; - procedure Set_Shortcut_Key + procedure Set_Shortcut (This : in out Input; To : in Key_Combo); @@ -180,6 +185,8 @@ package FLTK.Widgets.Inputs is + -- Text Field -- + function Index (This : in Input; Place : in Integer) @@ -221,6 +228,8 @@ package FLTK.Widgets.Inputs is + -- Input Size -- + function Get_Maximum_Size (This : in Input) return Natural; @@ -236,6 +245,8 @@ package FLTK.Widgets.Inputs is + -- Cursors, Text Settings -- + function Get_Cursor_Color (This : in Input) return Color; @@ -271,6 +282,8 @@ package FLTK.Widgets.Inputs is + -- Dimensions -- + procedure Resize (This : in out Input; W, H : in Integer); @@ -282,6 +295,8 @@ package FLTK.Widgets.Inputs is + -- Changing Input Type -- + package Extra is procedure Set_Kind @@ -326,8 +341,8 @@ private pragma Inline (Set_Wrap); pragma Inline (Get_Kind); - pragma Inline (Get_Shortcut_Key); - pragma Inline (Set_Shortcut_Key); + pragma Inline (Get_Shortcut); + pragma Inline (Set_Shortcut); pragma Inline (Get_Mark); pragma Inline (Set_Mark); pragma Inline (Get_Position); |