equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by eXept Software AG |
4 COPYRIGHT (c) 1995 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1413 layout |
1415 layout |
1414 "returns current layout as alignmentOrigin |
1416 "returns current layout as alignmentOrigin |
1415 " |
1417 " |
1416 |layout| |
1418 |layout| |
1417 |
1419 |
1418 layout := Smalltalk::AlignmentOrigin new. |
1420 layout := (Smalltalk at:#AlignmentOrigin) new. |
1419 |
1421 |
1420 layout |
1422 layout |
1421 leftFraction:(((self aspectFor:#leftFraction) value) ? 0) |
1423 leftFraction:(((self aspectFor:#leftFraction) value) ? 0) |
1422 offset:(((self aspectFor:#leftOffset) value) ? 0) |
1424 offset:(((self aspectFor:#leftOffset) value) ? 0) |
1423 topFraction:(((self aspectFor:#topFraction) value) ? 0) |
1425 topFraction:(((self aspectFor:#topFraction) value) ? 0) |
3046 layout |
3048 layout |
3047 "returns the current layout as layoutFrame |
3049 "returns the current layout as layoutFrame |
3048 " |
3050 " |
3049 |layout| |
3051 |layout| |
3050 |
3052 |
3051 layout := Smalltalk::LayoutFrame new. |
3053 layout := (Smalltalk at:LayoutFrame) new. |
3052 |
3054 |
3053 layout |
3055 layout |
3054 leftFraction:(((self aspectFor:#leftFraction) value) ? 0) |
3056 leftFraction:(((self aspectFor:#leftFraction) value) ? 0) |
3055 offset:(((self aspectFor:#leftOffset) value) ? 0) |
3057 offset:(((self aspectFor:#leftOffset) value) ? 0) |
3056 rightFraction:(((self aspectFor:#rightFraction) value) ? 0) |
3058 rightFraction:(((self aspectFor:#rightFraction) value) ? 0) |
3283 layout |
3285 layout |
3284 "returns current layout as layoutOrigin |
3286 "returns current layout as layoutOrigin |
3285 " |
3287 " |
3286 |layout| |
3288 |layout| |
3287 |
3289 |
3288 layout := Smalltalk::LayoutOrigin new. |
3290 layout := (Smalltalk at:#LayoutOrigin) new. |
3289 |
3291 |
3290 layout |
3292 layout |
3291 leftFraction:(((self aspectFor:#leftFraction) value) ? 0) |
3293 leftFraction:(((self aspectFor:#leftFraction) value) ? 0) |
3292 offset:(((self aspectFor:#leftOffset) value) ? 0) |
3294 offset:(((self aspectFor:#leftOffset) value) ? 0) |
3293 topFraction:(((self aspectFor:#topFraction) value) ? 0) |
3295 topFraction:(((self aspectFor:#topFraction) value) ? 0) |
3354 ! |
3356 ! |
3355 |
3357 |
3356 layout |
3358 layout |
3357 "returns current layout as point |
3359 "returns current layout as point |
3358 " |
3360 " |
3359 ^ Smalltalk::Point x:(((self aspectFor:#leftOffset) value) ? 0) |
3361 ^ (((self aspectFor:#leftOffset) value) ? 0) |
3360 y:(((self aspectFor:#topOffset) value) ? 0) |
3362 @ |
3361 |
3363 (((self aspectFor:#topOffset) value) ? 0) |
3362 ! ! |
3364 ! ! |
3363 |
3365 |
3364 !UILayoutTool::Rectangle class methodsFor:'interface specs'! |
3366 !UILayoutTool::Rectangle class methodsFor:'interface specs'! |
3365 |
3367 |
3366 windowSpec |
3368 windowSpec |
3475 ! |
3477 ! |
3476 |
3478 |
3477 layout |
3479 layout |
3478 "returns current layout as rectangle" |
3480 "returns current layout as rectangle" |
3479 |
3481 |
3480 ^ Smalltalk::Rectangle |
3482 ^ (Smalltalk at:#Rectangle) |
3481 left:(((self aspectFor:#leftOffset) value) ? 0) |
3483 left:(((self aspectFor:#leftOffset) value) ? 0) |
3482 top:(((self aspectFor:#topOffset) value) ? 0) |
3484 top:(((self aspectFor:#topOffset) value) ? 0) |
3483 right:(((self aspectFor:#rightOffset) value) ? 0) |
3485 right:(((self aspectFor:#rightOffset) value) ? 0) |
3484 bottom:(((self aspectFor:#bottomOffset) value) ? 0) |
3486 bottom:(((self aspectFor:#bottomOffset) value) ? 0) |
3485 ! ! |
3487 ! ! |