home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 5 / amigaformatcd05.iso / readerstuff / c.partridge / amigatable / usingwithfinalwriter / amigatable.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-08-13  |  1.4 KB  |  74 lines
  1. /*
  2.  
  3. AmigaTable v1.2
  4. (C)1996 SceptreSoft
  5.  
  6. This is an UNREGISTERED VERSION of the macro
  7. This is freely distributable, providing it is not changed in any way.
  8.  
  9. See AmigaTable.Guide for futher details...
  10.  
  11. */
  12.  
  13. Options Results
  14. Status Page
  15. PaNum = Result
  16. Status View
  17. VSize = Result
  18. Status ScrollPos; parse var result ScrollX ScrollY
  19. Status LinePos; parse var result BegLine BegPosition EndLine EndPosition
  20. Bee=""
  21. If EndLine="" then do
  22. Showmessage 1 1 '"There Is No Text Selected" "Click OK To Load/Create a table" "or CANCEL to abandon." " OK " " CANCEL " ""'
  23. Choice = Result
  24. Bee="k"
  25. If Choice=2 then do
  26. Exit
  27. End
  28. If Choice=1 then do
  29. Address Command "delete clips:#?"
  30. End
  31. End
  32. If Bee="" then do
  33. MoveToLine Endline endposition
  34. Newparagraph
  35. Type "End"
  36. MoveToLine Begline 0
  37. ShiftDown
  38. MoveToLine (Endline+1) 3
  39. ShiftUp
  40. Copy
  41. End
  42. Address Command "AmigaTable:Amigatable"
  43.  
  44. ScreenToFront
  45. WinToFront
  46.  
  47. If exists("clips:exp.iff") then do
  48.  
  49. Cut
  50. View 40
  51.  
  52. InsertImage "CLIPS:Exp.iff"
  53. ID = RESULT
  54.  
  55. ObjectToFront 0
  56. SetObjectParams 0 TEXTFLOW RightVert FILL Transparent LINKED No DISPLAY Full
  57. GetObjectCoords 0; parse var result pg xc yc wid hgt
  58. width=(wid*0.85)
  59. height=(hgt1.2)
  60. RequestText '"Table Width (ruler units)" "How wide would you like your table?" ""'
  61. width=result
  62. If Result="" THEN do
  63. width=wid
  64. end
  65. RequestText '"Table Height (ruler units)" "How high would you like your table?" ""'
  66. height=result
  67. If Result="" THEN do
  68. Height=hgt
  69. end
  70. SetObjectCoOrds 0 Pg xc yc Width Height
  71. View VSize
  72. ReDraw
  73.  
  74. End