alpha 29

MikeHardIce · Jun 14, 2022 · b57c18e · b57c18e
1 parent f5b00c8
commit b57c18e
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 9 deletions.
diff --git a/README.md b/README.md
@@ -12,7 +12,7 @@ It uses [Capra](https://github.com/MikeHardIce/Capra) underneath (it was using [
 In project.clj:
 
 ```
-:dependencies [[strigui "0.0.1-alpha28"]]
+:dependencies [[strigui "0.0.1-alpha29"]]
 ```
 [Example](https://github.com/MikeHardIce/strigui-sample)
 

diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject strigui "0.0.1-alpha28"
+(defproject strigui "0.0.1-alpha29"
   :description "A small GUI library."
   :url "https://github.com/MikeHardIce/strigui"
   :license {:name "MIT License"

diff --git a/src/strigui/widget.clj b/src/strigui/widget.clj
@@ -273,12 +273,9 @@
           after (f before)
           updated-keys (determine-updated-keys before after)
           to-redraw (determine-widgets-to-redraw before after updated-keys)
-          with-position-changes (determine-old-widgets-to-hide to-redraw before updated-keys)
+          ;;with-position-changes (determine-old-widgets-to-hide to-redraw before updated-keys)
           to-hide (determine-old-widgets-to-hide before after updated-keys) 
-          ;; maybe only use the neighbouts of widgets whois size or position has changed
-          neighbours (merge (widgets->neighbours canvas with-position-changes after)
-                            (widgets->neighbours canvas to-redraw after >)
-                            (widgets->neighbours canvas to-hide after <))]
+          neighbours (widgets->neighbours canvas to-redraw after)]
       (c/use-buffer-> canvas
                       (doseq [to-hide (vals to-hide)]
                         (hide! to-hide canvas))
@@ -287,8 +284,7 @@
                           (draw-widgets! canvas widgets-to-draw)
                           (let [widgets-to-draw (map after-drawing widgets-to-draw)
                                 after (merge-with into after (mapcat #(merge {(:name %) %}) widgets-to-draw))]
-                            (swap! state assoc :widgets after)))))
-                      )
+                            (swap! state assoc :widgets after))))))
     (catch Exception e (str "Failed to update widgets, perhaps the given function" \newline
                            "doesn't take or doesn't return a widgets map." \newline
                            "Exception: " (.getMessage e)))))