Scale component for NAT entries
This commit is contained in:
@@ -235,5 +235,13 @@
|
|||||||
(defCommand PinPreviousImage [entries (SelectedEntries 1 null)]
|
(defCommand PinPreviousImage [entries (SelectedEntries 1 null)]
|
||||||
(adjustImagePins entries -1))
|
(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)]
|
(defCommand SelectByName [name (Text null)]
|
||||||
(SelectEntries (nameSystem.getEntries name)) []))
|
(SelectEntries (nameSystem.getEntries name)) []))
|
||||||
|
|||||||
3
src/nat/components/Scale.hx
Normal file
3
src/nat/components/Scale.hx
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
package nat.components;
|
||||||
|
|
||||||
|
typedef Scale = Float;
|
||||||
Reference in New Issue
Block a user