diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-01 23:49:05 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-01 23:49:05 +1300 |
| commit | e644b575c5f7ae9b78df2bb6985ec352a7c0f0e0 (patch) | |
| tree | cb6883439bcb5943f8507d3c5e7c1a087045ff34 /body/fltk-widgets-inputs.adb | |
| parent | ad10541237cbb2f1047bfafa7386f3784f828c42 (diff) | |
Filled holes in Fl_Text_Display API, fixed some Shortcut subprogram inconsistencies
Diffstat (limited to 'body/fltk-widgets-inputs.adb')
| -rw-r--r-- | body/fltk-widgets-inputs.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/body/fltk-widgets-inputs.adb b/body/fltk-widgets-inputs.adb index ab83121..6863110 100644 --- a/body/fltk-widgets-inputs.adb +++ b/body/fltk-widgets-inputs.adb @@ -605,20 +605,20 @@ package body FLTK.Widgets.Inputs is end Get_Kind; - function Get_Shortcut_Key + function Get_Shortcut (This : in Input) return Key_Combo is begin return To_Ada (fl_input_get_shortcut (This.Void_Ptr)); - end Get_Shortcut_Key; + end Get_Shortcut; - procedure Set_Shortcut_Key + procedure Set_Shortcut (This : in out Input; To : in Key_Combo) is begin fl_input_set_shortcut (This.Void_Ptr, To_C (To)); - end Set_Shortcut_Key; + end Set_Shortcut; function Get_Mark |