home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0925.lha / DonsGenies / FrenchGenies.lha / Rexx / RemplaceBoîtesSurPages.pprx < prev    next >
Text File  |  1993-08-03  |  3KB  |  122 lines
  1. /*
  2. @BRemplaceBoεtesSurPages @P @I Ecrit par et ⌐ Don Cox en mai 1992
  3. @IN'est pas du Domaine Publique. Tous Droits RΘservΘs.
  4. Traduit par Fabien Larini le 24/07/93.
  5.  
  6. Ce GΘnie remplace toute les boεtes α une position donnΘe sur un ensemble
  7. de pages. Il vous demande de sΘlectionner la boεte qui dΘtermine
  8. la position des boεtes α Θchanger et qui sera copiΘe α la place de celles
  9. qui auront le mΩme emplacement au niveau du coin supΘrieur gauche.
  10. Le contenu des boεtes qui sont remplacΘes est perdu.
  11. */
  12.  
  13.  
  14. /*
  15. ReplaceBoxesOnPages
  16.  
  17. This Genie will replace each box at a particular position on a range of pages. You will be prompted to select the box which occurs at a position on the range of pages.
  18. The box you click on will replace all boxes in the page range which are in exactly the same position, as defined by the top left corner.
  19. Written by Don Cox  May '92
  20. */
  21. cr = '0a'x
  22. pageopts = "GCHESDRTESTOUTES"
  23. address command
  24. call SafeEndEdit.rexx()
  25. call ppm_AutoUpdate(0)
  26. counter = 0
  27.  
  28. signal on error
  29. signal on syntax
  30.  
  31.  
  32.  
  33. boxpos  = ppm_GetClickPosition("Clickez dans la Boεte α Copier sur chaque Pages")
  34. originalpage = ppm_CurrentPage()
  35. boxtop  = word(boxpos, 2)
  36. boxleft = word(boxpos, 1)
  37. box = ppm_BoxAtPosn(boxleft, boxtop)
  38. if box  = 0 then exit_msg()
  39.  
  40. if upper(word(ppm_GetBoxInfo(box), 1)) = "TEXTE" & ppm_TextOverFlow(box) then
  41.     text = ppm_GetArticleText(box,1)
  42. else
  43.     text = ''
  44.  
  45.  
  46. docstart = ppm_DocFirstPage()
  47. docend = ppm_DocLastPage()
  48. pages = upper(ppm_GetForm("Sur quelles Pages ?", 20, "De la Page :"docstart'0a'x "A la  Page :"docend'0a'x "GCHES/DRTES/TOUTES"))
  49. if pages = '' then exit_msg()
  50.  
  51. parse var pages startpage '0a'x endpage '0a'x pageopt
  52.  
  53. if (startpage ~= '' & datatype(startpage) ~= NUM) | (endpage ~= '' & datatype(endpage) ~= NUM ) then exit_msg("DonnΘes Invalides")
  54.  
  55. increment = 1
  56.  
  57. /*
  58.  *  Check error conditions
  59.  */
  60. if startpage < docstart then exit_msg('Intervale Incorrect')
  61. else if startpage > docend then exit_msg('Intervale Incorrect')
  62. if endpage < docstart then exit_msg('Intervale Incorrect')
  63. else if endpage > docend then exit_msg('Intervale Incorrect')
  64. if endpage < startpage then exit_msg('Intervale Incorrect')
  65.  
  66. if (pageopt = 'TOUTES' | pageopt = 'T' | pageopts = "") then
  67. do
  68.     increment = 1
  69. end
  70. else if pageopt = 'GCHES' | pageopt = 'G' then
  71. do
  72.     increment   = 2
  73.     if (startpage // 2) then startpage = startpage + 1
  74. end
  75. else if pageopt = 'DRTES' | pageopt = 'D' then
  76. do
  77.     increment   = 2
  78.     if ~(startpage // 2) then startpage = startpage + 1
  79. end
  80.  
  81.  
  82. if startpage > endpage then
  83. do
  84.     temp    = startpage
  85.     startpage   = endpage
  86.     endpage = temp
  87. end
  88.  
  89.  
  90. do page = startpage to endpage by increment
  91. if page ~= originalpage then do
  92.     call ppm_ShowStatus("Travail en cours sur la Page "page)
  93.     deadbox = ppm_BoxAtPosn(boxleft,boxtop,page)
  94.     if deadbox ~= 0 then do
  95.         newbox  = ppm_CloneBox(box, 0, 0)
  96.         call ppm_BoxChangePage(newbox, page)
  97.         if text ~= '' then do
  98.             call ppm_DeleteContents(newbox)
  99.             call ppm_TextIntoBox(newbox, text)
  100.         end
  101.  
  102.         gone = ppm_DeleteBox(deadbox)
  103.     end
  104. end
  105.  
  106. end
  107.  
  108. exit_msg()
  109.  
  110. exit_msg: procedure
  111. do
  112.     parse arg message
  113.  
  114.     if message ~= '' then
  115.         call ppm_Inform(1,message,)
  116.  
  117.     call ppm_ClearStatus()
  118.     call ppm_AutoUpdate(1)
  119.     exit
  120. end
  121.  
  122.