;GUI for PeelNewTools
;Works only with WB 3.x
;You need
;EndCLI, Requestfile, Requestchoice, IconX and Delete
;located in C:
;@Michael Hartmann, Marktstr. 16, 87730 Grönenbach, 30.03.1996
; (+ some changes by Erik Østlyngen, Trondheim, 13.04.96)

LAB start
;choose Single or Recursive
C:Requestchoice >env:Loperat "PeelNewTools""Choose:""Single""Recursive""Quit"
;Variables for Requestchoice
IF $Loperat eq "0"
skip Cancel
ENDIF
IF $Loperat eq "2"
skip Recursive
ENDIF
IF $Loperat eq "1"
skip Single
ENDIF
C:endcli
ENDIF

;call the Single version
LAB Single
;ask for path
C:Requestfile >env:Xfilename TITLE "Choose path" PATTERN #?.info MULTISELECT
PeelNewTools $Xfilename L
DELETE ENV:Xfilename ALL QUIET
DELETE ENV:Loperat ALL QUIET

skip start back
;call the Recursive version
LAB Recursive
;ask for path
C:Requestfile >env:Xfilename TITLE "Choose path" DRAWERSONLY
PeelNewTools $Xfilename R L
DELETE ENV:Xfilename ALL QUIET
DELETE ENV:Loperat ALL QUIET

skip start back
;call the Cancel version
LAB Cancel
C:endcli

;END