# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1214653221 -7200
# Node ID af923a21242414664b1995b96069a85d18e2fcc2
# Parent  14c28ec55880194b178b3b6597e62ad5b58e1115
New: #fontAscent

diff -r 14c28ec55880 -r af923a212424 GraphicsContext.st
--- a/GraphicsContext.st	Sat Jun 28 13:37:34 2008 +0200
+++ b/GraphicsContext.st	Sat Jun 28 13:40:21 2008 +0200
@@ -983,18 +983,22 @@
 !
 
 setMaskOrigin:aPoint
+    <resource: #obsolete>
     "set the origin within the mask (used to draw with patterns).
      OBSOLETE: use #maskOrigin: or #phase:"
 
+    self obsoleteMethodWarning:'use #maskOrigin:'.
     ^ self maskOriginX:aPoint x y:aPoint y
 
     "Modified: / 26.1.1998 / 18:54:14 / cg"
 !
 
 setMaskOriginX:x y:y
+    <resource: #obsolete>
     "set the origin within the mask (used to draw with patterns).
      OBSOLETE: use #maskOriginX:y: or #phase:"
 
+    self obsoleteMethodWarning:'use #maskOriginX:y:'.
     ^ self maskOriginX:x y:y 
 !
 
@@ -2433,10 +2437,18 @@
     "Modified: 28.5.1996 / 20:22:26 / cg"
 ! !
 
+!GraphicsContext methodsFor:'queries'!
+
+fontAscent
+    "answer the ascent of the current font on the current device"
+
+    ^ font ascentOn:device
+! !
+
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.120 2008-05-08 09:58:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.121 2008-06-28 11:40:21 stefan Exp $'
 ! !
 
 GraphicsContext initialize!