add logic to place screen on window that will fit, don't downsize squeak window

Author: johnmci

platforms/iOS/vm/Common/Classes/sqSqueakAppDelegate.h

@@ -51,6 +51,7 @@ such third-party acknowledgments.
 
 - (void) makeMainWindowOnMainThread ;
 - (void) makeMainWindow;
+- (void) placeMainWindowOnLargerScreenGivenWidth: (sqInt) width height: (sqInt) height;
 - (id) createPossibleWindow;
 - (void) workerThreadStart;
 - (void) singleThreadStart;

platforms/iOS/vm/Common/Classes/sqSqueakAppDelegate.m

@@ -64,6 +64,12 @@ - (void) makeMainWindow {
 	/* get old window size */
 	width  = ((unsigned) getSavedWindowSize()) >> 16;
 	height = getSavedWindowSize() & 0xFFFF;
+    
+    extern sqInt getFullScreenFlag(void);
+    if (!getFullScreenFlag()) {
+        [self placeMainWindowOnLargerScreenGivenWidth: width height: height];
+    }
+    
 	windowBlock = AddWindowBlock();
 	windowBlock->handle =   (__bridge void*) createdWindow;
 	windowBlock->context = nil;
@@ -72,7 +78,7 @@ - (void) makeMainWindow {
 	setSavedWindowSize( (width << 16) |(height & 0xFFFF));
 	windowBlock->width = width;
 	windowBlock->height = height; 	
-	extern sqInt getFullScreenFlag(void);
+
 	ioSetFullScreen(getFullScreenFlag());
 
 }
@@ -89,6 +95,8 @@ - (void) makeMainWindowOnMainThread {};
 
 - (id) createPossibleWindow { return NULL;};
 
+- (void) placeMainWindowOnLargerScreenWidth: (sqInt) width height: (sqInt) height {};
+
 - (void) workerThreadStart {
 	// Run the squeak process in a worker thread
 	squeakThread = [[NSThread alloc] initWithTarget: self.squeakApplication

platforms/iOS/vm/OSX/SqueakOSXAppDelegate.m

@@ -171,6 +171,16 @@ - (id) createPossibleWindow {
     return [self window];
 }
 
+- (void) placeMainWindowOnLargerScreenGivenWidth: (sqInt) width height: (sqInt) height {
+        for (NSScreen *screen in [NSScreen screens]) {
+                CGSize screenSize = screen.visibleFrame.size;
+                if ((height <= screenSize.height) && (width <= screenSize.width)) {
+                    self.window.frameOrigin = screen.visibleFrame.origin;
+                    break;
+                }
+        }
+}
+
 - (BOOL)application:(NSApplication *)theApplication openFile:(NSString *)fileName {
 	if (self.checkForFileNameOnFirstParm == YES) {
 		self.checkForFileNameOnFirstParm = NO;