summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2018-05-15 16:36:41 +1000
committerJed Barber <jjbarber@y7mail.com>2018-05-15 16:36:41 +1000
commit322814cd00a156ad3bf9f397ce28ed0b718ffcaa (patch)
tree60b414d9bda2137c9021d635b0e702d5e043ccf0 /src
parentd45103f2445ed59b7ba78faeae8061327c4ab976 (diff)
Forgot to comment out a few things
Diffstat (limited to 'src')
-rw-r--r--src/fltk-event.adb94
-rw-r--r--src/fltk-event.ads8
2 files changed, 51 insertions, 51 deletions
diff --git a/src/fltk-event.adb b/src/fltk-event.adb
index eb0bc01..bbad8ba 100644
--- a/src/fltk-event.adb
+++ b/src/fltk-event.adb
@@ -261,24 +261,24 @@ package body FLTK.Event is
end Event_Handler_Hook;
- function Dispatch_Hook
- (Num : in Interfaces.C.int;
- Ptr : in System.Address)
- return Interfaces.C.int
- is
- Ret_Val : Event_Outcome;
- Actual_Window : access FLTK.Widgets.Groups.Windows.Window'Class;
- begin
- if Ptr /= System.Null_Address then
- Actual_Window := Window_Convert.To_Pointer (fl_widget_get_user_data (Ptr));
- end if;
- if Current_Dispatch = null then
- Ret_Val := Default_Dispatch (Event_Kind'Val (Num), Actual_Window);
- else
- Ret_Val := Current_Dispatch (Event_Kind'Val (Num), Actual_Window);
- end if;
- return Event_Outcome'Pos (Ret_Val);
- end Dispatch_Hook;
+ -- function Dispatch_Hook
+ -- (Num : in Interfaces.C.int;
+ -- Ptr : in System.Address)
+ -- return Interfaces.C.int
+ -- is
+ -- Ret_Val : Event_Outcome;
+ -- Actual_Window : access FLTK.Widgets.Groups.Windows.Window'Class;
+ -- begin
+ -- if Ptr /= System.Null_Address then
+ -- Actual_Window := Window_Convert.To_Pointer (fl_widget_get_user_data (Ptr));
+ -- end if;
+ -- if Current_Dispatch = null then
+ -- Ret_Val := Default_Dispatch (Event_Kind'Val (Num), Actual_Window);
+ -- else
+ -- Ret_Val := Current_Dispatch (Event_Kind'Val (Num), Actual_Window);
+ -- end if;
+ -- return Event_Outcome'Pos (Ret_Val);
+ -- end Dispatch_Hook;
@@ -302,38 +302,38 @@ package body FLTK.Event is
end Remove_Handler;
- function Get_Dispatch
- return Event_Dispatch is
- begin
- if Current_Dispatch = null then
- return Default_Dispatch'Access;
- else
- return Current_Dispatch;
- end if;
- end Get_Dispatch;
+ -- function Get_Dispatch
+ -- return Event_Dispatch is
+ -- begin
+ -- if Current_Dispatch = null then
+ -- return Default_Dispatch'Access;
+ -- else
+ -- return Current_Dispatch;
+ -- end if;
+ -- end Get_Dispatch;
- procedure Set_Dispatch
- (Func : in Event_Dispatch) is
- begin
- Current_Dispatch := Func;
- end Set_Dispatch;
+ -- procedure Set_Dispatch
+ -- (Func : in Event_Dispatch) is
+ -- begin
+ -- Current_Dispatch := Func;
+ -- end Set_Dispatch;
- function Default_Dispatch
- (Event : in Event_Kind;
- Win : access FLTK.Widgets.Groups.Windows.Window'Class)
- return Event_Outcome is
- begin
- if Win = null then
- return Event_Outcome'Val (fl_event_handle
- (Event_Kind'Pos (Event), System.Null_Address));
- else
- return Event_Outcome'Val (fl_event_handle
- (Event_Kind'Pos (Event),
- Wrapper (Win.all).Void_Ptr));
- end if;
- end Default_Dispatch;
+ -- function Default_Dispatch
+ -- (Event : in Event_Kind;
+ -- Win : access FLTK.Widgets.Groups.Windows.Window'Class)
+ -- return Event_Outcome is
+ -- begin
+ -- if Win = null then
+ -- return Event_Outcome'Val (fl_event_handle
+ -- (Event_Kind'Pos (Event), System.Null_Address));
+ -- else
+ -- return Event_Outcome'Val (fl_event_handle
+ -- (Event_Kind'Pos (Event),
+ -- Wrapper (Win.all).Void_Ptr));
+ -- end if;
+ -- end Default_Dispatch;
@@ -636,7 +636,7 @@ begin
fl_event_add_handler (Event_Handler_Hook'Address);
- --fl_event_set_event_dispatch (Dispatch_Hook'Address);
+ -- fl_event_set_event_dispatch (Dispatch_Hook'Address);
end FLTK.Event;
diff --git a/src/fltk-event.ads b/src/fltk-event.ads
index df53eb0..f103091 100644
--- a/src/fltk-event.ads
+++ b/src/fltk-event.ads
@@ -192,7 +192,7 @@ private
Handlers : Handler_Vectors.Vector := Handler_Vectors.Empty_Vector;
- Current_Dispatch : Event_Dispatch := null;
+ -- Current_Dispatch : Event_Dispatch := null;
function fl_widget_get_user_data
@@ -206,9 +206,9 @@ private
pragma Inline (Add_Handler);
pragma Inline (Remove_Handler);
- pragma Inline (Get_Dispatch);
- pragma Inline (Set_Dispatch);
- pragma Inline (Default_Dispatch);
+ -- pragma Inline (Get_Dispatch);
+ -- pragma Inline (Set_Dispatch);
+ -- pragma Inline (Default_Dispatch);
pragma Inline (Get_Grab);