Harmonization of DC xxButton

Dyalog · Oct 9, 2016 · 8ffa107 · 8ffa107
1 parent fc75824
commit 8ffa107
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 7 deletions.
diff --git a/HTML/_DC/Button.dyalog b/HTML/_DC/Button.dyalog
@@ -13,19 +13,20 @@
       :Access public
       :Implements constructor
       type←'button'
+      Content←'OK'
     ∇
 
-    ∇ Make args;n;v
+    ∇ Make args
       :Access public
       :Implements constructor
       args←eis⍣(~0∊⍴args)⊢args
-      (Content name value attrs)←args defaultArgs'Okay'UNDEF UNDEF''
+      (Content name value attrs)←args defaultArgs'OK'UNDEF UNDEF''
       type←'button'
     ∇
 
     ∇ r←Render
       :Access public
-      SetId
+      SetInputName
       r←⎕BASE.Render
     ∇
 

diff --git a/HTML/_DC/ResetButton.dyalog b/HTML/_DC/ResetButton.dyalog
@@ -11,9 +11,10 @@
       :Access public
       :Implements constructor
       type←'reset'
+      Content←'Reset'
     ∇
 
-    ∇ Make args;n;v
+    ∇ Make args
       :Access public
       :Implements constructor
       args←eis⍣(~0∊⍴args)⊢args
@@ -22,7 +23,7 @@
       type←'reset'
     ∇
 
-    ∇ r←Render;⎕TRAP
+    ∇ r←Render
       :Access public
       SetInputName
       r←⎕BASE.Render

diff --git a/HTML/_DC/SubmitButton.dyalog b/HTML/_DC/SubmitButton.dyalog
@@ -11,9 +11,10 @@
       :Access public
       :Implements constructor
       type←'submit'
+      Content←'Submit'
     ∇
 
-    ∇ Make args;n;v
+    ∇ Make args
       :Access public
       :Implements constructor
       args←eis⍣(~0∊⍴args)⊢args
@@ -27,4 +28,4 @@
       r←⎕BASE.Render
     ∇
 
-:endclass
+:endclass