The GUI now has two windows. But somehow there is an error-message.

diff --git a/BUGS b/BUGS
index a3cbddf..2756efa 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -1,3 +1,5 @@
+2009/08/20 starting the level-editor produces an error.
+
 2009/04/09 Setting the Animation of Jumping doesnt always work correct
 
 2009/04/10 Random numeric type-errors

diff --git a/leveleditor.lisp b/leveleditor.lisp
index eac01d3..9f07362 100644 (file)
--- a/leveleditor.lisp
+++ b/leveleditor.lisp
@@ -71,9 +71,9 @@ form (x y object)."
           (current-upper-left (cons 0 0))
           (current-chosen-object 'uxul)
           (objects-and-arrows (make-instance 'ltk:frame))
+          (grid-frame (make-instance 'ltk:toplevel))
           (object-frame (make-instance 'ltk:frame :master objects-and-arrows))
           (arrow-frame (make-instance 'ltk:frame :master objects-and-arrows))
-          (grid-frame (make-instance 'ltk:frame))
           (right-button (make-instance 'ltk:button :text ">"
                                        :master arrow-frame))
           (left-button (make-instance 'ltk:button :text "<"