🚀 go-pugleaf

I have made use of FB_autojustify (Franco Brunetta :franco@uduniv.cineca.it)
along with Hunter Goatley's eve_squish and eve_justify for auto justifying TPU 
text as it is typed.

However when    using   them   I   found   that   with   justification enabled
its behavior   was   erratic   when   the    keystroke    upon RIGHT_MARGIN_
ACTION   was   a  space.  It  would  refuse  to accept the space  and  start 
a  newline  or  would  concatenate   the words around the space and place these
on the new line.

I have edited   the  following  files  to  eradicate  this behaviour.

If this helps anyone let me know,


Richard Coop,
Systems Support,
Imperial Cancer Research Fund,
LONDON 




------------------------------------------------------------------------------
Squish_tpu (Author - Hunter Goatley)
----------

Line 82:

     if current_offset <> length(current_line) then    !If not at end of line
        copy_text (substr("  ",1,numblanks));   ! Copy in the right # of blanks
+    else
+       copy_text(" ");
     endif;                                    !...
   endloop;                                     !Loop...
   hg$set_text_mode (mode);                     !Reset text mode to original
   position (save_pos);                         !Move back to original position
EndProcedure;           !hg$squish_range


FB_Autojustify (Author - Franco Brunetta : franco@uduniv.cineca.it)
--------------

Line 139:

IF beginning_paragraph = mark (NONE)
then
)    eve$message (EVE$_NOFILL);
    position (Previous_position);
    eve$learn_abort;
    return (FALSE);
else
+   move_horizontal(-2);
+   if current_character = " "
+   then
+      copy_text(" ");
+   endif;
+   move_horizontal(+2);
    eve_justify;
    position(Previous_position);
endif;
endprocedure            ! FB_Autojustify
------------------------------------------------------------------------------