From d45103f2445ed59b7ba78faeae8061327c4ab976 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 15 May 2018 16:30:58 +1000 Subject: Fixed errors with Event Dispatch and null string pointers --- src/fltk-event.ads | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'src/fltk-event.ads') diff --git a/src/fltk-event.ads b/src/fltk-event.ads index 17f5a1c..df53eb0 100644 --- a/src/fltk-event.ads +++ b/src/fltk-event.ads @@ -17,10 +17,10 @@ package FLTK.Event is (Event : in Event_Kind) return Event_Outcome; - type Event_Dispatch is access function - (Event : in Event_Kind; - Win : in out FLTK.Widgets.Groups.Windows.Window'Class) - return Event_Outcome; + -- type Event_Dispatch is access function + -- (Event : in Event_Kind; + -- Win : access FLTK.Widgets.Groups.Windows.Window'Class) + -- return Event_Outcome; @@ -31,16 +31,16 @@ package FLTK.Event is procedure Remove_Handler (Func : in Event_Handler); - function Get_Dispatch - return Event_Dispatch; + -- function Get_Dispatch + -- return Event_Dispatch; - procedure Set_Dispatch - (Func : in Event_Dispatch); + -- procedure Set_Dispatch + -- (Func : in Event_Dispatch); - function Default_Dispatch - (Event : in Event_Kind; - Win : in out FLTK.Widgets.Groups.Windows.Window'Class) - return Event_Outcome; + -- function Default_Dispatch + -- (Event : in Event_Kind; + -- Win : access FLTK.Widgets.Groups.Windows.Window'Class) + -- return Event_Outcome; -- cgit