[Fencommits] fenfire-hs: add goto to file menu

[Tuukka Hastrup]

Thu Mar 15 19:29:52 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * add goto to file menu
diff -rN -u old-fenfire-hs/Fenfire/Main.hs new-fenfire-hs/Fenfire/Main.hs
--- old-fenfire-hs/Fenfire/Main.hs	2007-03-15 19:30:09.000000000 +0200
+++ new-fenfire-hs/Fenfire/Main.hs	2007-03-15 19:30:09.000000000 +0200
@@ -389,6 +389,8 @@
                stockAdd           , Just "<Ctl>P"         )
             , ("changeIRI", Just "Change node's _IRI"       ,
                stockRefresh       , Just "u"              )
+            , ( "goto"  , Just "_Go to IRI"                 ,
+               stockJumpTo        , Just "g"              )
             ]
     forM bindingentries $ \(name,label',stock,accel) -> do 
         action <- actionNew name label' Nothing (Just stock)
@@ -396,7 +398,7 @@
         actionSetAccelGroup action bindings
 
 makeMenus actionGroup root propmenu = addAll root menu where
-    menu = [m "_File" [a "new", a "open", a "loadIRI", sep,
+    menu = [m "_File" [a "new", a "open", a "goto", a "loadIRI", sep,
                        a "save", a "saveas", a "revert", sep,
                        a "quit"],
             m "_Edit" [a "undo", a "redo", sep,