2010-05-15 14:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* src/rtl/gtwvt/gtwvt.c ! Internal change slipped into prev.
2010-05-15 12:03:46 +00:00
parent b0c5f58a09
commit 348c736aa1
2 changed files with 4 additions and 2 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
   past entries belonging to author(s): Viktor Szakats.
 */

+2010-05-15 14:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * src/rtl/gtwvt/gtwvt.c
+    ! Internal change slipped into prev.
+
 2010-05-15 13:55 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
  * include/inkey.ch
    + Added new special GT events (over existing HB_K_RESIZE):
--- a/harbour/src/rtl/gtwvt/gtwvt.c
+++ b/harbour/src/rtl/gtwvt/gtwvt.c
@@ -1676,7 +1676,6 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara

      case WM_CLOSE:  /* Clicked 'X' on system menu */
         hb_gt_wvt_AddCharToInputQueue( pWVT, HB_K_CLOSE );
-/*
         if( hb_gt_wvt_FireEvent( pWVT, HB_GTE_CLOSE ) == 0 )
         {
            PHB_ITEM pItem = hb_itemPutL( NULL, HB_TRUE );
@@ -1684,7 +1683,6 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara
            hb_itemRelease( pItem );
            hb_vmRequestCancel();
         }
-*/
         return 0;

      case WM_QUIT: