hpage 0.5 → 0.5.1

raw patch · 2 files changed

+5/−7 lines, 2 files

Files

• hpage.cabal +1/−1
• src/HPage/GUI/FreeTextWindow.hs +4/−6

@@ -1,5 +1,5 @@ name: hpage-version: 0.5+version: 0.5.1 cabal-version: >=1.6 build-type: Custom license: BSD3

@@ -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 ""