home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / BCHREF.ZIP / WINPLACE.WBT < prev    next >
Text File  |  1992-05-22  |  1KB  |  34 lines
  1. ; DEBUG(@ON)
  2. ; This routine is launched by NBWIN.WBT/NBWIN2.WBT and constantly monitors all
  3. ; windows.  It repositions Advisor's windows as they appear so that
  4. ; Norton Backup's main screen will remain visible.  It is closed by 
  5. ; the NBWIN.WBT file when user exits the tutorial.  
  6.  
  7. ; CHECK FOR EXISTENCE OF NBWIN 1.2
  8.  
  9. :CheckNBWin12                                ; NBWIN 1.2 exists
  10.     if winexist("Batch Runner - nbwin.wbt")==@true then goto NBWin12Loop
  11.                                 
  12. :CheckNBWin2
  13.     if winexist("Batch Runner - nbwin2.wbt")==@false then exit    ; if NBWIN 1.2 and 2.0 do not exist
  14.     goto NBWin2Loop                            ; NBWIN 2.0 exists    
  15.  
  16. ;** BEGIN LOOP FOR NBWIN 1.2
  17. :NBWin12Loop
  18.     if winexist("Batch Runner - nbwin.wbt")==@false then exit    ; if NBWin12 does not exist, don't move
  19.     if winexist("Norton Backup - DEFAULT.SET")==@false then goto NBWin12Loop
  20.     if winexist("Advisor")==@true then winplace(0,0,@noresize,@noresize,"Advisor")
  21.     goto NBWin12Loop
  22. ;** END LOOP FOR NBWIN 1.2
  23.  
  24. ;** BEGIN LOOP FOR NBWIN 2.0
  25. :NBWin2Loop
  26.     if winexist("Batch Runner - nbwin2.wbt")==@false then exit
  27.     if winexist("Norton Backup - DEFAULT.SET")==@false then goto NBWin2Loop
  28.     if winexist("Advisor")==@true then winplace(0,0,@noresize,@noresize,"Advisor")
  29.     goto NBWin2Loop
  30. ;** END LOOP FOR NBWIN 2.0
  31.  
  32.  
  33.  
  34.