From 3592245b46dffb5552dd07c95125a456c4fac7d9 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sun, 10 Apr 2022 23:23:29 +0100
Subject: [PATCH] Add partial box to infobox

---
 src/Dodge/Creature/Picture.hs | 6 +++---
 src/Dodge/Render/InfoBox.hs   | 1 +
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Dodge/Creature/Picture.hs b/src/Dodge/Creature/Picture.hs
index 25a14a9be..b7d8c6589 100644
--- a/src/Dodge/Creature/Picture.hs
+++ b/src/Dodge/Creature/Picture.hs
@@ -11,14 +11,14 @@ module Dodge.Creature.Picture
     , picAtCrPosNoRot
     ) where
 import Dodge.Data
-import Dodge.Base
+--import Dodge.Base
 import Dodge.Creature.Test
-import Dodge.Render.InfoBox
+--import Dodge.Render.InfoBox
 --import Dodge.Render.List
 --import Dodge.Creature.AlertLevel.Data
 --import Dodge.Picture.Layer
 import Dodge.Clock
-import Dodge.Debug.Picture
+--import Dodge.Debug.Picture
 import Picture
 import Geometry
 import Shape
diff --git a/src/Dodge/Render/InfoBox.hs b/src/Dodge/Render/InfoBox.hs
index 4ff24c320..2a7079a42 100644
--- a/src/Dodge/Render/InfoBox.hs
+++ b/src/Dodge/Render/InfoBox.hs
@@ -15,6 +15,7 @@ import Geometry
 renderInfoListAt :: Float -> Float -> Configuration -> World -> (Point2,[String]) -> Picture
 renderInfoListAt x y cfig w (p,ss) = renderListAt x y cfig (zip ss (repeat yellow))
     <> winScale cfig (color yellow $ lConnect (V2 (x-hw) (hh-20-y)) (worldPosToScreen w p))
+    <> listCursorNSW x y cfig 0 yellow 19 (length ss)
   where
     hw = halfWidth cfig
     hh = halfHeight cfig