don't make a modally run window the main window

AppKit/CPApplication.j

@@ -507,7 +507,8 @@ CPRunContinuesResponse  = -1002;
     var theWindow = aModalSession._window;
 
     [theWindow center];
-    [theWindow makeKeyAndOrderFront:self];
+    [theWindow makeKeyWindow];
+    [theWindow orderFront:self];
 
 //    [theWindow._bridge _obscureWindowsBelowModalWindow];
 

Tests/AppKit/CPApplicationTest.j

@@ -0,0 +1,24 @@
+@import <AppKit/CPApplication.j>
+@import <AppKit/CPWindow.j>
+
+@implementation CPApplicationTest : OJTestCase
+{
+}
+
+- (void)setUp
+{
+    // This sets up the CPApp convenience variable, the unit tests fails
+    // if this is not done, because the framework internally uses CPApp.
+    [CPApplication sharedApplication]
+}
+
+- (void)testRunModalForWindow
+{
+    var aWindow = [[CPWindow alloc] init];
+    [[CPApplication sharedApplication] runModalForWindow:aWindow];
+
+    [self assertTrue:[aWindow isKeyWindow] message:@"A window must be made key when it's run modally"];
+    [self assertFalse:[aWindow isMainWindow] message:@"A window must not become the main window when it's run modally"];
+}
+
+@end