--- a/SubCanvas.st	Mon Jul 18 09:49:07 2011 +0200
+++ b/SubCanvas.st	Mon Jul 18 09:55:19 2011 +0200
@@ -538,15 +538,17 @@
 application
     "return the application, under which this view was opened"
 
-    ^ client ? super application
+    ^ client notNil ifTrue:[ client ] ifFalse:[ super application ]
+
+    "Modified: / 18-07-2011 / 09:55:11 / cg"
 ! !
 
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.67 2011-07-18 07:55:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.67 2011-07-18 07:55:19 cg Exp $'
 ! !