DisplayObjectView.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 16781 0d8b05ac5efd
permissions -rw-r--r--
Mini testrunner: show "green" if there's at least one pass and rest is pass or skip This is more meaningfull result then showing "gray" if there's at least one skip.
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