checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 06 Mar 1997 16:18:25 +0100
changeset 497 6544ec670fe0
parent 496 60a1effff295
child 498 a9f922ab2050
checkin from browser
UIBuilder.st
--- a/UIBuilder.st	Thu Mar 06 16:16:38 1997 +0100
+++ b/UIBuilder.st	Thu Mar 06 16:18:25 1997 +0100
@@ -177,7 +177,7 @@
 endComposite
     |entry|
 
-    specStack isEmpty ifFalse:[
+    (specStack notNil and:[specStack notEmpty]) ifTrue:[
         entry := specStack removeLast.
         composite := entry key.
         compositeView := entry value.
@@ -185,7 +185,7 @@
     ^ composite
 
     "Created: 3.3.1997 / 17:17:43 / cg"
-    "Modified: 3.3.1997 / 18:55:16 / cg"
+    "Modified: 6.3.1997 / 16:18:05 / cg"
 !
 
 endCompositeLayout:layout
@@ -259,6 +259,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.22 1997-03-03 21:28:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.23 1997-03-06 15:18:25 cg Exp $'
 ! !
 UIBuilder initialize!