_DC.Button - Add default content of 'Okay'

_DC.ResettButton - change base class to _html.button and add default content of 'Reset' _JQ - modify Handler to send isAPLJax header with request HTTPRequest - check for isAPLJax header to see if request came from APL-JavaScript framework
Dyalog · Oct 5, 2016 · fec776c · fec776c
1 parent 706b198
commit fec776c
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/Core/HTTPRequest.dyalog b/Core/HTTPRequest.dyalog
@@ -361,7 +361,7 @@
 
     ∇ r←isAPLJax
       :Access public instance
-      r←'XMLHttpRequest'≡GetHeader'x-requested-with'
+      r←'true'≡GetHeader'isAPLJax'
     ∇
 
     ∇ r←isPost

diff --git a/HTML/_DC/Button.dyalog b/HTML/_DC/Button.dyalog
@@ -19,7 +19,7 @@
       :Access public
       :Implements constructor
       args←eis⍣(~0∊⍴args)⊢args
-      (Content name value attrs)←args defaultArgs''UNDEF UNDEF''
+      (Content name value attrs)←args defaultArgs'Okay'UNDEF UNDEF''
       type←'button'
     ∇
 
@@ -29,4 +29,4 @@
       r←⎕BASE.Render
     ∇
 
-:endclass
+:endclass
diff --git a/HTML/_DC/ResetButton.dyalog b/HTML/_DC/ResetButton.dyalog
@@ -1,4 +1,4 @@
-:class ResetButton : #._html.input
+:class ResetButton : #._html.button
 ⍝ Description:: Dyalog Reset Button widget
 ⍝ Constructor:: [content [name [value [attrs]]]]
 ⍝ content - the content of the button (what shows up on the button's face)
@@ -17,7 +17,7 @@
       :Access public
       :Implements constructor
       args←eis⍣(~0∊⍴args)⊢args
-      (Content name value attrs)←args defaultArgs''UNDEF UNDEF''
+      (Content name value attrs)←args defaultArgs'Reset'UNDEF UNDEF''
       Content←''
       type←'reset'
     ∇
@@ -28,4 +28,4 @@
       r←⎕BASE.Render
     ∇
 
-:endclass
+:endclass
diff --git a/HTML/_JQ.dyalog b/HTML/_JQ.dyalog
@@ -599,7 +599,7 @@
               dtype←'"json"'
               success←'success: function(obj){APLJaxReturn(obj);document.body.style.cursor="default";}'
               status←'statusCode:{ 408: function(){alert("Session timed out");',removehg,'}}'
-              ajax←(JavaScript ine JavaScript,(';'=¯1↑JavaScript)↓';'),useajax/hg,'$.ajax({url: ',(quote Page),', cache: false, type: "POST", dataType: ',dtype,', data: {',data,'}, ',success,', ',status,'});'
+              ajax←(JavaScript ine JavaScript,(';'=¯1↑JavaScript)↓';'),useajax/hg,'$.ajax({url: ',(quote Page),', cache: false, type: "POST", dataType: ',dtype,', headers:{"isAPLJax": "true"}, data: {',data,'}, ',success,', ',status,'});'
 
               :If widget
                   :If force