OrientedFillStyle.st
author Claus Gittinger <cg@exept.de>
Fri, 19 Dec 2014 16:16:16 +0100
changeset 6669 5f4fa919b1f8
parent 6668 1f4bae731ea7
child 6687 706f61ac0637
permissions -rw-r--r--
class: OrientedFillStyle
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6668
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libview' }"
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
FillStyle subclass:#OrientedFillStyle
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'form origin direction normal'
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Graphics-Support'
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!OrientedFillStyle class methodsFor:'documentation'!
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
documentation
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    an as-yet unused class.
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
    For now, this is present as compatibility class (for Squeak),
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    but we may move change the fill/drawing code in the view hierarchy to use it later.
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
    [author:]
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
        cg
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
    [instance variables:]
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
    [class variables:]
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    [see also:]
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
"
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
! !
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
!OrientedFillStyle class methodsFor:'documentation'!
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
version
6669
5f4fa919b1f8 class: OrientedFillStyle
Claus Gittinger <cg@exept.de>
parents: 6668
diff changeset
    34
    ^ '$Header: /cvs/stx/stx/libview/OrientedFillStyle.st,v 1.2 2014-12-19 15:16:16 cg Exp $'
6668
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
version_CVS
6669
5f4fa919b1f8 class: OrientedFillStyle
Claus Gittinger <cg@exept.de>
parents: 6668
diff changeset
    38
    ^ '$Header: /cvs/stx/stx/libview/OrientedFillStyle.st,v 1.2 2014-12-19 15:16:16 cg Exp $'
6668
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
! !
1f4bae731ea7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40