Implement simple indenting in selection menu

src/Dodge/Data/DoubleTree.hs

@@ -17,9 +17,24 @@ data DoubleTreeNodeType
     | DTMidBelowNode
     | DTBottomNode
 
+-- for each child, records the link type to the father node
+data LabelDoubleTreeNodeType a
+    = LDTRootNode
+    | LDTTopNode a
+    | LDTMidAboveNode a
+    | LDTMidBelowNode a
+    | LDTBottomNode a
+
 data DoubleTree a = DT {_dtValue :: a,_dtLeft :: [DoubleTree a],_dtRight :: [DoubleTree a]}
     deriving (Eq,Ord,Show,Read)
 
+--data FLatLabelDoubleTreeNode b a = FLDT
+--    {_fldtValue :: a
+--    ,_fldtType :: 
+--    ,_fldtIndentation :: Int
+--    ,_fldtID :: Int
+--    ,_fldtChildren = 
+
 data LabelDoubleTree b a = LDT {_ldtValue :: a, _ldtLeft :: [(b,LabelDoubleTree b a)]
         ,_ldtRight :: [(b,LabelDoubleTree b a)]}
     deriving (Eq,Ord,Show,Read)