diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-11-09 09:12:26 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-09 09:12:26 +1100 |
| commit | 87063e50bfb3dd69d0806897d5b0d97b7d48f92a (patch) | |
| tree | 100df0819fbf577dbb4164c7fe77e793551b0a4b /src/fltk_binding/fltk-popups.adb | |
| parent | 2b2ed338e7b4f7372fdd74feb33476dd7b94aea5 (diff) | |
Removed superfluous use clauses, styling now more standardised
Diffstat (limited to 'src/fltk_binding/fltk-popups.adb')
| -rw-r--r-- | src/fltk_binding/fltk-popups.adb | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/src/fltk_binding/fltk-popups.adb b/src/fltk_binding/fltk-popups.adb index 40a8d3e..d6ac8e9 100644 --- a/src/fltk_binding/fltk-popups.adb +++ b/src/fltk_binding/fltk-popups.adb @@ -46,14 +46,13 @@ package body FLTK.Popups is function Three_Way_Choice (Message, Button1, Button2, Button3 : in String) - return Choice is - + return Choice + is Result : Interfaces.C.int := popup_fl_choice (Interfaces.C.To_C (Message), Interfaces.C.To_C (Button1), Interfaces.C.To_C (Button2), Interfaces.C.To_C (Button3)); - begin return Choice'Val (Result); end Three_Way_Choice; @@ -63,15 +62,14 @@ package body FLTK.Popups is function File_Chooser (Message, Filter_Pattern, Default : in String; - Relative : in Boolean := False) - return String is - + Relative : in Boolean := False) + return String + is Result : Interfaces.C.Strings.chars_ptr := popup_fl_file_chooser (Interfaces.C.To_C (Message), Interfaces.C.To_C (Filter_Pattern), Interfaces.C.To_C (Default), Boolean'Pos (Relative)); - begin if Result = Interfaces.C.Strings.Null_Ptr then return ""; @@ -85,12 +83,11 @@ package body FLTK.Popups is function Text_Input (Message, Default : in String) - return String is - + return String + is Result : Interfaces.C.Strings.chars_ptr := popup_fl_input (Interfaces.C.To_C (Message), Interfaces.C.To_C (Default)); - begin if Result = Interfaces.C.Strings.Null_Ptr then return ""; |