[JVCL-Checkins] CVS: dev/JVCL3/run JvEditor.pas,1.6,1.7

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv11004/JVCL3/run

Modified Files:
	JvEditor.pas 
Log Message:
- Ooops, that one didn't compile :(

Index: JvEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvEditor.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** JvEditor.pas	14 Jul 2003 21:41:53 -0000	1.6
--- JvEditor.pas	14 Jul 2003 21:52:37 -0000	1.7
***************
*** 189,194 ****
      - added BlockOverwrite property
      - added PeristentBlocks
!   2.10.4 (changed by peter3, andreas)
!     - fixed bug where pressing Enter/Return while the completition list is open inserts a line break (andreas)
      - fixed GetNextWordPosEx (andreas)
      - added default popupmenu if none assigned (JvFixedEditPopup)
--- 189,194 ----
      - added BlockOverwrite property
      - added PeristentBlocks
!   2.10.4 (changed by peter3, Andreas Hausladen)
!     - fixed bug where pressing Enter/Return while the completion list is open inserts a line break (andreas)
      - fixed GetNextWordPosEx (andreas)
      - added default popupmenu if none assigned (JvFixedEditPopup)
***************
*** 6373,6382 ****
      else
        Inc(iEnd);
!   Dec(iEnd);                                 // <-- missing line
    if iEnd >= iBeg then
      Result := Copy(Text, iBeg, iEnd - iBeg)
    else
      Result := Text[StartIndex];
- end;
  
   // go right
--- 6373,6381 ----
      else
        Inc(iEnd);
!   Dec(iEnd);                                 
    if iEnd >= iBeg then
      Result := Copy(Text, iBeg, iEnd - iBeg)
    else
      Result := Text[StartIndex];
  
   // go right