diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-16 15:51:58 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-16 15:51:58 +1200 |
| commit | baa3a346cde2c2c965243e554a15ed3bd6f5c7fe (patch) | |
| tree | f8ec8376a6a42053e15cb9607b0fef17bb4f321d /src/displays.ads | |
| parent | b3455e502f4491af22e190a14aba9565f534bb59 (diff) | |
Code style improvements, constants marked as constant
Diffstat (limited to 'src/displays.ads')
| -rw-r--r-- | src/displays.ads | 5 |
1 files changed, 2 insertions, 3 deletions
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; + |