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

2001-04-20 11:09 GMT+2 Maurilio Longo <maurilio.longo@libero.it>

Browse Source 
* source/rtl/memoedit.prg
     ! fixed handling of K_ALT_W
This commit is contained in:
Maurilio Longo
2001-04-20 09:10:27 +00:00
parent 71dca700b4
commit 8dd98aa438
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-04-20 11:09 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/memoedit.prg
! fixed handling of K_ALT_W
2001-04-20 10:50 CET Martin Vogel <vogel@inttec.de>
+ contrib/libct/charevod.c

6
harbour/source/rtl/memoedit.prg
View File

@@ -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