diff options
Diffstat (limited to 'src/displays.ads')
-rw-r--r-- | src/displays.ads | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/src/displays.ads b/src/displays.ads index 8d592e1..e8b04d8 100644 --- a/src/displays.ads +++ b/src/displays.ads @@ -16,6 +16,11 @@ package Displays is type Display is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; + type Keyboard_Callback is access function + (Key : in FLTK.Shortcut_Key) + return FLTK.Event_Outcome; + + function Create (X, Y, W, H : in Integer; Text : in String) @@ -49,16 +54,33 @@ package Displays is (This : in out Display); + procedure Set_Message + (This : in out Display; + Msg : in String); + + + procedure Set_Keyboard_Callback + (This : in out Display; + Func : in Keyboard_Callback); + + + function Handle + (This : in out Display; + Event : in FLTK.Event_Kind) + return FLTK.Event_Outcome; + + private type Display is new FLTK.Widgets.Groups.Windows.Double.Double_Window with record Message_Box : FLTK.Widgets.Boxes.Box; Current_Grid : access Grids.Grid; + Key_Func : Keyboard_Callback; end record; - Text_Size : constant FLTK.Widgets.Font_Size := 12; + Text_Size : constant FLTK.Font_Size := 12; Message_Box_Width : constant Integer := 500; Message_Box_Height : constant Integer := 100; |