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 / 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.