Object subclass:  #XLib
  instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''
  category: 'X-Windows'
!

| dyn |

  dyn := VmsDynamicFunction new.
  dyn addLibrary: 'STXLIB_SHR'.
  dyn defineExternFunc: 'StInitialise'
    withSelectorArgs: 'initialise'
    forClass: XLib
    returning:  #int
    args: #().
  dyn defineExternFunc: 'StOpenDisplay'
    withSelectorArgs: 'openDisplay: name'
    forClass: XLib
    returning:  #int
    args: #(string).
  dyn defineExternFunc: 'StDefaultDepth'
    withSelectorArgs: 'defaultDepth: display screen: screen'
    forClass: XLib
    returning:  #int
    args: #(int int).
  dyn defineExternFunc: 'StDefaultScreenOfDisplay'
    withSelectorArgs: 'defaultScreenOfDisplay: dpy'
    forClass: XLib
    returning:  #int
    args: #(int).
  dyn defineExternFunc: 'StDefaultVisualOfScreen'
    withSelectorArgs: 'defaultVisualOfScreen: screen'
    forClass: XLib
    returning:  #int
    args: #(int).
  dyn defineExternFunc: 'StRootWindowOfScreen'
    withSelectorArgs: 'rootWindowOfScreen: screen'
    forClass: XLib
    returning:  #int
    args: #(int).
  dyn defineExternFunc: 'StCreateWindow'
    withSelectorArgs: 
       ('createWindow: dpy parent: pid x: x y: y width: w height: h ',
        'border: width depth: d class: c visual_struct: v ',
        'attrib_mask: am attributes: a')
    forClass: XLib
    returning:  #int
    args: #(int int int int int int int int int int int int).
  dyn defineExternFunc: 'StMapWindow'
    withSelectorArgs: 'mapWindow: dpy window: window'
    forClass: XLib
    returning:  #int
    args: #(int int).
  dyn defineExternFunc: 'StLoadFont'
    withSelectorArgs: 'loadFont: dpy name: font'
    forClass: XLib
    returning:  #int
    args: #(int string).
  dyn defineExternFunc: 'StSetFont'
    withSelectorArgs: 'setFont: dpy gc: gc font: font'
    forClass: XLib
    returning:  #int
    args: #(int int int).
  dyn defineExternFunc: 'StAllocNamedColor'
    withSelectorArgs: 'allocNamedColor: dpy screen: screen color: name'
    forClass: XLib
    returning:  #int
    args: #(int int string).
  dyn defineExternFunc: 'storeName'
    withSelectorArgs: 'storeName: dpy window: window name: name'
    forClass: XLib
    returning:  #int
    args: #(int int string).
  dyn defineExternFunc: ''
    withSelectorArgs: ''
    forClass: XLib
    returning:  #int
    args: #().
  dyn defineExternFunc: ''
    withSelectorArgs: ''
    forClass: XLib
    returning:  #int
    args: #().
  dyn defineExternFunc: ''
    withSelectorArgs: ''
    forClass: XLib
    returning:  #int
    args: #().
  dyn defineExternFunc: ''
    withSelectorArgs: ''
    forClass: XLib
    returning:  #int
    args: #().
  dyn defineExternFunc: ''
    withSelectorArgs: ''
    forClass: XLib
    returning:  #int
    args: #().