home *** CD-ROM | disk | FTP | other *** search
/ LAUNCH 3 / LAUNCH.BIN / mac / MEDIAHB / SOURCES / S12_INTRO1.k < prev    next >
Text File  |  1995-09-02  |  997b  |  66 lines
  1. object S12_INTRO1 is MEDIADISTRIBUTOR
  2. with
  3.     Duration is -1;
  4.     X is 0; Y is 0; Width is 640; Height is 480;
  5.     Items is [
  6.         S12_1_HBINTR1F_PIC,
  7.         S12_2_CLICK,
  8.         S12_3_DONE
  9.     ];
  10. end;
  11.  
  12. object S12_1_HBINTR1F_PIC is MEDIASCROLLER
  13. has
  14.     
  15.     OffScreen()
  16.         do
  17.             self.Enable(false);
  18.             self.Show(true);
  19.         end;
  20.     
  21. with
  22.     Target is PICTURECLIENT with Supplier is M176_HBINTR1F_PIC; Duration is 0; end;
  23.     Duration is -1;
  24.     X is 0; Y is 0; Width is 640; Height is 480;
  25. end;
  26.  
  27. object S12_2_CLICK is MEDIADELEGATOR
  28. has
  29.     
  30.     OffScreen()
  31.         do
  32.             self.Enable(true);
  33.             self.Show(true);
  34.         end;
  35.     
  36.     MouseDown(theX, theY)
  37.         do
  38.             TRANSITION.Set(CombHorizontal, 15);
  39.             APPLICATION.GoTo(S13_INTRO2);
  40.         end;
  41.     
  42. with
  43.     Duration is -1;
  44.     X is 130; Y is 340; Width is 175; Height is 24;
  45. end;
  46.  
  47. object S12_3_DONE is MEDIADELEGATOR
  48. has
  49.     
  50.     OffScreen()
  51.         do
  52.             self.Enable(true);
  53.             self.Show(true);
  54.         end;
  55.     
  56.     MouseDown(theX, theY)
  57.         do
  58.             APPLICATION.Quit();
  59.         end;
  60.     
  61. with
  62.     Duration is -1;
  63.     X is 558; Y is 431; Width is 81; Height is 48;
  64. end;
  65.  
  66.