--- a/Cairo__LineJoin.st	Sat Dec 27 00:45:13 2014 +0100
+++ b/Cairo__LineJoin.st	Sun Dec 28 22:38:24 2014 +0100
@@ -4,54 +4,36 @@
 
 SharedPool subclass:#LineJoin
 	instanceVariableNames:''
-	classVariableNames:'LINE_JOIN_MITER LINE_JOIN_ROUND LINE_JOIN_BEVEL'
+	classVariableNames:'CAIRO_LINE_JOIN_MITER CAIRO_LINE_JOIN_ROUND CAIRO_LINE_JOIN_BEVEL'
 	poolDictionaries:''
 	category:'Cairo-Constants'
 !
 
-
 !LineJoin class methodsFor:'initialization'!
 
 initialize
 
-	LINE_JOIN_MITER := 0.
-	LINE_JOIN_ROUND := 1.
-	LINE_JOIN_BEVEL := 2.
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    CAIRO_LINE_JOIN_MITER := 0.
+    CAIRO_LINE_JOIN_ROUND := 1.
+    CAIRO_LINE_JOIN_BEVEL := 2.
 ! !
 
 !LineJoin class methodsFor:'constants'!
 
-LINE_JOIN_BEVEL
-
-	^LINE_JOIN_BEVEL
+CAIRO_LINE_JOIN_BEVEL
 
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-LINE_JOIN_MITER
-
-	^LINE_JOIN_MITER
-
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    ^CAIRO_LINE_JOIN_BEVEL
 !
 
-LINE_JOIN_ROUND
+CAIRO_LINE_JOIN_MITER
 
-	^LINE_JOIN_ROUND
+    ^CAIRO_LINE_JOIN_MITER
+!
 
-    "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+CAIRO_LINE_JOIN_ROUND
+
+    ^CAIRO_LINE_JOIN_ROUND
 ! !
 
-!LineJoin class methodsFor:'documentation'!
-
-version
-    ^'$Id$'
-!
-
-version_HG
-    ^ '$Changeset: <not expanded> $'
-! !
 
 LineJoin initialize!