home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / vmsnet / tpu / 601 < prev    next >
Encoding:
Internet Message Format  |  1993-01-22  |  2.2 KB
  1. Path: sparky!uunet!pipex!warwick!doc.ic.ac.uk!dapsun.lif.icnet.uk!icrf.icnet.uk!r_coop
  2. From: r_coop@icrf.icnet.uk
  3. Newsgroups: vmsnet.tpu
  4. Subject: Changes to FB_autojustify/Squish_tpu
  5. Date: 22 Jan 93 13:27:52 GMT
  6. Organization: Imperial Cancer Research Fund, London, UK
  7. Lines: 65
  8. Message-ID: <1993Jan22.132752.1@icrf.icnet.uk>
  9. NNTP-Posting-Host: bonnie.lif.icnet.uk
  10.  
  11.  
  12. I have made use of FB_autojustify (Franco Brunetta :franco@uduniv.cineca.it)
  13. along with Hunter Goatley's eve_squish and eve_justify for auto justifying TPU 
  14. text as it is typed.
  15.  
  16. However when    using   them   I   found   that   with   justification enabled
  17. its behavior   was   erratic   when   the    keystroke    upon RIGHT_MARGIN_
  18. ACTION   was   a  space.  It  would  refuse  to accept the space  and  start 
  19. a  newline  or  would  concatenate   the words around the space and place these
  20. on the new line.
  21.  
  22. I have edited   the  following  files  to  eradicate  this behaviour.
  23.  
  24. If this helps anyone let me know,
  25.  
  26.  
  27. Richard Coop,
  28. Systems Support,
  29. Imperial Cancer Research Fund,
  30. LONDON 
  31.  
  32.  
  33.  
  34.  
  35. ------------------------------------------------------------------------------
  36. Squish_tpu (Author - Hunter Goatley)
  37. ----------
  38.  
  39. Line 82:
  40.  
  41.      if current_offset <> length(current_line) then    !If not at end of line
  42.         copy_text (substr("  ",1,numblanks));   ! Copy in the right # of blanks
  43. +    else
  44. +       copy_text(" ");
  45.      endif;                                    !...
  46.    endloop;                                     !Loop...
  47.    hg$set_text_mode (mode);                     !Reset text mode to original
  48.    position (save_pos);                         !Move back to original position
  49. EndProcedure;           !hg$squish_range
  50.  
  51.  
  52. FB_Autojustify (Author - Franco Brunetta : franco@uduniv.cineca.it)
  53. --------------
  54.  
  55. Line 139:
  56.  
  57. IF beginning_paragraph = mark (NONE)
  58. then
  59. )    eve$message (EVE$_NOFILL);
  60.     position (Previous_position);
  61.     eve$learn_abort;
  62.     return (FALSE);
  63. else
  64. +   move_horizontal(-2);
  65. +   if current_character = " "
  66. +   then
  67. +      copy_text(" ");
  68. +   endif;
  69. +   move_horizontal(+2);
  70.     eve_justify;
  71.     position(Previous_position);
  72. endif;
  73. endprocedure            ! FB_Autojustify
  74. ------------------------------------------------------------------------------
  75.  
  76.