home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / DP / Programmation / PureBasic_Demo / Examples / Sources / App.pb next >
Text File  |  1999-10-10  |  1KB  |  65 lines
  1. ;
  2. ; *******************************
  3. ;
  4. ; App example file for Pure Basic
  5. ;
  6. ;  © 1999 - Fantaisie Software -
  7. ;
  8. ; *******************************
  9. ;
  10. ;
  11.  
  12. WBStartup()     ; Can be started from Workbench
  13.  
  14. InitWindow(0)   ; We need one window
  15. InitApp(1)      ; 2 apps object (one for the window and the other for the menu)
  16. InitTagList(0)  ; A little taglist for our window (3 tags max)
  17.  
  18.  
  19. ;
  20. ; Add our AppMenu here...
  21. ;
  22. AppMenu$ = "PureBasic RuleZ !"
  23. AddAppMenu(0, AppMenu$)
  24.  
  25. Title$ = "Drop me some icons !"
  26. ResetTagList(#WA_Title, Title$)
  27.  
  28. If OpenWindow(0, 10, 140, 200, 100, #WFLG_CLOSEGADGET | #WFLG_DRAGBAR | #WFLG_DEPTHGADGET | #WFLG_ACTIVATE | #WFLG_RMBTRAP, TagListID())
  29.  
  30.   AddAppWindow(1, WindowID()) ; Add the app feature to our window
  31.  
  32.   Repeat
  33.     VWait()
  34.  
  35.     AppID   = AppEvent()    ; Get the app & window events
  36.     IDCMP.l = WindowEvent() ;
  37.  
  38.     If AppID > -1
  39.       Select AppID
  40.  
  41.         Case 0
  42.           NPrint("Tools Menu Item is pushed")
  43.  
  44.         Case 1
  45.           NPrint("Some icons has been dropped on the window:")
  46.  
  47.           For k=1 To AppNumFiles()
  48.             NPrint(NextAppFile())
  49.           Next
  50.  
  51.         Default
  52.           NPrint("Warning, unknow APP message.")
  53.  
  54.       EndSelect
  55.     EndIf
  56.  
  57.   Until IDCMP = #IDCMP_CLOSEWINDOW
  58.  
  59.   RemoveAppWindow(1)  ; Do forget them...
  60. EndIf                 ; The library don't free them at end -> crash.
  61.                       ;
  62. RemoveAppMenu(0)      ;
  63.  
  64. End
  65.