diff options
Diffstat (limited to 'src/fltk-widgets-valuators-dials.adb')
| -rw-r--r-- | src/fltk-widgets-valuators-dials.adb | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/fltk-widgets-valuators-dials.adb b/src/fltk-widgets-valuators-dials.adb index 7905158..6dc9e69 100644 --- a/src/fltk-widgets-valuators-dials.adb +++ b/src/fltk-widgets-valuators-dials.adb @@ -286,26 +286,30 @@ package body FLTK.Widgets.Valuators.Dials is - function Get_Dial_Type + function Get_Kind (This : in Dial) - return Dial_Kind is + return Dial_Kind + is + Result : Interfaces.C.unsigned_char := fl_widget_get_type (This.Void_Ptr); begin - return Dial_Kind'Val (fl_widget_get_type (This.Void_Ptr)); + return Dial_Kind'Val (Result); exception - when Constraint_Error => raise Internal_FLTK_Error; - end Get_Dial_Type; + when Constraint_Error => raise Internal_FLTK_Error with + "Fl_Dial::type returned unexpected unsigned char value of " & + Interfaces.C.unsigned_char'Image (Result); + end Get_Kind; package body Extra is - procedure Set_Dial_Type + procedure Set_Kind (This : in out Dial; To : in Dial_Kind) is begin fl_widget_set_type (This.Void_Ptr, Dial_Kind'Pos (To)); - end Set_Dial_Type; + end Set_Kind; - pragma Inline (Set_Dial_Type); + pragma Inline (Set_Kind); end Extra; |