
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 }