/*
 * $VER: W42PP.brx 1.0
*Written by  Andres Pääbo ©98 paabo@bancom.net
 *
* Arexx program for  WWWworkbench. This one loads selected file *into Personal Paint 7+. The filename was placed in the cliplist by prior *running of W4arexx.brx.*/
 
OPTIONS RESULTS

IF ~SHOW('Ports','PPAINT') THEN DO
	  ADDRESS 'COMMAND'
	  'Run PPAINT:PPAINT NOCHECK'
	  'SYS:RexxC/WaitForPort PPAINT'
	END

Address'PPAINT'
screentofront
Requestnotify 'PROMPT "This script only loads one file "'
filename=getclip('file.'i)
LoadImage '"'filename'" FORCE QUIET'
if rc~=0 then Requestnotify 'PROMPT "Loading failed. Is it a loadable file? "'

EXIT