                            :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]))


; 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

(load "handler")
(load "menus")

; 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
