--- a/WindowBuilder.st	Thu Aug 17 11:57:41 2000 +0200
+++ b/WindowBuilder.st	Fri Aug 18 14:11:18 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview2' }"
+
 Object subclass:#WindowBuilder
 	instanceVariableNames:'window application bindings visuals labels focusSequence
 		namedComponents helpKeys componentCreationHook applicationClass
@@ -680,20 +682,18 @@
     "
 
     Verbose == true ifTrue:[
-        Transcript showCR:('WindowBuilder: %1 aspect: <%2>'
-                           bindWith:aString with:anAspect storeString).
+        Transcript showCR:('WindowBuilder: %1 aspect: <%2>' bindWith:aString with:anAspect storeString).
         application notNil ifTrue:[
-             Transcript showCR:('WindowBuilder: (while building for %1)' 
-                                  bindWith:application class name).
+             Transcript showCR:('WindowBuilder: (while building for %1)' bindWith:application class name).
         ].
     ].
 
     StopOnError == true ifTrue:[
-        self halt                       "/ avoids debugger in end-user apps
+        self halt:'aspect not found'        "/ avoids debugger in end-user apps
     ].
     ^ nil
 
-    "Modified: / 4.8.1998 / 19:38:56 / cg"
+    "Modified: / 18.8.2000 / 14:10:59 / cg"
 ! !
 
 !WindowBuilder methodsFor:'message sending'!
@@ -1265,5 +1265,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.89 2000-02-23 21:30:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.90 2000-08-18 12:11:18 cg Exp $'
 ! !