From 8dd98aa4381aed017288a4a6412ff8022b4f99b1 Mon Sep 17 00:00:00 2001 From: Maurilio Longo Date: Fri, 20 Apr 2001 09:10:27 +0000 Subject: [PATCH] 2001-04-20 11:09 GMT+2 Maurilio Longo * source/rtl/memoedit.prg ! fixed handling of K_ALT_W --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/memoedit.prg | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8914c536a8..e8e9f594c4 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-04-20 11:09 GMT+2 Maurilio Longo + * source/rtl/memoedit.prg + ! fixed handling of K_ALT_W + 2001-04-20 10:50 CET Martin Vogel + contrib/libct/charevod.c diff --git a/harbour/source/rtl/memoedit.prg b/harbour/source/rtl/memoedit.prg index c939346eb9..f2f30e6226 100644 --- a/harbour/source/rtl/memoedit.prg +++ b/harbour/source/rtl/memoedit.prg @@ -142,7 +142,8 @@ METHOD Edit() CLASS TMemoEditor case nUserKey == ME_DEFAULT super:Edit(nKey) - case nUserKey >= 1 .AND. nUserKey <= 31 + // TOFIX: Not clipper compatible, see teditor.prg + case (nUserKey >= 1 .AND. nUserKey <= 31) .OR. nUserKey == K_ALT_W super:Edit(nUserKey) case nUserKey == ME_DATA @@ -191,7 +192,8 @@ METHOD KeyboardHook(nKey) CLASS TMemoEditor nUserKey := Do(::xUserFunction, iif(::lDirty, ME_UNKEYX, ME_UNKEY), ::nRow, ::nCol - 1) do case - case nUserKey >= 1 .AND. nUserKey <= 31 + // TOFIX: Not clipper compatible, see teditor.prg + case (nUserKey >= 1 .AND. nUserKey <= 31) .OR. nUserKey == K_ALT_W super:Edit(nUserKey) case nUserKey == ME_DATA