From 6aa9e8bb086745384204ef89a174909ff44ad6dc Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 14 Apr 2007 10:00:39 +0000 Subject: [PATCH] 2007-04-14 11:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * harbour/source/debug/dbgtarr.prg ! Fixed unclosed #if construct. Question: What does HB_NO_READDBG do? * harbour/source/rtl/tget.prg ! Removed :Assign() call from :UpdateBuffer() to close the functionality to CA-Cl*pper. --- harbour/ChangeLog | 9 +++++++++ harbour/source/debug/dbgtarr.prg | 4 +++- harbour/source/rtl/tget.prg | 7 ------- 3 files changed, 12 insertions(+), 8 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 808aeb29dc..fc0822d311 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,15 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-04-14 11:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * harbour/source/debug/dbgtarr.prg + ! Fixed unclosed #if construct. + Question: What does HB_NO_READDBG do? + + * harbour/source/rtl/tget.prg + ! Removed :Assign() call from :UpdateBuffer() to close + the functionality to CA-Cl*pper. + 2007-04-13 19:05 UTC+0200 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com) * harbour/include/Makefile ! added install of hbcompat.ch diff --git a/harbour/source/debug/dbgtarr.prg b/harbour/source/debug/dbgtarr.prg index 9a27f061d0..c5ed93f278 100644 --- a/harbour/source/debug/dbgtarr.prg +++ b/harbour/source/debug/dbgtarr.prg @@ -313,7 +313,9 @@ METHOD doGet( oBro, pItem, nSet ) Class TDBGArray HB_SYMBOL_UNUSED( pItem ) HB_SYMBOL_UNUSED( nSet ) -RETURN nil +#endif + +RETURN nil function __DbgArrays( aArray, cArrayName, lEditable ) diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg index 53e01b2ea5..4ac30e2983 100644 --- a/harbour/source/rtl/tget.prg +++ b/harbour/source/rtl/tget.prg @@ -372,15 +372,8 @@ return Self METHOD UpdateBuffer() CLASS Get if ::hasFocus - ::buffer := ::PutMask() - - IF ::lEdit - ::Assign() - ENDIF - ::Display() - endif return Self