home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9101.ZIP / DESQ1.JAN < prev    next >
Encoding:
Text File  |  1990-11-01  |  988 b   |  42 lines
  1.  
  2.  
  3. Listing 1.  
  4.  
  5. * Capture the handles automatically assigned
  6.      winhan = WIN_me()   &&window
  7.      keyhan = KEY_me()   &&keyboard
  8.      malhan = MAL_me()   &&mailbox
  9.  
  10. * Other objects must be explicitly created
  11.      ptrhan = PTR_new()
  12.  
  13. *Creating child windows:
  14.      rows = 10
  15.      cols = 5
  16.      winchild = WIN_new("Title of child window", rows, cols )
  17.  
  18. *Opening additional mailboxes
  19.      mal2winhan = MAL_new()
  20.      mal3winhan = MAL_new()
  21.  
  22. IF Mal2Winhan = 0 .OR. Mal3Winhan
  23.      Error("Mailbox not allocated")
  24. ENDIF
  25.  
  26. *Some objects should be opened before using them
  27.  
  28. * Attach pointer object (mouse) to parent window
  29.      PTR_open(ptrhan, winhan)
  30. * Attach keyboard object) to parent window
  31.      KEY_open(keyhan, winhan)
  32.  
  33. * Open Non-default mailboxes
  34.      IF MAL_open(mal2winhan) <> mal2winhan
  35.      Error("Couldn't open 2nd mail handle")
  36.      ENDIF
  37.      IF MAL_open(mal3winhan) <> mal3winhan
  38.      Error("Couldn't open 3rd mail handle")
  39.      ENDIF
  40.  
  41.  
  42.