diff options
Diffstat (limited to 'src/displays.adb')
| -rw-r--r-- | src/displays.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/displays.adb b/src/displays.adb index fec8ded..9893db3 100644 --- a/src/displays.adb +++ b/src/displays.adb @@ -26,8 +26,8 @@ package body Displays is Text : in String) return Display is - My_Width : constant Integer := Misc.Max (Message_Box_Width, W); - My_Height : constant Integer := Misc.Max (Message_Box_Height + Stat_Box_Height, H); + My_Width : constant Integer := Integer'Max (Message_Box_Width, W); + My_Height : constant Integer := Integer'Max (Message_Box_Height + Stat_Box_Height, H); begin return This : Display := (WD.Forge.Create (X, Y, My_Width, My_Height, Text) @@ -99,11 +99,11 @@ package body Displays is (This : in out Display) is New_Width : constant Integer := - Misc.Max (Message_Box_Width, This.Current_Grid.Get_W); + Integer'Max (Message_Box_Width, This.Current_Grid.Get_W); New_Height : constant Integer := Message_Box_Height + This.Current_Grid.Get_H + Stat_Box_Height; Grid_X : constant Integer := - Misc.Max (0, (Message_Box_Width - This.Current_Grid.Get_W) / 2); + Integer'Max (0, (Message_Box_Width - This.Current_Grid.Get_W) / 2); begin This.Current_Grid.Reposition (Grid_X, 0); This.Message_Box.Resize (New_Width, This.Message_Box.Get_H); |