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 / Component / Main.wo / Main.pl < prev    next >
Encoding:
Perl Script  |  1996-08-09  |  2.2 KB  |  67 lines
  1. # $Id: Main.pl,v 1.1 1996/07/26 05:14:20 pedja Exp $
  2. #   Main.pl: converted from the original Main.wos
  3. #   The original file contains the following notice:
  4. #
  5. #   You may freely copy, distribute, and reuse the code in this example.
  6. #   NeXT disclaims any warranty of any kind, expressed or  implied, as to its
  7. #   fitness for any particular use.
  8. #    
  9. #     Written by Nico Popp
  10. # 
  11. #   The Component application presents a group of digits. When a user
  12. #   clicks a digit, the display is refreshed to reflect the user's 
  13. #   selection.
  14. #
  15. #   The Component application is a simple example of using a subcomponent.
  16. #   The subcomponent (or child component) Palette messages the parent  
  17. #   component (Main) using a WOAction object. This works as follows:
  18. #   
  19. #   1. The parent page (Main) references the child component in its
  20. #      declarations file (Main.wod):
  21. #
  22. #      PALETTE:Palette {
  23. #      selection = number;
  24. #      callBack = displaySelection;
  25. #      }; 
  26. #
  27. #   The callback attribute specified in the declaration takes as its
  28. #   value a method that is triggered when the child component sends the
  29. #   callBack object an invoke message. Through this mechanism the child 
  30. #   component is able to message the parent.
  31. #
  32. #   2. The child component's script (Palette.pl) uses the action
  33. #      keyword to declare that the callBack specified in the parent's
  34. #      declarations file is a WOAction object:
  35. #      
  36. #      action callBack;
  37. #
  38. #   3. The child component's script (Palette.pl) sends the WOAction
  39. #      object callBack an invoke message in its click method, 
  40. #      which tells callBack to invoke its associated method, displaySelection.
  41.  
  42. package WO::Component::Main;
  43. use WOPerl;
  44.  
  45. @IVARS=qw(number selection);
  46. # number: the clicked digit    
  47. # selection: the formatted selection
  48.  
  49. #  This method is called by the Palette component, when
  50. #  a digit (hyperlink) has been clicked
  51. sub displaySelection 
  52. {
  53.   my $self=shift;
  54.   # The variable 'number' is tied to the Palette component 'selection'
  55.   # variable (look at Main.wod). So if a digit has been set, 
  56.   # the selection variable is set to the value of the clicked digit.
  57.   if ($self->{'number'}) {
  58.     $self->{'selection'} = "[$self->{'number'}]";
  59.   } else  {
  60.     $self->{'selection'} = "";
  61.   }
  62.   return $self;
  63. }
  64.  
  65. 'WO::Component::Main';
  66. # EOF
  67.