InputGrid now makes proper <label>s.

Grid documentation block moved up so it can be found by WidgetDoc.
Dyalog · Sep 19, 2016 · e77373d · e77373d
1 parent 0c8c945
commit e77373d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/HTML/_DC/Grid.dyalog b/HTML/_DC/Grid.dyalog
@@ -1,5 +1,4 @@
 :Class Grid : #._DC.Table
-⍝∇:require =/Table.dyalog
 ⍝ Description:: Grid - like _.Table but with borders - accepts matrix of data
 ⍝ Constructor:: [Data [CellAttr [HeaderRows [HeaderAttr [MakeCellIds [MakeRowIds]]]]]
 ⍝
@@ -11,6 +10,8 @@
 ⍝ MakeCellIds - 1 to generate IDs      <td id="tableId_r2c3">
 ⍝ MakeRowIds  - 1 to generate Row IDs  <tr id="tableId_row2">
 
+⍝∇:require =/Table.dyalog
+
     ∇ Make0
       :Access public
       :Implements constructor

diff --git a/HTML/_DC/InputGrid.dyalog b/HTML/_DC/InputGrid.dyalog
@@ -41,9 +41,12 @@
       :EndIf
     ∇
 
-    ∇ html←Render;cells;rows
+    ∇ html←Render;cells;rows;ids
       SetId
       :Access public
+      ids←Inputs.id
+      ((ids≡¨⎕NULL)/ids)←{GenId}¨⍳+/ids≡¨⎕NULL
+      Labels←ids{'<label for="',⍺,'">',(renderIt ⍵),'</label>'}¨Labels
       cells←{⎕NEW #._html.td(⍵)}¨renderIt¨(,Labels),[1.1],Inputs
       cells[;1].class←⊂id,'_label'
       cells[;2].class←⊂id,'_input'
@@ -61,4 +64,4 @@
       Set(⊂'border'(⍕Border))
       html←⎕BASE.Render
     ∇
-:endclass
+:endclass