PROC writeClip(string) HANDLE
DEF ior=NIL:PTR TO ioclipreq
IF string=NIL
WriteF('No string argument given\n')
RETURN
ENDIF
-> Open clipboard.device unit 0
ior:=cbOpen(0)
cbWriteFTXT(ior, string)
EXCEPT DO
IF ior THEN cbClose(ior)
SELECT exception
CASE "CBWR"; WriteF('Error writing to clipboard: error = \d\n', ior.error)
CASE "CBOP"; WriteF('Error opening clipboard.device\n')
ENDSELECT
ReThrow()
ENDPROC@Hexmage960, post #2
ERROR: array is already address "col_str_hex"
Procedure: writeClip
Line 43: get(str_hex, MUIA_String_Contents, {col_str_hex})@Hexmage960, post #4