--- a/.emacs-my	Mon Jul 26 00:59:46 2010 +0300
+++ b/.emacs-my	Mon Jul 26 01:04:55 2010 +0300
@@ -92,6 +92,12 @@
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (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)))))
+  (global-set-key [f10] 'my-popup-menu)
   (when (>= emacs-major-version 22) (tooltip-mode -1))
   (scroll-bar-mode 1)
   )