kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

use defNew instead of defnew

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-07-24 15:08:08 -06:00
parent 3e4ff5902f
commit d7ff5fc9c2
5 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/nat/Archive.kiss
View File

@@ -1,4 +1,4 @@
(defnew [&prop :String archiveDir] (defNew [&prop :String archiveDir]
[:Array<System> systems [:Array<System> systems
[] []

2
src/nat/ArchiveController.kiss
View File

@@ -128,7 +128,7 @@
(method ,name [,@methodArgs] ,@body) (method ,name [,@methodArgs] ,@body)
(dictSet commands ,(symbolName name) (object args [,@commandArgs] handler (the Function ,name)))})) (dictSet commands ,(symbolName name) (object args [,@commandArgs] handler (the Function ,name)))}))
(defnew [&prop :Archive archive (defNew [&prop :Archive archive
&prop :ArchiveUI ui] &prop :ArchiveUI ui]
[&mut :Array<Entry> selectedEntries [] [&mut :Array<Entry> selectedEntries []
&mut :ChangeSet lastChangeSet [] &mut :ChangeSet lastChangeSet []

2
src/nat/CLI.kiss
View File

@@ -14,7 +14,7 @@
(controller.runCommand (dictGet controller.commands command)) (controller.runCommand (dictGet controller.commands command))
(Sys.println "$command is not a valid command")))))) (Sys.println "$command is not a valid command"))))))
(defnew []) (defNew [])
(method :Void enterText [prompt resolve maxLength] (method :Void enterText [prompt resolve maxLength]
(Sys.print "$prompt ") (Sys.print "$prompt ")

2
src/nat/System.kiss
View File

@@ -5,7 +5,7 @@
(processEntry archive e) (processEntry archive e)
(archive.refreshEntry e))) (archive.refreshEntry e)))
(defnew [&prop :EntryChecker canProcessEntry (defNew [&prop :EntryChecker canProcessEntry
&prop :EntryProcessor processEntry] &prop :EntryProcessor processEntry]
[]) [])

2
src/nat/systems/TagSystem.kiss
View File

@@ -1,6 +1,6 @@
(load "../Lib.kiss") (load "../Lib.kiss")
(defnew [&prop :String tagFilterString // This doesn't need to be a &prop because it will be captured by the lambda, but maybe it will be useful to query from the system later (defNew [&prop :String tagFilterString // This doesn't need to be a &prop because it will be captured by the lambda, but maybe it will be useful to query from the system later
// TODO make a &super annotation that passes an argument to the super constructor // TODO make a &super annotation that passes an argument to the super constructor
:EntryProcessor processor] :EntryProcessor processor]
[] []