--- a/WindowBuilder.st	Mon Oct 06 17:50:31 2003 +0200
+++ b/WindowBuilder.st	Tue Oct 07 15:38:44 2003 +0200
@@ -707,8 +707,7 @@
 
 aspectNotFound:anAspect error:aString
     "show error message on transcript (if Verbose is true)
-     and/or stop (if StopOnError) is true.
-    "
+     and/or stop (if StopOnError) is true"
 
     Verbose == true ifTrue:[
         Transcript showCR:('WindowBuilder: %1 aspect: <%2>' bindWith:aString with:anAspect storeString).
@@ -718,7 +717,7 @@
     ].
 
     StopOnError == true ifTrue:[
-        self halt:'aspect not found'        "/ avoids debugger in end-user apps
+        self halt:'aspect not found'        "/ set StopOnError to true to debug end-user apps
     ].
     ^ nil
 
@@ -1343,7 +1342,7 @@
     "
      if ST-80 supports more types - these may be added later
     "
-    self halt:'unimplemented'
+    self shouldImplement
 
     "Created: / 14.2.1997 / 20:22:24 / cg"
     "Modified: / 18.6.1998 / 19:10:07 / cg"
@@ -1352,5 +1351,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.110 2003-05-13 16:11:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.111 2003-10-07 13:38:44 stefan Exp $'
 ! !