diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 5236a8c65e..81d4ea417d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2011-01-10 22:35 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/src/rtl/gtgui/gtgui.c + * use MB_ABORTRETRYIGNORE instead of MB_RETRYCANCEL only when defined + by default and program is executed in W2K or newer Windows version + 2011-01-10 20:27 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbformat/utils/hbformat.prg * contrib/hbformat/hbformat.prg diff --git a/harbour/src/rtl/gtgui/gtgui.c b/harbour/src/rtl/gtgui/gtgui.c index bae8781e64..3834b4c600 100644 --- a/harbour/src/rtl/gtgui/gtgui.c +++ b/harbour/src/rtl/gtgui/gtgui.c @@ -154,12 +154,16 @@ static int hb_gt_gui_optionPos( int id, int iType, PHB_ITEM pOptions ) case IDNO: iButton = 0x0020; break; +#ifdef IDTRYAGAIN case IDTRYAGAIN: iButton = 0x0004; break; +#endif +#ifdef IDCONTINUE case IDCONTINUE: iButton = 0x0008; break; +#endif } if( iButton ) { @@ -202,7 +206,11 @@ static int hb_gt_gui_Alert( PHB_GT pGT, PHB_ITEM pMessage, PHB_ITEM pOptions, uType = MB_RETRYCANCEL; break; case 0x0E: - uType = MB_CANCELTRYCONTINUE; +#ifdef MB_CANCELTRYCONTINUE + uType = hb_iswin2k() ? MB_CANCELTRYCONTINUE : MB_ABORTRETRYIGNORE; +#else + uType = MB_ABORTRETRYIGNORE; +#endif break; case 0x12: uType = MB_OKCANCEL;