Add partial box to infobox

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

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