// Use WebPageObject // WebPageObject class

Use Base.nui     // Item_Property command, Various macros (FOR_EX...), cArray, cSet and cStack classes (No User Interface)
Use Css.nui      // CSS things

class WebPageObject is a cArray
  procedure construct_object
    forward send construct_object
    property integer piEncapElement public 1  // 0=none 1=div 2=span
  end_procedure

  procedure OnStyle_EncapElement
  end_procedure

  procedure DoEncapOpen // Private
    integer liEncapElement liAdjust
    string lsWidth lsStyle
    get piEncapElement to liEncapElement
    if liEncapElement begin // If an encapsulating element should be added at all
      if (liEncapElement=1) send XHTML_Add_Open_Element "div"
      if (liEncapElement=2) send XHTML_Add_Open_Element "span"
      send CSS_Reset_Properties // Reset CSS
      send OnStyle_Encap
      get CSS_InLineStyle to lsStyle
      if (lsStyle<>"") send XHTML_Add_Attribute "style" lsStyle
  end_procedure

  procedure DoEncapClose // Private
    integer liEncapElement
    get piEncapElement to liEncapElement
    if liEncapElement send XHTML_Close_Element // div or span
  end_procedure

  procedure DoWriteHtmlObjectBody
  end_procedure
  procedure DoWriteHtml
    send DoEncapOpen
    send DoWriteHtmlObjectBody
    send DoEncapClose
  end_procedure
end_class // WebPageObject