# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1404412698 -7200
# Node ID 75b4e99a3384ed87ba522752d31e022c642fd963
# Parent  021889add6270180a35411434c129c2a7dcd5d3f
class: AbstractLauncherApplication
added: #viewSelectAndShrink

diff -r 021889add627 -r 75b4e99a3384 AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Thu Jul 03 18:09:39 2014 +0200
+++ b/AbstractLauncherApplication.st	Thu Jul 03 20:38:18 2014 +0200
@@ -2460,6 +2460,20 @@
     ]
 !
 
+viewSelectAndShrink
+    "let user pick a view and shrink it to a reasonable size
+     Added for stupid mac, to get windows back onto the screen,
+     which have their resize handle hidden."
+
+    |v|
+
+    (v := self pickAView) notNil ifTrue:[
+        v topView 
+            origin:50@50 extent:200@200;
+            raise
+    ]
+!
+
 widgetHardcopy
     "after a second (to allow redraw of views under menu ...),
      let user specify a widget and save its contents."
@@ -6964,14 +6978,14 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.462 2014-06-23 08:59:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.463 2014-07-03 18:38:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.462 2014-06-23 08:59:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.463 2014-07-03 18:38:18 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractLauncherApplication.st,v 1.462 2014-06-23 08:59:50 cg Exp $'
+    ^ '$Id: AbstractLauncherApplication.st,v 1.463 2014-07-03 18:38:18 cg Exp $'
 ! !