UIObjectView.st
changeset 96 73725336b4fe
parent 95 c20189d75ec3
child 99 25a9fd61400c
equal deleted inserted replaced
95:c20189d75ec3 96:73725336b4fe
  1345 !
  1345 !
  1346 
  1346 
  1347 canPasteInto:something
  1347 canPasteInto:something
  1348     "can paste into something ?
  1348     "can paste into something ?
  1349     "
  1349     "
       
  1350 
       
  1351     |theView theSpec|
       
  1352 
  1350     something notNil ifTrue:[
  1353     something notNil ifTrue:[
  1351         something isCollection ifFalse:[
  1354         something isCollection ifFalse:[
  1352             ^ something specClass supportsSubComponents
  1355             theView := something
  1353         ].
  1356         ] ifTrue:[
  1354         something size == 1 ifTrue:[
  1357             something size == 1 ifTrue:[
  1355             ^ (something at:1) specClass supportsSubComponents
  1358                 theView := (something at:1)
       
  1359             ]
       
  1360         ].
       
  1361         theView notNil ifTrue:[
       
  1362             theSpec := self specFor:theView.
       
  1363             theSpec isNil ifTrue:[
       
  1364                 self halt.
       
  1365             ].
       
  1366             ^ theSpec class supportsSubComponents
  1356         ]
  1367         ]
  1357     ].
  1368     ].
  1358     ^ false
  1369     ^ false
       
  1370 
       
  1371     "Modified: 8.4.1997 / 01:08:06 / cg"
  1359 !
  1372 !
  1360 
  1373 
  1361 canSelect:something
  1374 canSelect:something
  1362     "returns true if something can be selected and testMode is disabled
  1375     "returns true if something can be selected and testMode is disabled
  1363     "
  1376     "