home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0925.lha / DonsGenies / FrenchGenies.lha / Rexx / GroupeToutesLesBoîtes.pprx < prev    next >
Text File  |  1993-08-03  |  1KB  |  50 lines
  1. /*@BGroupeToutesLesBoεtes @P @I Ecrit par et ⌐ Don Cox
  2. @IN'est pas du Domaine Publique. Tous Droits RΘservΘs.
  3. Traduit par Fabien Larini le 17/07/93.
  4.  
  5. Ce GΘnie permet de grouper les boεtes de la page courante. Ainsi vous
  6. pouvez dΘplacer l'ensemble en appuyant sur Shift ou bien appliquer un
  7. GΘnie de groupe.
  8. */
  9.  
  10. /*BoxesGroupAll*/
  11. /* Group all the boxes on the current page. Then you can hold down the shift key and move them all at once, or apply any of the group genies.
  12. Written by Don Cox */
  13.  
  14. trace n
  15. signal on error
  16. signal on syntax
  17. call ppm_AutoUpdate(0)
  18. cr = "0a"x
  19.  
  20. address command
  21. call SafeEndEdit.rexx()
  22.  
  23. call ppm_NewGroup()
  24. call ppm_ShowStatus("Groupe les Boεtes ...")
  25. thispage = ppm_CurrentPage()
  26. totalboxes = ppm_NumBoxes(thispage)
  27. box = ppm_PageFirstBox(thispage)
  28. do i = 1 to totalboxes
  29.     call ppm_AddToGroup(box)
  30.     box = ppm_PageNextBox(box)
  31.     end
  32.  
  33. exit_msg("Appuyez sur Shift pour dΘplacer le groupe")
  34.  
  35. error:
  36. syntax:
  37.     do
  38.     exit_msg("ArrΩt du GΘnie d√ α l'erreur: "errortext(rc))
  39.     end
  40.  
  41. exit_msg:
  42.     do
  43.     parse arg message
  44.     if message ~= "" then
  45.     call ppm_Inform(1,message,)
  46.     call ppm_ClearStatus()
  47.     call ppm_AutoUpdate(1)
  48.     exit
  49.     end
  50.