1 | "{ Encoding: utf8 }" !
|
---|
2 | !SimpleView methodsFor:'realization'!
|
---|
3 |
|
---|
4 | recreate
|
---|
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 |
|
---|