diff -r a23d48401446 -r b89142a61d05 WindowBuilder.st
--- a/WindowBuilder.st	Thu Oct 23 15:36:34 1997 +0200
+++ b/WindowBuilder.st	Tue Oct 28 19:37:28 1997 +0100
@@ -14,7 +14,7 @@
 	instanceVariableNames:'window windowView application bindings visuals focusSequence
 		namedComponents helpKeys componentCreationHook applicationClass
 		keyboardProcessor subCanvasSpecs'
-	classVariableNames:''
+	classVariableNames:'StopOnError'
 	poolDictionaries:''
 	category:'Interface-Support-UI'
 !
@@ -99,15 +99,20 @@
 
         application notNil ifTrue:[
             Object messageNotUnderstoodSignal handle:[:ex |
-                Transcript showCR:'not understood: ' , aSymbol.
             ] do:[
                 ^ application aspectFor:aSymbol
-            ]
-        ]
+            ].
+            Object messageNotUnderstoodSignal handle:[:ex |
+            ] do:[
+                ^ application class aspectFor:aSymbol
+            ].
+            Transcript showCR:'WindowBuilder: no aspect for ' , aSymbol storeString.
+            StopOnError == true ifTrue:[self halt].  "/ avoids debugger in end-user apps
+        ].
     ].
     ^ nil
 
-    "Modified: 17.1.1997 / 19:28:32 / cg"
+    "Modified: / 28.10.1997 / 19:36:41 / cg"
 !
 
 aspectAt:aSymbol put:aModel
@@ -430,7 +435,6 @@
 
     application notNil ifTrue:[
         Object messageNotUnderstoodSignal handle:[:ex |
-            Transcript showCR:'not understood: ' , aKey.
         ] do:[
             ^ application actionFor:aKey
         ]
@@ -440,9 +444,14 @@
             ^ applicationClass actionFor:aKey
         ]
     ].
+
+    Transcript showCR:'WindowBuilder: no action for: ' , aKey storeString.
+    StopOnError == true ifTrue:[self halt].  "/ avoids debugger in end-user apps
+
     ^ []
 
-    "Created: 17.1.1997 / 21:08:22 / cg"
+    "Created: / 17.1.1997 / 21:08:22 / cg"
+    "Modified: / 28.10.1997 / 12:52:57 / cg"
 !
 
 actionFor:aKey withValue:aValue
@@ -463,7 +472,6 @@
 
     application notNil ifTrue:[
         Object messageNotUnderstoodSignal handle:[:ex |
-            Transcript showCR:'not understood: ' , aKey.
         ] do:[
             ^ application actionFor:aKey withValue:aValue
         ]
@@ -473,9 +481,14 @@
             ^ applicationClass actionFor:aKey  withValue:aValue
         ]
     ].
+
+    Transcript showCR:'WindowBuilder: no action for: ' , aKey storeString.
+    StopOnError == true ifTrue:[self halt].  "/ avoids debugger in end-user apps
+
     ^ [:dummy | ]
 
-    "Created: 17.1.1997 / 21:08:22 / cg"
+    "Created: / 17.1.1997 / 21:08:22 / cg"
+    "Modified: / 28.10.1997 / 12:53:22 / cg"
 !
 
 aspectFor:aKey
@@ -494,7 +507,6 @@
 
     application notNil ifTrue:[
         Object messageNotUnderstoodSignal handle:[:ex |
-            Transcript showCR:'not understood: ' , aKey.
         ] do:[
             ^ application aspectFor:aKey
         ]
@@ -504,9 +516,11 @@
             ^ applicationClass aspectFor:aKey
         ]
     ].
+
     ^ self aspectAt:aKey
 
-    "Created: 17.1.1997 / 21:06:16 / cg"
+    "Created: / 17.1.1997 / 21:06:16 / cg"
+    "Modified: / 28.10.1997 / 12:53:43 / cg"
 !
 
 componentFor:aKey
@@ -541,7 +555,6 @@
 
     application notNil ifTrue:[
         Object messageNotUnderstoodSignal handle:[:ex |
-            Transcript showCR:'not understood: ' , aKey.
         ] do:[
             ^ application labelFor:aKey
         ]
@@ -551,8 +564,13 @@
             ^ applicationClass labelFor:aKey
         ]
     ].
+
+"/    Transcript showCR:'WindowBuilder: no label for: ' , aKey storeString.
+"/    StopOnError == true ifTrue:[self halt].  "/ avoids debugger in end-user apps
+
     ^ self aspectAt:aKey
 
+    "Modified: / 28.10.1997 / 12:54:10 / cg"
 !
 
 listFor:aKey
@@ -564,7 +582,6 @@
 
     application notNil ifTrue:[
         Object messageNotUnderstoodSignal handle:[:ex |
-            Transcript showCR:'not understood: ' , aKey.
         ] do:[
             ^ application listFor:aKey
         ]
@@ -574,9 +591,14 @@
             ^ applicationClass listFor:aKey
         ]
     ].
+
+"/    Transcript showCR:'WindowBuilder: no list for: ' , aKey storeString.
+"/    StopOnError == true ifTrue:[self halt].  "/ avoids debugger in end-user apps
+
     ^ self aspectAt:aKey
 
-    "Created: 17.1.1997 / 21:08:45 / cg"
+    "Created: / 17.1.1997 / 21:08:45 / cg"
+    "Modified: / 28.10.1997 / 12:54:32 / cg"
 ! !
 
 !WindowBuilder methodsFor:'spec creation callbacks'!
@@ -787,5 +809,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.51 1997-10-23 13:36:34 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.52 1997-10-28 18:37:28 cg Exp $'
 ! !