add connections in NAT playground

projects/nat-flixel-desktop-playground/source/EntrySprite.kiss

@@ -9,6 +9,8 @@
     [&mut :Bool selected false
         &mut :Bool isCircle false]
     (super position.x position.y)
+    (enableMouseClicks false)
+    (set mousePressedCallback ->:Void [_ _ _] null)
     (cond
         ((hasComponent e Images2)
             (let [images (readComponent e Images2)]

projects/nat-flixel-desktop-playground/source/PlayState.kiss

@@ -240,12 +240,19 @@
         Math.POSITIVE_INFINITY))
 
 (method :Void chooseEntry [prompt :Archive archive resolve]
-    (resolve null))
+    (entryGroup.forEach ->s
+        (set s.mousePressedCallback ->:Void [s _ _] {
+                                                    (entryGroup.forEach ->s
+                                                        (set s.mousePressedCallback ->:Void [_ _ _] null))
+                                                    (resolve .e (cast s EntrySprite))
+                                                    })))
 
 (method :Void chooseEntries [prompt archive resolve min max]
     (_chooseEntries prompt archive resolve min max []))
 
 // TODO is it possible to resolve with less than max?
+// TODO this version that just delegates to (chooseEntry) should be reusable, which is tricky because ArchiveUI is an interface
+    // It also needs a way to resolve with less than the maximum, which may be infinity
 (method :Void _chooseEntries [prompt archive resolve min max :Array<Entry> collectedEntries]
     (let [&mut :Void->Void chooseNextEntry
                 null