 
 ; 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))
+  (.putMapping tmf "text/mpa" "fully.qualified.MpaTokenMaker"))
   
 ; 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]))

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

(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
