# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 927055091 -7200
# Node ID 41253026b070d700813df8e53dcbe8cae3a96591
# Parent  cb7dc7877dd95b38a06539e6c8556676e3a2372e
ignore nil-specs, as encountered when a specClass
is not available (MeterWidgets etc.)

diff -r cb7dc7877dd9 -r 41253026b070 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'!