equal
deleted
inserted
replaced
99 eventListeners notNil ifTrue:[ |
99 eventListeners notNil ifTrue:[ |
100 eventListeners removeIdentical:aListener ifAbsent:nil |
100 eventListeners removeIdentical:aListener ifAbsent:nil |
101 ]. |
101 ]. |
102 ! ! |
102 ! ! |
103 |
103 |
|
104 !GraphicsDevice methodsFor:'creating graphics contexts'! |
|
105 |
|
106 newGraphicsContextFor:aGraphicsMedium |
|
107 "create a new graphics context. |
|
108 The defaults is to use the inherited graphics context. |
|
109 Subclasses may redefine this to use their own graphics context" |
|
110 |
|
111 aGraphicsMedium device:self. |
|
112 ^ aGraphicsMedium. |
|
113 ! ! |
|
114 |
104 !GraphicsDevice methodsFor:'event processing'! |
115 !GraphicsDevice methodsFor:'event processing'! |
105 |
116 |
106 notifyEventListenersAbout:anEvent |
117 notifyEventListenersAbout:anEvent |
107 "notify all eventHandlers about an incoming event. |
118 "notify all eventHandlers about an incoming event. |
108 If any returns true, it is assumed to be eaten by the handler and not |
119 If any returns true, it is assumed to be eaten by the handler and not |
140 ! ! |
151 ! ! |
141 |
152 |
142 !GraphicsDevice class methodsFor:'documentation'! |
153 !GraphicsDevice class methodsFor:'documentation'! |
143 |
154 |
144 version |
155 version |
145 ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.10 2010-03-31 13:52:56 stefan Exp $' |
156 ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.11 2014-02-04 09:39:07 stefan Exp $' |
146 ! |
157 ! |
147 |
158 |
148 version_CVS |
159 version_CVS |
149 ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.10 2010-03-31 13:52:56 stefan Exp $' |
160 ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.11 2014-02-04 09:39:07 stefan Exp $' |
150 ! ! |
161 ! ! |
|
162 |