Mouse support added to the popups.

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 ), "" )