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 | e0ee146d740146cd4c80de22d6bf6e204efadfa0 (patch) | |
| tree | 5549e0b0057e9be10e88a439f40dc8d197f26505 /fltk-popups.adb | |
| parent | c3592231733f3f52aa9fdfd83ac93eb9ee1865e1 (diff) | |
Removed superfluous use clauses, styling now more standardised
Diffstat (limited to 'fltk-popups.adb')
| -rw-r--r-- | fltk-popups.adb | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/fltk-popups.adb b/fltk-popups.adb index 40a8d3e..d6ac8e9 100644 --- a/fltk-popups.adb +++ b/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 ""; |