Fixed Qt's context stealing.

controller.lisp

@@ -188,6 +188,12 @@
   (dolist (scene (loops controller))
     (unpack (resource-pathname "quicksave.sav") scene)))
 
+(defclass acquire-context (event)
+  ())
+
+(define-handler (controller acquire-context) (ev)
+  (acquire-context *main*))
+
 (defclass execute (event)
   ((func :initarg :func :reader func)
    (bindings :initarg :bindings :reader bindings)

editor/editor.lisp

@@ -62,6 +62,7 @@
 
 (define-subwidget (editor game-view) (q+:make-qmdisubwindow editor)
   (setf (q+:widget game-view) main)
+  (setf (parent main) game-view)
   (setf (q+:window-title game-view) "Game View")
   (q+:add-sub-window area game-view))
 

windowing.lisp

@@ -118,3 +118,6 @@
 
 (defmethod height ((object qobject))
   (q+:height object))
+
+(defmethod (setf parent) :after (parent (main main))
+  (issue (scene main) 'acquire-context))