equal
deleted
inserted
replaced
361 modifiedHolder addDependent:self. |
361 modifiedHolder addDependent:self. |
362 ]. |
362 ]. |
363 |
363 |
364 ! ! |
364 ! ! |
365 |
365 |
|
366 !UISpecificationTool methodsFor:'actions'! |
|
367 |
|
368 setMaxExtent |
|
369 "set the windows maxExtent from its current extent" |
|
370 |
|
371 |canvas currentExtent| |
|
372 |
|
373 canvas := self masterApplication painter topView. |
|
374 currentExtent := canvas extent. |
|
375 (self aspectFor:#maxX) value:currentExtent x. |
|
376 (self aspectFor:#maxY) value:currentExtent y. |
|
377 |
|
378 "Modified: / 29.10.1997 / 18:29:17 / cg" |
|
379 ! |
|
380 |
|
381 setMinExtent |
|
382 "set the windows minExtent from its current extent" |
|
383 |
|
384 |canvas currentExtent| |
|
385 |
|
386 canvas := self masterApplication painter topView. |
|
387 currentExtent := canvas extent. |
|
388 (self aspectFor:#minX) value:currentExtent x. |
|
389 (self aspectFor:#minY) value:currentExtent y. |
|
390 |
|
391 "Created: / 29.10.1997 / 18:17:55 / cg" |
|
392 "Modified: / 29.10.1997 / 18:28:53 / cg" |
|
393 ! ! |
|
394 |
366 !UISpecificationTool methodsFor:'bindings'! |
395 !UISpecificationTool methodsFor:'bindings'! |
367 |
396 |
368 aspectFor:aKey |
397 aspectFor:aKey |
369 "returns aspect for a key or nil |
398 "returns aspect for a key or nil |
370 " |
399 " |