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.
nil aspect
authorca
Mon, 03 Mar 1997 11:14:14 +0100
changeset 473 9ef922391c70
parent 472 40eaf3d339c9
child 474 c337e7ad2220
nil aspect
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- a/WindowBuilder.st	Mon Mar 03 11:12:08 1997 +0100
+++ b/WindowBuilder.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/WindowBuilder.st,v 1.28 1997-02-28 21:57:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.29 1997-03-03 10:14:14 ca Exp $'
 ! !
hg/stx-libview2