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

1 files changed, 50 insertions, 0 deletions

diff --git a/test/clock.adb b/test/clock.adb
new file mode 100644
index 0000000..b4d8f40
--- /dev/null
+++ b/test/clock.adb
@@ -0,0 +1,50 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+--  Clock test program functionality reproduced in Ada
+
+
+with
+
+    FLTK.Widgets.Clocks.Updated.Round,
+    FLTK.Widgets.Groups.Windows.Double;
+
+
+function Clock
+    return Integer
+is
+
+
+    package CL renames FLTK.Widgets.Clocks.Updated;
+    package CR renames FLTK.Widgets.Clocks.Updated.Round;
+    package WD renames FLTK.Widgets.Groups.Windows.Double;
+
+
+    Window_One : WD.Double_Window := WD.Forge.Create (220, 220, "Fl_Clock");
+    Clock_One  : CL.Updated_Clock := CL.Forge.Create (Window_One, 0, 0, 220, 220);
+
+    Window_Two : WD.Double_Window := WD.Forge.Create (220, 220, "Fl_Round_Clock");
+    Clock_Two  : CR.Round_Clock   := CR.Forge.Create (Window_Two, 0, 0, 220, 220);
+
+
+begin
+
+
+    Window_One.Set_Resizable (Clock_One);
+    Window_Two.Set_Resizable (Clock_Two);
+
+    Window_One.Set_X_Class ("Fl_Clock");
+    Window_Two.Set_X_Class ("Fl_Clock");
+
+    Window_One.Show_With_Args;
+    Window_Two.Show;
+
+    return FLTK.Run;
+
+
+end Clock;
+
+