DisplayObjectView.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 19 Jul 2017 09:42:32 +0200
branchjv
changeset 17619 edb119820fcb
parent 16781 0d8b05ac5efd
permissions -rw-r--r--
Issue #154: Set window style using `#beToolWindow` to indicate that the minirunner window is kind of support tool rather than some X11 specific code (which does not work on Windows of course) See https://swing.fit.cvut.cz/projects/stx-jv/ticket/154
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