From baa3a346cde2c2c965243e554a15ed3bd6f5c7fe Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Wed, 16 Apr 2025 15:51:58 +1200 Subject: Code style improvements, constants marked as constant --- src/displays.ads | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/displays.ads') diff --git a/src/displays.ads b/src/displays.ads index b278b6f..b7fa8fd 100644 --- a/src/displays.ads +++ b/src/displays.ads @@ -19,8 +19,6 @@ 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.Key_Combo) return FLTK.Event_Outcome; @@ -114,13 +112,14 @@ private Text_Size : constant FLTK.Font_Size := 12; + Message_Box_Width : constant Integer := 440; Message_Box_Height : constant Integer := 80; - Stat_Box_Width : constant Integer := Message_Box_Width / 2; Stat_Box_Height : constant Integer := 20; end Displays; + -- cgit