summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fltk-images-bitmaps-xbm.adb42
-rw-r--r--src/fltk-images-bitmaps-xbm.ads10
-rw-r--r--src/fltk-images-bitmaps.adb4
-rw-r--r--src/fltk-images-bitmaps.ads4
-rw-r--r--src/fltk-images-rgb-bmp.adb42
-rw-r--r--src/fltk-images-rgb-bmp.ads10
-rw-r--r--src/fltk-images-rgb-jpeg.adb42
-rw-r--r--src/fltk-images-rgb-jpeg.ads10
-rw-r--r--src/fltk-images-rgb-png.adb42
-rw-r--r--src/fltk-images-rgb-png.ads10
-rw-r--r--src/fltk-images-rgb-pnm.adb42
-rw-r--r--src/fltk-images-rgb-pnm.ads10
-rw-r--r--src/fltk-images-rgb.adb4
-rw-r--r--src/fltk-images-rgb.ads4
-rw-r--r--src/fltk-images.adb52
-rw-r--r--src/fltk-images.ads17
-rw-r--r--src/fltk-text_buffers.adb34
-rw-r--r--src/fltk-text_buffers.ads12
-rw-r--r--src/fltk-widgets-boxes.adb42
-rw-r--r--src/fltk-widgets-boxes.ads12
-rw-r--r--src/fltk-widgets-buttons-enter.adb42
-rw-r--r--src/fltk-widgets-buttons-enter.ads12
-rw-r--r--src/fltk-widgets-buttons-light-check.adb42
-rw-r--r--src/fltk-widgets-buttons-light-check.ads12
-rw-r--r--src/fltk-widgets-buttons-light-radio.adb42
-rw-r--r--src/fltk-widgets-buttons-light-radio.ads12
-rw-r--r--src/fltk-widgets-buttons-light-round-radio.adb42
-rw-r--r--src/fltk-widgets-buttons-light-round-radio.ads12
-rw-r--r--src/fltk-widgets-buttons-light-round.adb42
-rw-r--r--src/fltk-widgets-buttons-light-round.ads12
-rw-r--r--src/fltk-widgets-buttons-light.adb42
-rw-r--r--src/fltk-widgets-buttons-light.ads12
-rw-r--r--src/fltk-widgets-buttons-radio.adb42
-rw-r--r--src/fltk-widgets-buttons-radio.ads12
-rw-r--r--src/fltk-widgets-buttons-repeat.adb42
-rw-r--r--src/fltk-widgets-buttons-repeat.ads12
-rw-r--r--src/fltk-widgets-buttons-toggle.adb42
-rw-r--r--src/fltk-widgets-buttons-toggle.ads12
-rw-r--r--src/fltk-widgets-buttons.adb42
-rw-r--r--src/fltk-widgets-buttons.ads12
-rw-r--r--src/fltk-widgets-clocks-updated-round.adb42
-rw-r--r--src/fltk-widgets-clocks-updated-round.ads12
-rw-r--r--src/fltk-widgets-clocks-updated.adb42
-rw-r--r--src/fltk-widgets-clocks-updated.ads12
-rw-r--r--src/fltk-widgets-clocks.adb42
-rw-r--r--src/fltk-widgets-clocks.ads12
-rw-r--r--src/fltk-widgets-groups-scrolls.adb44
-rw-r--r--src/fltk-widgets-groups-scrolls.ads12
-rw-r--r--src/fltk-widgets-groups-tabbed.adb44
-rw-r--r--src/fltk-widgets-groups-tabbed.ads12
-rw-r--r--src/fltk-widgets-groups-text_displays-text_editors.adb118
-rw-r--r--src/fltk-widgets-groups-text_displays-text_editors.ads12
-rw-r--r--src/fltk-widgets-groups-text_displays.adb44
-rw-r--r--src/fltk-widgets-groups-text_displays.ads12
-rw-r--r--src/fltk-widgets-groups-windows-double.adb80
-rw-r--r--src/fltk-widgets-groups-windows-double.ads20
-rw-r--r--src/fltk-widgets-groups-windows-single-menu.adb80
-rw-r--r--src/fltk-widgets-groups-windows-single-menu.ads20
-rw-r--r--src/fltk-widgets-groups-windows-single.adb80
-rw-r--r--src/fltk-widgets-groups-windows-single.ads20
-rw-r--r--src/fltk-widgets-groups-windows.adb80
-rw-r--r--src/fltk-widgets-groups-windows.ads20
-rw-r--r--src/fltk-widgets-groups-wizards.adb44
-rw-r--r--src/fltk-widgets-groups-wizards.ads12
-rw-r--r--src/fltk-widgets-groups.adb44
-rw-r--r--src/fltk-widgets-groups.ads12
-rw-r--r--src/fltk-widgets-inputs-file.adb42
-rw-r--r--src/fltk-widgets-inputs-file.ads12
-rw-r--r--src/fltk-widgets-inputs-float.adb42
-rw-r--r--src/fltk-widgets-inputs-float.ads12
-rw-r--r--src/fltk-widgets-inputs-integer.adb42
-rw-r--r--src/fltk-widgets-inputs-integer.ads12
-rw-r--r--src/fltk-widgets-inputs-multiline.adb42
-rw-r--r--src/fltk-widgets-inputs-multiline.ads12
-rw-r--r--src/fltk-widgets-inputs-outputs-multiline.adb42
-rw-r--r--src/fltk-widgets-inputs-outputs-multiline.ads12
-rw-r--r--src/fltk-widgets-inputs-outputs.adb42
-rw-r--r--src/fltk-widgets-inputs-outputs.ads12
-rw-r--r--src/fltk-widgets-inputs-secret.adb42
-rw-r--r--src/fltk-widgets-inputs-secret.ads12
-rw-r--r--src/fltk-widgets-inputs.adb42
-rw-r--r--src/fltk-widgets-inputs.ads12
-rw-r--r--src/fltk-widgets-menus-menu_bars.adb42
-rw-r--r--src/fltk-widgets-menus-menu_bars.ads12
-rw-r--r--src/fltk-widgets-menus-menu_buttons.adb42
-rw-r--r--src/fltk-widgets-menus-menu_buttons.ads12
-rw-r--r--src/fltk-widgets-menus.adb42
-rw-r--r--src/fltk-widgets-menus.ads12
-rw-r--r--src/fltk-widgets-progress_bars.adb42
-rw-r--r--src/fltk-widgets-progress_bars.ads12
-rw-r--r--src/fltk-widgets-valuators-adjusters.adb42
-rw-r--r--src/fltk-widgets-valuators-adjusters.ads12
-rw-r--r--src/fltk-widgets-valuators-counters-simple.adb42
-rw-r--r--src/fltk-widgets-valuators-counters-simple.ads12
-rw-r--r--src/fltk-widgets-valuators-counters.adb42
-rw-r--r--src/fltk-widgets-valuators-counters.ads12
-rw-r--r--src/fltk-widgets-valuators-dials-fill.adb42
-rw-r--r--src/fltk-widgets-valuators-dials-fill.ads12
-rw-r--r--src/fltk-widgets-valuators-dials-line.adb42
-rw-r--r--src/fltk-widgets-valuators-dials-line.ads12
-rw-r--r--src/fltk-widgets-valuators-dials.adb42
-rw-r--r--src/fltk-widgets-valuators-dials.ads12
-rw-r--r--src/fltk-widgets-valuators-rollers.adb42
-rw-r--r--src/fltk-widgets-valuators-rollers.ads12
-rw-r--r--src/fltk-widgets-valuators-sliders-fill.adb42
-rw-r--r--src/fltk-widgets-valuators-sliders-fill.ads12
-rw-r--r--src/fltk-widgets-valuators-sliders-hor_fill.adb42
-rw-r--r--src/fltk-widgets-valuators-sliders-hor_fill.ads12
-rw-r--r--src/fltk-widgets-valuators-sliders-hor_nice.adb42
-rw-r--r--src/fltk-widgets-valuators-sliders-hor_nice.ads12
-rw-r--r--src/fltk-widgets-valuators-sliders-horizontal.adb42
-rw-r--r--src/fltk-widgets-valuators-sliders-horizontal.ads12
-rw-r--r--src/fltk-widgets-valuators-sliders-nice.adb42
-rw-r--r--src/fltk-widgets-valuators-sliders-nice.ads12
-rw-r--r--src/fltk-widgets-valuators-sliders.adb42
-rw-r--r--src/fltk-widgets-valuators-sliders.ads12
-rw-r--r--src/fltk-widgets-valuators.adb42
-rw-r--r--src/fltk-widgets-valuators.ads12
-rw-r--r--src/fltk-widgets.adb42
-rw-r--r--src/fltk-widgets.ads12
120 files changed, 1942 insertions, 1473 deletions
diff --git a/src/fltk-images-bitmaps-xbm.adb b/src/fltk-images-bitmaps-xbm.adb
index 6bc9a1d..13cc5dd 100644
--- a/src/fltk-images-bitmaps-xbm.adb
+++ b/src/fltk-images-bitmaps-xbm.adb
@@ -40,25 +40,29 @@ package body FLTK.Images.Bitmaps.XBM is
- function Create
- (Filename : in String)
- return XBM_Image is
- begin
- return This : XBM_Image do
- This.Void_Ptr := new_fl_xbm_image
- (Interfaces.C.To_C (Filename));
- case fl_image_fail (This.Void_Ptr) is
- when 1 =>
- raise No_Image_Error;
- when 2 =>
- raise File_Access_Error;
- when 3 =>
- raise Format_Error;
- when others =>
- null;
- end case;
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (Filename : in String)
+ return XBM_Image is
+ begin
+ return This : XBM_Image do
+ This.Void_Ptr := new_fl_xbm_image
+ (Interfaces.C.To_C (Filename));
+ case fl_image_fail (This.Void_Ptr) is
+ when 1 =>
+ raise No_Image_Error;
+ when 2 =>
+ raise File_Access_Error;
+ when 3 =>
+ raise Format_Error;
+ when others =>
+ null;
+ end case;
+ end return;
+ end Create;
+
+ end Forge;
end FLTK.Images.Bitmaps.XBM;
diff --git a/src/fltk-images-bitmaps-xbm.ads b/src/fltk-images-bitmaps-xbm.ads
index 4848576..986a192 100644
--- a/src/fltk-images-bitmaps-xbm.ads
+++ b/src/fltk-images-bitmaps-xbm.ads
@@ -8,9 +8,13 @@ package FLTK.Images.Bitmaps.XBM is
- function Create
- (Filename : in String)
- return XBM_Image;
+ package Forge is
+
+ function Create
+ (Filename : in String)
+ return XBM_Image;
+
+ end Forge;
private
diff --git a/src/fltk-images-bitmaps.adb b/src/fltk-images-bitmaps.adb
index 6d80954..7fb1a51 100644
--- a/src/fltk-images-bitmaps.adb
+++ b/src/fltk-images-bitmaps.adb
@@ -57,7 +57,7 @@ package body FLTK.Images.Bitmaps is
function Copy
(This : in Bitmap;
Width, Height : in Natural)
- return Bitmap is
+ return Bitmap'Class is
begin
return Copied : Bitmap do
Copied.Void_Ptr := fl_bitmap_copy
@@ -70,7 +70,7 @@ package body FLTK.Images.Bitmaps is
function Copy
(This : in Bitmap)
- return Bitmap is
+ return Bitmap'Class is
begin
return Copied : Bitmap do
Copied.Void_Ptr := fl_bitmap_copy2 (This.Void_Ptr);
diff --git a/src/fltk-images-bitmaps.ads b/src/fltk-images-bitmaps.ads
index 8f2e4bf..53229e2 100644
--- a/src/fltk-images-bitmaps.ads
+++ b/src/fltk-images-bitmaps.ads
@@ -11,11 +11,11 @@ package FLTK.Images.Bitmaps is
function Copy
(This : in Bitmap;
Width, Height : in Natural)
- return Bitmap;
+ return Bitmap'Class;
function Copy
(This : in Bitmap)
- return Bitmap;
+ return Bitmap'Class;
diff --git a/src/fltk-images-rgb-bmp.adb b/src/fltk-images-rgb-bmp.adb
index 124cdd4..7556234 100644
--- a/src/fltk-images-rgb-bmp.adb
+++ b/src/fltk-images-rgb-bmp.adb
@@ -40,25 +40,29 @@ package body FLTK.Images.RGB.BMP is
- function Create
- (Filename : in String)
- return BMP_Image is
- begin
- return This : BMP_Image do
- This.Void_Ptr := new_fl_bmp_image
- (Interfaces.C.To_C (Filename));
- case fl_image_fail (This.Void_Ptr) is
- when 1 =>
- raise No_Image_Error;
- when 2 =>
- raise File_Access_Error;
- when 3 =>
- raise Format_Error;
- when others =>
- null;
- end case;
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (Filename : in String)
+ return BMP_Image is
+ begin
+ return This : BMP_Image do
+ This.Void_Ptr := new_fl_bmp_image
+ (Interfaces.C.To_C (Filename));
+ case fl_image_fail (This.Void_Ptr) is
+ when 1 =>
+ raise No_Image_Error;
+ when 2 =>
+ raise File_Access_Error;
+ when 3 =>
+ raise Format_Error;
+ when others =>
+ null;
+ end case;
+ end return;
+ end Create;
+
+ end Forge;
end FLTK.Images.RGB.BMP;
diff --git a/src/fltk-images-rgb-bmp.ads b/src/fltk-images-rgb-bmp.ads
index 8d68d97..eed47e1 100644
--- a/src/fltk-images-rgb-bmp.ads
+++ b/src/fltk-images-rgb-bmp.ads
@@ -8,9 +8,13 @@ package FLTK.Images.RGB.BMP is
- function Create
- (Filename : in String)
- return BMP_Image;
+ package Forge is
+
+ function Create
+ (Filename : in String)
+ return BMP_Image;
+
+ end Forge;
private
diff --git a/src/fltk-images-rgb-jpeg.adb b/src/fltk-images-rgb-jpeg.adb
index a74604e..d37eb3d 100644
--- a/src/fltk-images-rgb-jpeg.adb
+++ b/src/fltk-images-rgb-jpeg.adb
@@ -40,25 +40,29 @@ package body FLTK.Images.RGB.JPEG is
- function Create
- (Filename : in String)
- return JPEG_Image is
- begin
- return This : JPEG_Image do
- This.Void_Ptr := new_fl_jpeg_image
- (Interfaces.C.To_C (Filename));
- case fl_image_fail (This.Void_Ptr) is
- when 1 =>
- raise No_Image_Error;
- when 2 =>
- raise File_Access_Error;
- when 3 =>
- raise Format_Error;
- when others =>
- null;
- end case;
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (Filename : in String)
+ return JPEG_Image is
+ begin
+ return This : JPEG_Image do
+ This.Void_Ptr := new_fl_jpeg_image
+ (Interfaces.C.To_C (Filename));
+ case fl_image_fail (This.Void_Ptr) is
+ when 1 =>
+ raise No_Image_Error;
+ when 2 =>
+ raise File_Access_Error;
+ when 3 =>
+ raise Format_Error;
+ when others =>
+ null;
+ end case;
+ end return;
+ end Create;
+
+ end Forge;
end FLTK.Images.RGB.JPEG;
diff --git a/src/fltk-images-rgb-jpeg.ads b/src/fltk-images-rgb-jpeg.ads
index f467245..a443f2b 100644
--- a/src/fltk-images-rgb-jpeg.ads
+++ b/src/fltk-images-rgb-jpeg.ads
@@ -8,9 +8,13 @@ package FLTK.Images.RGB.JPEG is
- function Create
- (Filename : in String)
- return JPEG_Image;
+ package Forge is
+
+ function Create
+ (Filename : in String)
+ return JPEG_Image;
+
+ end Forge;
private
diff --git a/src/fltk-images-rgb-png.adb b/src/fltk-images-rgb-png.adb
index d50de04..9a541a8 100644
--- a/src/fltk-images-rgb-png.adb
+++ b/src/fltk-images-rgb-png.adb
@@ -40,25 +40,29 @@ package body FLTK.Images.RGB.PNG is
- function Create
- (Filename : in String)
- return PNG_Image is
- begin
- return This : PNG_Image do
- This.Void_Ptr := new_fl_png_image
- (Interfaces.C.To_C (Filename));
- case fl_image_fail (This.Void_Ptr) is
- when 1 =>
- raise No_Image_Error;
- when 2 =>
- raise File_Access_Error;
- when 3 =>
- raise Format_Error;
- when others =>
- null;
- end case;
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (Filename : in String)
+ return PNG_Image is
+ begin
+ return This : PNG_Image do
+ This.Void_Ptr := new_fl_png_image
+ (Interfaces.C.To_C (Filename));
+ case fl_image_fail (This.Void_Ptr) is
+ when 1 =>
+ raise No_Image_Error;
+ when 2 =>
+ raise File_Access_Error;
+ when 3 =>
+ raise Format_Error;
+ when others =>
+ null;
+ end case;
+ end return;
+ end Create;
+
+ end Forge;
end FLTK.Images.RGB.PNG;
diff --git a/src/fltk-images-rgb-png.ads b/src/fltk-images-rgb-png.ads
index 9dcb09d..fbcb69b 100644
--- a/src/fltk-images-rgb-png.ads
+++ b/src/fltk-images-rgb-png.ads
@@ -8,9 +8,13 @@ package FLTK.Images.RGB.PNG is
- function Create
- (Filename : in String)
- return PNG_Image;
+ package Forge is
+
+ function Create
+ (Filename : in String)
+ return PNG_Image;
+
+ end Forge;
private
diff --git a/src/fltk-images-rgb-pnm.adb b/src/fltk-images-rgb-pnm.adb
index 5368b3e..51cf026 100644
--- a/src/fltk-images-rgb-pnm.adb
+++ b/src/fltk-images-rgb-pnm.adb
@@ -40,25 +40,29 @@ package body FLTK.Images.RGB.PNM is
- function Create
- (Filename : in String)
- return PNM_Image is
- begin
- return This : PNM_Image do
- This.Void_Ptr := new_fl_pnm_image
- (Interfaces.C.To_C (Filename));
- case fl_image_fail (This.Void_Ptr) is
- when 1 =>
- raise No_Image_Error;
- when 2 =>
- raise File_Access_Error;
- when 3 =>
- raise Format_Error;
- when others =>
- null;
- end case;
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (Filename : in String)
+ return PNM_Image is
+ begin
+ return This : PNM_Image do
+ This.Void_Ptr := new_fl_pnm_image
+ (Interfaces.C.To_C (Filename));
+ case fl_image_fail (This.Void_Ptr) is
+ when 1 =>
+ raise No_Image_Error;
+ when 2 =>
+ raise File_Access_Error;
+ when 3 =>
+ raise Format_Error;
+ when others =>
+ null;
+ end case;
+ end return;
+ end Create;
+
+ end Forge;
end FLTK.Images.RGB.PNM;
diff --git a/src/fltk-images-rgb-pnm.ads b/src/fltk-images-rgb-pnm.ads
index 2cd8c02..f766f84 100644
--- a/src/fltk-images-rgb-pnm.ads
+++ b/src/fltk-images-rgb-pnm.ads
@@ -8,9 +8,13 @@ package FLTK.Images.RGB.PNM is
- function Create
- (Filename : in String)
- return PNM_Image;
+ package Forge is
+
+ function Create
+ (Filename : in String)
+ return PNM_Image;
+
+ end Forge;
private
diff --git a/src/fltk-images-rgb.adb b/src/fltk-images-rgb.adb
index 881b8cb..3bcd01e 100644
--- a/src/fltk-images-rgb.adb
+++ b/src/fltk-images-rgb.adb
@@ -70,7 +70,7 @@ package body FLTK.Images.RGB is
function Copy
(This : in RGB_Image;
Width, Height : in Natural)
- return RGB_Image is
+ return RGB_Image'Class is
begin
return Copied : RGB_Image do
Copied.Void_Ptr := fl_rgb_image_copy
@@ -83,7 +83,7 @@ package body FLTK.Images.RGB is
function Copy
(This : in RGB_Image)
- return RGB_Image is
+ return RGB_Image'Class is
begin
return Copied : RGB_Image do
Copied.Void_Ptr := fl_rgb_image_copy2 (This.Void_Ptr);
diff --git a/src/fltk-images-rgb.ads b/src/fltk-images-rgb.ads
index f34c34a..c807468 100644
--- a/src/fltk-images-rgb.ads
+++ b/src/fltk-images-rgb.ads
@@ -11,11 +11,11 @@ package FLTK.Images.RGB is
function Copy
(This : in RGB_Image;
Width, Height : in Natural)
- return RGB_Image;
+ return RGB_Image'Class;
function Copy
(This : in RGB_Image)
- return RGB_Image;
+ return RGB_Image'Class;
diff --git a/src/fltk-images.adb b/src/fltk-images.adb
index 5d72e6d..42226e2 100644
--- a/src/fltk-images.adb
+++ b/src/fltk-images.adb
@@ -107,33 +107,39 @@ package body FLTK.Images is
- function Create
- (Width, Height, Depth : in Natural)
- return Image is
- begin
- return This : Image do
- This.Void_Ptr := new_fl_image
- (Interfaces.C.int (Width),
- Interfaces.C.int (Height),
- Interfaces.C.int (Depth));
- case fl_image_fail (This.Void_Ptr) is
- when 1 =>
- raise No_Image_Error;
- when 2 =>
- raise File_Access_Error;
- when 3 =>
- raise Format_Error;
- when others =>
- null;
- end case;
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (Width, Height, Depth : in Natural)
+ return Image is
+ begin
+ return This : Image do
+ This.Void_Ptr := new_fl_image
+ (Interfaces.C.int (Width),
+ Interfaces.C.int (Height),
+ Interfaces.C.int (Depth));
+ case fl_image_fail (This.Void_Ptr) is
+ when 1 =>
+ raise No_Image_Error;
+ when 2 =>
+ raise File_Access_Error;
+ when 3 =>
+ raise Format_Error;
+ when others =>
+ null;
+ end case;
+ end return;
+ end Create;
+
+ end Forge;
+
+
function Copy
(This : in Image;
Width, Height : in Natural)
- return Image is
+ return Image'Class is
begin
return Copied : Image do
Copied.Void_Ptr := fl_image_copy
@@ -146,7 +152,7 @@ package body FLTK.Images is
function Copy
(This : in Image)
- return Image is
+ return Image'Class is
begin
return Copied : Image do
Copied.Void_Ptr := fl_image_copy2 (This.Void_Ptr);
diff --git a/src/fltk-images.ads b/src/fltk-images.ads
index a3138e9..86ddbdb 100644
--- a/src/fltk-images.ads
+++ b/src/fltk-images.ads
@@ -12,18 +12,25 @@ package FLTK.Images is
- function Create
- (Width, Height, Depth : in Natural)
- return Image;
+ package Forge is
+
+ function Create
+ (Width, Height, Depth : in Natural)
+ return Image;
+
+ end Forge;
+
+
+
function Copy
(This : in Image;
Width, Height : in Natural)
- return Image;
+ return Image'Class;
function Copy
(This : in Image)
- return Image;
+ return Image'Class;
diff --git a/src/fltk-text_buffers.adb b/src/fltk-text_buffers.adb
index a91f7e1..394ff02 100644
--- a/src/fltk-text_buffers.adb
+++ b/src/fltk-text_buffers.adb
@@ -232,21 +232,25 @@ package body FLTK.Text_Buffers is
- function Create
- (Requested_Size : in Natural := 0;
- Preferred_Gap_Size : in Natural := 1024)
- return Text_Buffer is
- begin
- return This : Text_Buffer do
- This.Void_Ptr := new_fl_text_buffer
- (Interfaces.C.int (Requested_Size),
- Interfaces.C.int (Preferred_Gap_Size));
-
- This.Modify_CBs := Modify_Vectors.Empty_Vector;
- This.Predelete_CBs := Predelete_Vectors.Empty_Vector;
- This.CB_Active := True;
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (Requested_Size : in Natural := 0;
+ Preferred_Gap_Size : in Natural := 1024)
+ return Text_Buffer is
+ begin
+ return This : Text_Buffer do
+ This.Void_Ptr := new_fl_text_buffer
+ (Interfaces.C.int (Requested_Size),
+ Interfaces.C.int (Preferred_Gap_Size));
+
+ This.Modify_CBs := Modify_Vectors.Empty_Vector;
+ This.Predelete_CBs := Predelete_Vectors.Empty_Vector;
+ This.CB_Active := True;
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-text_buffers.ads b/src/fltk-text_buffers.ads
index 1648915..ea66f6f 100644
--- a/src/fltk-text_buffers.ads
+++ b/src/fltk-text_buffers.ads
@@ -32,10 +32,14 @@ package FLTK.Text_Buffers is
- function Create
- (Requested_Size : in Natural := 0;
- Preferred_Gap_Size : in Natural := 1024)
- return Text_Buffer;
+ package Forge is
+
+ function Create
+ (Requested_Size : in Natural := 0;
+ Preferred_Gap_Size : in Natural := 1024)
+ return Text_Buffer;
+
+ end Forge;
diff --git a/src/fltk-widgets-boxes.adb b/src/fltk-widgets-boxes.adb
index c8ef70b..27aed8f 100644
--- a/src/fltk-widgets-boxes.adb
+++ b/src/fltk-widgets-boxes.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Boxes is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Box is
- begin
- return This : Box do
- This.Void_Ptr := new_fl_box
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- box_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- box_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Box is
+ begin
+ return This : Box do
+ This.Void_Ptr := new_fl_box
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ box_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ box_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-boxes.ads b/src/fltk-widgets-boxes.ads
index b31bdf5..99962ba 100644
--- a/src/fltk-widgets-boxes.ads
+++ b/src/fltk-widgets-boxes.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Boxes is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Box;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Box;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-enter.adb b/src/fltk-widgets-buttons-enter.adb
index 71acd7f..2fcb2a8 100644
--- a/src/fltk-widgets-buttons-enter.adb
+++ b/src/fltk-widgets-buttons-enter.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Enter is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Enter_Button is
- begin
- return This : Enter_Button do
- This.Void_Ptr := new_fl_return_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- return_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- return_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Enter_Button is
+ begin
+ return This : Enter_Button do
+ This.Void_Ptr := new_fl_return_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ return_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ return_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-enter.ads b/src/fltk-widgets-buttons-enter.ads
index e56e141..1b9ceab 100644
--- a/src/fltk-widgets-buttons-enter.ads
+++ b/src/fltk-widgets-buttons-enter.ads
@@ -11,10 +11,14 @@ package FLTK.Widgets.Buttons.Enter is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Enter_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Enter_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-check.adb b/src/fltk-widgets-buttons-light-check.adb
index b367cd3..df54720 100644
--- a/src/fltk-widgets-buttons-light-check.adb
+++ b/src/fltk-widgets-buttons-light-check.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Light.Check is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Check_Button is
- begin
- return This : Check_Button do
- This.Void_Ptr := new_fl_check_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- check_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- check_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Check_Button is
+ begin
+ return This : Check_Button do
+ This.Void_Ptr := new_fl_check_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ check_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ check_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-check.ads b/src/fltk-widgets-buttons-light-check.ads
index f4351ef..0e746d9 100644
--- a/src/fltk-widgets-buttons-light-check.ads
+++ b/src/fltk-widgets-buttons-light-check.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Light.Check is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Check_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Check_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-radio.adb b/src/fltk-widgets-buttons-light-radio.adb
index 0317616..6df1abd 100644
--- a/src/fltk-widgets-buttons-light-radio.adb
+++ b/src/fltk-widgets-buttons-light-radio.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Light.Radio is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Radio_Light_Button is
- begin
- return This : Radio_Light_Button do
- This.Void_Ptr := new_fl_radio_light_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- radio_light_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- radio_light_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Radio_Light_Button is
+ begin
+ return This : Radio_Light_Button do
+ This.Void_Ptr := new_fl_radio_light_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ radio_light_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ radio_light_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-radio.ads b/src/fltk-widgets-buttons-light-radio.ads
index 47d5236..6536d5d 100644
--- a/src/fltk-widgets-buttons-light-radio.ads
+++ b/src/fltk-widgets-buttons-light-radio.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Light.Radio is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Radio_Light_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Radio_Light_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-round-radio.adb b/src/fltk-widgets-buttons-light-round-radio.adb
index f8ce436..6bdc8b3 100644
--- a/src/fltk-widgets-buttons-light-round-radio.adb
+++ b/src/fltk-widgets-buttons-light-round-radio.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Light.Round.Radio is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Radio_Round_Button is
- begin
- return This : Radio_Round_Button do
- This.Void_Ptr := new_fl_radio_round_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- radio_round_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- radio_round_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Radio_Round_Button is
+ begin
+ return This : Radio_Round_Button do
+ This.Void_Ptr := new_fl_radio_round_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ radio_round_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ radio_round_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-round-radio.ads b/src/fltk-widgets-buttons-light-round-radio.ads
index 8c0ec28..00a3c90 100644
--- a/src/fltk-widgets-buttons-light-round-radio.ads
+++ b/src/fltk-widgets-buttons-light-round-radio.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Light.Round.Radio is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Radio_Round_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Radio_Round_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-round.adb b/src/fltk-widgets-buttons-light-round.adb
index 7b10003..3287308 100644
--- a/src/fltk-widgets-buttons-light-round.adb
+++ b/src/fltk-widgets-buttons-light-round.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Light.Round is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Round_Button is
- begin
- return This : Round_Button do
- This.Void_Ptr := new_fl_round_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- round_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- round_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Round_Button is
+ begin
+ return This : Round_Button do
+ This.Void_Ptr := new_fl_round_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ round_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ round_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light-round.ads b/src/fltk-widgets-buttons-light-round.ads
index 183e953..22736b6 100644
--- a/src/fltk-widgets-buttons-light-round.ads
+++ b/src/fltk-widgets-buttons-light-round.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Light.Round is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Round_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Round_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light.adb b/src/fltk-widgets-buttons-light.adb
index 9029b3b..21c9efc 100644
--- a/src/fltk-widgets-buttons-light.adb
+++ b/src/fltk-widgets-buttons-light.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Light is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Light_Button is
- begin
- return This : Light_Button do
- This.Void_Ptr := new_fl_light_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- light_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- light_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Light_Button is
+ begin
+ return This : Light_Button do
+ This.Void_Ptr := new_fl_light_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ light_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ light_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-light.ads b/src/fltk-widgets-buttons-light.ads
index e999536..b7429ed 100644
--- a/src/fltk-widgets-buttons-light.ads
+++ b/src/fltk-widgets-buttons-light.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Light is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Light_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Light_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-radio.adb b/src/fltk-widgets-buttons-radio.adb
index 26388a8..6a5ff01 100644
--- a/src/fltk-widgets-buttons-radio.adb
+++ b/src/fltk-widgets-buttons-radio.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Radio is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Radio_Button is
- begin
- return This : Radio_Button do
- This.Void_Ptr := new_fl_radio_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- radio_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- radio_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Radio_Button is
+ begin
+ return This : Radio_Button do
+ This.Void_Ptr := new_fl_radio_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ radio_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ radio_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-radio.ads b/src/fltk-widgets-buttons-radio.ads
index 97be6fb..b62847a 100644
--- a/src/fltk-widgets-buttons-radio.ads
+++ b/src/fltk-widgets-buttons-radio.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Radio is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Radio_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Radio_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-repeat.adb b/src/fltk-widgets-buttons-repeat.adb
index 3d1ca90..7bbc6b1 100644
--- a/src/fltk-widgets-buttons-repeat.adb
+++ b/src/fltk-widgets-buttons-repeat.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Repeat is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Repeat_Button is
- begin
- return This : Repeat_Button do
- This.Void_Ptr := new_fl_repeat_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- repeat_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- repeat_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Repeat_Button is
+ begin
+ return This : Repeat_Button do
+ This.Void_Ptr := new_fl_repeat_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ repeat_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ repeat_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-repeat.ads b/src/fltk-widgets-buttons-repeat.ads
index 179e92e..2f495db 100644
--- a/src/fltk-widgets-buttons-repeat.ads
+++ b/src/fltk-widgets-buttons-repeat.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Repeat is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Repeat_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Repeat_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-toggle.adb b/src/fltk-widgets-buttons-toggle.adb
index bf4074a..60f8de3 100644
--- a/src/fltk-widgets-buttons-toggle.adb
+++ b/src/fltk-widgets-buttons-toggle.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Buttons.Toggle is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Toggle_Button is
- begin
- return This : Toggle_Button do
- This.Void_Ptr := new_fl_toggle_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- toggle_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- toggle_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Toggle_Button is
+ begin
+ return This : Toggle_Button do
+ This.Void_Ptr := new_fl_toggle_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ toggle_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ toggle_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons-toggle.ads b/src/fltk-widgets-buttons-toggle.ads
index 5d75cf9..d2f26a1 100644
--- a/src/fltk-widgets-buttons-toggle.ads
+++ b/src/fltk-widgets-buttons-toggle.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Buttons.Toggle is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Toggle_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Toggle_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons.adb b/src/fltk-widgets-buttons.adb
index 45b3a6e..5e7e18c 100644
--- a/src/fltk-widgets-buttons.adb
+++ b/src/fltk-widgets-buttons.adb
@@ -82,25 +82,29 @@ package body FLTK.Widgets.Buttons is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Button is
- begin
- return This : Button do
- This.Void_Ptr := new_fl_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Button is
+ begin
+ return This : Button do
+ This.Void_Ptr := new_fl_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-buttons.ads b/src/fltk-widgets-buttons.ads
index 0cf2c61..55d75c6 100644
--- a/src/fltk-widgets-buttons.ads
+++ b/src/fltk-widgets-buttons.ads
@@ -10,10 +10,14 @@ package FLTK.Widgets.Buttons is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-clocks-updated-round.adb b/src/fltk-widgets-clocks-updated-round.adb
index 9e03e67..c87cb7b 100644
--- a/src/fltk-widgets-clocks-updated-round.adb
+++ b/src/fltk-widgets-clocks-updated-round.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Clocks.Updated.Round is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Round_Clock is
- begin
- return This : Round_Clock do
- This.Void_Ptr := new_fl_round_clock
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- round_clock_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- round_clock_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Round_Clock is
+ begin
+ return This : Round_Clock do
+ This.Void_Ptr := new_fl_round_clock
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ round_clock_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ round_clock_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-clocks-updated-round.ads b/src/fltk-widgets-clocks-updated-round.ads
index 5f68382..17f05b3 100644
--- a/src/fltk-widgets-clocks-updated-round.ads
+++ b/src/fltk-widgets-clocks-updated-round.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Clocks.Updated.Round is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Round_Clock;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Round_Clock;
+
+ end Forge;
diff --git a/src/fltk-widgets-clocks-updated.adb b/src/fltk-widgets-clocks-updated.adb
index e193962..d55521e 100644
--- a/src/fltk-widgets-clocks-updated.adb
+++ b/src/fltk-widgets-clocks-updated.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Clocks.Updated is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Updated_Clock is
- begin
- return This : Updated_Clock do
- This.Void_Ptr := new_fl_clock
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- clock_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- clock_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Updated_Clock is
+ begin
+ return This : Updated_Clock do
+ This.Void_Ptr := new_fl_clock
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ clock_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ clock_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-clocks-updated.ads b/src/fltk-widgets-clocks-updated.ads
index bcfc59b..35bff2c 100644
--- a/src/fltk-widgets-clocks-updated.ads
+++ b/src/fltk-widgets-clocks-updated.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Clocks.Updated is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Updated_Clock;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Updated_Clock;
+
+ end Forge;
diff --git a/src/fltk-widgets-clocks.adb b/src/fltk-widgets-clocks.adb
index f409af5..5fd3ec2 100644
--- a/src/fltk-widgets-clocks.adb
+++ b/src/fltk-widgets-clocks.adb
@@ -101,25 +101,29 @@ package body FLTK.Widgets.Clocks is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Clock is
- begin
- return This : Clock do
- This.Void_Ptr := new_fl_clock_output
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- clock_output_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- clock_output_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Clock is
+ begin
+ return This : Clock do
+ This.Void_Ptr := new_fl_clock_output
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ clock_output_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ clock_output_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-clocks.ads b/src/fltk-widgets-clocks.ads
index d78fd45..eb8acfc 100644
--- a/src/fltk-widgets-clocks.ads
+++ b/src/fltk-widgets-clocks.ads
@@ -14,10 +14,14 @@ package FLTK.Widgets.Clocks is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Clock;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Clock;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-scrolls.adb b/src/fltk-widgets-groups-scrolls.adb
index 376a2ac..d90271d 100644
--- a/src/fltk-widgets-groups-scrolls.adb
+++ b/src/fltk-widgets-groups-scrolls.adb
@@ -102,26 +102,30 @@ package body FLTK.Widgets.Groups.Scrolls is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Scroll is
- begin
- return This : Scroll do
- This.Void_Ptr := new_fl_scroll
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- scroll_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- scroll_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Scroll is
+ begin
+ return This : Scroll do
+ This.Void_Ptr := new_fl_scroll
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ scroll_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ scroll_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-scrolls.ads b/src/fltk-widgets-groups-scrolls.ads
index 5299cf8..111af90 100644
--- a/src/fltk-widgets-groups-scrolls.ads
+++ b/src/fltk-widgets-groups-scrolls.ads
@@ -17,10 +17,14 @@ package FLTK.Widgets.Groups.Scrolls is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Scroll;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Scroll;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-tabbed.adb b/src/fltk-widgets-groups-tabbed.adb
index 70bfdc6..e7689cd 100644
--- a/src/fltk-widgets-groups-tabbed.adb
+++ b/src/fltk-widgets-groups-tabbed.adb
@@ -102,26 +102,30 @@ package body FLTK.Widgets.Groups.Tabbed is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Tabs is
- begin
- return This : Tabs do
- This.Void_Ptr := new_fl_tabs
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- tabs_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- tabs_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Tabs is
+ begin
+ return This : Tabs do
+ This.Void_Ptr := new_fl_tabs
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ tabs_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ tabs_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-tabbed.ads b/src/fltk-widgets-groups-tabbed.ads
index d11d9fd..0973e9f 100644
--- a/src/fltk-widgets-groups-tabbed.ads
+++ b/src/fltk-widgets-groups-tabbed.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Groups.Tabbed is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Tabs;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Tabs;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-text_displays-text_editors.adb b/src/fltk-widgets-groups-text_displays-text_editors.adb
index f54fac8..af3caea 100644
--- a/src/fltk-widgets-groups-text_displays-text_editors.adb
+++ b/src/fltk-widgets-groups-text_displays-text_editors.adb
@@ -370,65 +370,69 @@ package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Text_Editor
- is
- use type Interfaces.C.int;
- begin
- return This : Text_Editor do
- This.Void_Ptr := new_fl_text_editor
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- text_editor_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- text_editor_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
-
- -- change things over so key bindings are all handled from the Ada side
- This.Bindings := Binding_Vectors.Empty_Vector;
- for B of Default_Key_Bindings loop
- This.Bindings.Append (B);
- end loop;
- This.Default_Func := Default'Access;
-
- -- remove these loops and uncomment subsequent "remove_all_key_bindings"
- -- when FLTK keybindings fixed
- for B of To_Remove_List loop
- fl_text_editor_remove_key_binding
- (This.Void_Ptr,
- Interfaces.C.int (B.Press),
- B.Modif * 65536);
- end loop;
- for B of To_Remove_Weird loop
- fl_text_editor_remove_key_binding
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Text_Editor
+ is
+ use type Interfaces.C.int;
+ begin
+ return This : Text_Editor do
+ This.Void_Ptr := new_fl_text_editor
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
(This.Void_Ptr,
- Interfaces.C.int (B.Press),
- B.Modif);
- end loop;
- -- fl_text_editor_remove_all_key_bindings (This.Void_Ptr);
-
- fl_text_editor_set_default_key_function (This.Void_Ptr, Key_Func_Hook'Address);
-
- -- this is irritatingly required due to how FLTK handles certain keys
- for B of Default_Key_Bindings loop
- -- remove this conditional once FLTK keybindings fixed
- if B.Key.Modifier = Mod_None then
- fl_text_editor_add_key_binding
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ text_editor_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ text_editor_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+
+ -- change things over so key bindings are all handled from the Ada side
+ This.Bindings := Binding_Vectors.Empty_Vector;
+ for B of Default_Key_Bindings loop
+ This.Bindings.Append (B);
+ end loop;
+ This.Default_Func := Default'Access;
+
+ -- remove these loops and uncomment subsequent "remove_all_key_bindings"
+ -- when FLTK keybindings fixed
+ for B of To_Remove_List loop
+ fl_text_editor_remove_key_binding
+ (This.Void_Ptr,
+ Interfaces.C.int (B.Press),
+ B.Modif * 65536);
+ end loop;
+ for B of To_Remove_Weird loop
+ fl_text_editor_remove_key_binding
(This.Void_Ptr,
- Interfaces.C.int (B.Key.Keypress),
- Interfaces.C.int (B.Key.Modifier) * 65536,
- Key_Func_Hook'Address);
- end if;
- end loop;
- end return;
- end Create;
+ Interfaces.C.int (B.Press),
+ B.Modif);
+ end loop;
+ -- fl_text_editor_remove_all_key_bindings (This.Void_Ptr);
+
+ fl_text_editor_set_default_key_function (This.Void_Ptr, Key_Func_Hook'Address);
+
+ -- this is irritatingly required due to how FLTK handles certain keys
+ for B of Default_Key_Bindings loop
+ -- remove this conditional once FLTK keybindings fixed
+ if B.Key.Modifier = Mod_None then
+ fl_text_editor_add_key_binding
+ (This.Void_Ptr,
+ Interfaces.C.int (B.Key.Keypress),
+ Interfaces.C.int (B.Key.Modifier) * 65536,
+ Key_Func_Hook'Address);
+ end if;
+ end loop;
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-text_displays-text_editors.ads b/src/fltk-widgets-groups-text_displays-text_editors.ads
index b21cc3b..06e8214 100644
--- a/src/fltk-widgets-groups-text_displays-text_editors.ads
+++ b/src/fltk-widgets-groups-text_displays-text_editors.ads
@@ -31,10 +31,14 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Text_Editor;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Text_Editor;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-text_displays.adb b/src/fltk-widgets-groups-text_displays.adb
index 42ad88c..4548708 100644
--- a/src/fltk-widgets-groups-text_displays.adb
+++ b/src/fltk-widgets-groups-text_displays.adb
@@ -376,26 +376,30 @@ package body FLTK.Widgets.Groups.Text_Displays is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Text_Display is
- begin
- return This : Text_Display do
- This.Void_Ptr := new_fl_text_display
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- text_display_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- text_display_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Text_Display is
+ begin
+ return This : Text_Display do
+ This.Void_Ptr := new_fl_text_display
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ text_display_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ text_display_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-text_displays.ads b/src/fltk-widgets-groups-text_displays.ads
index 473a974..6262125 100644
--- a/src/fltk-widgets-groups-text_displays.ads
+++ b/src/fltk-widgets-groups-text_displays.ads
@@ -18,10 +18,14 @@ package FLTK.Widgets.Groups.Text_Displays is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Text_Display;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Text_Display;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows-double.adb b/src/fltk-widgets-groups-windows-double.adb
index dd8e2d2..ba4c8b8 100644
--- a/src/fltk-widgets-groups-windows-double.adb
+++ b/src/fltk-widgets-groups-windows-double.adb
@@ -86,44 +86,48 @@ package body FLTK.Widgets.Groups.Windows.Double is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Double_Window is
- begin
- return This : Double_Window do
- This.Void_Ptr := new_fl_double_window
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- double_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- double_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
-
-
- function Create
- (W, H : in Integer)
- return Double_Window is
- begin
- return This : Double_Window do
- This.Void_Ptr := new_fl_double_window2
- (Interfaces.C.int (W),
- Interfaces.C.int (H));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- double_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- double_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Double_Window is
+ begin
+ return This : Double_Window do
+ This.Void_Ptr := new_fl_double_window
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ double_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ double_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+
+ function Create
+ (W, H : in Integer)
+ return Double_Window is
+ begin
+ return This : Double_Window do
+ This.Void_Ptr := new_fl_double_window2
+ (Interfaces.C.int (W),
+ Interfaces.C.int (H));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ double_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ double_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows-double.ads b/src/fltk-widgets-groups-windows-double.ads
index 02576e1..8f566b7 100644
--- a/src/fltk-widgets-groups-windows-double.ads
+++ b/src/fltk-widgets-groups-windows-double.ads
@@ -8,14 +8,18 @@ package FLTK.Widgets.Groups.Windows.Double is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Double_Window;
-
- function Create
- (W, H : in Integer)
- return Double_Window;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Double_Window;
+
+ function Create
+ (W, H : in Integer)
+ return Double_Window;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows-single-menu.adb b/src/fltk-widgets-groups-windows-single-menu.adb
index 18902a6..f48021f 100644
--- a/src/fltk-widgets-groups-windows-single-menu.adb
+++ b/src/fltk-widgets-groups-windows-single-menu.adb
@@ -103,44 +103,48 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu_Window is
- begin
- return This : Menu_Window do
- This.Void_Ptr := new_fl_menu_window
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- menu_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- menu_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
-
-
- function Create
- (W, H : in Integer)
- return Menu_Window is
- begin
- return This : Menu_Window do
- This.Void_Ptr := new_fl_menu_window2
- (Interfaces.C.int (W),
- Interfaces.C.int (H));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- menu_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- menu_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu_Window is
+ begin
+ return This : Menu_Window do
+ This.Void_Ptr := new_fl_menu_window
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ menu_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ menu_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+
+ function Create
+ (W, H : in Integer)
+ return Menu_Window is
+ begin
+ return This : Menu_Window do
+ This.Void_Ptr := new_fl_menu_window2
+ (Interfaces.C.int (W),
+ Interfaces.C.int (H));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ menu_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ menu_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows-single-menu.ads b/src/fltk-widgets-groups-windows-single-menu.ads
index 8f5ea00..1ec5c1c 100644
--- a/src/fltk-widgets-groups-windows-single-menu.ads
+++ b/src/fltk-widgets-groups-windows-single-menu.ads
@@ -8,14 +8,18 @@ package FLTK.Widgets.Groups.Windows.Single.Menu is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu_Window;
-
- function Create
- (W, H : in Integer)
- return Menu_Window;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu_Window;
+
+ function Create
+ (W, H : in Integer)
+ return Menu_Window;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows-single.adb b/src/fltk-widgets-groups-windows-single.adb
index 94ee03c..22ca4a5 100644
--- a/src/fltk-widgets-groups-windows-single.adb
+++ b/src/fltk-widgets-groups-windows-single.adb
@@ -82,44 +82,48 @@ package body FLTK.Widgets.Groups.Windows.Single is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Single_Window is
- begin
- return This : Single_Window do
- This.Void_Ptr := new_fl_single_window
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- single_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- single_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
-
-
- function Create
- (W, H : in Integer)
- return Single_Window is
- begin
- return This : Single_Window do
- This.Void_Ptr := new_fl_single_window2
- (Interfaces.C.int (W),
- Interfaces.C.int (H));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- single_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- single_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Single_Window is
+ begin
+ return This : Single_Window do
+ This.Void_Ptr := new_fl_single_window
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ single_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ single_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+
+ function Create
+ (W, H : in Integer)
+ return Single_Window is
+ begin
+ return This : Single_Window do
+ This.Void_Ptr := new_fl_single_window2
+ (Interfaces.C.int (W),
+ Interfaces.C.int (H));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ single_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ single_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows-single.ads b/src/fltk-widgets-groups-windows-single.ads
index 4765ce7..e33597c 100644
--- a/src/fltk-widgets-groups-windows-single.ads
+++ b/src/fltk-widgets-groups-windows-single.ads
@@ -8,14 +8,18 @@ package FLTK.Widgets.Groups.Windows.Single is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Single_Window;
-
- function Create
- (W, H : in Integer)
- return Single_Window;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Single_Window;
+
+ function Create
+ (W, H : in Integer)
+ return Single_Window;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb
index 893d53a..13a2aa1 100644
--- a/src/fltk-widgets-groups-windows.adb
+++ b/src/fltk-widgets-groups-windows.adb
@@ -155,44 +155,48 @@ package body FLTK.Widgets.Groups.Windows is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Window is
- begin
- return This : Window do
- This.Void_Ptr := new_fl_window
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
-
-
- function Create
- (W, H : in Integer)
- return Window is
- begin
- return This : Window do
- This.Void_Ptr := new_fl_window2
- (Interfaces.C.int (W),
- Interfaces.C.int (H));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Window is
+ begin
+ return This : Window do
+ This.Void_Ptr := new_fl_window
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+
+ function Create
+ (W, H : in Integer)
+ return Window is
+ begin
+ return This : Window do
+ This.Void_Ptr := new_fl_window2
+ (Interfaces.C.int (W),
+ Interfaces.C.int (H));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-windows.ads b/src/fltk-widgets-groups-windows.ads
index 9d1cefc..3ea38c1 100644
--- a/src/fltk-widgets-groups-windows.ads
+++ b/src/fltk-widgets-groups-windows.ads
@@ -26,14 +26,18 @@ package FLTK.Widgets.Groups.Windows is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Window;
-
- function Create
- (W, H : in Integer)
- return Window;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Window;
+
+ function Create
+ (W, H : in Integer)
+ return Window;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-wizards.adb b/src/fltk-widgets-groups-wizards.adb
index ff9bc92..84c70ae 100644
--- a/src/fltk-widgets-groups-wizards.adb
+++ b/src/fltk-widgets-groups-wizards.adb
@@ -89,26 +89,30 @@ package body FLTK.Widgets.Groups.Wizards is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Wizard is
- begin
- return This : Wizard do
- This.Void_Ptr := new_fl_wizard
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- wizard_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- wizard_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Wizard is
+ begin
+ return This : Wizard do
+ This.Void_Ptr := new_fl_wizard
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ wizard_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ wizard_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups-wizards.ads b/src/fltk-widgets-groups-wizards.ads
index 63221db..50148d0 100644
--- a/src/fltk-widgets-groups-wizards.ads
+++ b/src/fltk-widgets-groups-wizards.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Groups.Wizards is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Wizard;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Wizard;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups.adb b/src/fltk-widgets-groups.adb
index 5d21d1f..268f3ad 100644
--- a/src/fltk-widgets-groups.adb
+++ b/src/fltk-widgets-groups.adb
@@ -139,26 +139,30 @@ package body FLTK.Widgets.Groups is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Group is
- begin
- return This : Group do
- This.Void_Ptr := new_fl_group
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_group_end (This.Void_Ptr);
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- group_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- group_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Group is
+ begin
+ return This : Group do
+ This.Void_Ptr := new_fl_group
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_group_end (This.Void_Ptr);
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ group_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ group_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads
index eeeb564..53ada82 100644
--- a/src/fltk-widgets-groups.ads
+++ b/src/fltk-widgets-groups.ads
@@ -16,10 +16,14 @@ package FLTK.Widgets.Groups is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Group;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Group;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-file.adb b/src/fltk-widgets-inputs-file.adb
index 7f9d6ad..4f7ffdf 100644
--- a/src/fltk-widgets-inputs-file.adb
+++ b/src/fltk-widgets-inputs-file.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs.File is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return File_Input is
- begin
- return This : File_Input do
- This.Void_Ptr := new_fl_file_input
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- file_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- file_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return File_Input is
+ begin
+ return This : File_Input do
+ This.Void_Ptr := new_fl_file_input
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ file_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ file_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-file.ads b/src/fltk-widgets-inputs-file.ads
index 87d42bf..e3bdb45 100644
--- a/src/fltk-widgets-inputs-file.ads
+++ b/src/fltk-widgets-inputs-file.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.File is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return File_Input;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return File_Input;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-float.adb b/src/fltk-widgets-inputs-float.adb
index 02f491f..249b99b 100644
--- a/src/fltk-widgets-inputs-float.adb
+++ b/src/fltk-widgets-inputs-float.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs.Float is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Float_Input is
- begin
- return This : Float_Input do
- This.Void_Ptr := new_fl_float_input
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- float_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- float_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Float_Input is
+ begin
+ return This : Float_Input do
+ This.Void_Ptr := new_fl_float_input
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ float_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ float_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-float.ads b/src/fltk-widgets-inputs-float.ads
index 68c07f4..1df1a98 100644
--- a/src/fltk-widgets-inputs-float.ads
+++ b/src/fltk-widgets-inputs-float.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.Float is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Float_Input;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Float_Input;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-integer.adb b/src/fltk-widgets-inputs-integer.adb
index b9b4eff..b82545a 100644
--- a/src/fltk-widgets-inputs-integer.adb
+++ b/src/fltk-widgets-inputs-integer.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs.Integer is
- function Create
- (X, Y, W, H : in Standard.Integer;
- Text : in String)
- return Integer_Input is
- begin
- return This : Integer_Input do
- This.Void_Ptr := new_fl_int_input
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- int_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- int_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Standard.Integer;
+ Text : in String)
+ return Integer_Input is
+ begin
+ return This : Integer_Input do
+ This.Void_Ptr := new_fl_int_input
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ int_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ int_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-integer.ads b/src/fltk-widgets-inputs-integer.ads
index c32615b..bde356c 100644
--- a/src/fltk-widgets-inputs-integer.ads
+++ b/src/fltk-widgets-inputs-integer.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.Integer is
- function Create
- (X, Y, W, H : in Standard.Integer;
- Text : in String)
- return Integer_Input;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Standard.Integer;
+ Text : in String)
+ return Integer_Input;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-multiline.adb b/src/fltk-widgets-inputs-multiline.adb
index e36414d..43a51fe 100644
--- a/src/fltk-widgets-inputs-multiline.adb
+++ b/src/fltk-widgets-inputs-multiline.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs.Multiline is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Multiline_Input is
- begin
- return This : Multiline_Input do
- This.Void_Ptr := new_fl_multiline_input
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- multiline_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- multiline_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Multiline_Input is
+ begin
+ return This : Multiline_Input do
+ This.Void_Ptr := new_fl_multiline_input
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ multiline_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ multiline_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-multiline.ads b/src/fltk-widgets-inputs-multiline.ads
index f9ba49b..81cab45 100644
--- a/src/fltk-widgets-inputs-multiline.ads
+++ b/src/fltk-widgets-inputs-multiline.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.Multiline is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Multiline_Input;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Multiline_Input;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-outputs-multiline.adb b/src/fltk-widgets-inputs-outputs-multiline.adb
index 41748ff..bf67397 100644
--- a/src/fltk-widgets-inputs-outputs-multiline.adb
+++ b/src/fltk-widgets-inputs-outputs-multiline.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs.Outputs.Multiline is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Multiline_Output is
- begin
- return This : Multiline_Output do
- This.Void_Ptr := new_fl_multiline_output
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- multiline_output_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- multiline_output_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Multiline_Output is
+ begin
+ return This : Multiline_Output do
+ This.Void_Ptr := new_fl_multiline_output
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ multiline_output_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ multiline_output_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-outputs-multiline.ads b/src/fltk-widgets-inputs-outputs-multiline.ads
index 4d53fa0..8a86280 100644
--- a/src/fltk-widgets-inputs-outputs-multiline.ads
+++ b/src/fltk-widgets-inputs-outputs-multiline.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.Outputs.Multiline is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Multiline_Output;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Multiline_Output;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-outputs.adb b/src/fltk-widgets-inputs-outputs.adb
index 8db5671..00c7d0c 100644
--- a/src/fltk-widgets-inputs-outputs.adb
+++ b/src/fltk-widgets-inputs-outputs.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs.Outputs is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Output is
- begin
- return This : Output do
- This.Void_Ptr := new_fl_output
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- output_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- output_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Output is
+ begin
+ return This : Output do
+ This.Void_Ptr := new_fl_output
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ output_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ output_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-outputs.ads b/src/fltk-widgets-inputs-outputs.ads
index 677c746..f686414 100644
--- a/src/fltk-widgets-inputs-outputs.ads
+++ b/src/fltk-widgets-inputs-outputs.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.Outputs is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Output;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Output;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-secret.adb b/src/fltk-widgets-inputs-secret.adb
index ba04668..064c364 100644
--- a/src/fltk-widgets-inputs-secret.adb
+++ b/src/fltk-widgets-inputs-secret.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs.Secret is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Secret_Input is
- begin
- return This : Secret_Input do
- This.Void_Ptr := new_fl_secret_input
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- secret_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- secret_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Secret_Input is
+ begin
+ return This : Secret_Input do
+ This.Void_Ptr := new_fl_secret_input
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ secret_input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ secret_input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs-secret.ads b/src/fltk-widgets-inputs-secret.ads
index 142cfcc..53ccaad 100644
--- a/src/fltk-widgets-inputs-secret.ads
+++ b/src/fltk-widgets-inputs-secret.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.Secret is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Secret_Input;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Secret_Input;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs.adb b/src/fltk-widgets-inputs.adb
index 633ede7..6d2ee20 100644
--- a/src/fltk-widgets-inputs.adb
+++ b/src/fltk-widgets-inputs.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Inputs is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Input is
- begin
- return This : Input do
- This.Void_Ptr := new_fl_input
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Input is
+ begin
+ return This : Input do
+ This.Void_Ptr := new_fl_input
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ input_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ input_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-inputs.ads b/src/fltk-widgets-inputs.ads
index 9f69795..9c80b81 100644
--- a/src/fltk-widgets-inputs.ads
+++ b/src/fltk-widgets-inputs.ads
@@ -14,10 +14,14 @@ package FLTK.Widgets.Inputs is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Input;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Input;
+
+ end Forge;
diff --git a/src/fltk-widgets-menus-menu_bars.adb b/src/fltk-widgets-menus-menu_bars.adb
index c21e6e9..b8b58b6 100644
--- a/src/fltk-widgets-menus-menu_bars.adb
+++ b/src/fltk-widgets-menus-menu_bars.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Menus.Menu_Bars is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu_Bar is
- begin
- return This : Menu_Bar do
- This.Void_Ptr := new_fl_menu_bar
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- menu_bar_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- menu_bar_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu_Bar is
+ begin
+ return This : Menu_Bar do
+ This.Void_Ptr := new_fl_menu_bar
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ menu_bar_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ menu_bar_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-menus-menu_bars.ads b/src/fltk-widgets-menus-menu_bars.ads
index d273b75..03b2900 100644
--- a/src/fltk-widgets-menus-menu_bars.ads
+++ b/src/fltk-widgets-menus-menu_bars.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Menus.Menu_Bars is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu_Bar;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu_Bar;
+
+ end Forge;
diff --git a/src/fltk-widgets-menus-menu_buttons.adb b/src/fltk-widgets-menus-menu_buttons.adb
index 947147d..1a8e17b 100644
--- a/src/fltk-widgets-menus-menu_buttons.adb
+++ b/src/fltk-widgets-menus-menu_buttons.adb
@@ -73,25 +73,29 @@ package body FLTK.Widgets.Menus.Menu_Buttons is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu_Button is
- begin
- return This : Menu_Button do
- This.Void_Ptr := new_fl_menu_button
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- menu_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- menu_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu_Button is
+ begin
+ return This : Menu_Button do
+ This.Void_Ptr := new_fl_menu_button
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ menu_button_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ menu_button_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-menus-menu_buttons.ads b/src/fltk-widgets-menus-menu_buttons.ads
index 47b1e1c..86e29bb 100644
--- a/src/fltk-widgets-menus-menu_buttons.ads
+++ b/src/fltk-widgets-menus-menu_buttons.ads
@@ -11,10 +11,14 @@ package FLTK.Widgets.Menus.Menu_Buttons is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu_Button;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu_Button;
+
+ end Forge;
diff --git a/src/fltk-widgets-menus.adb b/src/fltk-widgets-menus.adb
index ddfc934..89bb584 100644
--- a/src/fltk-widgets-menus.adb
+++ b/src/fltk-widgets-menus.adb
@@ -101,25 +101,29 @@ package body FLTK.Widgets.Menus is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu is
- begin
- return This : Menu do
- This.Void_Ptr := new_fl_menu
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- menu_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- menu_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu is
+ begin
+ return This : Menu do
+ This.Void_Ptr := new_fl_menu
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ menu_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ menu_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads
index ddd8c51..ad9ce36 100644
--- a/src/fltk-widgets-menus.ads
+++ b/src/fltk-widgets-menus.ads
@@ -34,10 +34,14 @@ package FLTK.Widgets.Menus is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Menu;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Menu;
+
+ end Forge;
diff --git a/src/fltk-widgets-progress_bars.adb b/src/fltk-widgets-progress_bars.adb
index 9f9cd06..70c07c6 100644
--- a/src/fltk-widgets-progress_bars.adb
+++ b/src/fltk-widgets-progress_bars.adb
@@ -98,25 +98,29 @@ package body FLTK.Widgets.Progress_Bars is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Progress_Bar is
- begin
- return This : Progress_Bar do
- This.Void_Ptr := new_fl_progress
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- progress_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- progress_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Progress_Bar is
+ begin
+ return This : Progress_Bar do
+ This.Void_Ptr := new_fl_progress
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ progress_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ progress_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-progress_bars.ads b/src/fltk-widgets-progress_bars.ads
index 252657b..007a28b 100644
--- a/src/fltk-widgets-progress_bars.ads
+++ b/src/fltk-widgets-progress_bars.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Progress_Bars is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Progress_Bar;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Progress_Bar;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-adjusters.adb b/src/fltk-widgets-valuators-adjusters.adb
index 90495e6..569f6dd 100644
--- a/src/fltk-widgets-valuators-adjusters.adb
+++ b/src/fltk-widgets-valuators-adjusters.adb
@@ -79,25 +79,29 @@ package body FLTK.Widgets.Valuators.Adjusters is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Adjuster is
- begin
- return This : Adjuster do
- This.Void_Ptr := new_fl_adjuster
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- adjuster_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- adjuster_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Adjuster is
+ begin
+ return This : Adjuster do
+ This.Void_Ptr := new_fl_adjuster
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ adjuster_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ adjuster_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-adjusters.ads b/src/fltk-widgets-valuators-adjusters.ads
index 7ebeb0c..ee9e7ec 100644
--- a/src/fltk-widgets-valuators-adjusters.ads
+++ b/src/fltk-widgets-valuators-adjusters.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Adjusters is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Adjuster;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Adjuster;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-counters-simple.adb b/src/fltk-widgets-valuators-counters-simple.adb
index 3b05cb0..eaaf5d9 100644
--- a/src/fltk-widgets-valuators-counters-simple.adb
+++ b/src/fltk-widgets-valuators-counters-simple.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Counters.Simple is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Simple_Counter is
- begin
- return This : Simple_Counter do
- This.Void_Ptr := new_fl_simple_counter
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- simple_counter_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- simple_counter_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Simple_Counter is
+ begin
+ return This : Simple_Counter do
+ This.Void_Ptr := new_fl_simple_counter
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ simple_counter_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ simple_counter_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-counters-simple.ads b/src/fltk-widgets-valuators-counters-simple.ads
index 195db5a..f1ddeb4 100644
--- a/src/fltk-widgets-valuators-counters-simple.ads
+++ b/src/fltk-widgets-valuators-counters-simple.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Counters.Simple is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Simple_Counter;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Simple_Counter;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-counters.adb b/src/fltk-widgets-valuators-counters.adb
index 811d2c0..fa98637 100644
--- a/src/fltk-widgets-valuators-counters.adb
+++ b/src/fltk-widgets-valuators-counters.adb
@@ -116,25 +116,29 @@ package body FLTK.Widgets.Valuators.Counters is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Counter is
- begin
- return This : Counter do
- This.Void_Ptr := new_fl_counter
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- counter_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- counter_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Counter is
+ begin
+ return This : Counter do
+ This.Void_Ptr := new_fl_counter
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ counter_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ counter_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-counters.ads b/src/fltk-widgets-valuators-counters.ads
index 1b07291..c7431d1 100644
--- a/src/fltk-widgets-valuators-counters.ads
+++ b/src/fltk-widgets-valuators-counters.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Counters is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Counter;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Counter;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-dials-fill.adb b/src/fltk-widgets-valuators-dials-fill.adb
index 97a915b..ae44c51 100644
--- a/src/fltk-widgets-valuators-dials-fill.adb
+++ b/src/fltk-widgets-valuators-dials-fill.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Dials.Fill is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Fill_Dial is
- begin
- return This : Fill_Dial do
- This.Void_Ptr := new_fl_fill_dial
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- fill_dial_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- fill_dial_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Fill_Dial is
+ begin
+ return This : Fill_Dial do
+ This.Void_Ptr := new_fl_fill_dial
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ fill_dial_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ fill_dial_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-dials-fill.ads b/src/fltk-widgets-valuators-dials-fill.ads
index ec01ac0..848a1a2 100644
--- a/src/fltk-widgets-valuators-dials-fill.ads
+++ b/src/fltk-widgets-valuators-dials-fill.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Dials.Fill is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Fill_Dial;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Fill_Dial;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-dials-line.adb b/src/fltk-widgets-valuators-dials-line.adb
index 9892ba9..423f5c7 100644
--- a/src/fltk-widgets-valuators-dials-line.adb
+++ b/src/fltk-widgets-valuators-dials-line.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Dials.Line is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Line_Dial is
- begin
- return This : Line_Dial do
- This.Void_Ptr := new_fl_line_dial
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- line_dial_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- line_dial_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Line_Dial is
+ begin
+ return This : Line_Dial do
+ This.Void_Ptr := new_fl_line_dial
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ line_dial_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ line_dial_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-dials-line.ads b/src/fltk-widgets-valuators-dials-line.ads
index 020647e..25b7778 100644
--- a/src/fltk-widgets-valuators-dials-line.ads
+++ b/src/fltk-widgets-valuators-dials-line.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Dials.Line is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Line_Dial;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Line_Dial;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-dials.adb b/src/fltk-widgets-valuators-dials.adb
index c66d655..46b2633 100644
--- a/src/fltk-widgets-valuators-dials.adb
+++ b/src/fltk-widgets-valuators-dials.adb
@@ -93,25 +93,29 @@ package body FLTK.Widgets.Valuators.Dials is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Dial is
- begin
- return This : Dial do
- This.Void_Ptr := new_fl_dial
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- dial_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- dial_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Dial is
+ begin
+ return This : Dial do
+ This.Void_Ptr := new_fl_dial
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ dial_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ dial_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-dials.ads b/src/fltk-widgets-valuators-dials.ads
index cb7d05d..cd22ec5 100644
--- a/src/fltk-widgets-valuators-dials.ads
+++ b/src/fltk-widgets-valuators-dials.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Dials is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Dial;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Dial;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-rollers.adb b/src/fltk-widgets-valuators-rollers.adb
index 408a286..658bee7 100644
--- a/src/fltk-widgets-valuators-rollers.adb
+++ b/src/fltk-widgets-valuators-rollers.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Rollers is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Roller is
- begin
- return This : Roller do
- This.Void_Ptr := new_fl_roller
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- roller_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- roller_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Roller is
+ begin
+ return This : Roller do
+ This.Void_Ptr := new_fl_roller
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ roller_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ roller_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-rollers.ads b/src/fltk-widgets-valuators-rollers.ads
index 22a60b4..8a6d045 100644
--- a/src/fltk-widgets-valuators-rollers.ads
+++ b/src/fltk-widgets-valuators-rollers.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Rollers is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Roller;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Roller;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-fill.adb b/src/fltk-widgets-valuators-sliders-fill.adb
index 94158fd..bdd47bf 100644
--- a/src/fltk-widgets-valuators-sliders-fill.adb
+++ b/src/fltk-widgets-valuators-sliders-fill.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Sliders.Fill is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Fill_Slider is
- begin
- return This : Fill_Slider do
- This.Void_Ptr := new_fl_fill_slider
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- fill_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- fill_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Fill_Slider is
+ begin
+ return This : Fill_Slider do
+ This.Void_Ptr := new_fl_fill_slider
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ fill_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ fill_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-fill.ads b/src/fltk-widgets-valuators-sliders-fill.ads
index 7bddf1a..cbf2856 100644
--- a/src/fltk-widgets-valuators-sliders-fill.ads
+++ b/src/fltk-widgets-valuators-sliders-fill.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Sliders.Fill is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Fill_Slider;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Fill_Slider;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-hor_fill.adb b/src/fltk-widgets-valuators-sliders-hor_fill.adb
index 7f520e8..2ce38d9 100644
--- a/src/fltk-widgets-valuators-sliders-hor_fill.adb
+++ b/src/fltk-widgets-valuators-sliders-hor_fill.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Hor_Fill_Slider is
- begin
- return This : Hor_Fill_Slider do
- This.Void_Ptr := new_fl_hor_fill_slider
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- hor_fill_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- hor_fill_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Hor_Fill_Slider is
+ begin
+ return This : Hor_Fill_Slider do
+ This.Void_Ptr := new_fl_hor_fill_slider
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ hor_fill_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ hor_fill_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-hor_fill.ads b/src/fltk-widgets-valuators-sliders-hor_fill.ads
index db83cb4..fa30a68 100644
--- a/src/fltk-widgets-valuators-sliders-hor_fill.ads
+++ b/src/fltk-widgets-valuators-sliders-hor_fill.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Fill is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Hor_Fill_Slider;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Hor_Fill_Slider;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-hor_nice.adb b/src/fltk-widgets-valuators-sliders-hor_nice.adb
index 77b83bf..82801e8 100644
--- a/src/fltk-widgets-valuators-sliders-hor_nice.adb
+++ b/src/fltk-widgets-valuators-sliders-hor_nice.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Hor_Nice_Slider is
- begin
- return This : Hor_Nice_Slider do
- This.Void_Ptr := new_fl_hor_nice_slider
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- hor_nice_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- hor_nice_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Hor_Nice_Slider is
+ begin
+ return This : Hor_Nice_Slider do
+ This.Void_Ptr := new_fl_hor_nice_slider
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ hor_nice_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ hor_nice_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-hor_nice.ads b/src/fltk-widgets-valuators-sliders-hor_nice.ads
index f86f53b..f5b48f7 100644
--- a/src/fltk-widgets-valuators-sliders-hor_nice.ads
+++ b/src/fltk-widgets-valuators-sliders-hor_nice.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Nice is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Hor_Nice_Slider;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Hor_Nice_Slider;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-horizontal.adb b/src/fltk-widgets-valuators-sliders-horizontal.adb
index b7bf946..bee5fc3 100644
--- a/src/fltk-widgets-valuators-sliders-horizontal.adb
+++ b/src/fltk-widgets-valuators-sliders-horizontal.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Sliders.Horizontal is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Horizontal_Slider is
- begin
- return This : Horizontal_Slider do
- This.Void_Ptr := new_fl_horizontal_slider
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- horizontal_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- horizontal_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Horizontal_Slider is
+ begin
+ return This : Horizontal_Slider do
+ This.Void_Ptr := new_fl_horizontal_slider
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ horizontal_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ horizontal_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-horizontal.ads b/src/fltk-widgets-valuators-sliders-horizontal.ads
index 5804a59..0cb2d5b 100644
--- a/src/fltk-widgets-valuators-sliders-horizontal.ads
+++ b/src/fltk-widgets-valuators-sliders-horizontal.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Sliders.Horizontal is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Horizontal_Slider;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Horizontal_Slider;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-nice.adb b/src/fltk-widgets-valuators-sliders-nice.adb
index 08efc8f..188103c 100644
--- a/src/fltk-widgets-valuators-sliders-nice.adb
+++ b/src/fltk-widgets-valuators-sliders-nice.adb
@@ -65,25 +65,29 @@ package body FLTK.Widgets.Valuators.Sliders.Nice is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Nice_Slider is
- begin
- return This : Nice_Slider do
- This.Void_Ptr := new_fl_nice_slider
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- nice_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- nice_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Nice_Slider is
+ begin
+ return This : Nice_Slider do
+ This.Void_Ptr := new_fl_nice_slider
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ nice_slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ nice_slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders-nice.ads b/src/fltk-widgets-valuators-sliders-nice.ads
index 3005f88..380887f 100644
--- a/src/fltk-widgets-valuators-sliders-nice.ads
+++ b/src/fltk-widgets-valuators-sliders-nice.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Sliders.Nice is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Nice_Slider;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Nice_Slider;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders.adb b/src/fltk-widgets-valuators-sliders.adb
index a7392cf..1a8dbce 100644
--- a/src/fltk-widgets-valuators-sliders.adb
+++ b/src/fltk-widgets-valuators-sliders.adb
@@ -93,25 +93,29 @@ package body FLTK.Widgets.Valuators.Sliders is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Slider is
- begin
- return This : Slider do
- This.Void_Ptr := new_fl_slider
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Slider is
+ begin
+ return This : Slider do
+ This.Void_Ptr := new_fl_slider
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ slider_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ slider_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators-sliders.ads b/src/fltk-widgets-valuators-sliders.ads
index 3760e53..48be83d 100644
--- a/src/fltk-widgets-valuators-sliders.ads
+++ b/src/fltk-widgets-valuators-sliders.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Sliders is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Slider;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Slider;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators.adb b/src/fltk-widgets-valuators.adb
index 4ef7edb..47c6f06 100644
--- a/src/fltk-widgets-valuators.adb
+++ b/src/fltk-widgets-valuators.adb
@@ -131,25 +131,29 @@ package body FLTK.Widgets.Valuators is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Valuator is
- begin
- return This : Valuator do
- This.Void_Ptr := new_fl_valuator
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- valuator_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- valuator_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Valuator is
+ begin
+ return This : Valuator do
+ This.Void_Ptr := new_fl_valuator
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ valuator_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ valuator_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets-valuators.ads b/src/fltk-widgets-valuators.ads
index ede5281..dafcfc3 100644
--- a/src/fltk-widgets-valuators.ads
+++ b/src/fltk-widgets-valuators.ads
@@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Valuator;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Valuator;
+
+ end Forge;
diff --git a/src/fltk-widgets.adb b/src/fltk-widgets.adb
index deb0213..5d1e5d8 100644
--- a/src/fltk-widgets.adb
+++ b/src/fltk-widgets.adb
@@ -263,25 +263,29 @@ package body FLTK.Widgets is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Widget is
- begin
- return This : Widget do
- This.Void_Ptr := new_fl_widget
- (Interfaces.C.int (X),
- Interfaces.C.int (Y),
- Interfaces.C.int (W),
- Interfaces.C.int (H),
- Interfaces.C.To_C (Text));
- fl_widget_set_user_data
- (This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- widget_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- widget_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
- end return;
- end Create;
+ package body Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Widget is
+ begin
+ return This : Widget do
+ This.Void_Ptr := new_fl_widget
+ (Interfaces.C.int (X),
+ Interfaces.C.int (Y),
+ Interfaces.C.int (W),
+ Interfaces.C.int (H),
+ Interfaces.C.To_C (Text));
+ fl_widget_set_user_data
+ (This.Void_Ptr,
+ Widget_Convert.To_Address (This'Unchecked_Access));
+ widget_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
+ widget_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ end return;
+ end Create;
+
+ end Forge;
diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads
index 3cea435..e4069c1 100644
--- a/src/fltk-widgets.ads
+++ b/src/fltk-widgets.ads
@@ -26,10 +26,14 @@ package FLTK.Widgets is
- function Create
- (X, Y, W, H : in Integer;
- Text : in String)
- return Widget;
+ package Forge is
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Widget;
+
+ end Forge;