From 525b5641fee7154d5be1a66420ca15d54bb6f6ce Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 18 Apr 2025 20:13:41 +1200 Subject: Consolidated image data --- src/sokoban.adb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/sokoban.adb') 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 -- cgit