--- a/WindowBuilder.st	Wed Nov 14 12:13:31 2018 +0100
+++ b/WindowBuilder.st	Fri Jun 07 19:57:30 2019 +0100
@@ -1187,27 +1187,30 @@
 "/        (namedComponents notNil and:[namedComponents includesKey:name asSymbol]) ifTrue:[
 "/            Transcript showCR:'WARNING multiple UI-build of: ',name asSymbol
 "/        ].
-	self componentAt:name put:aView.
+        self componentAt:name put:aView.
     ].
     spec addView:aView toMappingOfBuilder:self.
     componentCreationHook notNil ifTrue:[
-	componentCreationHook value:aView value:spec value:self
+        componentCreationHook value:aView value:spec value:self
     ].
 
+    "/ Set UUID
+    aView uuid: spec uuid.  
+
     self isEditing ifFalse:[
-	(createCallBackSelector := spec postBuildCallback) notNil ifTrue:[
-	    app := self application.
-	    app
-		perform:createCallBackSelector
-		withOptionalArgument:aView
-		and:spec
-		and:self.
-	].
+        (createCallBackSelector := spec postBuildCallback) notNil ifTrue:[
+            app := self application.
+            app
+                perform:createCallBackSelector
+                withOptionalArgument:aView
+                and:spec
+                and:self.
+        ].
     ].
 
-    "Modified: / 5.9.1995 / 21:42:54 / claus"
-    "Created: / 31.10.1997 / 18:47:01 / cg"
-    "Modified: / 31.10.1997 / 18:51:22 / cg"
+    "Modified: / 05-09-1995 / 21:42:54 / claus"
+    "Created: / 31-10-1997 / 18:47:01 / cg"
+    "Modified: / 20-05-2019 / 12:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !WindowBuilder methodsFor:'startup'!
@@ -1631,5 +1634,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !