[Fencommits] fenfire-hs: use property's text in prop menu when available

[Benja Fallenstein]

Sun Feb 18 11:06:36 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * use property's text in prop menu when available
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-02-18 11:06:49.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-02-18 11:06:49.000000000 +0200
@@ -37,7 +37,7 @@
 import qualified Data.List
 import Data.Set (Set)
 import Data.IORef
-import Data.Maybe (fromJust, isJust, isNothing, catMaybes)
+import Data.Maybe (fromMaybe, fromJust, isJust, isNothing, catMaybes)
 import Data.Monoid(Monoid(mempty, mconcat), Dual(Dual), getDual)
 
 import Control.Applicative
@@ -572,11 +572,13 @@
     
 updatePropMenu propmenu actionGroup stateRef updateCanvas = do
     state <- readIORef stateRef
+    let Rotation graph _ _ = fsRotation state
     Just addProp <- actionGroupGetAction actionGroup "addprop"
                 
     menu <- menuNew
     flip mapM (fsPropertyList state) $ \prop -> do
-        item <- menuItemNewWithLabel (show prop)
+        let text = getText graph prop
+        item <- menuItemNewWithLabel $ fromMaybe (show prop) text
         onActivateLeaf item $ do 
             modifyIORef stateRef $ \state' -> state' {fsProperty=prop}
             updateCanvas False