summaryrefslogtreecommitdiff
path: root/fltk-widgets-buttons-toggle.adb
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2016-05-26 04:35:58 +1000
committerJed Barber <jjbarber@y7mail.com>2016-05-26 04:35:58 +1000
commit2aac034b614d6de39f4aee9f41dba8f2bcc63d8d (patch)
treec3a06709e36cccb576dddf81614c8cddfefffb9f /fltk-widgets-buttons-toggle.adb
parent0f28695be695a0b2e8fbfff388c61cb69cdc03af (diff)
In the interests of readability and consistent style...
Diffstat (limited to 'fltk-widgets-buttons-toggle.adb')
-rw-r--r--fltk-widgets-buttons-toggle.adb9
1 files changed, 5 insertions, 4 deletions
diff --git a/fltk-widgets-buttons-toggle.adb b/fltk-widgets-buttons-toggle.adb
index 1347845..b6e7dc2 100644
--- a/fltk-widgets-buttons-toggle.adb
+++ b/fltk-widgets-buttons-toggle.adb
@@ -10,7 +10,7 @@ package body FLTK.Widgets.Buttons.Toggle is
function new_fl_toggle_button
(X, Y, W, H : in Interfaces.C.int;
- L : in Interfaces.C.char_array)
+ Label : in Interfaces.C.char_array)
return System.Address;
pragma Import (C, new_fl_toggle_button, "new_fl_toggle_button");
@@ -21,7 +21,8 @@ package body FLTK.Widgets.Buttons.Toggle is
- procedure Finalize (This : in out Toggle_Button) is
+ procedure Finalize
+ (This : in out Toggle_Button) is
begin
if (This.Void_Ptr /= System.Null_Address) then
free_fl_toggle_button (This.Void_Ptr);
@@ -32,8 +33,8 @@ package body FLTK.Widgets.Buttons.Toggle is
function Create
- (X, Y, W, H : Integer;
- Label : String)
+ (X, Y, W, H : in Integer;
+ Label : in String)
return Toggle_Button is
VP : System.Address;