Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 29 Oct 1997 20:13:23 +0100
changeset 727 74603345637d
parent 726 cdab756aebe4
child 728 9f417e396d4e
checkin from browser
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- a/WinBuilder.st	Wed Oct 29 17:10:44 1997 +0100
+++ b/WinBuilder.st	Wed Oct 29 20:13:23 1997 +0100
@@ -99,10 +99,16 @@
 
         application notNil ifTrue:[
             Object messageNotUnderstoodSignal handle:[:ex |
+                ex parameter selector == aSymbol ifFalse:[
+                    ex reject
+                ]
             ] do:[
                 ^ application aspectFor:aSymbol
             ].
             Object messageNotUnderstoodSignal handle:[:ex |
+                ex parameter selector == aSymbol ifFalse:[
+                    ex reject
+                ]
             ] do:[
                 ^ application class aspectFor:aSymbol
             ].
@@ -112,7 +118,7 @@
     ].
     ^ nil
 
-    "Modified: / 28.10.1997 / 19:36:41 / cg"
+    "Modified: / 29.10.1997 / 17:26:16 / cg"
 !
 
 aspectAt:aSymbol put:aModel
@@ -809,5 +815,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.52 1997-10-28 18:37:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.53 1997-10-29 19:13:23 cg Exp $'
 ! !
--- a/WindowBuilder.st	Wed Oct 29 17:10:44 1997 +0100
+++ b/WindowBuilder.st	Wed Oct 29 20:13:23 1997 +0100
@@ -99,10 +99,16 @@
 
         application notNil ifTrue:[
             Object messageNotUnderstoodSignal handle:[:ex |
+                ex parameter selector == aSymbol ifFalse:[
+                    ex reject
+                ]
             ] do:[
                 ^ application aspectFor:aSymbol
             ].
             Object messageNotUnderstoodSignal handle:[:ex |
+                ex parameter selector == aSymbol ifFalse:[
+                    ex reject
+                ]
             ] do:[
                 ^ application class aspectFor:aSymbol
             ].
@@ -112,7 +118,7 @@
     ].
     ^ nil
 
-    "Modified: / 28.10.1997 / 19:36:41 / cg"
+    "Modified: / 29.10.1997 / 17:26:16 / cg"
 !
 
 aspectAt:aSymbol put:aModel
@@ -809,5 +815,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.52 1997-10-28 18:37:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.53 1997-10-29 19:13:23 cg Exp $'
 ! !
hg/stx-libview2