equal
deleted
inserted
replaced
307 "Created: / 4.7.1999 / 15:15:15 / cg" |
307 "Created: / 4.7.1999 / 15:15:15 / cg" |
308 ! |
308 ! |
309 |
309 |
310 gridShown |
310 gridShown |
311 ^ gridShown |
311 ^ gridShown |
|
312 ! ! |
|
313 |
|
314 !ObjectView methodsFor:'accessing - behavior'! |
|
315 |
|
316 setDefaultActions |
|
317 "setup actions for default behavior (do - nothing)" |
|
318 |
|
319 motionAction := [:movePoint | nil]. |
|
320 releaseAction := [nil] |
|
321 |
|
322 "Modified: / 4.7.1999 / 18:55:01 / cg" |
312 ! ! |
323 ! ! |
313 |
324 |
314 !ObjectView methodsFor:'adding / removing'! |
325 !ObjectView methodsFor:'adding / removing'! |
315 |
326 |
316 add:something |
327 add:something |
2361 ((left > right) or:[top > bottom]) ifTrue:[^ nil]. |
2372 ((left > right) or:[top > bottom]) ifTrue:[^ nil]. |
2362 |
2373 |
2363 ^ Rectangle left:left right:right top:top bottom:bottom |
2374 ^ Rectangle left:left right:right top:top bottom:bottom |
2364 ! |
2375 ! |
2365 |
2376 |
2366 setDefaultActions |
|
2367 motionAction := [:movePoint | nil]. |
|
2368 releaseAction := [nil] |
|
2369 ! |
|
2370 |
|
2371 visibleObjectsDo:aBlock |
2377 visibleObjectsDo:aBlock |
2372 "do something to every visible object" |
2378 "do something to every visible object" |
2373 |
2379 |
2374 |absRect| |
2380 |absRect| |
2375 |
2381 |
3211 ! ! |
3217 ! ! |
3212 |
3218 |
3213 !ObjectView class methodsFor:'documentation'! |
3219 !ObjectView class methodsFor:'documentation'! |
3214 |
3220 |
3215 version |
3221 version |
3216 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.72 1999-07-04 16:58:57 cg Exp $' |
3222 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.73 1999-07-04 17:01:56 cg Exp $' |
3217 ! ! |
3223 ! ! |