home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / about.zip / ABOUT.ACT next >
Text File  |  1990-07-19  |  447b  |  15 lines
  1. now(Window)!!
  2.  
  3. /* MS-Window's system-menu message.  Run About app
  4.   dialog if requested, otherwise, pass through to
  5.   default window proc. */
  6. Def WM_SYSCOMMAND(self, wP, lP | win)
  7. { if wP ~= IDSABOUT
  8.   then ^asInt(execWindowProc(self, #WM_SYSCOMMAND, wP, lP));
  9.   endif;
  10.   if not(Classes[#CreditsWindow]) cor
  11.     not(runModal(start(Classes[#CreditsWindow]), IDSNAME, self))
  12.   then runModal(new(Dialog), ABOUT_BOX, self);
  13.   endif;
  14. }!!
  15.