Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: GraphicsDevice
authorStefan Vogel <sv@exept.de>
Mon, 17 Mar 2014 20:23:16 +0100
changeset 6334 55a4b5a0eb5e
parent 6333 a39a5f90e4fd
child 6335 3148d179a5a5
class: GraphicsDevice comment/format in: #newGraphicsContextFor:
GraphicsDevice.st file | annotate | diff | comparison | revisions 
--- a/GraphicsDevice.st	Mon Mar 17 20:19:39 2014 +0100
+++ b/GraphicsDevice.st	Mon Mar 17 20:23:16 2014 +0100
@@ -109,6 +109,11 @@
      Subclasses may redefine this to use their own graphics context"
 
     ^ aGraphicsMedium.
+"/    |gc|
+"/
+"/    gc := DeviceGraphicsContext onDevice:self.
+"/    gc font:aGraphicsMedium class defaultFont.
+"/    ^ gc.
 ! !
 
 !GraphicsDevice methodsFor:'event processing'!
@@ -152,10 +157,10 @@
 !GraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.12 2014-02-04 16:08:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.13 2014-03-17 19:23:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.12 2014-02-04 16:08:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.13 2014-03-17 19:23:16 stefan Exp $'
 ! !
hg/stx-libview