ParagraphSpecification.st
branchjv
changeset 4770 6634b540fea2
parent 3150 e3a55f15ef7e
equal deleted inserted replaced
4769:17172bc64232 4770:6634b540fea2
     7  inclusion of the above copyright notice.   This software may not
     7  inclusion of the above copyright notice.   This software may not
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
       
    12 "{ Package: 'stx:libwidg2' }"
    12 
    13 
    13 "{ Package: 'stx:libwidg2' }"
    14 "{ NameSpace: Smalltalk }"
    14 
    15 
    15 TabulatorSpecification subclass:#ParagraphSpecification
    16 TabulatorSpecification subclass:#ParagraphSpecification
    16 	instanceVariableNames:'leftMargin rightMargin textAlignment'
    17 	instanceVariableNames:'leftMargin rightMargin textAlignment'
    17 	classVariableNames:''
    18 	classVariableNames:''
    18 	poolDictionaries:''
    19 	poolDictionaries:''
    46 !ParagraphSpecification methodsFor:'accessing'!
    47 !ParagraphSpecification methodsFor:'accessing'!
    47 
    48 
    48 leftMargin
    49 leftMargin
    49     "return leftMargin"
    50     "return leftMargin"
    50 
    51 
    51     ^ leftMargin!
    52     ^ leftMargin
       
    53 !
    52 
    54 
    53 leftMargin:something
    55 leftMargin:something
    54     "set leftMargin"
    56     "set leftMargin"
    55 
    57 
    56     leftMargin := something.!
    58     leftMargin := something.
       
    59 !
    57 
    60 
    58 rightMargin
    61 rightMargin
    59     "return rightMargin"
    62     "return rightMargin"
    60 
    63 
    61     ^ rightMargin!
    64     ^ rightMargin
       
    65 !
    62 
    66 
    63 rightMargin:something
    67 rightMargin:something
    64     "set rightMargin"
    68     "set rightMargin"
    65 
    69 
    66     rightMargin := something.! !
    70     rightMargin := something.
       
    71 ! !
    67 
    72 
    68 !ParagraphSpecification class methodsFor:'documentation'!
    73 !ParagraphSpecification class methodsFor:'documentation'!
    69 
    74 
    70 version
    75 version
    71     ^ '$Header: /cvs/stx/stx/libwidg2/ParagraphSpecification.st,v 1.6 2006-11-13 16:11:31 cg Exp $'
    76     ^ '$Header: /cvs/stx/stx/libwidg2/ParagraphSpecification.st,v 1.6 2006-11-13 16:11:31 cg Exp $'
    72 ! !
    77 ! !
       
    78