diff --git a/HTML/_DC/Grid.dyalog b/HTML/_DC/Grid.dyalog index de8644d5..04717c42 100644 --- 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 ⍝ MakeRowIds - 1 to generate Row IDs +⍝∇:require =/Table.dyalog + ∇ Make0 :Access public :Implements constructor diff --git a/HTML/_DC/InputGrid.dyalog b/HTML/_DC/InputGrid.dyalog index 3cf8d270..79f5c5dc 100644 --- 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{''}¨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 \ No newline at end of file +:endclass