home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / tpp / rexx / showdvilog.tpl < prev    next >
Encoding:
Text File  |  1995-02-27  |  780 b   |  44 lines
  1. /* ShowDVI Logfile - Macro */
  2. /* Kick 2.0 only */
  3.  
  4. options results
  5.  
  6. binary='C:Type'
  7. hailstring='ShowDVI Logfile'
  8.  
  9. address 'TextPlus'
  10.  
  11. fullname = 'T:ShowDVI.log'
  12.  
  13. /* get screen name */
  14. 'GetScreenName'
  15. pub_name = result
  16.  
  17. /* left edge */
  18. 'GetWindowLeftEdge'
  19. le = result
  20. /* top edge */
  21. 'GetWindowTopEdge'
  22. te = result
  23. /* width */
  24. 'GetWindowWidth'
  25. wi = result
  26. /* height */
  27. 'GetWindowHeight'
  28. he = result
  29.  
  30. output = '>"CON:'||le||'/'||te||'/'||wi||'/'||he||'/'||hailstring||'/AUTO/WAIT/ALT/INACTIVE/SCREEN'||pub_name||'"'
  31.  
  32. 'RequestString' hailstring'\\'fullname
  33.  
  34. IF fullname == "" then empty = 'true'
  35.                   else empty = 'false'
  36.  
  37. /* valid filename ? */
  38. if empty = 'false' then do
  39.    address command binary output fullname
  40.    end
  41. else
  42.    'Display' 'ShowDVI Logfile --- Aborted'
  43.  
  44.