DisplayObjectView.st
author Stefan Vogel <sv@exept.de>
Fri, 17 May 2019 17:11:44 +0200
changeset 18767 0478d93cdb75
parent 16781 0d8b05ac5efd
permissions -rw-r--r--
#REFACTORING by stefan Sanitize BlockValues class: Tools::Inspector2 changed: #toolbarBackgroundHolder
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
16781
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libtool' }"
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     2
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     3
"{ NameSpace: Smalltalk }"
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     4
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     5
View subclass:#DisplayObjectView
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:''
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     9
	category:'Views-Misc'
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    10
!
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    11
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    12
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    13
!DisplayObjectView methodsFor:'drawing'!
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    14
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    15
redraw
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    16
    model displayOn:self x:0 y:(model ascentOn:self)
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    17
! !
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    18
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    19
!DisplayObjectView class methodsFor:'documentation'!
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    20
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    21
version
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    22
    ^ '$Header$'
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    23
!
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    24
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    25
version_CVS
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    26
    ^ '$Header$'
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    27
! !
0d8b05ac5efd initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    28