--- a/WinBuilder.st	Mon May 12 13:31:54 1997 +0200
+++ b/WinBuilder.st	Tue May 20 09:06:17 1997 +0200
@@ -98,7 +98,9 @@
         ].
 
         application notNil ifTrue:[
-            Object messageNotUnderstoodSignal catch:[
+            Object messageNotUnderstoodSignal handle:[:ex |
+                Transcript showCR:'not understood: ' , aSymbol.
+            ] do:[
                 ^ application aspectFor:aSymbol
             ]
         ]
@@ -305,7 +307,9 @@
     ].
 
     application notNil ifTrue:[
-        Object messageNotUnderstoodSignal catch:[
+        Object messageNotUnderstoodSignal handle:[:ex |
+            Transcript showCR:'not understood: ' , aKey.
+        ] do:[
             ^ application actionFor:aKey
         ]
     ].
@@ -334,7 +338,9 @@
     ].
 
     application notNil ifTrue:[
-        Object messageNotUnderstoodSignal catch:[
+        Object messageNotUnderstoodSignal handle:[:ex |
+            Transcript showCR:'not understood: ' , aKey.
+        ] do:[
             ^ application aspectFor:aKey
         ]
     ].
@@ -358,7 +364,9 @@
     |cls|
 
     application notNil ifTrue:[
-        Object messageNotUnderstoodSignal catch:[
+        Object messageNotUnderstoodSignal handle:[:ex |
+            Transcript showCR:'not understood: ' , aKey.
+        ] do:[
             ^ application componentFor:aKey
         ]
     ].
@@ -381,7 +389,9 @@
     |cls|
 
     application notNil ifTrue:[
-        Object messageNotUnderstoodSignal catch:[
+        Object messageNotUnderstoodSignal handle:[:ex |
+            Transcript showCR:'not understood: ' , aKey.
+        ] do:[
             ^ application labelFor:aKey
         ]
     ].
@@ -402,7 +412,9 @@
      The returned object is typically a list."
 
     application notNil ifTrue:[
-        Object messageNotUnderstoodSignal catch:[
+        Object messageNotUnderstoodSignal handle:[:ex |
+            Transcript showCR:'not understood: ' , aKey.
+        ] do:[
             ^ application listFor:aKey
         ]
     ].
@@ -600,5 +612,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.33 1997-03-27 10:22:06 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.34 1997-05-20 07:06:17 ca Exp $'
 ! !