equal
deleted
inserted
replaced
1359 ] |
1359 ] |
1360 ]. |
1360 ]. |
1361 theView notNil ifTrue:[ |
1361 theView notNil ifTrue:[ |
1362 theSpec := self specFor:theView. |
1362 theSpec := self specFor:theView. |
1363 theSpec isNil ifTrue:[ |
1363 theSpec isNil ifTrue:[ |
1364 self halt. |
1364 ^ theView specClass supportsSubComponents |
1365 ]. |
1365 ]. |
1366 ^ theSpec class supportsSubComponents |
1366 ^ theSpec class supportsSubComponents |
1367 ] |
1367 ] |
1368 ]. |
1368 ]. |
1369 ^ false |
1369 ^ false |
1370 |
1370 |
1371 "Modified: 8.4.1997 / 01:08:06 / cg" |
1371 "Modified: 8.4.1997 / 01:19:14 / cg" |
1372 ! |
1372 ! |
1373 |
1373 |
1374 canSelect:something |
1374 canSelect:something |
1375 "returns true if something can be selected and testMode is disabled |
1375 "returns true if something can be selected and testMode is disabled |
1376 " |
1376 " |