diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d9ae0cefde..c6d5ba6874 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,16 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-08-06 22:30 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * harbour/source/rtl/achoice.prg
+    + Implemented mouse operations as follows.
+      CASE ( nKey == K_MWFORWARD )
+         Keyboard( Chr( K_UP ) )
+      CASE ( nKey == K_MWBACKWARD )
+         Keyboard( Chr( K_DOWN ) )
+      CASE nKey == K_LDBLCLK
+         Keyboard( Chr( K_ENTER ) )
+
 2008-08-07 05:05 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbdefs.h
     ! fixed default printf length modifier for long long integer values
diff --git a/harbour/source/rtl/achoice.prg b/harbour/source/rtl/achoice.prg
index 0d9080c5e0..8f8a8c64f5 100644
--- a/harbour/source/rtl/achoice.prg
+++ b/harbour/source/rtl/achoice.prg
@@ -110,7 +110,7 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo
    DO WHILE !lFinished
 
       IF nMode != AC_GOTO .AND. nMode != AC_NOITEM
-         nKey  := Inkey( 0 )
+         nKey  := Inkey( 0 ) 
          nMode := AC_IDLE
       ENDIF
 
@@ -159,6 +159,15 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo
          nPos      := 0
          lFinished := .T.
 
+      CASE ( nKey == K_MWFORWARD )
+         Keyboard( Chr( K_UP ) )
+
+      CASE ( nKey == K_MWBACKWARD )
+         Keyboard( Chr( K_DOWN ) )
+
+      CASE nKey == K_LDBLCLK
+         Keyboard( Chr( K_ENTER ) )
+
       CASE nKey == K_UP
 
          IF nPos == nFrstItem