home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / UCB.ZIP / MENUITEM.003 < prev    next >
Encoding:
Text File  |  1990-12-03  |  1001 b   |  34 lines
  1. \comment       Windows 3.0 Application Script (Version 1.00)
  2. \comment                      
  3. \comment       (C) Copyright DEA Software 1990  All Rights Reserved
  4. \comment 
  5. \comment 
  6. \if @[@[2,5],10] > 0
  7. \skip 1
  8.            case  IDM_MENU_@[2,3]:
  9.                /* ADD your code for Menu Item "@[10 + @[2,3],1]" */
  10. \if @[10 + @[2,3],2] <> 1
  11. \skip 2
  12.                lpfnDlgProc = MakeProcInstance (@[10 + @[2,3],3]DlgProc, hInst);
  13.                DialogBox (hInst, "@[10 + @[2,3],3]", hWnd, lpfnDlgProc);
  14.                FreeProcInstance (lpfnDlgProc);
  15. \eskip 2
  16. \if @[10 + @[2,3],2] <> 2
  17. \skip 2
  18.                lpfnDlgProc = MakeProcInstance (@[10 + @[2,3],3]DlgProc, hInst);
  19.  
  20.                hDlgModeless = CreateDialog (hInst, "@[10 + @[2,3],3]", hWnd,
  21.                               lpfnDlgProc);
  22. \eskip 2
  23.                break;
  24.  
  25. \eskip 1
  26. \equ @[2,4] = + 1
  27. \equ @[2,6] = 11
  28. \equ @[2,7] = 1
  29. \if @[@[2,5],10] > 0
  30. \loop @[@[2,5],10] submenu.003
  31. \equ @[2,5] = + 1
  32. \eskip 1
  33. \equ @[2,3] = + 1
  34.