--- a/UIObjectView.st Tue Apr 08 00:47:25 1997 +0200
+++ b/UIObjectView.st Tue Apr 08 01:09:51 1997 +0200
@@ -1347,15 +1347,28 @@
canPasteInto:something
"can paste into something ?
"
+
+ |theView theSpec|
+
something notNil ifTrue:[
something isCollection ifFalse:[
- ^ something specClass supportsSubComponents
+ theView := something
+ ] ifTrue:[
+ something size == 1 ifTrue:[
+ theView := (something at:1)
+ ]
].
- something size == 1 ifTrue:[
- ^ (something at:1) specClass supportsSubComponents
+ theView notNil ifTrue:[
+ theSpec := self specFor:theView.
+ theSpec isNil ifTrue:[
+ self halt.
+ ].
+ ^ theSpec class supportsSubComponents
]
].
^ false
+
+ "Modified: 8.4.1997 / 01:08:06 / cg"
!
canSelect:something