DLD addLibrary: 'libxcb';
	addLibrary: './xcb-gst';
	addLibrary: 'libc'.

Object subclass: System [
    System class >> pause [
        <cCall: 'pause' returning: #int args: #()>
    ]
]

CStruct subclass: XcbScreen [
    <declaration: #((#rootWin #uint)
                    (#defaultColormap #uint)
                    (#whitePixel #uint)
                    (#blackPixel #uint)
                    (#currentInputMasks #uint)
                    (#widthInPixels #ushort)
                    (#heightInPixels #ushort)
                    (#widthInMM #ushort)
                    (#heightInMM #ushort)
                    (#minInstalledMaps #ushort)
                    (#maxInstalledMaps #ushort)
                    (#visualID #uint)
                    (#backingStores #uchar)
                    (#saveUnders #uchar)
                    (#rootDepth #uchar)
                    (#allowedDepthsLen #uchar))>
]

CStruct subclass: XcbScreenIterator [
    <declaration: #((#data #{XcbScreen})
                    (#rem #int)
                    (#index #int))>
]

Object subclass: Xcb [
    Xcb class >> connect: aString screen: anInteger [
        <cCall: 'xcb_connect' returning: #cObject args: #(#string #cObject)>
    ]

    Xcb class >> getSetup: aConnection [
        <cCall: 'xcb_get_setup' returning: #cObject args: #(#cObject)>
    ]

    Xcb class >> setupRootsIterator: aSetup [
        <cCall: 'xcb_setup_roots_iterator' returning: #{XcbScreenIterator} args: #(#cObject)>
    ]

    Xcb class >> generateId: aConnection [
        <cCall: 'xcb_generate_id' returning: #long args:#(#cObject)>
    ]

    Xcb class >> createWindow: aConnection depth: aDepth windowId: wID 
    parent: parentID x: posX y: poxY width: aWidth height: aHeight
    borderWidth: bWidth class: aClass visual: aVisual valueMask: aMask
    valueList: aList [
        <cCall: 'xcb_create_window' returning: #void args: 
            #(#cObject #char #uInt #uInt #short #short #ushort #ushort #ushort #ushort #uInt #uInt #cObject)>
    ]

    Xcb class >> mapWindow: aConnection window: id [
        <cCall: 'xcb_map_window' returning: #void args: #(#cObject #uInt)>
    ]

    Xcb class >> flush: aConnection [
        <cCall: 'xcb_flush' returning: #int args: #(#cObject)>
    ]

    Xcb class >> disconnect: aConnection [
        <cCall: 'xcb_disconnect' returning: #void args: #(#cObject)>
    ]
]

| connection setup screen windowid iter |
iter := XcbScreenIterator new.
connection := Xcb connect: nil screen: nil.
setup := Xcb getSetup: connection.
iter := Xcb setupRootsIterator: setup.
screen := iter data.
windowid := Xcb generateId: connection.
Xcb createWindow: connection
    depth: 0
    windowId: windowid
    parent: (screen rootWin value)
    x: 0
    y: 0
    width: 150
    height: 150
    borderWidth: 10
    class: 1
    visual: (screen visualID value)
    valueMask: 0
    valueList: nil.

Xcb mapWindow: connection window: windowid.

Xcb flush: connection.
System pause.
Xcb disconnect: connection.