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

Browse Source
This commit is contained in:
Lorenzo Fiorini
2008-01-26 15:53:58 +00:00
parent c85b890109
commit 2d47404bcd
2 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-01-26 17:00 UTC+0100 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
* source/rtl/gtxwc/gtxwc.h
added missed K_SH_keys
2008-01-26 11:00 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* source/pp/Makefile
! Missed modification made after lib name change.

15
harbour/source/rtl/gtxwc/gtxwc.h
View File

@@ -161,6 +161,21 @@ typedef USHORT HB_GT_CELLTYPE;
#define EXKEY_PRTSCR (28 | XWC_EXTKEYMASK)
#define EXKEY_PAUSE (29 | XWC_EXTKEYMASK)
/* xHarbour compatible definitions */
#if !defined( K_SH_LEFT )
#define K_SH_LEFT K_LEFT /* Shift-Left == Left */
#define K_SH_UP K_UP /* Shift-Up == Up */
#define K_SH_RIGHT K_RIGHT /* Shift-Right == Right */
#define K_SH_DOWN K_DOWN /* Shift-Down == Down */
#define K_SH_INS K_INS /* Shift-Ins == Ins */
#define K_SH_DEL K_DEL /* Shift-Del == Del */
#define K_SH_HOME K_HOME /* Shift-Home == Home */
#define K_SH_END K_END /* Shift-End == End */
#define K_SH_PGUP K_PGUP /* Shift-PgUp == PgUp */
#define K_SH_PGDN K_PGDN /* Shift-PgDn == PgDn */
#define K_SH_RETURN K_RETURN /* Shift-Enter == Enter */
#define K_SH_ENTER K_ENTER /* Shift-Enter == Enter */
#endif
#define XWC_STD_MASK ( ExposureMask | StructureNotifyMask | FocusChangeMask | \
ButtonPressMask | ButtonReleaseMask | PointerMotionMask | \