summaryrefslogtreecommitdiff
path: root/src/fltk_binding/fltk-widget-button.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk_binding/fltk-widget-button.ads')
-rw-r--r--src/fltk_binding/fltk-widget-button.ads40
1 files changed, 0 insertions, 40 deletions
diff --git a/src/fltk_binding/fltk-widget-button.ads b/src/fltk_binding/fltk-widget-button.ads
deleted file mode 100644
index 14762bf..0000000
--- a/src/fltk_binding/fltk-widget-button.ads
+++ /dev/null
@@ -1,40 +0,0 @@
-
-
-package FLTK.Widget.Button is
-
-
- type Button_Type is new Widget_Type with private;
- type State is (On, Off);
-
-
- function Create
- (X, Y, W, H : Integer;
- Label : String)
- return Button_Type;
-
-
- function Get_State
- (B : in Button_Type'Class)
- return State;
-
-
- procedure Set_State
- (B : in Button_Type'Class;
- S : in State);
-
-
- procedure Set_Only
- (B : in Button_Type'Class);
-
-
-private
-
-
- type Button_Type is new Widget_Type with null record;
-
-
- overriding procedure Finalize (This : in out Button_Type);
-
-
-end FLTK.Widget.Button;
-