[squeak-dev] FFI: FFI-Examples-mt.4.mczcommits at source.squeak.org commits at source.squeak.orgWed May 20 09:45:32 UTC 2020
Marcel Taeumel uploaded a new version of FFI-Examples to project FFI: http://source.squeak.org/FFI/FFI-Examples-mt.4.mcz ==================== Summary ==================== Name: FFI-Examples-mt.4 Author: mt Time: 20 May 2020, 11:45:32.16054 am UUID: 39250631-a7ef-614a-8c0c-0c10476923f0 Ancestors: FFI-Examples-eem.3 reorganize examples package after X11 examples have long been moved to "FFI-Unix" and MacOS examples have long been moved to "FFI-MacOS". =============== Diff against FFI-Examples-eem.3 =============== Item was removed: - ExternalStructure subclass: #MacPixPatPtr - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-MacOS'! - - !MacPixPatPtr commentStamp: 'spd 5/16/2010 22:32' prior: 0! - See class comment for MacRect.! Item was removed: - ----- Method: MacPixPatPtr class>>fields (in category 'field definition') ----- - fields - "MacPixPatPtr defineFields" - "The following really means - typedef void* MacPixPatPtr; - " - ^#(nil 'void*') "For now this is just an opaque handle"! Item was removed: - ----- Method: MacPixPatPtr class>>newPixPat (in category 'instance creation') ----- - newPixPat - <apicall: MacPixPatPtr* 'NewPixPat' (void) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacPixPatPtr>>apiDisposePixPat: (in category 'api calls') ----- - apiDisposePixPat: aPixPat - <apicall: void 'DisposePixPat' (MacPixPatPtr*) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacPixPatPtr>>apiMakeRGBPat:with: (in category 'api calls') ----- - apiMakeRGBPat: aPixPat with: aRGBColor - <apicall: void 'MakeRGBPat' (MacPixPatPtr* MacRGBColor*) module: 'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacPixPatPtr>>dispose (in category 'initialize-release') ----- - dispose - handle == nil ifFalse:[ - self apiDisposePixPat: self. - handle := nil. - ].! Item was removed: - ----- Method: MacPixPatPtr>>makeRGBPattern: (in category 'accessing') ----- - makeRGBPattern: aColor - ^self apiMakeRGBPat: self with: (MacRGBColor fromColor: aColor)! Item was removed: - ExternalStructure subclass: #MacPoint - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-MacOS'! - - !MacPoint commentStamp: 'spd 5/16/2010 22:32' prior: 0! - See class comment for MacRect.! Item was removed: - ----- Method: MacPoint class>>apiLineTo:with: (in category 'api calls') ----- - apiLineTo: x with: y - <apicall: void 'LineTo' (short short) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacPoint class>>apiMoveTo:with: (in category 'api calls') ----- - apiMoveTo: x with: y - <apicall: void 'MoveTo' (short short) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacPoint class>>fields (in category 'field definition') ----- - fields - "MacPoint defineFields" - ^#( - (v 'short') - (h 'short') - )! Item was removed: - ----- Method: MacPoint class>>lineTo: (in category 'examples') ----- - lineTo: aPoint - "MacPoint moveTo: 0 at 0; lineTo: 100 at 100" - ^self apiLineTo: aPoint x with: aPoint y - ! Item was removed: - ----- Method: MacPoint class>>macDraw (in category 'examples') ----- - macDraw - "MacPoint macDraw" - | pt | - pt := self new. - pt getMousePoint. - self moveTo: pt. - [Sensor anyButtonPressed] whileFalse:[ - pt getMousePoint. - self lineTo: pt. - ]. - Display forceToScreen.! Item was removed: - ----- Method: MacPoint class>>moveTo: (in category 'examples') ----- - moveTo: aPoint - "MacPoint moveTo: 0 at 0; lineTo: 100 at 100" - ^self apiMoveTo: aPoint x with: aPoint y - ! Item was removed: - ----- Method: MacPoint>>apiGetMousePoint: (in category 'api calls') ----- - apiGetMousePoint: aMacPoint - <apicall: void 'GetMouse' (MacPoint*) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacPoint>>getMousePoint (in category 'accessing') ----- - getMousePoint - ^self apiGetMousePoint: self! Item was removed: - ----- Method: MacPoint>>h (in category 'accessing') ----- - h - "This method was automatically generated" - ^handle signedShortAt: 3! Item was removed: - ----- Method: MacPoint>>h: (in category 'accessing') ----- - h: anObject - "This method was automatically generated" - handle signedShortAt: 3 put: anObject! Item was removed: - ----- Method: MacPoint>>v (in category 'accessing') ----- - v - "This method was automatically generated" - ^handle signedShortAt: 1! Item was removed: - ----- Method: MacPoint>>v: (in category 'accessing') ----- - v: anObject - "This method was automatically generated" - handle signedShortAt: 1 put: anObject! Item was removed: - ----- Method: MacPoint>>x (in category 'accessing') ----- - x - ^self h! Item was removed: - ----- Method: MacPoint>>x: (in category 'accessing') ----- - x: anObject - ^self h: anObject! Item was removed: - ----- Method: MacPoint>>y (in category 'accessing') ----- - y - ^self v! Item was removed: - ----- Method: MacPoint>>y: (in category 'accessing') ----- - y: anObject - ^self v: anObject! Item was removed: - ExternalStructure subclass: #MacRGBColor - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-MacOS'! - - !MacRGBColor commentStamp: 'spd 5/16/2010 22:31' prior: 0! - See class comment for MacRect.! Item was removed: - ----- Method: MacRGBColor class>>fields (in category 'field definition') ----- - fields - "MacRGBColor defineFields" - ^#( - (red 'ushort') - (green 'ushort') - (blue 'ushort') - )! Item was removed: - ----- Method: MacRGBColor class>>fromColor: (in category 'instance creation') ----- - fromColor: aColor - ^(self new) - red: (aColor red * 16rFFFF) rounded; - green: (aColor green * 16rFFFF) rounded; - blue: (aColor blue * 16rFFFF) rounded; - yourself! Item was removed: - ----- Method: MacRGBColor>>blue (in category 'accessing') ----- - blue - "This method was automatically generated" - ^handle unsignedShortAt: 5! Item was removed: - ----- Method: MacRGBColor>>blue: (in category 'accessing') ----- - blue: anObject - "This method was automatically generated" - handle unsignedShortAt: 5 put: anObject! Item was removed: - ----- Method: MacRGBColor>>green (in category 'accessing') ----- - green - "This method was automatically generated" - ^handle unsignedShortAt: 3! Item was removed: - ----- Method: MacRGBColor>>green: (in category 'accessing') ----- - green: anObject - "This method was automatically generated" - handle unsignedShortAt: 3 put: anObject! Item was removed: - ----- Method: MacRGBColor>>red (in category 'accessing') ----- - red - "This method was automatically generated" - ^handle unsignedShortAt: 1! Item was removed: - ----- Method: MacRGBColor>>red: (in category 'accessing') ----- - red: anObject - "This method was automatically generated" - handle unsignedShortAt: 1 put: anObject! Item was removed: - ExternalStructure subclass: #MacRect - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-MacOS'! - - !MacRect commentStamp: 'spd 5/16/2010 22:42' prior: 0! - I, with my friends (MacPixPatPtr, MacPoint and MacRGBColor), show how to make calls into a Mac OS framework. - - The particular library I use in my examples, QuickDraw, is depreciated in OS X 10.4, but the examples still run as of OS X 10.6.2 - See http://developer.apple.com/legacy/mac/library/documentation/Carbon/Reference/QuickDraw_Ref/Reference/reference.html for more information. - - WARNING: for Snow Leopard, see warning in MacOSShell! Item was removed: - ----- Method: MacRect class>>apiFillCOval:with: (in category 'api calls') ----- - apiFillCOval: r with: pat - <apicall: void 'FillCOval' (MacRect* MacPixPatPtr*) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacRect class>>apiFillCRect:with: (in category 'api calls') ----- - apiFillCRect: r with: pat - <apicall: void 'FillCRect' (MacRect* MacPixPatPtr*) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacRect class>>apiFrameOval: (in category 'api calls') ----- - apiFrameOval: r - <apicall: void 'FrameOval' (MacRect*) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacRect class>>apiFrameRect: (in category 'api calls') ----- - apiFrameRect: r - <apicall: void 'FrameRect' (MacRect*) module:'InterfaceLib'> - ^self externalCallFailed! Item was removed: - ----- Method: MacRect class>>coloredEllipses (in category 'examples') ----- - coloredEllipses "MacRect coloredEllipses" - | rnd w h colors n r pat v0 v1 | - colors := Color colorNames collect:[:cName| (Color perform: cName)]. - "convert to PixPats" - colors := colors collect:[:c| MacPixPatPtr newPixPat makeRGBPattern: c]. - rnd := Random new. - w := Display width. - h := Display height. - n := 0. - r := MacRect new. - [Sensor anyButtonPressed] whileFalse:[ - pat := colors atRandom. - v0 := (rnd next * w) asInteger. - v1 := (rnd next * w) asInteger. - v0 < v1 ifTrue:[r left: v0; right: v1] ifFalse:[r left: v1; right: v0]. - v0 := (rnd next * h) asInteger. - v1 := (rnd next * h) asInteger. - v0 < v1 ifTrue:[r top: v0; bottom: v1] ifFalse:[r top: v1; bottom: v0]. - self apiFillCOval: r with: pat. - self apiFrameOval: r. - n := n + 1. - (n \\ 10) = 0 ifTrue:[n printString displayAt: 0 at 0]. - ]. - colors do:[:c| c dispose]. - Display forceToScreen.! Item was removed: - ----- Method: MacRect class>>coloredRectangles (in category 'examples') ----- - coloredRectangles "MacRect coloredRectangles" - | rnd w h colors n r pat v0 v1 nPixels time | - colors := Color colorNames collect:[:cName| (Color perform: cName)]. - "convert to PixPats" - colors := colors collect:[:c| MacPixPatPtr newPixPat makeRGBPattern: c]. - rnd := Random new. - w := Display width. - h := Display height. - n := 0. - r := MacRect new. - nPixels := 0. - time := Time millisecondClockValue. - [Sensor anyButtonPressed] whileFalse:[ - pat := colors atRandom. - v0 := (rnd next * w) asInteger. - v1 := (rnd next * w) asInteger. - v0 < v1 ifTrue:[r left: v0; right: v1] ifFalse:[r left: v1; right: v0]. - v0 := (rnd next * h) asInteger. - v1 := (rnd next * h) asInteger. - v0 < v1 ifTrue:[r top: v0; bottom: v1] ifFalse:[r top: v1; bottom: v0]. - self apiFillCRect: r with: pat. - self apiFrameRect: r. - 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 at 0]. - ]. - colors do:[:c| c dispose]. - Display forceToScreen.! Item was removed: - ----- Method: MacRect class>>fields (in category 'field definition') ----- - fields - "MacRect defineFields" - ^#( - (top 'short') - (left 'short') - (bottom 'short') - (right 'short') - )! Item was removed: - ----- Method: MacRect class>>macDraw (in category 'examples') ----- - macDraw - "MacRect macDraw" - ^MacPoint macDraw! Item was removed: - ----- Method: MacRect>>bottom (in category 'accessing') ----- - bottom - "This method was automatically generated" - ^handle signedShortAt: 5! Item was removed: - ----- Method: MacRect>>bottom: (in category 'accessing') ----- - bottom: anObject - "This method was automatically generated" - handle signedShortAt: 5 put: anObject! Item was removed: - ----- Method: MacRect>>left (in category 'accessing') ----- - left - "This method was automatically generated" - ^handle signedShortAt: 3! Item was removed: - ----- Method: MacRect>>left: (in category 'accessing') ----- - left: anObject - "This method was automatically generated" - handle signedShortAt: 3 put: anObject! Item was removed: - ----- Method: MacRect>>right (in category 'accessing') ----- - right - "This method was automatically generated" - ^handle signedShortAt: 7! Item was removed: - ----- Method: MacRect>>right: (in category 'accessing') ----- - right: anObject - "This method was automatically generated" - handle signedShortAt: 7 put: anObject! Item was removed: - ----- Method: MacRect>>top (in category 'accessing') ----- - top - "This method was automatically generated" - ^handle signedShortAt: 1! Item was removed: - ----- Method: MacRect>>top: (in category 'accessing') ----- - top: anObject - "This method was automatically generated" - handle signedShortAt: 1 put: anObject! Item was removed: - ExternalStructure subclass: #X11Display - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-X11'! 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 at 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* X11Window* 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* X11Window X11Window* X11Window* 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 := X11Window display: self. - revert := WordArray new: 1. - self XGetInputFocus: self with: focus with: revert. - ^focus! 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 := X11Window display: self. - child := X11Window display: self. - 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 returnRoot: root child: child - rootX: rootX rootY: rootY winX: winX winY: winY mask: mask. - ^{root. child. 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: - ExternalStructure subclass: #X11Drawable - instanceVariableNames: 'display' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-X11'! Item was removed: - ----- Method: X11Drawable class>>display: (in category 'instance creation') ----- - display: aX11Display - ^ self new display: aX11Display! Item was removed: - ----- Method: X11Drawable class>>fields (in category 'field definition') ----- - fields - "X11Drawable defineFields" - ^#( nil 'void*' )! Item was removed: - ----- Method: X11Drawable class>>none (in category 'instance creation') ----- - none - "Universal null resource or null atom" - ^ self new! 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 - ^ handle unsignedLongAt: 1! 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-Examples-X11'! 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: - X11Drawable subclass: #X11Window - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-X11'!
More information about the Squeak-dev mailing list |