SolidBackground.st
author Claus Gittinger <cg@exept.de>
Wed, 02 Feb 2011 01:42:47 +0100
changeset 5696 30f4730112b7
parent 5682 c2c115a7e257
child 6688 3aa9c7b534b8
permissions -rw-r--r--
automatically generated by browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5465
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     1
"
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     2
 COPYRIGHT (c) 2009 by eXept Software AG
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     3
              All Rights Reserved
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     4
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     5
 This software is furnished under a license and may be used
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     6
 only in accordance with the terms of that license and with the
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     8
 be provided or otherwise made available to, or used by, any
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
     9
 other person.  No title to or ownership of the software is
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    10
 hereby transferred.
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    11
"
5397
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libview' }"
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
AbstractBackground subclass:#SolidBackground
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:'color'
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	category:'Graphics-Support'
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
5465
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    21
!SolidBackground class methodsFor:'documentation'!
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    22
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    23
copyright
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    24
"
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    25
 COPYRIGHT (c) 2009 by eXept Software AG
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    26
              All Rights Reserved
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    27
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    28
 This software is furnished under a license and may be used
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    29
 only in accordance with the terms of that license and with the
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    31
 be provided or otherwise made available to, or used by, any
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    32
 other person.  No title to or ownership of the software is
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    33
 hereby transferred.
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    34
"
02601a774050 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 5397
diff changeset
    35
! !
5397
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
5682
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    37
!SolidBackground methodsFor:'accessing'!
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    38
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    39
color
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    40
    ^ color
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    41
!
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    42
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    43
color:something
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    44
    color := something.
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    45
! !
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    46
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    47
!SolidBackground methodsFor:'drawing'!
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    48
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    49
fillRectangleX:x y:y width:w height:h in:aView
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    50
    aView paint:color.
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    51
    aView fillRectangleX:x y:y width:w height:h
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    52
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    53
    "Created: / 23-01-2011 / 01:59:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    54
! !
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    55
5397
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
!SolidBackground class methodsFor:'documentation'!
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
version_CVS
5682
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
    59
    ^ '$Header: /cvs/stx/stx/libview/SolidBackground.st,v 1.3 2011-01-23 01:43:01 cg Exp $'
5397
cf2688ceb3f4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
! !