home *** CD-ROM | disk | FTP | other *** search
/ Peanuts NeXT Software Archives / Peanuts-2.iso / Developer / webobjects / extensions / win-nt / WOPerl-lite-10e7.exe / Examples / WOPerl / ObjTclHello / Eval.wo / Eval.objtcl < prev    next >
Encoding:
Text File  |  1996-08-09  |  442 b   |  25 lines
  1. # $Id: Eval.objtcl,v 1.1 1996/07/26 05:18:11 pedja Exp $
  2.  
  3. class Eval WOComponentController {
  4.   code
  5.   result
  6. } {
  7.   method void -dealloc {
  8.     $code release
  9.     $result release
  10.     super dealloc
  11.   }
  12.     
  13.   method -evalObjTcl {
  14.     if [catch {expr [$code @]} r] { set r "ERROR: $r" }
  15.     rrset result [@ "[$code @] = $r"]
  16.     return $self;
  17.   }
  18.  
  19.   method -goHome {
  20.     return [[WOApplication sharedInstance] pageWithName: [@ Main]]
  21.   }
  22. }
  23.  
  24. # EOF
  25.