# HG changeset patch
# User ca
# Date 1257415800 -3600
# Node ID d786c6dba0a45f0ce9c133f4efc4bbd34396d517
# Parent  81fa525dcfa7f2654ccc2426e29e68845d57bddb
changed: #client:spec:builder:  check on unspecified application

diff -r 81fa525dcfa7 -r d786c6dba0a4 SubCanvas.st
--- a/SubCanvas.st	Wed Nov 04 10:56:52 2009 +0100
+++ b/SubCanvas.st	Thu Nov 05 11:10:00 2009 +0100
@@ -95,7 +95,10 @@
     ].
 
     (builder := aBuilder) isNil ifTrue:[
-        builder := anApplication perform:#builder ifNotUnderstood:[UIBuilder new]
+        anApplication notNil ifTrue:[
+            builder := anApplication perform:#builder ifNotUnderstood:[ nil ]
+        ].
+        builder isNil ifTrue:[ builder := UIBuilder new ].
     ].
 
     spec := aWindowSpecOrSpecSymbol.
@@ -541,5 +544,9 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.65 2008-10-20 14:47:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $'
 ! !