home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Think Class Libraries / SAT-TCL 1.0b2 / SAT-TCL ƒ / CSATDirector.p next >
Encoding:
Text File  |  1996-06-06  |  1.9 KB  |  79 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {    CSATDirector.p                                                                                                }
  4. {}
  5. {    Director class for use with the Sprite Animation Toolkit. This class is            }
  6. {    minimalist, since it is quite game dependant.                                                    }
  7. {}
  8. {    Important: Only one instance of this class should exist, namely the director    }
  9. {    which supervises the window containing CSATPane. Remember that SAT is    }
  10. {    designed for a single rectangle of animation in a single window.                        }
  11. {}
  12. {****************************************************}
  13.  
  14.  
  15. unit CSATDirector;
  16.  
  17. interface
  18.  
  19.     uses
  20.         TCL, SATTCLIntf;
  21.  
  22. implementation
  23.  
  24.  
  25. {****************************************************}
  26. {}
  27. {    ISATDirector                                                                                                }
  28. {}
  29. {    Initializes a SAT Director object.                                                                    }
  30. {}
  31. {****************************************************}
  32.  
  33.     procedure CSATDirector.ISATDirector (aSupervisor: CApplication);
  34.  
  35.     begin { ISATDirector }
  36.         IDirector(aSupervisor);
  37.  
  38.         itsSATPane := nil;
  39.     end; { ISATDirector }
  40.  
  41.  
  42. {****************************************************}
  43. {}
  44. {    Free                                                                                                                }
  45. {}
  46. {    Free the SAT Director class, and close down any sounds. This is a good             }
  47. {    place to delete any sprites and sounds which you have created.                        }
  48. {}
  49. {****************************************************}
  50.  
  51.     procedure CSATDirector.Free;
  52.  
  53.     begin { Free }
  54.         SATSoundShutup;
  55.  
  56.         itsSATPane := nil;
  57.  
  58.         inherited Free;
  59.     end; { Free }
  60.  
  61.  
  62. {****************************************************}
  63. {}
  64. {    BuildWindow                                                                                                                                                                                                        }
  65. {}
  66. {    In this method, you should build the window as you want it, and set                }
  67. {    itsSATPane to point to the single instance of the CSATPane class.                    }
  68. {    Remember - You have to initialize SAT before you can build any                        }
  69. {    sprites or sounds.                                                                                            }
  70. {}
  71. {****************************************************}
  72.  
  73.     procedure CSATDirector.BuildWindow;
  74.  
  75.     begin { BuildWindow }
  76.     end; { BuildWindow }
  77.  
  78.  
  79. end. { CSATDirector }