--- a/UIBuilder.st Sat Aug 17 22:14:11 2019 +0200
+++ b/UIBuilder.st Sun Aug 25 14:53:36 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -323,6 +325,8 @@
!UIBuilder methodsFor:'building-programatically'!
add:aSpec
+ "ATTN: this adds a spec but returns the created view"
+
|collectedComponents appWinClass|
composite notNil ifTrue:[
@@ -430,6 +434,7 @@
"/ start creating a new one ...
newComposite := CompositeSpecCollection new.
newComposite compositeSpec:(CompositeSpec new).
+ "ATTN: here, add returns the created view"
compositeView := self add:newComposite.
composite := newComposite.
^ compositeView