diff options
Diffstat (limited to 'src/displays.ads')
-rw-r--r-- | src/displays.ads | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/src/displays.ads b/src/displays.ads new file mode 100644 index 0000000..8d592e1 --- /dev/null +++ b/src/displays.ads @@ -0,0 +1,67 @@ + + +with + + FLTK.Widgets.Groups.Windows.Double, + Grids; + +private with + + FLTK.Widgets.Boxes; + + +package Displays is + + + type Display is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; + + + function Create + (X, Y, W, H : in Integer; + Text : in String) + return Display; + + + function Create + (W, H : in Integer) + return Display; + + + function Create + return Display; + + + procedure Set_Grid + (This : in out Display; + To : in out Grids.Grid); + + + procedure Adjust_Grid + (This : in out Display; + Cols, Rows : in Natural); + + + procedure Ensure_Correct_Size + (This : in out Display); + + + procedure Centre_On_Screen + (This : in out Display); + + +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; + end record; + + + Text_Size : constant FLTK.Widgets.Font_Size := 12; + Message_Box_Width : constant Integer := 500; + Message_Box_Height : constant Integer := 100; + + +end Displays; + |