From 4e211b1a46a724a7b8f38db578777b952b46c772 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Mon, 27 Sep 2021 19:45:54 -0600
Subject: [PATCH] Scale component for NAT entries

---
 src/nat/ArchiveController.kiss | 8 ++++++++
 src/nat/components/Scale.hx    | 3 +++
 2 files changed, 11 insertions(+)
 create mode 100644 src/nat/components/Scale.hx

diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss
index a05930d..e6cf659 100644
--- a/src/nat/ArchiveController.kiss
+++ b/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)) []))
diff --git a/src/nat/components/Scale.hx b/src/nat/components/Scale.hx
new file mode 100644
index 0000000..7c44fc9
--- /dev/null
+++ b/src/nat/components/Scale.hx
@@ -0,0 +1,3 @@
+package nat.components;
+
+typedef Scale = Float;