fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-10-11 09:05 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/ideedit.prg
    ! Fixed: a small glitch in copy operation.
      When two lines were copied, where last line was blank,
      paste operation was inserting one more blank line.
This commit is contained in:
Pritpal Bedi
2010-10-11 16:08:23 +00:00
parent 142341d434
commit 15d2907bac
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-10-11 09:05 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/ideedit.prg
! Fixed: a small glitch in copy operation.
When two lines were copied, where last line was blank,
paste operation was inserting one more blank line.
2010-10-10 22:32 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtcore/hbqt_hbqslots.cpp
* contrib/hbqt/qtcore/hbqt_hbqslots.h

8
harbour/contrib/hbide/ideedit.prg
View File

@@ -858,7 +858,7 @@ STATIC FUNCTION hbide_qCursorDownInsert( qCursor )
/*----------------------------------------------------------------------*/
METHOD IdeEdit:copyBlockContents( aCord )
LOCAL nT, nL, nB, nR, nW, i, cLine, nMode, qClip, oLine
LOCAL nT, nL, nB, nR, nW, i, cLine, nMode, qClip
LOCAL cClip := ""
HB_TRACE( HB_TR_DEBUG, "IdeEdit:copyBlockContents( aCord )" )
@@ -871,7 +871,9 @@ METHOD IdeEdit:copyBlockContents( aCord )
nW := nR - nL
FOR i := nT TO nB
cLine := ::getLine( i + 1 )
oLine := cLine
cLine := strtran( cLine, chr( 13 ) )
cLine := strtran( cLine, chr( 10 ) )
IF nMode == selectionMode_stream
IF aCord[ 1 ] > aCord[ 3 ] // Selection - bottom to top
IF i == nT .AND. i == nB
@@ -900,7 +902,7 @@ METHOD IdeEdit:copyBlockContents( aCord )
ENDIF
aadd( ::aBlockCopyContents, cLine )
cClip += cLine + iif( nT == nB, "", iif( i < nB, hb_eol(), iif( cLine == oLine, hb_eol(), "" ) ) )
cClip += cLine + iif( nT == nB, "", iif( i < nB, hb_eol(), "" ) )
NEXT
hbide_blockContents( { nMode, ::aBlockCopyContents } )