home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0925.lha / DonsGenies / FrenchGenies.lha / Rexx / RestoreGrille.pprx < prev    next >
Text File  |  1993-08-03  |  1KB  |  64 lines
  1. /*
  2. @BRestoreGrille @P @I Ecrit et ⌐ par Don Cox FΘvrier 1993
  3. @IN'est pas du Domaine Publique. Tous Droits RΘservΘs.
  4. Traduit par Fabien Larini le 29/07/93.
  5.  
  6. Ce GΘnie restore les dimensions de la grille α l'aide de la sauvegarde
  7. effectuΘe par des GΘnies comme "GrilleIsomΘtrqiue30"...
  8. */
  9.  
  10. /*GridRestore*/
  11. /* This Genie restores the previous size of the grid from a file in ram: if available.
  12. Written by Don Cox  ⌐ Feb 93 Not public domain. All rights reserved.  */
  13.  
  14.  
  15. signal on error
  16. signal on syntax
  17. address command
  18. call SafeEndEdit.rexx()
  19. call ppm_AutoUpdate(0)
  20. cr="0a"x
  21.  
  22. trace n
  23. currentunits = ppm_GetUnits()
  24.  
  25. gsize = ppm_GetGridSize()
  26. xspacing = 1 /* defaults */
  27. yspacing = 1
  28.  
  29.  
  30. if exists("ram:gridsize") then do
  31.     call open("infile","ram:gridsize")
  32.     gridsize = readln("infile")
  33.     xspacing = word(gridsize,1)
  34.     yspacing = word(gridsize,2)
  35.     end
  36. call ppm_SaveText("ram:gridsize",gsize)
  37. call ppm_SetGridSize(xspacing,yspacing)
  38.  
  39.  
  40. call ppm_SetGrid(1)
  41.  
  42. call ppm_SetGridSnap(1)
  43.  
  44. call exit_msg()
  45.  
  46. end
  47.  
  48. error:
  49. syntax:
  50.     do
  51.     exit_msg("ArrΩt du GΘnie d√ α l'erreur: "errortext(rc))
  52.     end
  53.  
  54. exit_msg:
  55.     do
  56.     parse arg message
  57.     if message ~= "" then
  58.     call ppm_Inform(1,message,)
  59.     call ppm_ClearStatus()
  60.     call ppm_AutoUpdate(1)
  61.     exit
  62.     end
  63.  
  64.