FFI: FFI-Unix-mt.6.mcz

Marcel Taeumel uploaded a new version of FFI-Unix to project FFI:
http://source.squeak.org/FFI/FFI-Unix-mt.6.mcz

==================== Summary ====================

Name: FFI-Unix-mt.6
Author: mt
Time: 27 May 2021, 9:39:36.243843 am
UUID: fcaa7554-f959-dc45-a8d6-36edaec594f9
Ancestors: FFI-Unix-mt.5

Empty commit. Package superseded by "FFI-Libraries"

=============== Diff against FFI-Unix-mt.5 ===============

Item was removed:
- SystemOrganization addCategory: #'FFI-Unix-Examples'!

Item was removed:
- ExternalStructure subclass: #X11Display
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'FFI-Unix-Examples'!

Item was removed:
- ----- Method: X11Display class>>XOpenDisplay: (in category 'instance creation') -----
- XOpenDisplay: displayName
- "X11Display XOpenDisplay: nil"
- <cdecl: X11Display* 'XOpenDisplay' (char*) module:'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display class>>coloredEllipses (in category 'examples') -----
- coloredEllipses
- "X11Display coloredEllipses"
- | display window gc colors rnd w h pt1 pt2 r |
- display := X11Display XOpenDisplay: nil.
- window := display ourWindow.
- gc := X11GC on: window.
- colors := Color colorNames collect:[:n| (Color perform: n) pixelWordForDepth: 32].
- rnd := Random new.
- w := Display width.
- h := Display height.
- [Sensor anyButtonPressed] whileFalse:[
- pt1 := (rnd next * w) asInteger @ (rnd next * h) asInteger.
- pt2 := (rnd next * w) asInteger @ (rnd next * h) asInteger.
- r := Rectangle encompassing: (Array with: pt1 with: pt2).
- gc foreground: colors atRandom.
- gc fillOval: r.
- gc foreground: 0.
- gc drawOval: r.
- display sync.
- ].
- gc free.
- display closeDisplay.
- Display forceToScreen.!

