diff -r 40eaf3d339c9 -r 9ef922391c70 WinBuilder.st --- 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 $' ! !