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 / Main.wo / Main.objtcl < prev    next >
Encoding:
Text File  |  1996-08-09  |  854 b   |  40 lines

  1. # $Id: Main.objtcl,v 1.1 1996/07/26 05:18:21 pedja Exp $
  2.  
  3. class Main WOComponentController {
  4.   nameString
  5.   whatever
  6. } {
  7.   # mark whatever as persistent
  8.   method NSArray -persistentKeys {
  9.     return [string_array whatever]
  10.   }
  11.  
  12.   method void -dealloc {
  13.     $nameString release
  14.     $whatever release
  15.     super dealloc
  16.   }
  17.  
  18.   method -nameString { return $nameString }
  19.   method void -setNameString: n {
  20.     rrset nameString $n
  21.   }
  22.  
  23.   method -sayHello {
  24.     set nextPage [[WOApplication sharedInstance] pageWithName: [@ "Hello"]]
  25.     $nextPage setNameString: $nameString
  26.     if [tt $whatever] {
  27.       rrset whatever [@ "[$whatever @], [$nameString @]"]
  28.     } else {
  29.       rrset whatever [@ "Your name(s): [$nameString @]"]
  30.     }
  31.     return $nextPage
  32.   }
  33.  
  34.   method -evalPage {
  35.     return [[WOApplication sharedInstance] pageWithName: [@ "Eval"]]
  36.   }
  37. }
  38.  
  39. # EOF
  40.