ignore nil-specs, as encountered when a specClass
authorClaus Gittinger <cg@exept.de>
Tue, 18 May 1999 21:18:11 +0200
changeset 1127 41253026b070
parent 1126 cb7dc7877dd9
child 1128 69bd579838f7
ignore nil-specs, as encountered when a specClass is not available (MeterWidgets etc.)
UIGalleryView.st
--- a/UIGalleryView.st	Tue May 18 14:20:51 1999 +0200
+++ b/UIGalleryView.st	Tue May 18 21:18:11 1999 +0200
@@ -570,18 +570,20 @@
     |name|
 
     anObject notNil ifTrue:[
-	name := anObject name.
+        name := anObject name.
 
-	specification do:[:aSpec|
-	    aSpec name = name ifTrue:[
-		aSpec canUIDrag ifTrue:[^ aSpec]
-			       ifFalse:[^ nil]
-	    ]
-	]
+        specification do:[:aSpec|
+            aSpec notNil ifTrue:[
+                aSpec name = name ifTrue:[
+                    aSpec canUIDrag ifTrue:[^ aSpec]
+                                   ifFalse:[^ nil]
+                ]
+            ]
+        ]
     ].
     ^ nil
 
-
+    "Modified: / 18.5.1999 / 14:47:25 / cg"
 ! !
 
 !UIGalleryView::Canvas methodsFor:'selection'!