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 >
Encoding:
Text File  |  1992-03-22  |  702 b   |  28 lines
  1. ' Open a Window ...
  2.  
  3. PROC main()
  4.   DEF wadr:LONG, rast:LONG, dummy:REGLONG
  5.   wadr := window(20,30,400,80,'A TurboWPL Window ...\0',0,$1006)
  6.   rast := MLONG(wadr+50)
  7.   VOID SetAPen(rast,1)
  8.   VOID Move(rast,5,20)
  9.   VOID Text(rast,'it\as easy to write in a window (click mouse)',LEN)
  10.   MOUSE
  11.   ENDMOUSE
  12.   VOID CloseWindow(wadr)
  13. ENDPROC
  14.  
  15. PROC window( x, y, width, height, title, idcmp, windowflags)
  16.   LOCAL x[nw]:INT, y[nw.2]:INT, width[nw.4]:INT, height[nw.6]:INT
  17.   LOCAL title[nw.26]:LONG, idcmp[nw.10]:LONG, windowflags[nw.14]:LONG
  18.   LOCAL return:LONG
  19.   return := OpenWindow({nw})
  20.   STRUCT nw
  21.     INT  20,20,400,80,$0001
  22.     LONG 0,7,0,0,$abc,0,0
  23.     INT  80,40,640,256,1
  24.   ENDSTRUCT
  25. ENDPROC return
  26.  
  27.   
  28.