diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-04-29 23:45:04 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-04-29 23:45:04 +1000 |
| commit | f37664163c9dfa33416845ddd78695c33e6fdaef (patch) | |
| tree | fbdf7c88650c46fec20b836db880f14f667b6cde /src/fltk-widgets-groups-windows.ads | |
| parent | 19811edce192b7bc0d8462a20d86123c612c89e0 (diff) | |
Can now override Draw method from Ada side for Window widgets
Diffstat (limited to 'src/fltk-widgets-groups-windows.ads')
| -rw-r--r-- | src/fltk-widgets-groups-windows.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/fltk-widgets-groups-windows.ads b/src/fltk-widgets-groups-windows.ads index 96047ee..294450a 100644 --- a/src/fltk-widgets-groups-windows.ads +++ b/src/fltk-widgets-groups-windows.ads @@ -56,6 +56,10 @@ package FLTK.Widgets.Groups.Windows is private + procedure Draw + (This : in out Window); + + type Window is new Group with null record; @@ -63,5 +67,8 @@ private (This : in out Window); + package Window_Convert is new System.Address_To_Access_Conversions (Window'Class); + + end FLTK.Widgets.Groups.Windows; |