Cairo__FontExtents.st
changeset 29 6ba06265e543
parent 23 38ee47dbd976
child 40 28dfc583beb5
--- a/Cairo__FontExtents.st	Sat Dec 27 00:45:13 2014 +0100
+++ b/Cairo__FontExtents.st	Sun Dec 28 22:38:24 2014 +0100
@@ -52,92 +52,74 @@
 
 libraryName
 
-	OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2'].
-
-	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
+    OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2'].
 
-	self error:'Library name for host OS is not known'
+    OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
 
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    self error:'Library name for host OS is not known'
 !
 
-structSize
+sizeof
+    "Returns size of undelaying structure in bytes"
 
-	^320
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^40
 ! !
 
 !FontExtents methodsFor:'accessing'!
 
 ascent
+    "Returns double"
 
-	^self doubleAt:1 + 0
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^self doubleAt:1 + 0
 !
 
 ascent: value
 
-	self doubleAt:1 + 0 put:value
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    self doubleAt:1 + 0 put:value
 !
 
 descent
+    "Returns double"
 
-	^self doubleAt:1 + 8
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^self doubleAt:1 + 8
 !
 
 descent: value
 
-	self doubleAt:1 + 8 put:value
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    self doubleAt:1 + 8 put:value
 !
 
 height
+    "Returns double"
 
-	^self doubleAt:1 + 16
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^self doubleAt:1 + 16
 !
 
 height: value
 
-	self doubleAt:1 + 16 put:value
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    self doubleAt:1 + 16 put:value
 !
 
 maxXAdvance
+    "Returns double"
 
-	^self doubleAt:1 + 24
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^self doubleAt:1 + 24
 !
 
 maxXAdvance: value
 
-	self doubleAt:1 + 24 put:value
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    self doubleAt:1 + 24 put:value
 !
 
 maxYAdvance
+    "Returns double"
 
-	^self doubleAt:1 + 32
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^self doubleAt:1 + 32
 !
 
 maxYAdvance: value
 
-	self doubleAt:1 + 32 put:value
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    self doubleAt:1 + 32 put:value
 ! !
 
 !FontExtents class methodsFor:'documentation'!
@@ -149,3 +131,4 @@
 version_HG
     ^ '$Changeset: <not expanded> $'
 ! !
+