UIBuilder.st
changeset 4331 8ce1534313cc
parent 3944 4d859e0633c6
--- 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