/* Script for some common localized messages in AmiPCB,
   especially for the toolbars
   Version 1.01, 19-May-2002, by A. Greve

   $VER: _Messages.rexx 1.01, © A.Greve 19-May-2002
*******************************************************/

PARSE ARG arg1
arg1h = UPPER(arg1)

lf = '0a'x
fr = 'ARexx/initVars.AmiPCB'()
sc = 'Script »_Messages.rexx« :'lf||lf

SELECT
    WHEN arg1 = "" THEN DO
	SELECT
	    WHEN fr=1 THEN 'MESSAGE("'sc'Argument manquant !")'
	    WHEN fr=2 THEN 'MESSAGE("'sc'Fehlendes Argument !")'
	    OTHERWISE	   'MESSAGE("'sc'Argument missing !")'
	END
    END

    /* Area of defined arguments starts here ************************/

    WHEN arg1h = "NO OBJECT IS SELECTED" THEN DO
	SELECT
	    WHEN fr=1 THEN 'MESSAGE("Aucun objet n''est sélectionné")'
	    WHEN fr=2 THEN 'MESSAGE("Es ist kein Objekt ausgewählt")'
	    OTHERWISE	   'MESSAGE("No object is selected")'
	END
    END
    WHEN arg1h = "THE DOCUMENT HAS BEEN CHANGED !" THEN DO
	SELECT
	    WHEN fr=1 THEN msg = "ATTENTION !"lf"Le document a été modifié !"lf"Voulez-vous quand-même le fermer ?"
	    WHEN fr=2 THEN msg = "ACHTUNG !"lf"Das Dokument wurde verändert !"lf"Wollen Sie trotzdem beenden ?"
	    OTHERWISE	   msg = "ATTENTION !"lf"The document has been changed !"lf"Do you want to close anyway ?"
	END
	'IF(REQUEST("'msg'")==1,CLOSE(0),0)'
    END

    /* Area of defined arguments ends here **************************/

    OTHERWISE 'MESSAGE("'arg1'")'
END