equal
deleted
inserted
replaced
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 " |