summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/callback_test.adb56
1 files changed, 0 insertions, 56 deletions
diff --git a/src/callback_test.adb b/src/callback_test.adb
deleted file mode 100644
index 9abd734..0000000
--- a/src/callback_test.adb
+++ /dev/null
@@ -1,56 +0,0 @@
-
-
-with FLTK.Widgets;
-use FLTK.Widgets;
-with FLTK.Widgets.Buttons;
-use FLTK.Widgets.Buttons;
-with FLTK.Widgets.Groups.Windows;
-use FLTK.Widgets.Groups.Windows;
-with Ada.Text_IO;
-with Ada.Strings.Unbounded;
-use Ada.Strings.Unbounded;
-
-
-function Callback_Test return Integer is
-
-
- Main_View : Window := Create (0, 0, 300, 300, "Tester");
- Pusher : Button := Create (75, 75, 150, 150, "Push me");
-
-
- type My_Callback is new Widget_Callback with
- record
- Msg : Unbounded_String;
- end record;
-
- SC : aliased My_Callback := (Msg => To_Unbounded_String ("Hello!"));
- OC : aliased My_Callback := (Msg => To_Unbounded_String ("And again!"));
-
- overriding procedure Call
- (This : in My_Callback;
- Item : in out Widget'Class) is
- begin
- Ada.Text_IO.Put_Line ("Pushed a button :O");
- Ada.Text_IO.Put_Line (To_String (This.Msg));
- if This.Msg = "Hello!" then
- Item.Set_Callback (OC'Access);
- Item.Set_Label ("Push me again!");
- else
- Item.Set_Callback (SC'Access);
- Item.Set_Label ("Push me");
- end if;
- end Call;
-
-
-begin
-
-
- Main_View.Add (Pusher);
- Pusher.Set_Callback (SC'Access);
- Main_View.Show;
-
- return FLTK.Run;
-
-
-end Callback_Test;
-