Work on cursor for lists

2023-05-10 01:44:42 +01:00
parent 93519345de
commit cd42e29012
11 changed files with 53 additions and 45 deletions
@@ -143,7 +143,7 @@ extraPics cfig u =
        <> foldMap (`_debugPic` u) (_uvDebug u)
        <> setLayer FixedCoordLayer
            (toTopLeft cfig . translate (1.3* halfWidth cfig) 0 
-                . listPicturesAt 
+                . drawList 
                . take 50 . drop (u ^. uvDebugMessageOffset)
                . map text $ foldMap (`_debugMessage` u) (_uvDebug u))
  where