[Fencommits] fenfire-hs: using 'p' to cycle through properties doesn't seem to have turned out to be particularly useful; instead, make it revert to rdfs_seeAlso

[Benja Fallenstein]

Sun Feb 18 13:05:03 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * using 'p' to cycle through properties doesn't seem to have turned out to be particularly useful; instead, make it revert to rdfs_seeAlso
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-02-18 13:05:15.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-02-18 13:05:15.000000000 +0200
@@ -474,7 +474,7 @@
         x | x == "Left"  || x == "j"     -> handleAction "left"
         x | x == "Right" || x == "l"     -> handleAction "right"
         "v" -> handleAction "chgview"
-        "p" -> handleAction "chgprop"
+        "p" -> handleAction "resetprop"
         "O" -> handleAction "open"
         "S" -> do (fp',saved) <- liftIO $ saveFile rot fileName False
                   let modified' = fsGraphModified state && not saved
@@ -487,7 +487,7 @@
 handleAction action = do
     state@(FenState { fsRotation = rot@(Rotation graph node r), fsMark = mark, 
                       fsFilePath = filepath, fsGraphModified = modified,
-                      fsHasFocus=focus, fsProperty=prop, fsPropertyList=props
+                      fsHasFocus=focus, fsProperty=prop
                     }) <- get
     let m f x = maybeDo (f rot x) putRotation
         b f x = maybeDo (f rot x) $ \rot' -> do 
@@ -533,10 +533,8 @@
         "chgview" -> do put $ state { fsView = (fsView state + 1) `mod` 
                                                (length ?views) }
                         setInterp True
-        "chgprop" -> do let i = fromJust $ Data.List.findIndex (==prop) props
-                            prop' = props !! ((i+1) `mod` length props)
-                        liftIO $ putStrLn $ "Prop changed to: " ++ show prop'
-                        put $ state { fsProperty = prop' }
+        "resetprop" -> when (fsProperty state /= rdfs_seeAlso) $
+                           put $ state { fsProperty = rdfs_seeAlso }
         _       -> unhandledEvent
   where putRotation rot = do modify $ \state -> state { fsRotation=rot, 
                                                         fsGraphModified=True }