home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
623a.lha
/
TurboDEX
/
ExampleSources
/
NewWindow.dex
< prev
next >
Wrap
Text File
|
1992-03-22
|
702b
|
28 lines
' Open a Window ...
PROC main()
DEF wadr:LONG, rast:LONG, dummy:REGLONG
wadr := window(20,30,400,80,'A TurboWPL Window ...\0',0,$1006)
rast := MLONG(wadr+50)
VOID SetAPen(rast,1)
VOID Move(rast,5,20)
VOID Text(rast,'it\as easy to write in a window (click mouse)',LEN)
MOUSE
ENDMOUSE
VOID CloseWindow(wadr)
ENDPROC
PROC window( x, y, width, height, title, idcmp, windowflags)
LOCAL x[nw]:INT, y[nw.2]:INT, width[nw.4]:INT, height[nw.6]:INT
LOCAL title[nw.26]:LONG, idcmp[nw.10]:LONG, windowflags[nw.14]:LONG
LOCAL return:LONG
return := OpenWindow({nw})
STRUCT nw
INT 20,20,400,80,$0001
LONG 0,7,0,0,$abc,0,0
INT 80,40,640,256,1
ENDSTRUCT
ENDPROC return