Category : Files from Magazines
Archive   : DBMS0191.ZIP
Filename : DESQ1.JAN

Listing 1.

* Capture the handles automatically assigned
winhan = WIN_me() &&window
keyhan = KEY_me() &&keyboard
malhan = MAL_me() &&mailbox

* Other objects must be explicitly created
ptrhan = PTR_new()

*Creating child windows:
rows = 10
cols = 5
winchild = WIN_new("Title of child window", rows, cols )

*Opening additional mailboxes
mal2winhan = MAL_new()
mal3winhan = MAL_new()

IF Mal2Winhan = 0 .OR. Mal3Winhan
Error("Mailbox not allocated")
ENDIF

*Some objects should be opened before using them

* Attach pointer object (mouse) to parent window
PTR_open(ptrhan, winhan)
* Attach keyboard object) to parent window
KEY_open(keyhan, winhan)

* Open Non-default mailboxes
IF MAL_open(mal2winhan) <> mal2winhan
Error("Couldn't open 2nd mail handle")
ENDIF
IF MAL_open(mal3winhan) <> mal3winhan
Error("Couldn't open 3rd mail handle")
ENDIF