home *** CD-ROM | disk | FTP | other *** search
- # $Id: Main.objtcl,v 1.1 1996/07/26 05:18:21 pedja Exp $
-
- class Main WOComponentController {
- nameString
- whatever
- } {
- # mark whatever as persistent
- method NSArray -persistentKeys {
- return [string_array whatever]
- }
-
- method void -dealloc {
- $nameString release
- $whatever release
- super dealloc
- }
-
- method -nameString { return $nameString }
- method void -setNameString: n {
- rrset nameString $n
- }
-
- method -sayHello {
- set nextPage [[WOApplication sharedInstance] pageWithName: [@ "Hello"]]
- $nextPage setNameString: $nameString
- if [tt $whatever] {
- rrset whatever [@ "[$whatever @], [$nameString @]"]
- } else {
- rrset whatever [@ "Your name(s): [$nameString @]"]
- }
- return $nextPage
- }
-
- method -evalPage {
- return [[WOApplication sharedInstance] pageWithName: [@ "Eval"]]
- }
- }
-
- # EOF
-