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

diff --git a/BUGS b/BUGS
index a3cbddf3297161b3cf72040c3ae501538455c7ce..2756efab083800133be6a8b17880863f0ac58a06 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 eac01d309f1cbd04b948ab70a0a0a074c5071d4e..9f0736233723fe574fc96494ded0145a697ee627 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 "<"