WinBuilder.st
changeset 473 9ef922391c70
parent 467 8fb5fa11956c
child 475 fd94f2bc8b9e
--- a/WinBuilder.st	Mon Mar 03 11:12:08 1997 +0100
+++ b/WinBuilder.st	Mon Mar 03 11:14:14 1997 +0100
@@ -90,14 +90,16 @@
 aspectAt:aSymbol
     |b|
 
-    bindings notNil ifTrue:[
-        b := bindings at:aSymbol ifAbsent:nil.
-        b notNil ifTrue:[^ b].
-    ].
+    aSymbol notNil ifTrue:[
+        bindings notNil ifTrue:[
+            b := bindings at:aSymbol ifAbsent:nil.
+            b notNil ifTrue:[^ b].
+        ].
 
-    application notNil ifTrue:[
-        Object messageNotUnderstoodSignal catch:[
-            ^ application aspectFor:aSymbol
+        application notNil ifTrue:[
+            Object messageNotUnderstoodSignal catch:[
+                ^ application aspectFor:aSymbol
+            ]
         ]
     ].
     ^ nil
@@ -500,5 +502,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.28 1997-02-28 21:57:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.29 1997-03-03 10:14:14 ca Exp $'
 ! !