home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / WELC.BAS < prev    next >
BASIC Source File  |  1989-09-11  |  1KB  |  35 lines
  1. '------------------------------------------------------------
  2. ' WELC.BAS -- A Program that Creates a Standard Frame Window
  3. '------------------------------------------------------------
  4. REM $INCLUDE: 'PMBase.BI'
  5.  
  6. flFrameFlags& = FCFTITLEBAR      OR FCFSYSMENU OR _
  7.         FCFSIZEBORDER     OR FCFMINMAX  OR _
  8.         FCFSHELLPOSITION OR FCFTASKLIST
  9.  
  10. hab& = WinInitialize(0)
  11. hmq& = WinCreateMsgQueue(hab&, 0)
  12.  
  13. hwndFrame& = WinCreateStdWindow (_
  14.              HWNDDESKTOP,_                     ' Parent window handle
  15.              WSVISIBLE,_                       ' Style of frame window
  16.              MakeLong (VARSEG(flFrameFlags&),_ ' Pointer to control data
  17.                        VARPTR(flFrameFlags&)),_
  18.              0,_                               ' Client window class name
  19.              0,_                               ' Title bar text
  20.              0,_                               ' Style of client window
  21.              0,_                               ' Module handle for resources
  22.              0,_                               ' ID of resources
  23.              0)                                ' Pointer to client window handle
  24.  
  25. bool% = WinDestroyWindow(hwndFrame&)
  26. bool% = WinDestroyMsgQueue(hmq&)
  27. bool% = WinTerminate(hab&)
  28.  
  29. END
  30.  
  31.  
  32. '*** ClientWndProc needed to eliminate unresolved externals from REGBAS.LIB
  33. FUNCTION ClientWndProc&(hwnd&, msg%, mp1&, mp2&)
  34. END FUNCTION
  35.