From 4d643a7c3eb8436b9c1d222b874bccf6db8683bc Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 3 Feb 2001 07:54:19 +0000 Subject: [PATCH] Mouse support added to the popups. --- harbour/source/debug/dbgtmenu.prg | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/harbour/source/debug/dbgtmenu.prg b/harbour/source/debug/dbgtmenu.prg index 43fc10f86a..ceca90e0ea 100644 --- a/harbour/source/debug/dbgtmenu.prg +++ b/harbour/source/debug/dbgtmenu.prg @@ -334,7 +334,7 @@ return nil METHOD ProcessKey( nKey ) CLASS TDbMenu - local nPopup + local nPopup, oPopup do case case nKey == K_LBUTTONDOWN @@ -345,6 +345,16 @@ METHOD ProcessKey( nKey ) CLASS TDbMenu ::ShowPopup( nPopup ) endif endif + else + oPopup = ::aItems[ ::nOpenPopup ]:bAction + if ( nPopup := oPopup:GetItemOrdByCoors( MRow(), MCol() ) ) == 0 + ::Close() + else + oPopup:DeHilite() + oPopup:nOpenPopup = nPopup + oPopup:aItems[ nPopup ]:Display( ::cClrHilite, ::cClrHotFocus ) + ::EvalAction() + endif endif case nKey == K_ESC @@ -390,5 +400,4 @@ function __dbgAltToKey( nKey ) K_ALT_S, K_ALT_T, K_ALT_U, K_ALT_V, K_ALT_W, K_ALT_X,; K_ALT_Y, K_ALT_Z }, nKey ) -return iif( nIndex > 0, SubStr( "ABCDEFGHIJKLMNOPQRSTUVWXYZ", nIndex, 1 ), "" ) - +return iif( nIndex > 0, SubStr( "ABCDEFGHIJKLMNOPQRSTUVWXYZ", nIndex, 1 ), "" ) \ No newline at end of file