Item was removed:
- ----- Method: X11Display class>>coloredRectangles (in category 'examples') -----
- coloredRectangles
- "X11Display coloredRectangles"
- | display window gc colors rnd w h pt1 pt2 r nPixels time n |
- display := X11Display XOpenDisplay: nil.
- window := display ourWindow.
- gc := X11GC on: window.
- colors := Color colorNames collect:[:cn| (Color perform: cn) pixelWordForDepth: 32].
- rnd := Random new.
- w := Display width.
- h := Display height.
- n := 0.
- nPixels := 0.
- time := Time millisecondClockValue.
- [Sensor anyButtonPressed] whileFalse:[
- pt1 := (rnd next * w) asInteger @ (rnd next * h) asInteger.
- pt2 := (rnd next * w) asInteger @ (rnd next * h) asInteger.
- r := Rectangle encompassing: (Array with: pt1 with: pt2).
- gc foreground: colors atRandom.
- gc fillRectangle: r.
- gc foreground: 0.
- gc drawRectangle: r.
- display sync.
- n := n + 1.
- nPixels := nPixels + ((r right - r left) * (r bottom - r top)).
- (n \\ 100) = 0 ifTrue:[
- 'Pixel fillRate: ', (nPixels * 1000 // (Time millisecondClockValue - time))
- asStringWithCommas displayAt: 0@0].
- ].
- gc free.
- display closeDisplay.
- Display forceToScreen.!

Item was removed:
- ----- Method: X11Display class>>fields (in category 'field definition') -----
- fields
- "X11Display defineFields"
- "Note: The structure of Display is internal and only pointers to X11Display are used"
- ^#()!

Item was removed:
- ----- Method: X11Display class>>new (in category 'instance creation') -----
- new
- ^ self on: nil!

Item was removed:
- ----- Method: X11Display class>>on: (in category 'instance creation') -----
- on: aStringOrNil
- ^ self XOpenDisplay: aStringOrNil!

Item was removed:
- ----- Method: X11Display class>>x11Draw (in category 'examples') -----
- x11Draw
- "X11Display x11Draw"
- | display window gc nextPt lastPt ptr |
- display := X11Display XOpenDisplay: nil.
- window = display ourWindow.
- gc := X11GC on: window.
- gc foreground: 0.
- lastPt := nil.
- [ptr := display queryPointer: window. "{root. child. root pos. win pos. mask}"
- ptr last anyMask: 256] whileFalse:[
- nextPt := ptr fourth.
- nextPt = lastPt ifFalse:[
- lastPt ifNotNil: [
- gc drawLineFrom: lastPt to: nextPt.
- display sync].
- lastPt := nextPt].
- ].
- gc free.
- display closeDisplay.
- Display forceToScreen.!

Item was removed:
- ----- Method: X11Display>>None (in category 'xlib calls') -----
- None
- ^ 0!

Item was removed:
- ----- Method: X11Display>>XCloseDisplay: (in category 'xlib calls') -----
- XCloseDisplay: aDisplay
- <cdecl: void 'XCloseDisplay' (X11Display*) module:'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display>>XDisplayString: (in category 'xlib calls') -----
- XDisplayString: aDisplay
- <cdecl: char* 'XDisplayString' (X11Display*) module:'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display>>XFlush: (in category 'xlib calls') -----
- XFlush: xDisplay
- <cdecl: void 'XFlush' (X11Display*) module:'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display>>XGetInputFocus:with:with: (in category 'xlib calls') -----
- XGetInputFocus: display with: focus with: revert
- <cdecl: void 'XGetInputFocus' (X11Display* ulong* long*) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display>>XQueryPointer:window:returnRoot:child:rootX:rootY:winX:winY:mask: (in category 'xlib calls') -----
- XQueryPointer: display window: w returnRoot: root child: child rootX: rootX rootY: rootY winX: winX winY: winY mask: mask
- <cdecl: bool 'XQueryPointer' (X11Display* ulong ulong* ulong* long* long* long* long* long*) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display>>XSync: (in category 'xlib calls') -----
- XSync: xDisplay
- <cdecl: void 'XSync' (X11Display*) module:'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display>>XWarpPointer:sourceWindow:destWindow:sourceX:sourceY:sourceWidth:sourceHeight:destX:destY: (in category 'xlib calls') -----
- XWarpPointer: display sourceWindow: srcWindowID destWindow: destWindowID sourceX: srcX sourceY: srcY sourceWidth: srcWidth sourceHeight: srcHeight destX: destX destY: destY
- <cdecl: bool 'XWarpPointer' (X11Display* ulong ulong long long ulong ulong long long) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11Display>>closeDisplay (in category 'initialize-release') -----
- closeDisplay
- handle == nil ifFalse:[
- self XCloseDisplay: self.
- handle := nil].!

Item was removed:
- ----- Method: X11Display>>displayString (in category 'accessing') -----
- displayString
- ^self XDisplayString: self!

Item was removed:
- ----- Method: X11Display>>flush (in category 'initialize-release') -----
- flush
- self XFlush: self!

Item was removed:
- ----- Method: X11Display>>getInputFocus (in category 'accessing') -----
- getInputFocus
- | focus revert |
- focus := WordArray new: 1.
- revert := WordArray new: 1.
- self XGetInputFocus: self with: focus with: revert.
- ^ X11Window new xid: focus first!

Item was removed:
- ----- Method: X11Display>>ourWindow (in category 'accessing') -----
- ourWindow
- "Guess the window to draw on."
- | window ptr child |
- window := self getInputFocus.
- ptr := self queryPointer: window. "{root. child. root pos. win pos. mask}"
- child := ptr second.
- child xid = 0 ifTrue: [^ window].
- ^ child!

Item was removed:
- ----- Method: X11Display>>queryPointer: (in category 'accessing') -----
- queryPointer: aX11Window
- | root child rootX rootY winX winY mask |
- root := WordArray new: 1.
- child := WordArray new: 1.
- rootX := WordArray new: 1.
- rootY := WordArray new: 1.
- winX := WordArray new: 1.
- winY := WordArray new: 1.
- mask := WordArray new: 1.
- self XQueryPointer: self window: aX11Window xid returnRoot: root child: child
- rootX: rootX rootY: rootY winX: winX winY: winY mask: mask.
- ^{
- X11Window new xid: root first.
- X11Window new xid: child first.
- rootX first @ rootY first.
- winX first @ winY first.
- mask first}!

Item was removed:
- ----- Method: X11Display>>sync (in category 'initialize-release') -----
- sync
- ^self XSync: self!

Item was removed:
- ----- Method: X11Display>>warpPointerBy: (in category 'accessing') -----
- warpPointerBy: aPoint
- "Moves the mouse pointer from its current location to its current location + aPoint. Generates a mouse move event if the squeak window is active"
-
- ^ self XWarpPointer: self
- sourceWindow: self None
- destWindow: self None
- sourceX: 0 sourceY: 0 sourceWidth: 0 sourceHeight: 0
- destX: aPoint x destY: aPoint y!

Item was removed:
- ----- Method: X11Display>>warpPointerFrom:in:To:in: (in category 'accessing') -----
- warpPointerFrom: aRectangle in: sourceWindow To: aPoint in: destWindow
- "Moves the mouse pointer to aPoint relative to the top-left corner of a window"
-
- ^ self XWarpPointer: self
- sourceWindow: sourceWindow xid
- destWindow: destWindow xid
- sourceX: aRectangle left sourceY: aRectangle top
- sourceWidth: aRectangle width sourceHeight: aRectangle height
- destX: aPoint x destY: aPoint y!

Item was removed:
- ----- Method: X11Display>>warpPointerTo:in: (in category 'accessing') -----
- warpPointerTo: aPoint in: aWindow
- "Moves the mouse pointer to aPoint relative to the top-left corner of a window"
-
- ^ self XWarpPointer: self
- sourceWindow: self None
- destWindow: aWindow xid
- sourceX: 0 sourceY: 0 sourceWidth: 0 sourceHeight: 0
- destX: aPoint x destY: aPoint y!

Item was removed:
- X11ID subclass: #X11Drawable
- instanceVariableNames: 'display xid'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'FFI-Unix-Examples'!

Item was removed:
- ----- Method: X11Drawable class>>display: (in category 'instance creation') -----
- display: aX11Display
- ^ self new display: aX11Display!

Item was removed:
- ----- Method: X11Drawable>>display (in category 'accessing') -----
- display
- ^display!

Item was removed:
- ----- Method: X11Drawable>>display: (in category 'accessing') -----
- display: aDisplay
- display := aDisplay!

Item was removed:
- ----- Method: X11Drawable>>printOn: (in category 'printing') -----
- printOn: aStream
- aStream
- nextPutAll: self class name;
- nextPut: $(;
- nextPutAll: self xid printStringHex;
- nextPut: $) !

Item was removed:
- ----- Method: X11Drawable>>xid (in category 'accessing') -----
- xid
- ^ xid!

Item was removed:
- ----- Method: X11Drawable>>xid: (in category 'accessing') -----
- xid: anUnsignedInteger
- xid := anUnsignedInteger!

Item was removed:
- ExternalStructure subclass: #X11GC
- instanceVariableNames: 'drawable'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'FFI-Unix-Examples'!

Item was removed:
- ----- Method: X11GC class>>XCreateGC:with:with:with: (in category 'xlib calls') -----
- XCreateGC: xDisplay with: aDrawable with: valueMask with: values
- <cdecl: X11GC 'XCreateGC' (X11Display* X11Drawable ulong long*) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC class>>fields (in category 'field definition') -----
- fields
- "X11GC defineFields"
- ^#( nil 'void*' )!

Item was removed:
- ----- Method: X11GC class>>on: (in category 'instance creation') -----
- on: aDrawable
- | xgc |
- xgc := self XCreateGC: aDrawable display with: aDrawable with: 0 with: nil.
- xgc drawable: aDrawable.
- ^xgc!

Item was removed:
- ----- Method: X11GC>>XDrawArc:with:with:with:with:with:with:with:with: (in category 'xlib calls') -----
- XDrawArc: xDisplay with: xDrawable with: xGC with: x with: y with: w with: h with: a1 with: a2
- <cdecl: void 'XDrawArc' (X11Display* X11Drawable X11GC long long ulong ulong long long) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>XDrawLine:with:with:with:with:with:with: (in category 'xlib calls') -----
- XDrawLine: xDisplay with: aDrawable with: xGC with: x0 with: y0 with: x1 with: y1
- <cdecl: long 'XDrawLine' (X11Display* X11Drawable X11GC long long long long) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>XDrawRectangle:with:with:with:with:with:with: (in category 'xlib calls') -----
- XDrawRectangle: xDisplay with: xDrawable with: xGC with: x with: y with: w with: h
- <cdecl: void 'XDrawRectangle' (X11Display* X11Drawable X11GC long long ulong ulong) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>XFillArc:with:with:with:with:with:with:with:with: (in category 'xlib calls') -----
- XFillArc: xDisplay with: xDrawable with: xGC with: x with: y with: w with: h with: a1 with: a2
- <cdecl: void 'XFillArc' (X11Display* X11Drawable X11GC long long ulong ulong long long) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>XFillRectangle:with:with:with:with:with:with: (in category 'xlib calls') -----
- XFillRectangle: xDisplay with: xDrawable with: xGC with: x with: y with: w with: h
- <cdecl: void 'XFillRectangle' (X11Display* X11Drawable X11GC long long ulong ulong) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>XFreeGC:with: (in category 'xlib calls') -----
- XFreeGC: xDisplay with: xGC
- <cdecl: long 'XFreeGC' (X11Display* X11GC) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>XSetBackground:with:with: (in category 'xlib calls') -----
- XSetBackground: xDisplay with: xGC with: bg
- <cdecl: void 'XSetBackground' (X11Display* X11GC long) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>XSetForeground:with:with: (in category 'xlib calls') -----
- XSetForeground: xDisplay with: xGC with: fg
- <cdecl: void 'XSetForeground' (X11Display* X11GC long) module: 'X11'>
- ^self externalCallFailed!

Item was removed:
- ----- Method: X11GC>>background: (in category 'drawing') -----
- background: pixelValue
- self XSetBackground: self display with: self with: pixelValue!

Item was removed:
- ----- Method: X11GC>>display (in category 'accessing') -----
- display
- ^drawable display!

Item was removed:
- ----- Method: X11GC>>drawLineFrom:to: (in category 'drawing') -----
- drawLineFrom: pt1 to: pt2
- self XDrawLine: self display
- with: drawable
- with: self
- with: pt1 x
- with: pt1 y
- with: pt2 x
- with: pt2 y!

Item was removed:
- ----- Method: X11GC>>drawOval: (in category 'drawing') -----
- drawOval: aRectangle
- self
- XDrawArc: self display
- with: drawable
- with: self
- with: aRectangle left
- with: aRectangle top
- with: aRectangle width
- with: aRectangle height
- with: 0
- with: 64*360!

Item was removed:
- ----- Method: X11GC>>drawRectangle: (in category 'drawing') -----
- drawRectangle: aRectangle
- self
- XDrawRectangle: self display
- with: drawable
- with: self
- with: aRectangle left
- with: aRectangle top
- with: aRectangle width
- with: aRectangle height!

Item was removed:
- ----- Method: X11GC>>drawable (in category 'accessing') -----
- drawable
- ^drawable!

Item was removed:
- ----- Method: X11GC>>drawable: (in category 'accessing') -----
- drawable: aDrawable
- drawable := aDrawable!

Item was removed:
- ----- Method: X11GC>>fillOval: (in category 'drawing') -----
- fillOval: aRectangle
- self
- XFillArc: self display
- with: drawable
- with: self
- with: aRectangle left
- with: aRectangle top
- with: aRectangle width
- with: aRectangle height
- with: 0
- with: 64*360!

Item was removed:
- ----- Method: X11GC>>fillRectangle: (in category 'drawing') -----
- fillRectangle: aRectangle
- self
- XFillRectangle: self display
- with: drawable
- with: self
- with: aRectangle left
- with: aRectangle top
- with: aRectangle width
- with: aRectangle height!

Item was removed:
- ----- Method: X11GC>>foreground: (in category 'drawing') -----
- foreground: pixelValue
- self XSetForeground: self display with: self with: pixelValue
- !

Item was removed:
- ----- Method: X11GC>>free (in category 'initialize-release') -----
- free
- handle == nil ifFalse:[
- self XFreeGC: self display with: self.
- handle := nil.
- ].!

Item was removed:
- ExternalTypeAlias subclass: #X11ID
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'FFI-Unix-Examples'!
-
- !X11ID commentStamp: 'mt 6/4/2020 19:16' prior: 0!
- I am an opaque handle in X11.!

Item was removed:
- ----- Method: X11ID class>>originalTypeName (in category 'field definition') -----
- originalTypeName
- "
- self defineFields
- "
- ^ 'size_t' "or always uint32_t ??"!

Item was removed:
- X11ID subclass: #X11Window
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'FFI-Unix-Examples'!