[Fencommits] fenfire-hs: make property menu items visible and act on current state

[Tuukka Hastrup]

Sun Feb 18 10:40:05 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * make property menu items visible and act on current state
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-02-18 10:40:36.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-02-18 10:40:36.000000000 +0200
@@ -577,9 +577,11 @@
     menu <- menuNew
     flip mapM (fsPropertyList state) $ \prop -> do
         item <- menuItemNewWithLabel (show prop)
-        onActivateLeaf item $ do writeIORef stateRef $ state {fsProperty=prop}
-                                 updateCanvas False
+        onActivateLeaf item $ do 
+            modifyIORef stateRef $ \state' -> state' {fsProperty=prop}
+            updateCanvas False
         menuShellAppend menu item
+        widgetShow item
     menuShellAppend menu =<< separatorMenuItemNew
     item <- actionCreateMenuItem addProp
     menuShellAppend menu $ castToMenuItem item