/*
	$VER: Mark.sfrx 1.0 (11.3.00) Copyright (c) Nils Görs.

This is an Arexx-Script for DirScanner

This script need the rexxreqtools.library
*/

options results

PARSE ARG DSPort
IF DSPort = "" THEN DSPort = DIRSCANNER.1
address value DSPort

   IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
      IF ~ADDLIB('rexxreqtools.library',9,-30,0) THEN
         quit('Cannot open rexxreqtools.library!',10)

varname = 'dsFilterpat.' || dsport

pattern = GETCLIP(Varname)
IF pattern = "" THEN pattern = "*"

DSScreen = "Workbench"

SET LOCKGUI 1
Pattern = rtgetstring(Pattern,"Select Pattern",sfport,"_Ok|_All|Non_e|_Cancel","rt_pubscrname="DSScreen)
Gadget = rtresult
SET LOCKGUI 0

IF pattern = "" THEN EXIT

say gadget
SELECT
	WHEN Gadget = 0 THEN EXIT
	WHEN Gadget = 1 THEN 'SELECT Pattern'
	WHEN Gadget = 2 THEN 'SELECT ALL'
	WHEN Gadget = 3 THEN 'UNSELECT ALL'
	OTHERWISE
END
CALL SETCLIP(Varname,Pattern)