diff --git a/hpage.cabal b/hpage.cabal
--- a/hpage.cabal
+++ b/hpage.cabal
@@ -1,5 +1,5 @@
 name: hpage
-version: 0.5
+version: 0.5.1
 cabal-version: >=1.6
 build-type: Custom
 license: BSD3
diff --git a/src/HPage/GUI/FreeTextWindow.hs b/src/HPage/GUI/FreeTextWindow.hs
--- a/src/HPage/GUI/FreeTextWindow.hs
+++ b/src/HPage/GUI/FreeTextWindow.hs
@@ -310,6 +310,8 @@
                         flip mapM_ mes $ createMenuItem browseMenu
                 menuItem contextMenu [text := "To Clipboard",
                                       on command := addToClipboard mn]
+                menuItem contextMenu [text := "Search on Hayoo!",
+                                      on command := hayooDialog win mn]
                 menuAppendSeparator contextMenu
                 menuAppendSub contextMenu wxId_HASK_BROWSE "&Browse" browseMenu ""
           addToClipboard txt =
@@ -336,9 +338,7 @@
                 menuAppendSub m wxId_HASK_MENUELEM ("class " ++ cn) itemMenu ""
           createMenuItem m HP.MEClass{HP.clsName = cn, HP.clsFuns = cfs} =
             do
-                subMenu <- menuPane []
-                menuItem subMenu [text := "To Clipboard",
-                                  on command := addToClipboard cn]
+                subMenu <- createBasicMenuItem cn
                 menuAppendSeparator subMenu
                 flip mapM_ cfs $ createMenuItem subMenu
                 menuAppendSub m wxId_HASK_MENUELEM ("class " ++ cn) subMenu ""
@@ -348,9 +348,7 @@
                 menuAppendSub m wxId_HASK_MENUELEM ("data " ++ dn) itemMenu ""
           createMenuItem m HP.MEData{HP.datName = dn, HP.datCtors = dcs} =
             do
-                subMenu <- menuPane []
-                menuItem subMenu [text := "To Clipboard",
-                                  on command := addToClipboard dn]
+                subMenu <- createBasicMenuItem dn
                 menuAppendSeparator subMenu
                 flip mapM_ dcs $ createMenuItem subMenu
                 menuAppendSub m wxId_HASK_MENUELEM ("data " ++ dn) subMenu ""