[Fencommits] fenfire-hs: scrolling for prezn view (not ideal)

[Benja Fallenstein]

Thu Mar 15 16:43:55 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * scrolling for prezn view (not ideal)
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-15 16:44:14.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-03-15 16:44:14.000000000 +0200
@@ -136,7 +136,10 @@
     cursor = flip (maybe mempty) selected $ \n -> 
                  showAtKey n $ keyVob (Literal "CURSOR" Plain) $ rectBox mempty
     space = changeSize (const (0, 20)) mempty
-    vob = pad 30 $ vbox $ List.intersperse space $ f 3 node : map (f 2) children
+    vobs = List.intersperse space $ f 3 node : map (f 2) children
+    index = fromMaybe 0 $ selected >>= \n -> List.elemIndex n children
+    y = sum [defaultHeight (vobs !! i) | i <- [0 .. 2 * index - 1]]
+    vob = pad 30 $ translate #0 #(-y) $ vbox $ vobs