|
29
|
1 |
'From Smalltalk/X, Version:2.10.4 on 18-nov-1994 at 16:12:06'!
|
|
|
2 |
|
|
|
3 |
TabulatorSpecification subclass:#ParagraphSpecification
|
|
|
4 |
instanceVariableNames:'leftMargin rightMargin textAlignment'
|
|
|
5 |
classVariableNames:''
|
|
|
6 |
poolDictionaries:''
|
|
|
7 |
category:'Views-Support'
|
|
|
8 |
!
|
|
|
9 |
|
|
|
10 |
!ParagraphSpecification methodsFor:'accessing'!
|
|
|
11 |
|
|
|
12 |
leftMargin
|
|
|
13 |
"return leftMargin"
|
|
|
14 |
|
|
|
15 |
^ leftMargin!
|
|
|
16 |
|
|
|
17 |
leftMargin:something
|
|
|
18 |
"set leftMargin"
|
|
|
19 |
|
|
|
20 |
leftMargin := something.!
|
|
|
21 |
|
|
|
22 |
rightMargin
|
|
|
23 |
"return rightMargin"
|
|
|
24 |
|
|
|
25 |
^ rightMargin!
|
|
|
26 |
|
|
|
27 |
rightMargin:something
|
|
|
28 |
"set rightMargin"
|
|
|
29 |
|
|
|
30 |
rightMargin := something.! !
|
|
|
31 |
|