home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d925
/
donsgenies.lha
/
DonsGenies
/
FrenchGenies.lha
/
Rexx
/
RedimensionneGrille.pprx
< prev
next >
Wrap
Text File
|
1993-08-03
|
1KB
|
56 lines
/*
@B RedimensionneGrille @P @I Ecrit par et © Don Cox
@IN'est pas du Domaine Publique. Tous Droits Réservés.
Traduit par Fabien Larini le 28/07/93.
Ce Génie redimensionne la grille en lui appliquant un pourcentage.
*/
/*GridResize*/
/* This Genie resizes the grid while keeping the same proportions.
Written by Don Cox. Not Public Domain. All rights reserved. */
signal on error
signal on syntax
address command
call SafeEndEdit.rexx()
call ppm_AutoUpdate(0)
cr="0a"x
currentunits = ppm_GetUnits()
call ppm_SetUnits(2)
gsize = ppm_GetGridSize()
call ppm_SaveText("ram:gridsize",gsize)
userinput = ppm_GetUserText(7,"Entrez le Pourcentage de la Taille Courante")
if userinput = "" then exit_msg()
Xsize = word(gsize,1)
Ysize = word(gsize,2)
userinput = userinput/100
Xsize = Xsize*userinput
Ysize = Ysize*userinput
call ppm_SetGridSize(Xsize,Ysize)
call ppm_SetUnits(currentunits)
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