MDI child fixes, new on-mdi-activate method

svn: r1019

original commit: 57f609e539a8d758fd27a41f99a5f10402fcd120

collects/mred/private/kernel.ss

@@ -520,6 +520,7 @@
     on-toolbar-click
     on-menu-click
     on-menu-command
+    on-mdi-activate
     enforce-size
     on-close
     on-activate

collects/mred/private/mrtop.ss

@@ -160,6 +160,7 @@
 		       (lambda (e)
 			 (check-instance '(method frame% on-menu-char) wx:key-event% 'key-event% #f e)
 			 (send wx handle-menu-key e)))]
+	[on-mdi-activate (lambda (on?) (void))]
 	[on-toolbar-button-click (lambda () (void))]
 	[create-status-line (entry-point (lambda () (unless status-line? (send wx create-status-line) (set! status-line? #t))))]
 	[set-status-text (lambda (s) (send wx set-status-text s))]

collects/mred/private/wxtop.ss

@@ -628,7 +628,14 @@
 	 [on-toolbar-click 
 	  (entry-point
 	   (lambda ()
-	     (as-exit (lambda () (send (wx->mred this) on-toolbar-button-click)))))])
+	     (as-exit (lambda () (send (wx->mred this) on-toolbar-button-click)))))]
+	 [on-mdi-activate
+	  (entry-point
+	   (lambda (on?)
+	     (let ([mr (wx->mred this)])
+	       (queue-window-callback
+		this
+		(lambda () (send mr on-mdi-activate on?))))))])
        (public
 	 [handle-menu-key
 	  (lambda (event)