#!../../src/xotclsh # $Id: Counter4.xotcl,v 1.2 2004/07/27 21:39:46 neumann Exp $ array set opts {-pkgdir .}; array set opts $argv lappend auto_path $opts(-pkgdir) package require XOTcl 1; namespace import -force xotcl::* package require xotcl::actiweb::htmlPlace package require xotcl::actiweb::webDocument ### Instantiate an Html place with the name receiver HtmlPlace ::receiver -port 8094 -allowExit exit ### Define a class solely for counting Class Counter -parameter {{count 1}} Counter instproc increment {} { ;### counter method my incr count } ### Define a Counter subclass for persistent counting Class PersistentCounter -superclass Counter PersistentCounter instproc init args { ;### Constructor next ;### call superclasses' init my mixinStrategy Persistent=Eager my persistenceMgr [Place getInstance]::agentPersistenceMgr my persistent count ;### make count variable persistent } ### Create two persistent counter instances with the names c1 and c2 PersistentCounter c1 PersistentCounter c2 ### Define a proxy class, that handles HTML decoration ### HtmlProxy forwards all unknown calls to "realSubject" Class HtmlProxyCounter -superclass HtmlProxy HtmlProxyCounter instproc init args { ;### Constructor next my exportProcs increment ;### export increment method } HtmlProxyCounter instproc default {} { my instvar realSubject $realSubject instvar count set objName [string trimleft [self] :] return "The value in $realSubject is $count.

Increment Counter


Last Update: [clock format [clock seconds] -format %m/%d/%y-%H:%M] ] \n" } ### Create two proxy instances wc1 und wc2 HtmlProxyCounter wc1 -realSubject c1 HtmlProxyCounter wc2 -realSubject c2 ### Start event loop and handle connections receiver startEventLoop