diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-18 20:13:41 +1200 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-18 20:13:41 +1200 |
commit | 525b5641fee7154d5be1a66420ca15d54bb6f6ce (patch) | |
tree | b0f6944bbfc5626096c7cd47702c8d4b7ebccaf0 /src/sokoban.adb | |
parent | ce2ba2c8bdd7070d7688eff83173b6725c0fe657 (diff) |
Consolidated image data
Diffstat (limited to 'src/sokoban.adb')
-rw-r--r-- | src/sokoban.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/sokoban.adb b/src/sokoban.adb index a2206ee..d8a7f0e 100644 --- a/src/sokoban.adb +++ b/src/sokoban.adb @@ -9,17 +9,17 @@ with Ada.Directories, - FLTK.Widgets, + Ada.Strings.Fixed, + Ada.Strings.Maps, + Ada.Text_IO, + Data, Displays, + FLTK.Widgets, Grids, - Squares, - Things, Moves, Pathfinding, - Misc, - Ada.Text_IO, - Ada.Strings.Fixed, - Ada.Strings.Maps; + Squares, + Things; use @@ -99,7 +99,7 @@ package body Sokoban is Data_File : File_Type; Filename : constant String := ADir.Compose - (Misc.Level_Path, "level" & Trim (LevelID'Image (Number), Both) & ".data"); + (Data.Level_Path, "level" & Trim (LevelID'Image (Number), Both) & ".data"); Rows, Cols : Natural; begin |