From 52f91ee82389593d0e880be6885adc3eabaa1832 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sat, 15 May 2010 21:27:37 +0000 Subject: [PATCH] 2010-15-15 14:29 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbide/ideedit.prg ! Fixed: copy with Sh+Left was not working ok when employed backward in stream mode. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbide/ideedit.prg | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b6d83e4764..d22e0edbfb 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-15-15 14:29 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbide/ideedit.prg + ! Fixed: copy with Sh+Left was not working ok when employed backward in stream mode. + 2010-05-15 22:21 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * doc/howtosvn.txt * More clearing up. diff --git a/harbour/contrib/hbide/ideedit.prg b/harbour/contrib/hbide/ideedit.prg index 5d768e3f2d..8be33fe3f3 100644 --- a/harbour/contrib/hbide/ideedit.prg +++ b/harbour/contrib/hbide/ideedit.prg @@ -765,10 +765,10 @@ METHOD IdeEdit:copyBlockContents( aCord ) IF nMode == selectionMode_stream IF i == nT .AND. i == nB - cLine := substr( cLine, aCord[ 2 ] + 1, nW ) - ELSEIF i == nT + cLine := substr( cLine, min( aCord[ 2 ], aCord[ 4 ] ) + 1, nW ) + ELSEIF i == aCord[ 1 ] cLine := substr( cLine, aCord[ 2 ] + 1 ) - ELSEIF i == nB + ELSEIF i == aCord[ 3 ] cLine := substr( cLine, 1, aCord[ 4 ] + 1 ) ENDIF