home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0925.lha / DonsGenies / FrenchGenies.lha / Rexx / BoîteEnAvant.pprx < prev    next >
Text File  |  1993-08-03  |  3KB  |  89 lines
  1. /*
  2. @BBoεteEnAvant @P @I Ecrit et ⌐ par Don Cox
  3. @IN'est pas du Domaine Publique. Tous Droits RΘservΘs.
  4. Traduit par Fabien Larini le 22/07/93.
  5.  
  6. Ce GΘnie permet de mettre une boεte en avant en la sΘlectionnant dans une
  7. liste de boεtes. Pratique dans des constructions complexes ou les boεtes
  8. se recouvrent les unes les autres.*/
  9.  
  10. /* Box to Front
  11. Select a box by name or number and bring it to the front. Useful in complex layouts where there are several boxes on top of each other.
  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_ShowStatus("Liste les Boεtes ...")
  24. thispage = ppm_CurrentPage()
  25. totalboxes = ppm_NumBoxes(thispage)
  26. list = ""
  27. box = ppm_PageFirstBox(thispage)
  28. do i = 1 to totalboxes
  29.     number = right(ppm_BoxNum(box),4," ")
  30.     info = ppm_GetBoxInfo(box)
  31.     boxtype = word(info,1)
  32.     boxname = ppm_GetBoxName(box)
  33.     select
  34.         when upper(boxtype) = "TEXTE" then do
  35.             boxtext = ppm_GetBoxText(box,0)
  36.             shorttext = substr(boxtext,1,15)
  37.             if boxname = "" then boxname = shorttext
  38.             end
  39.         when upper(boxtype) = "BITMAP" then do
  40.             filename = word(info,5)
  41.             filename = substr(filename, lastpos("/",filename)+1)
  42.             if boxname = "" then boxname = filename
  43.             end
  44.         when upper(boxtype) = "EPSF" then do
  45.             filename = word(info,3)
  46.             filename = substr(filename, lastpos("/",filename)+1)
  47.             if boxname = "" then boxname = filename
  48.             end
  49.         when upper(boxtype) = "CLIP" then do
  50.             objects = "Clip, "||word(info,2)||" objets"
  51.             if boxname = "" then boxname = objects
  52.             end
  53.         when upper(boxtype) = "VECTORIS╔" then do
  54.             objects = "Aegis, "||word(info,2)||" objets"
  55.             if word(info,2)=1 then objects = "Aegis, 1 object"
  56.             if boxname = "" then boxname = objects
  57.             end
  58.         when upper(boxtype) = "VIDE" then do
  59.            if boxname = "" then boxname = "Vide"
  60.            end
  61.         otherwise boxname = "Type de Boεte Inconnu"
  62.     end
  63.     boxtype = substr(boxtype,1,1)
  64.     list = list||number" "boxtype" "boxname||cr
  65.     box = ppm_PageNextBox(box)
  66.     end
  67.  
  68. call ppm_ClearStatus()
  69. chosen = ppm_SelectFromList("SΘlectionnez une Boεte...",35,18,0,list)
  70. box = ppm_SelectBox(word(chosen,1))
  71. call ppm_BoxToFront(box)
  72. exit_msg()
  73.  
  74. error:
  75. syntax:
  76.     do
  77.     exit_msg("ArrΩt du GΘnie d√ α l'erreur: "errortext(rc))
  78.     end
  79.  
  80. exit_msg:
  81.     do
  82.     parse arg message
  83.     if message ~= "" then
  84.     call ppm_Inform(1,message,)
  85.     call ppm_ClearStatus()
  86.     call ppm_AutoUpdate(1)
  87.     exit
  88.     end
  89.