home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / fish / 911-930 / ff925 / donsgenies / frenchgenies.lha / Rexx / RedimensionneGrille.pprx < prev    next >
Text File  |  1993-08-03  |  1KB  |  56 lines
  1. /*
  2. @B RedimensionneGrille @P @I Ecrit par et © Don Cox
  3. @IN'est pas du Domaine Publique. Tous Droits Réservés.
  4. Traduit par Fabien Larini le 28/07/93.
  5.  
  6. Ce Génie redimensionne la grille en lui appliquant un pourcentage.
  7. */
  8.  
  9. /*GridResize*/
  10. /* This Genie resizes the grid while keeping the same proportions.
  11. Written by Don Cox. Not Public Domain. All rights reserved.    */
  12.  
  13.  
  14. signal on error
  15. signal on syntax
  16. address command
  17. call SafeEndEdit.rexx()
  18. call ppm_AutoUpdate(0)
  19. cr="0a"x
  20.  
  21. currentunits = ppm_GetUnits()
  22. call ppm_SetUnits(2)
  23. gsize = ppm_GetGridSize()
  24. call ppm_SaveText("ram:gridsize",gsize)
  25.  
  26. userinput = ppm_GetUserText(7,"Entrez le Pourcentage de la Taille Courante")
  27. if userinput = "" then exit_msg()
  28. Xsize = word(gsize,1)
  29. Ysize = word(gsize,2)
  30. userinput = userinput/100
  31. Xsize = Xsize*userinput
  32. Ysize = Ysize*userinput
  33. call ppm_SetGridSize(Xsize,Ysize)
  34. call ppm_SetUnits(currentunits)
  35.  
  36. call exit_msg()
  37.  
  38. end
  39.  
  40. error:
  41. syntax:
  42.     do
  43.     exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
  44.     end
  45.  
  46. exit_msg:
  47.     do
  48.     parse arg message
  49.     if message ~= "" then
  50.     call ppm_Inform(1,message,)
  51.     call ppm_ClearStatus()
  52.     call ppm_AutoUpdate(1)
  53.     exit
  54.     end
  55.                               
  56.