equal
deleted
inserted
replaced
1297 ! ! |
1297 ! ! |
1298 |
1298 |
1299 !UIPainter methodsFor:'aspects'! |
1299 !UIPainter methodsFor:'aspects'! |
1300 |
1300 |
1301 canStepIn |
1301 canStepIn |
1302 |holder| |
1302 ^ self booleanAspectFor:#canStepIn |
1303 |
1303 |
1304 (holder := builder bindingAt:#canStepIn) isNil ifTrue:[ |
1304 "Modified: 28.7.1997 / 12:41:56 / cg" |
1305 builder aspectAt:#canStepIn put:(holder := false asValue). |
|
1306 ]. |
|
1307 ^ holder |
|
1308 |
|
1309 ! |
1305 ! |
1310 |
1306 |
1311 canStepOut |
1307 canStepOut |
1312 |holder| |
1308 ^ self booleanAspectFor:#canStepOut |
1313 |
1309 |
1314 (holder := builder bindingAt:#canStepOut) isNil ifTrue:[ |
1310 "Modified: 28.7.1997 / 12:42:03 / cg" |
1315 builder aspectAt:#canStepOut put:(holder := false asValue). |
|
1316 ]. |
|
1317 ^ holder |
|
1318 |
|
1319 ! |
1311 ! |
1320 |
1312 |
1321 enableChannel |
1313 enableChannel |
1322 "true if modifications are allowed otherwise running test |
1314 "true if modifications are allowed otherwise running test |
1323 " |
1315 " |
1334 ^ holder |
1326 ^ holder |
1335 |
1327 |
1336 ! |
1328 ! |
1337 |
1329 |
1338 hasSingleSelection |
1330 hasSingleSelection |
1339 |holder| |
1331 ^ self booleanAspectFor:#hasSingleSelection |
1340 |
1332 |
1341 (holder := builder bindingAt:#hasSingleSelection) isNil ifTrue:[ |
1333 "Modified: 28.7.1997 / 12:42:24 / cg" |
1342 builder aspectAt:#hasSingleSelection put:(holder := false asValue). |
|
1343 ]. |
|
1344 ^ holder |
|
1345 |
|
1346 ! |
1334 ! |
1347 |
1335 |
1348 hasValidSelection |
1336 hasValidSelection |
1349 |holder| |
1337 ^ self booleanAspectFor:#hasValidSelection |
1350 |
1338 |
1351 (holder := builder bindingAt:#hasValidSelection) isNil ifTrue:[ |
1339 "Modified: 28.7.1997 / 12:42:30 / cg" |
1352 builder aspectAt:#hasValidSelection put:(holder := false asValue). |
|
1353 ]. |
|
1354 ^ holder |
|
1355 |
|
1356 ! |
1340 ! |
1357 |
1341 |
1358 modifiedChannel |
1342 modifiedChannel |
1359 |
1343 ^ self booleanAspectFor:#modifiedChannel |
1360 |holder| |
1344 |
1361 |
1345 "Modified: 28.7.1997 / 12:42:38 / cg" |
1362 (holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[ |
|
1363 builder aspectAt:#modifiedChannel put:(holder := false asValue). |
|
1364 ]. |
|
1365 ^ holder |
|
1366 ! |
1346 ! |
1367 |
1347 |
1368 noteBookView |
1348 noteBookView |
1369 "automatically generated by UIPainter ..." |
1349 "automatically generated by UIPainter ..." |
1370 |
1350 |