equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
3 COPYRIGHT (c) 2016 Jan Vrany |
3 COPYRIGHT (c) 2016 Jan Vrany |
|
4 COPYRIGHT (c) 2021 LabWare |
4 All Rights Reserved |
5 All Rights Reserved |
5 |
6 |
6 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
7 only in accordance with the terms of that license and with the |
8 only in accordance with the terms of that license and with the |
8 inclusion of the above copyright notice. This software may not |
9 inclusion of the above copyright notice. This software may not |
50 |
51 |
51 copyright |
52 copyright |
52 " |
53 " |
53 COPYRIGHT (c) 1989 by Claus Gittinger |
54 COPYRIGHT (c) 1989 by Claus Gittinger |
54 COPYRIGHT (c) 2016 Jan Vrany |
55 COPYRIGHT (c) 2016 Jan Vrany |
|
56 COPYRIGHT (c) 2021 LabWare |
55 All Rights Reserved |
57 All Rights Reserved |
56 |
58 |
57 This software is furnished under a license and may be used |
59 This software is furnished under a license and may be used |
58 only in accordance with the terms of that license and with the |
60 only in accordance with the terms of that license and with the |
59 inclusion of the above copyright notice. This software may not |
61 inclusion of the above copyright notice. This software may not |
2561 ! |
2563 ! |
2562 |
2564 |
2563 initStyle |
2565 initStyle |
2564 "setup viewStyle specifics" |
2566 "setup viewStyle specifics" |
2565 |
2567 |
2566 |n| |
2568 | n borderWidth borderColor | |
2567 |
2569 |
2568 super initStyle. |
2570 super initStyle. |
2569 |
2571 |
2570 n := DefaultTopMargin. |
2572 n := DefaultTopMargin. |
2571 n isInteger ifFalse:[ |
2573 n isInteger ifFalse:[ |
2586 lineSpacing := lineSpacing + 3. |
2588 lineSpacing := lineSpacing + 3. |
2587 ]. |
2589 ]. |
2588 fgColor := DefaultForegroundColor. |
2590 fgColor := DefaultForegroundColor. |
2589 bgColor := DefaultBackgroundColor. |
2591 bgColor := DefaultBackgroundColor. |
2590 |
2592 |
|
2593 borderWidth := styleSheet at:'text.borderWidth' default: 0. |
|
2594 borderWidth ~~ 0 ifTrue: [ |
|
2595 borderColor := styleSheet colorAt:'text.borderColor' default: nil. |
|
2596 borderColor notNil ifTrue: [ |
|
2597 self border:(SimpleBorder width:borderWidth color:borderColor) |
|
2598 ]. |
|
2599 ]. |
|
2600 |
2591 "Modified (comment): / 05-10-2011 / 15:51:02 / az" |
2601 "Modified (comment): / 05-10-2011 / 15:51:02 / az" |
|
2602 "Modified: / 30-06-2021 / 19:59:10 / Jan Vrany <jan.vrany@labware.com>" |
2592 ! |
2603 ! |
2593 |
2604 |
2594 initialize |
2605 initialize |
2595 super initialize. |
2606 super initialize. |
2596 |
2607 |