home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d925
/
donsgenies.lha
/
DonsGenies
/
FrenchGenies.lha
/
Rexx
/
MargesIdentiques.pprx
< prev
next >
Wrap
Text File
|
1993-08-03
|
1KB
|
71 lines
/*
@BMargesIdentiques @P @I Ecrit et © par Don Cox en Juillet 1992
@IN'est pas du Domaine Publique. Tous Droits Réservés.
Traduit par Fabien Larini le 24/07/93.
Ce Génie égalise les marges de la (des) boîte(s) choisie(s).
*/
/*MarginsAllAround*/
/* This Genie puts an equal margin all round a box.
Written by Don Cox July '92 */
signal on error
signal on syntax
address command
call SafeEndEdit.rexx()
cr="0a"x
CurrentUnits = ppm_GetUnits()
select
when CurrentUnits = 1 then units="inches"
when CurrentUnits = 2 then units="millimètres"
otherwise units ="points"
end
counter=0
do forever
box=ppm_ClickOnBox("Clickez dans les Boîtes Concernées")
if box=0 then break
counter=counter+1
boxes.counter=box
call ppm_SelectBox(box)
end
if counter=0 then exit_msg()
size = ppm_GetUserText(6,"Marges en "units)
if size = "" then exit_msg("Annulé par l'Utilisateur")
if CurrentUnits = 2 then size = size/10 /* mm to cm */
else if CurrentUnits = 3 then size = size/12 /* points to picas */
do i=1 to counter
box=boxes.i
call ppm_SetBoxMargins(box,size,size,size,size)
end
call exit_msg()
end
error:
syntax:
do
exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
end
exit_msg:
do
parse arg message
if message ~= "" then
call ppm_Inform(1,message,)
call ppm_ClearStatus()
call ppm_AutoUpdate(1)
exit
end