2012-10-15 13:55 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/gtwvg/wvgwin.c
* contrib/hbamf/amfdec.c
* contrib/hbamf/amfenc.c
* contrib/hblzf/core.c
* contrib/hbpgsql/postgres.c
* contrib/hbxdiff/core.c
* contrib/hbzebra/codabar.c
* contrib/hbzebra/code39.c
* contrib/hbzebra/code93.c
* contrib/hbzebra/core.c
* contrib/hbzebra/qrcode.c
* contrib/rddads/ads1.c
! fixed various 64-bit problems revealed by compiler warnings
(used casts, changed variables type, changed Harbour
API functions, please review especially hbamf, hbzebra and gtwvg)
* extras/httpsrv/uhttpd.prg
+ changed to use keyboard events to detect window close,
instead of deprecated and now dummy feature HB_GTI_NOTIFIERBLOCK
This commit is contained in:
@@ -244,8 +244,6 @@ PROCEDURE Main( ... )
|
||||
cGT := HB_GTVERSION()
|
||||
IF cGT == "NUL"
|
||||
lConsole := .F.
|
||||
ELSE
|
||||
hb_gtInfo( HB_GTI_NOTIFIERBLOCK, {| nEvent, ... | GT_notifier( nEvent, ... ) } )
|
||||
ENDIF
|
||||
|
||||
// TOCHECK: now not force case insensitive
|
||||
@@ -574,6 +572,11 @@ PROCEDURE Main( ... )
|
||||
EXIT
|
||||
ENDIF
|
||||
#endif
|
||||
|
||||
IF Inkey( , HB_INKEY_GTEVENT ) == HB_K_CLOSE
|
||||
GT_notifier( HB_K_CLOSE )
|
||||
ENDIF
|
||||
|
||||
IF hb_mutexLock( s_hmtxBusy )
|
||||
IF s_lQuitRequest
|
||||
hb_mutexUnlock( s_hmtxBusy )
|
||||
@@ -2817,7 +2820,7 @@ STATIC FUNCTION GT_notifier( nEvent, xParams )
|
||||
LOCAL nReturn := 0
|
||||
|
||||
DO CASE
|
||||
CASE nEvent == HB_GTE_CLOSE
|
||||
CASE nEvent == HB_K_CLOSE
|
||||
IF hb_mutexLock( s_hmtxBusy )
|
||||
s_lQuitRequest := .T.
|
||||
nReturn := 1
|
||||
|
||||
Reference in New Issue
Block a user