equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
106 " |
104 " |
107 |device| |
105 |device| |
108 |
106 |
109 device := Screen current. |
107 device := Screen current. |
110 device isNil ifTrue:[ |
108 device isNil ifTrue:[ |
111 device := Display. |
109 (self class name,' [warning]: no Display') infoPrintCR. |
112 device isNil ifTrue:[ |
110 device := Smalltalk lateOpenDisplay. |
113 (self class name,' [warning]: no Display') infoPrintCR. |
111 device isNil ifTrue:[ |
114 Smalltalk lateOpenDisplay. |
112 Screen deviceOpenErrorSignal raiseErrorString:'no screen device'. |
115 |
113 ] |
116 device := Screen current ? Display. |
|
117 device isNil ifTrue:[ self error:'no screen device' ] |
|
118 ]. |
|
119 ]. |
114 ]. |
120 ^ self onDevice:device |
115 ^ self onDevice:device |
|
116 |
|
117 "Modified: / 20-03-2018 / 12:46:25 / stefan" |
121 ! |
118 ! |
122 |
119 |
123 on:aDevice |
120 on:aDevice |
124 "create a new drawable on aDevice" |
121 "create a new drawable on aDevice" |
125 |
122 |