equal
deleted
inserted
replaced
120 device := Display. |
120 device := Display. |
121 device isNil ifTrue:[ |
121 device isNil ifTrue:[ |
122 (self class name,' [warning]: no Display') infoPrintCR. |
122 (self class name,' [warning]: no Display') infoPrintCR. |
123 Smalltalk openDisplay. |
123 Smalltalk openDisplay. |
124 |
124 |
125 device := Screen current. |
125 device := Screen current ? Display. |
126 device isNil ifTrue:[ self error:'no screen device' ] |
126 device isNil ifTrue:[ self error:'no screen device' ] |
127 ]. |
127 ]. |
128 ]. |
128 ]. |
129 ^ self onDevice:device |
129 ^ self onDevice:device |
130 ! |
130 ! |