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 / DodgeLite / Application.pl < prev    next >
Encoding:
Perl Script  |  1996-08-09  |  1.9 KB  |  79 lines
  1. # $Id: Application.pl,v 1.1 1996/07/26 05:15:15 pedja Exp $
  2.  
  3. # Application.pl: converted from the original Application.wos
  4. # The original file contains the following notice:
  5. #
  6. # You may freely copy, distribute, and reuse the code in this example.
  7. # NeXT disclaims any warranty of any kind, expressed or  implied, as to its
  8. # fitness for any particular use.
  9. # This example consistes of beta, untested code. Use it at your own risk.
  10. # 
  11. # Written by Jean-Marie Hullot, CTO, NeXT Software Inc
  12.  
  13. package WO::DodgeLite;
  14. use WOPerl;
  15.  
  16. @IVARS=qw(dodgeData);
  17. @SESSION=qw(customerChoice);
  18. %FLAGS=(
  19.   'rawSet' => 1,
  20. #  'traceSet' => 1,
  21. #  'traceGet' => 1,
  22. #  'traceInvoke' => 1,
  23. );
  24.  
  25. sub awake {
  26.   my $self=shift;
  27.   #obj($self)->setTraceGet(1);
  28.   #obj($self)->setTraceSet(1);
  29.   my $filePath = $WOApp->pathForResourceOfType("DodgeData","dict");
  30.   my $dd=NSDictionary->dictionaryWithContentsOfFile($filePath);
  31.   $self->{'dodgeData'}=$dd;
  32.   return;
  33. }
  34.  
  35. # Get all the car objects
  36. sub allCars {
  37.   my $self=shift;
  38.   return $self->{'dodgeData'}->objectForKey("cars")->allValues;
  39. }
  40.  
  41. # Get all the car models
  42. sub modelsDict {
  43.   return $_[0]->{'dodgeData'}->objectForKey('models');
  44. }
  45.  
  46. # Get all the types of cars
  47. sub typesDict {
  48.   return $_[0]->{'dodgeData'}->objectForKey('types');
  49. }
  50.  
  51. # Get all the option packages
  52. sub packagesDict {
  53.   return $_[0]->{'dodgeData'}->objectForKey('packages');
  54. }
  55.  
  56. # Get all the car colors
  57. sub colorsDict {
  58.   return $_[0]->{'dodgeData'}->objectForKey('colors');
  59. }
  60.  
  61. # The following methods provide access to other pages.  They are used in
  62. # the declaration files.  For example,
  63. #     CARPAGE:WOActiveImage {
  64. #         src = "../Images/Buttons/ChangeOptions.gif";
  65. #         action = WOApp.carPage;
  66. #     };
  67.  
  68. # Return the first page
  69. sub mainPage { return $WOApp->pageWithName("Main"); }
  70.  
  71. # Return the second page
  72. sub selectedCarsPage { return $WOApp->pageWithName("SelectedCars"); }
  73.  
  74. # Return the third page
  75. sub carPage { return $WOApp->pageWithName("Car"); }
  76.  
  77. 'WO::DodgeLite';
  78. #EOF
  79.