logo

class

webui::DefaultView

sys::Obj
  web::Widget
    webui::DefaultView
  1  //
  2  // Copyright (c) 2007, Brian Frank and Andy Frank
  3  // Licensed under the Academic Free License version 3.0
  4  //
  5  // History:
  6  //   23 Dec 07  Brian Frank  Creation
  7  //
  8  
  9  using web
 10  
 11  **
 12  ** DefaultView  is the default view for any Resource.
 13  **
 14  class DefaultView : Widget
 15  {
 16  
 17    override Void render()
 18    {
 19      uri := req.uri
 20      r   := req.resource
 21      obj := r.obj
 22  
 23      body.w("
 24      <table>
 25        <tr><th colspan='2' class='t''>'baresource</th></tr>
 26        <tr><th>uri:</th>  <td>$uri</td></tr>
 27        <tr><th>resource.type:</th> <td>$r.type</td></tr>
 28        <tr><th>obj:</th> <td>$obj</td></tr>")
 29  
 30      if (obj != null)
 31      {
 32        body.w("<tr><th>obj.type:</th>  <td>$obj.type</td></tr>")
 33      }
 34  
 35      body.w("<tr><th colspan='2' class='thbar'>List</th></tr>")
 36      req.resource.list.each |Resource kid|
 37      {
 38        body.w("<tr><th><a href='$kid.uri'>$kid.name</a></th> <td>$kid.type</td></tr>\n")
 39      }
 40  
 41      body.w("</table>")
 42    }
 43  
 44  }

More Info

Slots