home *** CD-ROM | disk | FTP | other *** search
/ Windoware / WINDOWARE_1_6.iso / winutil / wspcr20 / wsrun.wbt < prev   
Text File  |  1991-09-25  |  2KB  |  59 lines
  1. ; --- WSRUN.WBT - an NDW Batch Builder file to restore a named workspace.
  2. ;    WorkSpacer 2.0 ⌐ 1991 - WiGuys Software
  3.  
  4. Call ( "wsglobal.wbt", "" )
  5. If FileSize ( spacelib ) != 0 Then GoTo Start
  6. Message ( wsver, "The Library is empty. You must create a WorkSpace first." )
  7. Return
  8.  
  9. ; --- TextBox "menu" of existing workspace names for user selection
  10.  
  11. :Start
  12. grpname = TextBox ( "%wsver% WorkSpace Selector", spacelib )
  13. If StrICmp ( grpname, nul ) == 0 Then GoTo Start
  14.  
  15. ; --- Read the workspace data from the ini file for the current application
  16.  
  17. :IniData
  18. key1 = "App%count%"
  19. filename = IniReadPvt ( grpname, key1, nul, "wspacer.ini" )
  20. If StrICmp ( filename, nul ) == 0 Then GoTo EndWBT
  21. key2 = "Status%count%"
  22. key3 = "Load%count%"
  23. key4 = "Pos%count%"
  24. key5 = "Win%count%"
  25. status = IniReadPvt ( grpname, key2, "Normal", "wspacer.ini" )
  26. loadname = IniReadPvt ( grpname, key3, nul, "wspacer.ini" )
  27. currpos = IniReadPvt ( grpname, key4, nul, "wspacer.ini" )
  28. currwind = IniReadPvt ( grpname, key5, nul, "wspacer.ini" )
  29. If StrICmp ( loadname, "?" ) == 0 Then GoTo GetFile
  30.  
  31. ; --- Load the current application based on the data retrieved from the
  32. ;     ini file, then get the data for the next application
  33.  
  34. :LoadApp
  35. RunHide ( filename, loadname )
  36. WinPlace ( %currpos%, currwind )
  37. IF StrICmp ( status, "Icon" ) == 0 Then WinIconize ( currwind )
  38. WinShow ( currwind )
  39. count = count + 1
  40. GoTo IniData
  41.  
  42. :EndWBT
  43. appcount = count - 1
  44. If !appcount == 0 Then Message ( wsver, "Your workspace (%appcount% applications) has been restored." )
  45. Return
  46.  
  47. :GetFile
  48. DirChange ("c:\")
  49. gFile = "*.*"
  50.  
  51. :FileLoop
  52. DialogBox ( "%wsver% RunTime Load Selector", "wsfile2.wbd" )
  53. If StrICmp ( gFile, nul ) == 0 Then GoTo FileLoop
  54. dir = DirGet ()
  55. loadname = StrCat ( dir, gFile )
  56. PathTrue = FileLocate ( loadname )
  57. If StrICmp ( PathTrue, nul ) == 0 Then GoTo FileLoop
  58. GoTo LoadApp
  59.