 (load "handler")
 (load "menus")
 
-; final window building
+; project file tree
+(def test-tree
+  (Node. "Project_1" (list
+                       (Node. "Formel_1" "a&b")
+                       (Node. "Formel_2" "a->b"))))
+
+(def tree-model
+  (simple-tree-model
+    #(.getChildren %)
+    #(.getChildren %)
+    test-tree))
+
 (def form-tree (scrollable (tree
                              :id :tree
                              :model tree-model


; register own editor parser for highlighting
(let [tmf (TokenMakerFactory/getDefaultInstance)]
  (.putMapping tmf "text/mpa" "fully.qualified.MpaTokenMaker"))

(def test-tree
  (Node. "Project_1" (list
                       (Node. "Formel_1" "a&b")
                       (Node. "Formel_2" "a->b"))))

; tree-model
(def tree-model
  (simple-tree-model
    #(.getChildren %)
    #(.getChildren %)
    test-tree))
  
; result handling
; this must be placed here, so it can be accessed from handler.clj

                           :preferred-size [255 :by 600]
                           :maximum-size [255 :by 32000]))

; final window building
(def editor (syntax/text-area :syntax :mpa))
(def form-editor (scrollable editor
                             :preferred-size [690 :by 400]))
