diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 157fcde451..c09f2fe8b8 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2002-08-15 17:40 UTC-0300 Luiz Rafael Culik + * source/rtl/memoedit.prg + * When User function is Defined , Make ALT+W key exit the Editing windows if not redefined inside the UDF function + 2002-08-14 14:55 UTC-0300 Horacio Roldan * source/rdd/dbfcdx/dbfcdx1.c ! fixed some warnings diff --git a/harbour/source/rtl/memoedit.prg b/harbour/source/rtl/memoedit.prg index 4850aeb71e..9f4fbc1dd3 100644 --- a/harbour/source/rtl/memoedit.prg +++ b/harbour/source/rtl/memoedit.prg @@ -186,6 +186,9 @@ METHOD HandleUserKey(nKey, nUserKey) CLASS TMemoEditor if nKey <= 256 .AND. AScan(aUnHandledKeys, nKey) == 0 super:Edit(nKey) endif + if nKey == K_ALT_W + super:Edit(nKey) + endif // TOFIX: Not clipper compatible, see teditor.prg case (nUserKey >= 1 .AND. nUserKey <= 31) .OR. nUserKey == K_ALT_W