--- a/.emacs-my	Tue Sep 28 23:44:56 2010 +0300
+++ b/.emacs-my	Wed Sep 29 23:35:21 2010 +0300
@@ -95,9 +95,10 @@
 (when window-system
   (defun my-popup-menu ()
     (interactive)
-    (popup-menu
-     (mouse-menu-bar-map) ;; (mouse-menu-major-mode-map)
-     (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))))
+    (mouse-popup-menubar
+     (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))
+     nil)
+    )
   (global-set-key [f10] 'my-popup-menu)
   (global-set-key [apps] 'my-popup-menu)
   (when (>= emacs-major-version 22) (tooltip-mode -1))