--- a/extensions.st	Thu Jul 10 21:10:31 2008 +0000
+++ b/extensions.st	Thu Jul 10 21:14:16 2008 +0000
@@ -75,6 +75,42 @@
 ! !
 !XWorkstation methodsFor:'cairo support'!
 
+primScreenStructure
+
+    | screenNumber |
+    screenNumber := screen.
+
+    %{
+        return __MKEXTERNALADDRESS( ScreenOfDisplay( myDpy , __intVal ( screenNumber ) ) );
+    %}.
+    ^nil
+
+    "
+        Screen current screenStructure  
+    "
+
+    "Created: / 10-07-2008 / 10:04:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+!XWorkstation methodsFor:'cairo support'!
+
+screenStructure
+
+    | screenNumber |
+    screenNumber := screen.
+
+    %{
+        return __MKEXTERNALADDRESS( ScreenOfDisplay( myDpy , __intVal ( screenNumber ) ) );
+    %}.
+    ^nil
+
+    "
+        Screen current screenStructure  
+    "
+
+    "Created: / 10-07-2008 / 10:04:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+!XWorkstation methodsFor:'cairo support'!
+
 visualStructure
 
     | screenNumber |

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/stx_goodies_libcairo.st	Thu Jul 10 21:14:16 2008 +0000
@@ -0,0 +1,117 @@
+"{ Package: 'stx:goodies/libcairo' }"
+
+LibraryDefinition subclass:#stx_goodies_libcairo
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'* Projects & Packages *'
+!
+
+!stx_goodies_libcairo class methodsFor:'description'!
+
+preRequisites
+    ^ #(
+        #'stx:libbasic'    "SharedPool - superclass of Cairo::Antialias "
+    )
+
+    "Modified: / 10-07-2008 / 23:13:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!stx_goodies_libcairo class methodsFor:'description - contents'!
+
+classNamesAndAttributes
+    ^ #(
+        "<className> or (<className> attributes...) in load order"
+        #'Cairo::Antialias'
+        #'Cairo::Content'
+        #'Cairo::Extend'
+        #'Cairo::FillRule'
+        #'Cairo::Filter'
+        #'Cairo::FontExtents'
+        #'Cairo::FontFace'
+        #'Cairo::FontOptions'
+        #'Cairo::FontSlant'
+        #'Cairo::FontType'
+        #'Cairo::FontWeight'
+        #'Cairo::Format'
+        #'Cairo::Glyph'
+        #'Cairo::GraphicsContext'
+        #'Cairo::HintMetrics'
+        #'Cairo::HintStyle'
+        #'Cairo::LineCap'
+        #'Cairo::LineJoin'
+        #'Cairo::Matrix'
+        #'Cairo::Operator'
+        #'Cairo::Path'
+        #'Cairo::PathData'
+        #'Cairo::PathDataType'
+        #'Cairo::Pattern'
+        #'Cairo::PatternType'
+        #'Cairo::Rectangle'
+        #'Cairo::RectangleList'
+        #'Cairo::ScaledFont'
+        #'Cairo::Status'
+        #'Cairo::SubpixelOrder'
+        #'Cairo::Surface'
+        #'Cairo::SurfaceType'
+        #'Cairo::SvgVersion'
+        #'Cairo::TextExtents'
+        #'Cairo::UserDataKey'
+        #'stx_goodies_libcairo'
+    )
+
+    "Modified: / 10-07-2008 / 23:13:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+extensionMethodNames
+    ^ #(
+        DeviceGraphicsContext drawableId
+        GraphicsDevice cairoSurfaceFor:
+        GraphicsDevice displayId
+        GraphicsDevice screen
+        SimpleView cairoGC
+        SimpleView cairoGraphicsContext
+        SimpleView cairoSurface
+        XWorkstation cairoSurfaceFor:
+        XWorkstation primScreenStructure
+        XWorkstation screenStructure
+        XWorkstation visualStructure
+    )
+
+    "Modified: / 10-07-2008 / 23:13:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!stx_goodies_libcairo class methodsFor:'description - project information'!
+
+companyName
+    "Return a companyname which will appear in <lib>.rc"
+
+    ^ 'CTU FEI'
+
+    "Created: / 10-07-2008 / 23:11:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+description
+    "Return a description string which will appear in vc.def / bc.def"
+
+    ^ 'Cairo bindings (http://www.cairographics.org)'
+
+    "Created: / 10-07-2008 / 23:11:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+legalCopyright
+    "Return a copyright string which will appear in <lib>.rc"
+
+    ^ 'Copyright Jan Vrany 2008'
+
+    "Created: / 10-07-2008 / 23:11:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+productName
+    "Return a product name which will appear in <lib>.rc"
+
+    ^ 'Cairo'
+
+    "Created: / 10-07-2008 / 23:11:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+