Scale component for NAT entries

2021-09-27 19:45:54 -06:00
parent 6eb8aafb77
commit 0e21755e31
4 changed files with 16 additions and 0 deletions
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -235,5 +235,13 @@
    (defCommand PinPreviousImage [entries (SelectedEntries 1 null)]
        (adjustImagePins entries -1))

+    (defCommand SetScale [entries (SelectedEntries 1 null) scale (Number 0 null null)]
+        (doFor e entries
+            (if (hasComponent e Scale)
+                    (withWritableComponents archive e [scaleComponent Scale]
+                        (set scaleComponent scale))
+                (addComponent archive e Scale scale)))
+        entries)
+
    (defCommand SelectByName [name (Text null)]
        (SelectEntries (nameSystem.getEntries name)) []))