diff options
Diffstat (limited to 'src/fltk-event.ads')
-rw-r--r-- | src/fltk-event.ads | 24 |
1 files changed, 12 insertions, 12 deletions
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; |