Faculty of Information Technology
Software Engineering Group

Ticket #86: SimpleView-recreate.st

File SimpleView-recreate.st, 717 bytes (added by Jan Vrany, 4 years ago)

Maybe fix ( 1)

Line 
1"{ Encoding: utf8 }" !
2!SimpleView methodsFor:'realization'!
3
4recreate
5    "recreate (i.e. tell X about me) after a snapin or a migration"
6
7    self isBeingDestroyed ifTrue:[ ^self ].
8
9    self drawableId isNil ifTrue:[
10        super recreate.
11        self physicalCreate.
12
13        viewBackground notNil ifTrue:[
14            self setViewBackground
15        ].
16
17        "
18         XXX has to be changed: eventmasks are device specific -
19         XXX will not allow restart on another Workstation-type.
20         XXX event masks must become symbolic
21        "
22        eventMask isNil ifTrue:[
23            eventMask := device defaultEventMask
24        ].
25        device setEventMask:eventMask in:self drawableId
26    ]
27! !
28