;GUI for LowUp by Franck Aniere
;Works with WB 3.x
;You need
;EndCLI, Requestfile, Requestchoice, IconX and Delete
;located in C:.
;LowUp an LowUp_GUI must be in the same drawer.

;© Michael Hartmann, Marktstr. 16, 87730 Grönenbach, 30.03.1996


LAB start
;choose Low, Up or Cancel
C:Requestchoice >env:Loperat "LowUp by Franck Aniere""LowUp allows you to rename a file.*nIt changes its name to upper case or*nlower case, and non-upper/lower case*nletters are left unchanged.*n*nPlease Choose:""Lower case""Upper case""Cancel"
;Variables for Requestchoice
IF $Loperat eq "0"
skip Cancel
ENDIF
IF $Loperat eq "2"
skip Up
ENDIF
IF $Loperat eq "1"
skip Low
ENDIF
C:endcli
ENDIF

;call the Low version
LAB Low
;ask for file
C:Requestfile >env:Xfilename TITLE "Choose file:"
LowUp -low $Xfilename
DELETE ENV:Xfilename ALL QUIET
DELETE ENV:Loperat ALL QUIET
C:endcli

;call the Up version
LAB Up
;ask for file
C:Requestfile >env:Xfilename TITLE "Choose file:"
LowUp -up $Xfilename
DELETE ENV:Xfilename ALL QUIET
DELETE ENV:Loperat ALL QUIET
C:endcli


skip start
;call the Cancel version
LAB Cancel
DELETE ENV:Loperat ALL QUIET
C:endcli

;END