SimpleView.st
changeset 4515 ecbf26955b5b
parent 4502 b062d9b588e8
child 4516 d17fa135d9a3
--- a/SimpleView.st	Tue Mar 14 18:22:08 2006 +0100
+++ b/SimpleView.st	Wed Mar 15 11:43:51 2006 +0100
@@ -1463,6 +1463,10 @@
     "Modified: 6.3.1997 / 15:17:31 / cg"
 !
 
+invalidateRectangle:aRectangle repairNow:doRepairNow
+    self invalidate:aRectangle repairNow:doRepairNow
+!
+
 isEnabled
     "return true, if this view is enabled (i.e. accepts user interaction).
      Most views are enabled - only a few (buttons, SelectionInList etc.) can
@@ -1581,7 +1585,12 @@
     masterApp := anApplication perform:#masterApplication ifNotUnderstood:[isApplicationModel := false. nil].
     thisApp := builder application.
     (isApplicationModel and:[anApplication ~~ thisApp]) ifTrue:[
-        masterApp ~~ thisApp ifTrue:[self error:'should not happen'].
+        masterApp ~~ thisApp ifTrue:[
+            self error:'should not happen' mayProceed:true.
+            masterApp isNil ifTrue:[
+                anApplication masterApplication:thisApp.    
+            ].
+        ].
 
         builder application:anApplication.
         savedView := builder window.
@@ -9743,7 +9752,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.545 2006-02-24 12:58:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.546 2006-03-15 10:43:51 cg Exp $'
 ! !
 
 SimpleView initialize!