home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV2N1.ZIP / ADDABOUT.TXT next >
Encoding:
Text File  |  1990-11-20  |  344 b   |  11 lines
  1. /*append the separator and the choice Restore All
  2.    to the system menu                         */
  3.  
  4. Def addAbout(self | hMenu)
  5. {
  6.   addAbout(self:ancestor); /*current ancestor is the Window class*/
  7.   hMenu := Call GetSystemMenu(hWnd, 0);
  8.   Call AppendMenu(hMenu, MF_SEPARATOR, 0, 0);
  9.   Call AppendMenu(hMenu, 0, 0xF220, asciiz("Restore &All"))
  10. }
  11.