package Ġorg . web scene . client Ċ Ċ import Ġorg . web scene . client . html . Button Type Ċ import Ġorg . web scene . client . html . Html Creator Ċ import Ġorg . web scene . client . html . InputType Ċ import Ġorg . web scene . client . html . element . Form Element Ċ import Ġorg . web scene . client . html . element . Html Element Ċ import Ġorg . web scene . client . html . element . Link Element Ċ import Ġorg . web scene . client . html . element . Parent Html Element Ċ Ċ internal Ġfun Ġcreate Html Form ( ĊĠĠĠ Ġaction : ĠString , ĊĠĠĠ Ġmethod : ĠHttpMethod , ĊĠĠĠ Ġblock : ĠForm Element . () Ġ-> ĠUnit Ċ ): ĠForm Element Ġ{ ĊĠĠĠ Ġval Ġform Element Ġ= ĠForm Element () ĊĊĠĠĠ Ġform Element . block () ĊĠĠĠ Ġform Element . action Ġ= Ġaction ĊĠĠĠ Ġform Element . method Ġ= Ġmethod ĊĠĠĠ Ġform Element . tagName Ġ= Ġ" form " ĊĠĠĠ Ġreturn Ġform Element Ċ } Ċ Ċ internal Ġfun Ġcreate Html DataList ( ĊĠĠĠ Ġvar arg Ġlist Values : ĠString , ĊĠĠĠ ĠgroupId : ĠString Ġ= Ġ"", ĊĠĠĠ Ġlist Id : ĠString , ĊĠĠĠ Ġinput Id : ĠString Ġ= Ġ"", ĊĠĠĠ Ġinput Name : ĠString Ċ ): ĠParent Html Element Ġ= ĠHtml Creator . parentElement (" span ") Ġ{ ĊĠĠĠ Ġif Ġ( groupId . isNotEmpty ()) Ġid Ġ= ĠgroupId ĊĠĠĠ Ġhtml Element (" input ") Ġ{ ĊĠĠĠĠĠĠĠ Ġif Ġ( input Id . isNotEmpty ()) Ġid Ġ= Ġinput Id ĊĠĠĠĠĠĠĠ Ġattributes [" list "] Ġ= Ġlist Id ĊĠĠĠĠĠĠĠ Ġattributes [" name "] Ġ= Ġinput Name ĊĠĠĠ Ġ} ĊĠĠĠ Ġparent Html Element (" datal ist ") Ġ{ ĊĠĠĠĠĠĠĠ Ġid Ġ= Ġlist Id ĊĠĠĠĠĠĠĠ Ġlist Values . forEach Ġ{ Ġvalue Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠ Ġhtml Element (" option ") Ġ{ Ġattributes [" value "] Ġ= Ġvalue Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ Ċ internal Ġfun Ġcreate Html Input ( ĊĠĠĠ Ġtype : ĠInput Type , ĊĠĠĠ Ġdisabled : ĠBoolean Ġ= Ġfalse , ĊĠĠĠ ĠreadOnly : ĠBoolean Ġ= Ġfalse , ĊĠĠĠ Ġauto Focus : ĠBoolean Ġ= Ġfalse , ĊĠĠĠ Ġname : ĠString Ġ= Ġ"", ĊĠĠĠ Ġblock : ĠHtml Element . () Ġ-> ĠUnit Ċ ): ĠHtml Element Ġ{ ĊĠĠĠ Ġval Ġinput Element Ġ= ĠHtml Element () ĊĊĠĠĠ Ġinput Element . block () ĊĠĠĠ Ġinput Element . tagName Ġ= Ġ" input " ĊĠĠĠ Ġinput Element . attributes [" type "] Ġ= Ġtype . txt ĊĠĠĠ Ġif Ġ( name . isNotEmpty ()) Ġinput Element . attributes [" name "] Ġ= Ġname ĊĠĠĠ Ġif Ġ( disabled ) Ġinput Element . attributes [" disabled "] Ġ= Ġ"" Ġelse Ġinput Element . attributes Ġ-= Ġ" disabled " ĊĠĠĠ Ġif Ġ( readOnly ) Ġinput Element . attributes [" readonly "] Ġ= Ġ"" Ġelse Ġinput Element . attributes Ġ-= Ġ" readonly " ĊĠĠĠ Ġif Ġ( auto Focus ) Ġinput Element . attributes [" aut of ocus "] Ġ= Ġ"" Ġelse Ġinput Element . attributes Ġ-= Ġ" aut of ocus " ĊĠĠĠ Ġinput Element . is Closed Ġ= Ġtrue ĊĠĠĠ Ġreturn Ġinput Element Ċ } Ċ Ċ internal Ġfun Ġcreate Html Link ( href : ĠString , Ġblock : ĠLink Element . () Ġ-> ĠUnit ): ĠLink Element Ġ{ ĊĠĠĠ Ġval Ġlink Element Ġ= ĠLink Element () ĊĊĠĠĠ Ġlink Element . block () ĊĠĠĠ Ġlink Element . href Ġ= Ġhref ĊĠĠĠ Ġreturn Ġlink Element Ċ } Ċ Ċ internal Ġfun Ġcreate Html Option ( value : ĠString , Ġblock : ĠParent Html Element . () Ġ-> ĠUnit ): ĠParent Html Element Ġ{ ĊĠĠĠ Ġval Ġoption Element Ġ= ĠParent Html Element () ĊĊĠĠĠ Ġoption Element . block () ĊĠĠĠ Ġoption Element . tagName Ġ= Ġ" option " ĊĠĠĠ Ġoption Element . attributes [" value "] Ġ= Ġvalue ĊĠĠĠ Ġreturn Ġoption Element Ċ } Ċ Ċ internal Ġfun Ġcreate Html Button ( ĊĠĠĠ Ġtype : ĠButton Type Ġ= ĠButton Type . BUTTON , ĊĠĠĠ Ġblock : ĠParent Html Element . () Ġ-> ĠUnit Ċ ): ĠParent Html Element Ġ{ ĊĠĠĠ Ġval Ġbtn Element Ġ= ĠParent Html Element () ĊĊĠĠĠ Ġbtn Element . block () ĊĠĠĠ Ġbtn Element . attributes [" type "] Ġ= Ġtype . name . toLowerCase () ĊĠĠĠ Ġbtn Element . tagName Ġ= Ġ" button " ĊĠĠĠ Ġreturn Ġbtn Element Ċ } Ċ