home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / DP / Programmation / PureBasic_Demo / Examples / Sources / Window.pb < prev   
Text File  |  1999-10-10  |  1KB  |  52 lines
  1. ;
  2. ; **********************************
  3. ;
  4. ; Window example file for Pure Basic
  5. ;
  6. ;    © 1999 - Fantaisie Software -
  7. ;
  8. ; **********************************
  9. ;
  10.  
  11. WBStartup()                 ; This program could be launched from workbench
  12.  
  13. InitWindow(0)               ; We will need one window
  14. *TagList = InitTagList(20)
  15.  
  16. ; Fill up our taglist.
  17. ; !!! WARINING !!! You MUST use an title variable for EACH window
  18.  
  19. Title.s = "Demo Window Example"
  20.  
  21.    ResetTagList(#WA_Title , @Title)
  22. If OpenWindow(0, 10, 80, 200, 150, #WFLG_CLOSEGADGET | #WFLG_DEPTHGADGET | #WFLG_DRAGBAR, *TagList)   ; If our window is opened...
  23.  
  24.   H = WindowHeight() ; Get some window informations
  25.   W = WindowWidth()  ;
  26.   X = WindowX()      ;
  27.   Y = WindowY()      ;
  28.  
  29.   NPrint("Height:"+Str(H)+", Width:"+Str(W)+", Coords(X,Y): ("+Str(X)+","+Str(Y)+")")
  30.  
  31.   Delay(50)
  32.  
  33.   MoveWindow(100,0)
  34.  
  35.   Delay(50)
  36.  
  37.   SizeWindow(200,200)
  38.  
  39.   BevelBox(10,20,50,30,0)  ; Draw nice 3D box on our window
  40.   BevelBox(10,60,50,30,1)  ;
  41.  
  42.   ; Wait for the user press the close gadget
  43.   ;
  44.   Repeat
  45.     IDCMP.l = WindowEvent()
  46.     VWait()
  47.   Until IDCMP = #IDCMP_CLOSEWINDOW
  48.  
  49. EndIf
  50.  
  51. End
  52.