home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Windows Tools / SOS-WIN_TOOLS.ISO / programm / divers / wb_41e / default.wb_ < prev    next >
Encoding:
Text File  |  1993-08-25  |  1.3 KB  |  39 lines
  1. ; DEFAULT.WBT
  2. ; Whne WinBatch is executed without any parameters, it attempts to locate
  3. ; and execute this DEFAULT.WBT file.
  4.  
  5. ActWin=WinGetActive()                  ;Get currently active Window
  6. VerWB=Version()                        ;Get Version numbers for title
  7. VerDLL=VersionDLL()
  8.  
  9. EditFormat=`WWWDLGED,4.0`              ;Define file selection dialog box
  10. EditCaption=`Edit File`
  11. EditX=80
  12. EditY=40
  13. EditWidth=150
  14. EditHeight=170
  15. EditNumControls=7
  16. Edit01=`5,3,40,DEFAULT,STATICTEXT,DEFAULT,"&Directory:"`
  17. Edit02=`42,3,100,DEFAULT,VARYTEXT,editfile,""`
  18. Edit03=`5,30,40,DEFAULT,STATICTEXT,DEFAULT,"&File:"`
  19. Edit04=`5,43,80,125,FILELISTBOX,editfile,DEFAULT`
  20. Edit05=`95,114,44,DEFAULT,PUSHBUTTON,DEFAULT,"&Run",1`
  21. Edit06=`95,130,44,DEFAULT,PUSHBUTTON,DEFAULT,"&View",2`
  22. Edit07=`91,151,52,DEFAULT,PUSHBUTTON,DEFAULT,"&Cancel",0`
  23.  
  24. :showdlg
  25. editfile = "*.WBT"
  26. retval = Dialog("Edit")
  27.  
  28. WinActivate(ActWin)                    ;Activate original Window
  29.  
  30. if editfile=="" then display(4,"Error","No file selected" )
  31.                 then goto showdlg       ;Gee, nothing was selected
  32. if (retval==1 && editfile!="DEFAULT.WBT") then call(editfile,"")                         ;And call our little file
  33. if retval==2 then runzoomwait("browser.exe",editfile)
  34. goto showdlg
  35.  
  36. :cancel
  37. display(4,"Exiting","Default.wbt")
  38. Exit                                   ;Bye Bye
  39.