/**
 Copy and cut files with Ctrl-C
 Version:        1.0
 Author:         Joakim Nordström
 Date:           2009-12-06
 */

ADDRESS workbench
OPTIONS RESULTS

GETATTR WINDOWS STEM WINDOW
GETATTR windows STEM window.active

IF window.active = '' THEN EXIT

temp = var num_selected = 0
temp = var name_selected = '';
temp = var selected;
temp = var selectedfiles = "apap";
temp = var dir_divider = "/";

GETATTR OBJECT WINDOW.ICONS.SELECTED.COUNT NAME '"'||window.active||'"' VAR num_selected

IF num_selected = 0 THEN EXIT

IF RIGHT(window.active, 1) = ':' THEN
	dir_divider = ""
ELSE
	dir_divider = "/"

/** Create the command to "send" to Paste.rexx.
 Starts with magic word "COPYFILES, and then
 the directory we're copying from. */
selectedfiles = "COPYFILES,'"||window.active||"',"

/** Go through each selected icon. */
do i = 0 to num_selected-1
  GETATTR OBJECT WINDOW.ICONS.SELECTED.i NAME '"'||window.active||'"' STEM selected
  IF EXISTS(''window.active''dir_divider''selected.name'') = 1 THEN
  	selectedfiles = selectedfiles'"'window.active''dir_divider''selected.name'" '

  IF EXISTS(''window.active''dir_divider''selected.name'.info') = 1 THEN
  	selectedfiles = selectedfiles'"'window.active''dir_divider''selected.name'.info" '
END
/** Set clip that Paste.rexx reads from */
temp = SETCLIP("COPYFILES", selectedfiles)