/* Auto saving, © R.Florac, Version 2.00e, 3 Mars 1998 */

port = address()
options results
signal ON error

cr = '0a'x

sauver_auto=getclip(sauvegarde.port)
if sauver_auto=1 then do	    /* is the script allready running? */
    a=setclip(sauvegarde.port,"")
    'MESSAGE("Automatic saving"+CHR(10)+"interrupted.")'
    exit
end

if ~show('l', 'rexxsupport.library') then
do
    if ~addlib('rexxsupport.library',0,-30,0) then do
	'MESSAGE("Install rexxsupport.library"+CHR(10)+"in your libs: drawer"+CHR(10)+"before using this script")'
	exit	/* version 1.02 */
    end
end

a=setclip(sauvegarde.port,1)
'MESSAGE("An automatic saving"+CHR(10)+"all two minutes will be"+CHR(10)+"done if the contents of the"+CHR(10)+"current window has been modified."+CHR(10)+"Run this script again"+CHR(10)+"to stop his execution.")'

do forever			/* Loop never ending */
    call delay(6000)            /* Two minutes delay */
    if ~show(p, port) then goto error
    sauver_auto = getclip(sauvegarde.port)
    if sauver_auto=1 then do
	'MODIF(-1)'
	if result=1 THEN 'MENU("Save")'
    end
    else
	exit
end

error:
    a=setclip(sauvegarde.port,"")
    exit