More test programs added: button, buttons, clock, color_chooser, cursor, curve, hello

1 files changed, 45 insertions, 0 deletions

diff --git a/test/hello.adb b/test/hello.adb
new file mode 100644
index 0000000..1fcdf9d
--- /dev/null
+++ b/test/hello.adb
@@ -0,0 +1,45 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+--  Hello, World! program functionality reproduced in Ada
+
+
+with
+
+    FLTK.Widgets.Boxes,
+    FLTK.Widgets.Groups.Windows;
+
+
+function Hello
+    return Integer
+is
+
+
+    package Bx  renames FLTK.Widgets.Boxes;
+    package Win renames FLTK.Widgets.Groups.Windows;
+
+
+    The_Window : Win.Window := Win.Forge.Create (340, 180);
+
+    The_Box : Bx.Box := Bx.Forge.Create (The_Window, 20, 40, 300, 100, "Hello, World!");
+
+
+begin
+
+
+    The_Box.Set_Box (FLTK.Up_Box);
+    The_Box.Set_Label_Font (FLTK.Helvetica_Bold_Italic);
+    The_Box.Set_Label_Size (36);
+    The_Box.Set_Label_Kind (FLTK.Shadow_Label);
+
+    The_Window.Show_With_Args;
+
+    return FLTK.Run;
+
+
+end Hello;
+
+