# $Id: HtmlPlace.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
package provide xotcl::actiweb::htmlPlace 0.8
package require xotcl::trace
package require xotcl::actiweb::httpPlace
package require xotcl::store::persistence
package require xotcl::actiweb::agent
package require xotcl::actiweb::pageTemplate
package require XOTcl
namespace eval ::xotcl::actiweb::htmlPlace {
namespace import ::xotcl::*
Class HtmlPlace -superclass Place -parameter {allowExit}
HtmlPlace instproc init args {
next
#
# just define a minimal object that can react
# with HTML decoration, if the called object
# doesn't exist
PageTemplateHtml create [self]::start.html
my startingObj [self]::start.html
if {[my exists allowExit]} {
set exitObj [WebObject create [self]::[my set allowExit]]
[Place getInstance] exportObjs $exitObj
$exitObj proc default {} {after 500 ::exit; return "Server terminates"}
}
}
HtmlPlace instproc default {} {
set place [string trimleft [self] :]
set msg "Place $place
Place $place
Try one of the following links:"
foreach o [my exportedObjs] {
set o [string trimleft $o :]
append msg "- $o
"
}
append msg "
\n"
}
namespace export HtmlPlace
}
namespace import ::xotcl::actiweb::htmlPlace::*