home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. CD ROM (Annual Premium Edition)
/
premium.zip
/
premium
/
WINUTIL2
/
WB_41E.ZIP
/
DEFAULT.WB_
< prev
next >
Wrap
Text File
|
1993-08-25
|
1KB
|
39 lines
; DEFAULT.WBT
; Whne WinBatch is executed without any parameters, it attempts to locate
; and execute this DEFAULT.WBT file.
ActWin=WinGetActive() ;Get currently active Window
VerWB=Version() ;Get Version numbers for title
VerDLL=VersionDLL()
EditFormat=`WWWDLGED,4.0` ;Define file selection dialog box
EditCaption=`Edit File`
EditX=80
EditY=40
EditWidth=150
EditHeight=170
EditNumControls=7
Edit01=`5,3,40,DEFAULT,STATICTEXT,DEFAULT,"&Directory:"`
Edit02=`42,3,100,DEFAULT,VARYTEXT,editfile,""`
Edit03=`5,30,40,DEFAULT,STATICTEXT,DEFAULT,"&File:"`
Edit04=`5,43,80,125,FILELISTBOX,editfile,DEFAULT`
Edit05=`95,114,44,DEFAULT,PUSHBUTTON,DEFAULT,"&Run",1`
Edit06=`95,130,44,DEFAULT,PUSHBUTTON,DEFAULT,"&View",2`
Edit07=`91,151,52,DEFAULT,PUSHBUTTON,DEFAULT,"&Cancel",0`
:showdlg
editfile = "*.WBT"
retval = Dialog("Edit")
WinActivate(ActWin) ;Activate original Window
if editfile=="" then display(4,"Error","No file selected" )
then goto showdlg ;Gee, nothing was selected
if (retval==1 && editfile!="DEFAULT.WBT") then call(editfile,"") ;And call our little file
if retval==2 then runzoomwait("browser.exe",editfile)
goto showdlg
:cancel
display(4,"Exiting","Default.wbt")
Exit ;Bye Bye