Packages May 2020

packages@lists.squeakfoundation.org

1 participants
97 discussions

FFI: FFI-Kernel-mt.73.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.73.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.73 Author: mt Time: 20 May 2020, 7:09:14.260513 pm UUID: 4756e9cb-e6a2-1d44-85ec-fe4ec7c82f34 Ancestors: FFI-Kernel-mt.72 Refine the print strings for external structure to also indicate pointer types for custom structs. =============== Diff against FFI-Kernel-mt.72 =============== Item was changed: ----- Method: ExternalData>>printOn: (in category 'printing') ----- printOn: stream super printOn: stream. + self printTypeOn: stream.! - - stream - nextPut: $<; - print: type; - nextPut: $>.! Item was added: + ----- Method: ExternalData>>printPointerOn: (in category 'printing') ----- + printPointerOn: stream + "Ignore since it is part of the type."! Item was added: + ----- Method: ExternalData>>printTypeOn: (in category 'printing') ----- + printTypeOn: stream + + stream + nextPut: $<; + print: type; + nextPut: $>.! Item was added: + ----- Method: ExternalStructure>>printNullOn: (in category 'printing') ----- + printNullOn: stream + + self isNull ifTrue: [ + stream nextPutAll: '<NULL>'].! Item was changed: ----- Method: ExternalStructure>>printOn: (in category 'printing') ----- printOn: stream super printOn: stream. + + self printPointerOn: stream. + self printNullOn: stream.! - self isNull ifTrue: [ - stream nextPutAll: '<NULL>'].! Item was added: + ----- Method: ExternalStructure>>printPointerOn: (in category 'printing') ----- + printPointerOn: stream + + handle isExternalAddress + ifTrue: [stream nextPutAll: '*'].!

1 0

FFI: FFI-Tools-mt.5.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.5.mcz ==================== Summary ==================== Name: FFI-Tools-mt.5 Author: mt Time: 20 May 2020, 6:32:54.913513 pm UUID: aea11f3a-7296-fe41-99a3-a9415b34bd44 Ancestors: FFI-Tools-mt.4 Better support for NULL pointers in both Inspector and ObjectExplorer. =============== Diff against FFI-Tools-mt.4 =============== Item was changed: ----- Method: ExternalData>>explorerContents (in category '*FFI-Tools') ----- explorerContents + ^ super explorerContents, ((self isNull not and: [self mightBeCString]) ifFalse: [#()] ifTrue: [ + {ObjectExplorerWrapper + with: self fromCStringLimited + name: 'as C string' + model: self}])! - ^ super explorerContents, ((type isPointerType and: [(type instVarNamed: #referencedType) = ExternalType char]) - ifTrue: [ - {ObjectExplorerWrapper - with: self fromCStringLimited - name: 'as C string' - model: self}] - ifFalse: [])! Item was changed: ----- Method: ExternalData>>hasContentsInExplorer (in category '*FFI-Tools') ----- hasContentsInExplorer + ^ super hasContentsInExplorer + or: [self isNull not and: [self mightBeCString]]! - ^ (type isPointerType and: [(type instVarNamed: #referencedType) = ExternalType char]) - or: [super hasContentsInExplorer]! Item was added: + ----- Method: ExternalData>>mightBeCString (in category '*FFI-Tools') ----- + mightBeCString + + ^ type isPointerType + and: [(type instVarNamed: #referencedType) = ExternalType char]! Item was added: + ----- Method: ExternalStructure class>>newNull (in category '*FFI-Tools') ----- + newNull + "Answer a NULL pointer to this structure. Note that #new virtually allocates a byte array in image, which then results in NULL values for the structure's fields. Note that #externalNew actually reserves memory for the structure through FFI, which then results in undefined behavior when exploring the results." + + ^ self fromHandle: ExternalAddress new! Item was changed: ----- Method: ExternalStructure>>explorerContents (in category '*FFI-Tools') ----- explorerContents | basicExplorerFields | basicExplorerFields := super explorerContents. basicExplorerFields do: [:explorerField | explorerField itemName: '_', explorerField itemName]. ^ basicExplorerFields, (self class allFieldSelectors replace: [:simpleGetter | ObjectExplorerWrapper + with: (self isNull ifFalse: [self perform: simpleGetter]) - with: (self perform: simpleGetter) name: simpleGetter model: self])! Item was changed: ----- Method: ExternalStructure>>hasContentsInExplorer (in category '*FFI-Tools') ----- hasContentsInExplorer + ^ super hasContentsInExplorer + or: [self class allFieldSelectors notEmpty]! - ^ self class allFieldSelectors notEmpty! Item was changed: ----- Method: ExternalStructureInspector>>streamRecordFieldsOn: (in category 'fields - streaming') ----- streamRecordFieldsOn: aStream self object class allFieldSelectors do: [:field | aStream nextPut: ((self newFieldForType: #record key: field) + valueGetter: [:object | object isNull ifFalse: [object perform: field]]; + valueSetter: [:object :value | object isNull ifFalse: [(field, ':') asSymbol with: value]]; - valueGetter: [:object | object perform: field]; - valueSetter: [:object :value | (field, ':') asSymbol with: value]; yourself)].!

1 0

FFI: FFI-Kernel-mt.72.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.72.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.72 Author: mt Time: 20 May 2020, 6:29:30.726513 pm UUID: 787b6c32-f8a1-9d47-a2d6-88e91f748f51 Ancestors: FFI-Kernel-mt.71 Show in a structure's print-string whether it points to NULL. =============== Diff against FFI-Kernel-mt.71 =============== Item was added: + ----- Method: ExternalStructure>>printOn: (in category 'printing') ----- + printOn: stream + + super printOn: stream. + self isNull ifTrue: [ + stream nextPutAll: '<NULL>'].!

1 0

FFI: FFI-Tools-mt.4.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.4.mcz ==================== Summary ==================== Name: FFI-Tools-mt.4 Author: mt Time: 20 May 2020, 1:26:29.934581 pm UUID: 225e7ffe-5219-124d-8815-53e78501c1f9 Ancestors: FFI-Tools-mt.3 Makes icon for ExternalStructure more legible. Adds specializations for external data, type, union, and packaged structure. Tries to make visual style for external types a little bit different bc. those are not modeled as external object. =============== Diff against FFI-Tools-mt.3 =============== Item was added: + ----- Method: ExternalData class>>toolIcon (in category '*FFI-Tools') ----- + toolIcon + + ^ #externalData! Item was added: + ----- Method: ExternalPackedStructure class>>toolIcon (in category '*FFI-Tools') ----- + toolIcon + + ^ #externalPackedStructure! Item was added: + ----- Method: ExternalType class>>toolIcon (in category '*FFI-Tools') ----- + toolIcon + + ^ #externalType! Item was added: + ----- Method: ExternalUnion class>>toolIcon (in category '*FFI-Tools') ----- + toolIcon + + ^ #externalUnion! Item was added: + ----- Method: ToolIcons class>>externalData (in category '*FFI-Tools') ----- + externalData + + ^ Form + extent: 12@12 + depth: 32 + fromArray: #( 0 4294967295 4294967295 4294967295 0 4294967295 4294967295 4294967295 0 4294967295 0 0 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4278227710 4278227710 4278227710 4278227710 4294967295 4278190080 4294967295 0 0 4294967295 0 4278227710 4294967295 4294967295 4294967295 4278227710 4278227710 4294967295 0 0 0 0 0 4278227710 4294967295 4278227710 4278227710 4294967295 4278227710 0 0 0 0 0 0 4278227710 4294967295 4278227710 4278227710 4294967295 4278227710 0 0 0 0 0 0 4278227710 4294967295 4278227710 4278227710 4294 967295 4278227710 0 0 0 0 0 0 4278227710 4294967295 4294967295 4294967295 4278227710 4278227710 0 0 0 0 0 0 0 4278227710 4278227710 4278227710 4278227710 0 0 0 0) + offset: 0@0! Item was changed: ----- Method: ToolIcons class>>externalObject (in category '*FFI-Tools') ----- externalObject + ^ Form - ^ (Form extent: 12@12 depth: 32 fromArray: #( 0 4294967295 4294967295 4294967295 0 4294967295 4294967295 4294967295 0 4294967295 0 0 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 0 4294967295 0 0 0 4294967295 0 0 0 4294967295 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) + offset: 0@0! - offset: 0@0)! Item was added: + ----- Method: ToolIcons class>>externalPackedStructure (in category '*FFI-Tools') ----- + externalPackedStructure + + ^ (Form + extent: 12@12 + depth: 32 + fromArray: #( 0 4294967295 4294967295 4294967295 0 4294967295 4294967295 4294967295 0 4294967295 0 0 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4278235136 4278235136 4278235136 4278235136 4278235136 4294967295 4278190080 4294967295 0 0 0 4278235136 4278235136 4278235136 4294967295 4294967295 4294967295 4278235136 4294967295 0 0 0 0 4278235136 4278235136 4278235136 4294967295 4278235136 4278235136 4278235136 0 0 0 0 0 4278235136 4294967295 4294967295 4278235136 4294967295 4278235136 4278235136 0 0 0 0 0 4278235136 4294967295 4 294967295 4278235136 4278235136 4294967295 4278235136 0 0 0 0 0 4278235136 4294967295 4278235136 4294967295 4294967295 4294967295 4278235136 0 0 0 0 0 0 4278235136 4278235136 4278235136 4278235136 4278235136 0 0 0 0) + offset: 0@0)! Item was changed: ----- Method: ToolIcons class>>externalStructure (in category '*FFI-Tools') ----- externalStructure ^ (Form extent: 12@12 depth: 32 + fromArray: #( 0 4294967295 4294967295 4294967295 0 4294967295 4294967295 4294967295 0 4294967295 0 0 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4278235136 4278235136 4278235136 4278235136 4294967295 4278190080 4294967295 0 0 4294967295 0 4278235136 4278235136 4294967295 4294967295 4294967295 4278235136 4294967295 0 0 0 0 0 4278235136 4294967295 4278235136 4278235136 4278235136 4278235136 0 0 0 0 0 0 4278235136 4278235136 4294967295 4294967295 4278235136 4278235136 0 0 0 0 0 0 4278235136 4278235136 4278235136 4278235136 4294 967295 4278235136 0 0 0 0 0 0 4278235136 4294967295 4294967295 4294967295 4278235136 4278235136 0 0 0 0 0 0 0 4278235136 4278235136 4278235136 4278235136 0 0 0 0) - fromArray: #( 0 4294967295 4294967295 4294967295 0 4294967295 4294967295 4294967295 0 4294967295 0 0 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 0 4294967295 0 0 4278235136 4278235136 4278235136 0 0 4294967295 0 0 0 0 0 4278235136 4278235136 4294967295 4294967295 4278235136 0 0 0 0 0 0 0 4278235136 4294967295 4294967295 4278235136 4278235136 0 0 0 0 0 0 0 4278235136 4278235136 4294967295 4294967295 4278235136 0 0 0 0 0 0 0 4278235136 4294967295 4294967295 4278235136 4278235136 0 0 0 0 0 0 0 0 4278235136 4278235136 4278235136 0 0 0 0 0) offset: 0@0)! Item was added: + ----- Method: ToolIcons class>>externalType (in category '*FFI-Tools') ----- + externalType + + ^ (Form + extent: 12@12 + depth: 32 + fromArray: #( 0 4294967295 4294967295 4294967295 0 4294967295 4294967295 4294967295 0 4294967295 0 0 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4287861651 4287861651 4287861651 4287861651 4287861651 4294967295 4278190080 4294967295 0 0 4294967295 4287861651 4294967295 4294967295 4294967295 4294967295 4294967295 4287861651 4294967295 0 0 0 0 4287861651 4294967295 4287861651 4287861651 4287861651 4294967295 4287861651 0 0 0 0 0 4287861651 4294967295 4294967295 4287861651 4294967295 4294967295 4287861651 0 0 0 0 0 4287861651 429 4967295 4294967295 4287861651 4294967295 4294967295 4287861651 0 0 0 0 0 4287861651 4294967295 4294967295 4294967295 4294967295 4294967295 4287861651 0 0 0 0 0 0 4287861651 4287861651 4287861651 4287861651 4287861651 0 0 0 0) + offset: 0@0)! Item was added: + ----- Method: ToolIcons class>>externalUnion (in category '*FFI-Tools') ----- + externalUnion + + ^ (Form + extent: 12@12 + depth: 32 + fromArray: #( 0 4294967295 4294967295 4294967295 0 4294967295 4294967295 4294967295 0 4294967295 0 0 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4278190080 4278190080 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4278190080 4294967295 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294967295 4278190080 4294967295 0 4294922834 4294922834 4294922834 4294922834 4294967295 4278190080 4294967295 0 0 4294967295 0 4294922834 4294967295 4294922834 4294922834 4294967295 4294922834 4294967295 0 0 0 0 0 4294922834 4294967295 4294922834 4294922834 4294967295 4294922834 0 0 0 0 0 0 4294922834 4294967295 4294922834 4294922834 4294967295 4294922834 0 0 0 0 0 0 4294922834 4294967295 4294922834 4294922834 4294 967295 4294922834 0 0 0 0 0 0 4294922834 4294922834 4294967295 4294967295 4294922834 4294922834 0 0 0 0 0 0 0 4294922834 4294922834 4294922834 4294922834 0 0 0 0) + offset: 0@0)!

1 0

The Trunk: Tools-mt.969.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.969.mcz ==================== Summary ==================== Name: Tools-mt.969 Author: mt Time: 20 May 2020, 1:23:12.373581 pm UUID: c99adcb3-4d84-dd44-a7a2-0abd8a7e75a2 Ancestors: Tools-nice.968 Adds missing clean-up for tool icons, which is triggered during CI and release bundling. =============== Diff against Tools-nice.968 =============== Item was added: + ----- Method: ToolIcons class>>cleanUp: (in category 'initialize-release') ----- + cleanUp: aggressive + + aggressive ifTrue: [Icons := nil].!

1 0

FFI: FFI-Examples-mt.5.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of FFI-Examples to project FFI: http://source.squeak.org/FFI/FFI-Examples-mt.5.mcz ==================== Summary ==================== Name: FFI-Examples-mt.5 Author: mt Time: 20 May 2020, 11:46:44.14554 am UUID: 267296a1-c2e3-1b44-9e2b-9bdd4c5f4b33 Ancestors: FFI-Examples-mt.4 Removes empty class categories. (Sorry, I forgot that) =============== Diff against FFI-Examples-mt.4 =============== Item was changed: - SystemOrganization addCategory: #'FFI-Examples-MacOS'! - SystemOrganization addCategory: #'FFI-Examples-Win32'! - SystemOrganization addCategory: #'FFI-Examples-X11'! SystemOrganization addCategory: #'FFI-Examples-X64'!

1 0

FFI: FFI-Examples-mt.4.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

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@0; lineTo: 100@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@0; lineTo: 100@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/Referenc… 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@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@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@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'!

1 0

FFI: FFI-Kernel-mt.71.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.71.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.71 Author: mt Time: 20 May 2020, 11:15:47.8215 am UUID: 727723ad-c0b8-284b-874b-7be0bd5fb346 Ancestors: FFI-Kernel-mt.70 Minor code clean-up as suggested by Eliot (eem). Might even be a tiny bit faster now ... but maybe it is just noise. =============== Diff against FFI-Kernel-mt.70 =============== Item was changed: ----- Method: CompiledMethod>>externalLibraryFunction (in category '*FFI-Kernel') ----- externalLibraryFunction "Answers the external library function that will be called when evaluating this method." | result | + ^ self numLiterals > 0 ifTrue: + [(result := self literalAt: 1) class == ExternalLibraryFunction ifTrue: [result]]! - self numLiterals = 0 ifTrue: [^ nil]. - ^ (result := self literalAt: 1) class == ExternalLibraryFunction - ifTrue: [result] - ifFalse: [nil] - !

1 0

FFI: FFI-Examples-eem.3.mcz
by commits＠source.squeak.org 19 May '20

19 May '20

Eliot Miranda uploaded a new version of FFI-Examples to project FFI: http://source.squeak.org/FFI/FFI-Examples-eem.3.mcz ==================== Summary ==================== Name: FFI-Examples-eem.3 Author: eem Time: 19 May 2020, 2:30:52.589295 pm UUID: 67a7e7fb-bde2-4f8e-8153-f53aa90a2b36 Ancestors: FFI-Examples-eem.2 a reorganized Examples package after several Win32 classes have (correctly) been moved to FFI-Win32. =============== Diff against FFI-Examples-eem.2 =============== Item was changed: 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 changed: 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 changed: 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 changed: 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/Referenc… for more information. + + WARNING: for Snow Leopard, see warning in MacOSShell! Item was removed: - Win32HGDIObj subclass: #Win32HBrush - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! Item was removed: - ----- Method: Win32HBrush class>>apiCreateHatchBrush:with: (in category 'api calls') ----- - apiCreateHatchBrush: aStyle with: colorref - "Creates a logical brush that has the specified hatch pattern and color" - <apicall: Win32HBrush 'CreateHatchBrush' (long ulong) module: 'gdi32.dll'> - ^ self externalCallFailed! Item was removed: - ----- Method: Win32HBrush class>>backwardDiagonalWithColor: (in category 'hatch brushes') ----- - backwardDiagonalWithColor: aColor - "45-degree downward left-to-right hatch brush" - ^ self createHatchBrush: 3 color: aColor! Item was removed: - ----- Method: Win32HBrush class>>createHatchBrush:color: (in category 'instance creation') ----- - createHatchBrush: aStyle color: aColor - "Creates an instance of the receiver that has the specified hatch pattern and color" - ^ self apiCreateHatchBrush: aStyle with: aColor asColorref! Item was removed: - ----- Method: Win32HBrush class>>createSolidBrush: (in category 'instance creation') ----- - createSolidBrush: aCOLORREF - <apicall: Win32HBrush 'CreateSolidBrush' (ulong) module: 'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HBrush class>>crossWithColor: (in category 'hatch brushes') ----- - crossWithColor: aColor - "Horizontal and vertical crosshatch brush" - ^ self createHatchBrush: 4 color: aColor! Item was removed: - ----- Method: Win32HBrush class>>diagonalCrossWithColor: (in category 'hatch brushes') ----- - diagonalCrossWithColor: aColor - "45-degree crosshatch brush" - ^ self createHatchBrush: 5 color: aColor! Item was removed: - ----- Method: Win32HBrush class>>forwardDiagonalWithColor: (in category 'hatch brushes') ----- - forwardDiagonalWithColor: aColor - "45-degree upward left-to-right hatch brush" - ^ self createHatchBrush: 2 color: aColor! Item was removed: - ----- Method: Win32HBrush class>>horizontalWithColor: (in category 'hatch brushes') ----- - horizontalWithColor: aColor - "Horizontal hatch brush" - ^ self createHatchBrush: 0 color: aColor! Item was removed: - ----- Method: Win32HBrush class>>verticalWithColor: (in category 'hatch brushes') ----- - verticalWithColor: aColor - "Horizontal hatch brush" - ^ self createHatchBrush: 1 color: aColor ! Item was removed: - Win32Handle subclass: #Win32HDC - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! Item was removed: - ----- Method: Win32HDC>>apiDeleteDC: (in category 'api calls') ----- - apiDeleteDC: aHDC - <apicall: bool 'DeleteDC' (Win32HDC) module:'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiDrawFocusRect:with: (in category 'api calls') ----- - apiDrawFocusRect: aHDC with: lpRect - "Draws a rectangle in the style used to indicate that the rectangle has - the focus." - <apicall: bool 'DrawFocusRect' (Win32HDC Win32Rectangle*) module: 'user32.dll'> - ^ self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiDrawFrameControl:with:with:with: (in category 'api calls') ----- - apiDrawFrameControl: aHDC with: lpRect with: type with: state - "Draws a frame control of the specified type and style" - <apicall: bool 'DrawFrameControl' (Win32HDC Win32Rectangle* ulong ulong) module: 'user32.dll'> - ^ self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiEllipse:with:with:with:with: (in category 'api calls') ----- - apiEllipse: aHDC with: left with: top with: right with: bottom - <apicall: bool 'Ellipse' (Win32HDC long long long long) module: 'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiExtFloodFill:with:with:with:with: (in category 'api calls') ----- - apiExtFloodFill: aHDC with: x with: y with: colorref with: fillType - "fills an area of the display surface with the current brush" - <apicall: bool 'ExtFloodFill' (Win32HDC long long ulong ulong) module: 'gdi32.dll'> - ^ self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiFillRect:with:with: (in category 'api calls') ----- - apiFillRect: aHDC with: lpRect with: brush - "Fills a rectangle by using the specified brush. This function includes - the left and top borders, but excludes the right and bottom borders of - the rectangle. - " - <apicall: char 'FillRect' (Win32HDC Win32Rectangle* Win32HBrush) module: 'user32.dll'> - ^ self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiFrameRect:with:with: (in category 'api calls') ----- - apiFrameRect: aHDC with: lpRect with: brush - "Draws a border around the specified rectangle by using the specified brush. The width and height of the border are always one logical unit." - <apicall: char 'FrameRect' (Win32HDC Win32Rectangle* Win32HBrush) module: 'user32.dll'> - ^ self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiLineTo:with:with: (in category 'api calls') ----- - apiLineTo: aHDC with: x with: y - <apicall: bool 'LineTo' (Win32HDC long long) module:'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiMoveToEx:with:with:with: (in category 'api calls') ----- - apiMoveToEx: aHDC with: x with: y with: pt - <apicall: bool 'MoveToEx' (Win32HDC long long Win32Point*) module: 'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiRectangle:with:with:with:with: (in category 'api calls') ----- - apiRectangle: aHDC with: left with: top with: right with: bottom - <apicall: bool 'Rectangle' (Win32HDC long long long long) module: 'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiRoundRect:with:with:with:with:with:with: (in category 'api calls') ----- - apiRoundRect: aHDC with: left with: top with: right with: bottom with: width with: height - "Draws a rectangle with rounded corners. The rectangle is outlined by - using the current pen and filled by using the current brush" - <apicall: bool 'RoundRect' (Win32HDC long long long long long long) module: 'gdi32.dll'> - ^ self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>apiSelectObject:with: (in category 'api calls') ----- - apiSelectObject: aHDC with: aHGDIOBJ - <apicall: Win32HGDIObj 'SelectObject' (Win32HDC Win32HGDIObj) module: 'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HDC>>delete (in category 'initialize-release') ----- - delete - handle == nil - ifFalse:[self apiDeleteDC: self]. - handle := nil.! Item was removed: - ----- Method: Win32HDC>>drawFocusRectangle: (in category 'drawing') ----- - drawFocusRectangle: aRect - "draws a rectangle in the style used to indicate that the rectangle has the focus" - - self - apiDrawFocusRect: self - with: (Win32Rectangle fromRectangle: aRect) - - ! Item was removed: - ----- Method: Win32HDC>>drawFrameControl:type:style: (in category 'drawing') ----- - drawFrameControl: aRect type: aType style: aStyle - "Draws a frame control of the specified type and style (integer values)" - self apiDrawFrameControl: self with: (Win32Rectangle fromRectangle: aRect) with: aType with: aStyle! Item was removed: - ----- Method: Win32HDC>>ellipse: (in category 'drawing') ----- - ellipse: aRect - ^self apiEllipse: self with: aRect left with: aRect top with: aRect right with: aRect bottom! Item was removed: - ----- Method: Win32HDC>>fillRectangle:color: (in category 'drawing') ----- - fillRectangle: aRect color: aColor - "fills an area of the display with the given color" - | brush | - - brush := Win32HBrush createSolidBrush: aColor asColorref. - self - apiFillRect: self - with: (Win32Rectangle fromRectangle: aRect) - with: brush. - brush delete! Item was removed: - ----- Method: Win32HDC>>floodFillAt:boundaryColor:fillColor: (in category 'drawing') ----- - floodFillAt: aPoint boundaryColor: aColor fillColor: anotherColor - "fills an area of the display with the given color" - | newBrush oldBrush | - newBrush := Win32HBrush createSolidBrush: anotherColor asColorref. - oldBrush := self selectObject: newBrush. - (self - apiExtFloodFill: self - with: aPoint x - with: aPoint y - with: aColor asColorref - with: 0) inspect. - self selectObject: oldBrush. - newBrush delete! Item was removed: - ----- Method: Win32HDC>>frameRectangle:brush: (in category 'drawing') ----- - frameRectangle: aRect brush: aBrush - "Draws a border around the specified rectangle by using the specified brush. The width and height of the border are always one logical unit." - - self - apiFrameRect: self - with: (Win32Rectangle fromRectangle: aRect) - with: aBrush. - ! Item was removed: - ----- Method: Win32HDC>>lineTo: (in category 'drawing') ----- - lineTo: aPoint - ^self apiLineTo: self with: aPoint x with: aPoint y! Item was removed: - ----- Method: Win32HDC>>moveTo: (in category 'drawing') ----- - moveTo: aPoint - ^self apiMoveToEx: self with: aPoint x with: aPoint y with: nil! Item was removed: - ----- Method: Win32HDC>>rectangle: (in category 'drawing') ----- - rectangle: aRect - ^self apiRectangle: self with: aRect left with: aRect top with: aRect right with: aRect bottom! Item was removed: - ----- Method: Win32HDC>>roundRectangle:width:height: (in category 'drawing') ----- - roundRectangle: aRect width: width height: height - ^ self - apiRoundRect: self - with: aRect left - with: aRect top - with: aRect right - with: aRect bottom - with: width - with: height! Item was removed: - ----- Method: Win32HDC>>selectObject: (in category 'drawing') ----- - selectObject: aHGDIOBJ - ^self apiSelectObject: self with: aHGDIOBJ! Item was removed: - Win32Handle subclass: #Win32HGDIObj - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! Item was removed: - ----- Method: Win32HGDIObj>>apiDeleteObject: (in category 'api calls') ----- - apiDeleteObject: aHGDIOBJ - <apicall: bool 'DeleteObject' (Win32HGDIObj) module: 'gdi32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32HGDIObj>>delete (in category 'initialize-release') ----- - delete - self apiDeleteObject: self! Item was removed: - ExternalStructure subclass: #Win32Handle - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! Item was removed: - ----- Method: Win32Handle class>>fields (in category 'accessing') ----- - fields - "Win32Handle defineFields" - "The following really means - typedef void* Win32Handle; - " - ^#(nil 'ulong') "an opaque 32bit handle"! Item was removed: - ExternalStructure subclass: #Win32Point - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! Item was removed: - ----- Method: Win32Point class>>apiGetCursorPos: (in category 'api calls') ----- - apiGetCursorPos: pt - <apicall: bool 'GetCursorPos' (Win32Point*) module: 'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Point class>>fields (in category 'accessing') ----- - fields - "POINT defineFields" - ^#( - (x 'long') - (y 'long') - )! Item was removed: - ----- Method: Win32Point class>>getCursorPos (in category 'instance creation') ----- - getCursorPos - | pt | - pt := self new. - self apiGetCursorPos: pt. - ^pt! Item was removed: - ----- Method: Win32Point>>asPoint (in category 'converting') ----- - asPoint - ^self x @ self y! Item was removed: - ----- Method: Win32Point>>x (in category 'accessing') ----- - x - "This method was automatically generated" - ^handle signedLongAt: 1! Item was removed: - ----- Method: Win32Point>>x: (in category 'accessing') ----- - x: anObject - "This method was automatically generated" - handle signedLongAt: 1 put: anObject! Item was removed: - ----- Method: Win32Point>>y (in category 'accessing') ----- - y - "This method was automatically generated" - ^handle signedLongAt: 5! Item was removed: - ----- Method: Win32Point>>y: (in category 'accessing') ----- - y: anObject - "This method was automatically generated" - handle signedLongAt: 5 put: anObject! Item was removed: - ExternalStructure subclass: #Win32Rectangle - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! Item was removed: - ----- Method: Win32Rectangle class>>fields (in category 'accessing') ----- - fields - "Win32Rectangle defineFields" - ^ #(#(#left 'long') #(#top 'long') #(#right 'long') #(#bottom 'long') )! Item was removed: - ----- Method: Win32Rectangle class>>fromRectangle: (in category 'instance creation') ----- - fromRectangle: rc - "returns an instance of the receiver from the given smalltalk rectangle" - ^ self new left: rc left top: rc top right: rc right bottom: rc bottom ! Item was removed: - ----- Method: Win32Rectangle>>bottom (in category 'accessing') ----- - bottom - "This method was automatically generated" - ^handle signedLongAt: 13! Item was removed: - ----- Method: Win32Rectangle>>bottom: (in category 'accessing') ----- - bottom: anObject - "This method was automatically generated" - handle signedLongAt: 13 put: anObject! Item was removed: - ----- Method: Win32Rectangle>>left (in category 'accessing') ----- - left - "This method was automatically generated" - ^handle signedLongAt: 1! Item was removed: - ----- Method: Win32Rectangle>>left: (in category 'accessing') ----- - left: anObject - "This method was automatically generated" - handle signedLongAt: 1 put: anObject! Item was removed: - ----- Method: Win32Rectangle>>left:top:right:bottom: (in category 'accessing') ----- - left: left top: top right: right bottom: bottom - "sets the coordinates of the receiver" - - self left: left. - self top: top. - self right: right. - self bottom: bottom ! Item was removed: - ----- Method: Win32Rectangle>>right (in category 'accessing') ----- - right - "This method was automatically generated" - ^handle signedLongAt: 9! Item was removed: - ----- Method: Win32Rectangle>>right: (in category 'accessing') ----- - right: anObject - "This method was automatically generated" - handle signedLongAt: 9 put: anObject! Item was removed: - ----- Method: Win32Rectangle>>top (in category 'accessing') ----- - top - "This method was automatically generated" - ^handle signedLongAt: 5! Item was removed: - ----- Method: Win32Rectangle>>top: (in category 'accessing') ----- - top: anObject - "This method was automatically generated" - handle signedLongAt: 5 put: anObject! Item was removed: - ExternalObject subclass: #Win32Shell - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! - - !Win32Shell commentStamp: '<historical>' prior: 0! - This class wrappes the Windows 32 shell. - - Try - Win32Shell new shellOpen: 'c:\image.bmp' to open a document - Win32Shell new shellOpen: 'c:\myprogram.exe' to start an executable - Win32Shell new shellExplore: 'c:\' to explore a directory - Win32Shell new shellFind: 'c:\' to initiate a search - - Note that this class is platform specific. - - ! Item was removed: - ----- Method: Win32Shell>>shellExecute:lpOperation:lpFile:lpParameters:lpDirectory:nShowCmd: (in category 'api calls') ----- - shellExecute: hwnd lpOperation: opString lpFile: fileString lpParameters: parmString lpDirectory: dirString nShowCmd: anInteger - "Opens or prints the specified file, which can be an executable or document file. - HINSTANCE ShellExecute( - HWND hwnd, // handle to parent window - LPCTSTR lpOperation, // pointer to string that specifies operation to perform - LPCTSTR lpFile, // pointer to filename or folder name string - LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters - LPCTSTR lpDirectory, // pointer to string that specifies default directory - INT nShowCmd // whether file is shown when opened - );" - <apicall: long 'ShellExecuteA' (long char* char* char* char* ulong) module:'shell32.dll'>! Item was removed: - ----- Method: Win32Shell>>shellExplore: (in category 'operations') ----- - shellExplore: aPathString - "Explores the folder specified by aPathString" - - (self shellExecute: nil - lpOperation: 'explore' - lpFile: aPathString - lpParameters: nil - lpDirectory: nil - nShowCmd: 1) <= 32 ifTrue: [self error: 'system error']! Item was removed: - ----- Method: Win32Shell>>shellFind: (in category 'operations') ----- - shellFind: aPathString - "Initiates a search starting from the specified directory." - - (self shellExecute: nil - lpOperation: 'find' - lpFile: nil - lpParameters: nil - lpDirectory: aPathString - nShowCmd: 1) <= 32 ifTrue: [self error: 'system error']! Item was removed: - ----- Method: Win32Shell>>shellOpen: (in category 'operations') ----- - shellOpen: aFileString - "Opens the file specified by aFileString. The file can be an executable file, a document file, - or a folder." - - (self shellExecute: nil - lpOperation: 'open' - lpFile: aFileString - lpParameters: nil - lpDirectory: nil - nShowCmd: 1) <= 32 ifTrue: [self error: 'system error']! Item was removed: - Object subclass: #Win32Utils - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! - - !Win32Utils commentStamp: 'tbn 8/22/2005 23:50' prior: 0! - This is an utility class with helpfull methods for Win32 users. Note that it uses FFI and is - platform dependent.! Item was removed: - ----- Method: Win32Utils class>>apiGetEnvironmentVariable:with:with: (in category 'api calls') ----- - apiGetEnvironmentVariable: lpName with: lpBuffer with: nSize - <apicall: ulong 'GetEnvironmentVariableA' (char* byte* ulong) module: 'kernel32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Utils class>>getCommonEnvironmentVariables (in category 'examples') ----- - getCommonEnvironmentVariables - "Returns a dictionary with common environment variables for Win32 systems" - - |map| - map := Dictionary new. - #('ALLUSERSPROFILE' 'APPDATA' 'COMPUTERNAME' 'COMSPEC' 'HOMEDRIVE' 'HOMEPATH' 'LOGONSERVER' - 'SYSTEMDRIVE' 'OS' 'PATH' 'SYSTEMROOT' 'TEMP' 'TMP' 'USERDOMAIN' 'USERNAME' 'USERPROFILE' 'WINDIR') - do: [:each | map at: each put: (self getEnvironmentVariable: each)]. - ^map - ! Item was removed: - ----- Method: Win32Utils class>>getEnvironmentVariable: (in category 'accessing') ----- - getEnvironmentVariable: aString - "Win32Utils getEnvironmentVariable: 'windir'" - - | buffer size | - size := self apiGetEnvironmentVariable: aString with: nil with: 0. - buffer := String new: size. - self apiGetEnvironmentVariable: aString with: buffer with: size. - ^buffer allButLast! Item was removed: - Win32Handle subclass: #Win32Window - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-Win32'! - - !Win32Window commentStamp: '<historical>' prior: 0! - Here's a simple Win32 example: - | hwnd dc dst | - hwnd _ Win32Window getFocus. "fetch the window currently having the focus" - dc _ hwnd getDC. "grab the dc or the window" - dst _ 100. - dc moveTo: 0@0. - "draw a rect" - dc lineTo: dst@0. dc lineTo: dst@dst. dc lineTo: 0@dst. dc lineTo: 0@0. - "and a cross" - dc lineTo: dst@dst. dc moveTo: dst@0. dc lineTo: 0@dst. - hwnd releaseDC: dc.! Item was removed: - ----- Method: Win32Window class>>coloredEllipses (in category 'examples') ----- - coloredEllipses "Win32Window coloredEllipses" - "Draw a bunch of ellipses" - | rnd pt1 pt2 w h colors newBrush oldBrush | - colors := Color colorNames collect:[:cName| (Color perform: cName)]. - "convert to COLORREF" - colors := colors collect:[:c| - (c red * 255) asInteger + - ((c green * 255) asInteger << 8) + - ((c blue * 255) asInteger << 16)]. - rnd := Random new. - w := Display width. - h := Display height. - self getFocus getHDCDuring:[:hDC| - [Sensor anyButtonPressed] whileFalse:[ - newBrush := Win32HBrush createSolidBrush: colors atRandom. - oldBrush := hDC selectObject: newBrush. - pt1 := (rnd next * w) asInteger @ (rnd next * h) asInteger. - pt2 := (rnd next * w) asInteger @ (rnd next * h) asInteger. - hDC ellipse: (Rectangle encompassing: (Array with: pt1 with: pt2)). - hDC selectObject: oldBrush. - newBrush delete. - ]. - ]. - Display forceToScreen.! Item was removed: - ----- Method: Win32Window class>>coloredRectangles (in category 'examples') ----- - coloredRectangles "Win32Window coloredRectangles" - "Draw a bunch of ellipses" - | rnd pt1 pt2 w h colors newBrush oldBrush n nPixels time r | - colors := Color colorNames collect:[:cName| (Color perform: cName)]. - "convert to COLORREF" - colors := colors collect:[:c| - (c red * 255) asInteger + - ((c green * 255) asInteger << 8) + - ((c blue * 255) asInteger << 16)]. - rnd := Random new. - w := Display width. - h := Display height. - self getFocus getHDCDuring:[:hDC| - n := 0. - nPixels := 0. - time := Time millisecondClockValue. - [Sensor anyButtonPressed] whileFalse:[ - newBrush := Win32HBrush createSolidBrush: colors atRandom. - oldBrush := hDC selectObject: newBrush. - pt1 := (rnd next * w) asInteger @ (rnd next * h) asInteger. - pt2 := (rnd next * w) asInteger @ (rnd next * h) asInteger. - hDC rectangle: (r := Rectangle encompassing: (Array with: pt1 with: pt2)). - hDC selectObject: oldBrush. - newBrush delete. - 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]. - ]. - ]. - Display forceToScreen.! Item was removed: - ----- Method: Win32Window class>>getDesktopWindow (in category 'accessing') ----- - getDesktopWindow - "Return the HWND describing the desktop" - <apicall: Win32Window 'GetDesktopWindow' (void) module: 'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Window class>>getFocus (in category 'accessing') ----- - getFocus - "Return the HWND currently having the input focus" - <apicall: Win32Window 'GetFocus' (void) module: 'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Window class>>win32Draw (in category 'examples') ----- - win32Draw "Win32Window win32Draw" - "Draw a bunch of lines using the Windows API" - | hWnd hDC pt | - hWnd := Win32Window getFocus. - hDC := hWnd getDC. - hDC moveTo: (hWnd screenToClient: Win32Point getCursorPos). - [Sensor anyButtonPressed] whileFalse:[ - pt := Win32Point getCursorPos. - hWnd screenToClient: pt. - hDC lineTo: pt. - ]. - hWnd releaseDC: hDC. - Display forceToScreen.! Item was removed: - ----- Method: Win32Window>>apiGetDC: (in category 'api calls') ----- - apiGetDC: aHWND - <apicall: Win32HDC 'GetDC' (Win32Window) module: 'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Window>>apiGetParent: (in category 'api calls') ----- - apiGetParent: aWindow - <apicall: Win32Window 'GetParent' (Win32Window) module: 'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Window>>apiMessageBox:text:title:flags: (in category 'api calls') ----- - apiMessageBox: aHWND text: aString title: aTitle flags: flags - <apicall: long 'MessageBoxA' (Win32Window char* char* ulong) module:'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Window>>apiReleaseDC:with: (in category 'api calls') ----- - apiReleaseDC: aHWND with: aHDC - <apicall: long 'ReleaseDC' (Win32Window Win32HDC) module:'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Window>>apiScreenToClient:with: (in category 'api calls') ----- - apiScreenToClient: aHWND with: aPOINT - <apicall: bool 'ScreenToClient' (Win32Window Win32Point*) module: 'user32.dll'> - ^self externalCallFailed! Item was removed: - ----- Method: Win32Window>>getDC (in category 'accessing') ----- - getDC - "Return the DC associated with the window" - ^self apiGetDC: self! Item was removed: - ----- Method: Win32Window>>getHDCDuring: (in category 'accessing') ----- - getHDCDuring: aBlock - "Provide a Win32 HDC during the execution of aBlock" - | hDC | - hDC := self getDC. - [aBlock value: hDC] ensure:[self releaseDC: hDC].! Item was removed: - ----- Method: Win32Window>>getParent (in category 'accessing') ----- - getParent - | wnd | - wnd := self apiGetParent: self. - ^wnd handle = 0 ifTrue:[nil] ifFalse:[wnd]! Item was removed: - ----- Method: Win32Window>>messageBox: (in category 'accessing') ----- - messageBox: aString - "Win32Window getFocus messageBox:'Hello World'" - ^self messageBox: aString title:'Squeak'! Item was removed: - ----- Method: Win32Window>>messageBox:title: (in category 'accessing') ----- - messageBox: aString title: aTitle - "Win32Window getFocus messageBox:'Hello World' title:'News from Squeak:'" - ^self messageBox: aString title: aTitle flags: 0! Item was removed: - ----- Method: Win32Window>>messageBox:title:flags: (in category 'accessing') ----- - messageBox: aString title: aTitle flags: flags - "Win32Window getFocus messageBox:'Are you ready???' title:'News from Squeak:' flags: 3" - ^self apiMessageBox: self text: aString title: aTitle flags: flags! Item was removed: - ----- Method: Win32Window>>releaseDC: (in category 'accessing') ----- - releaseDC: aHDC - "Release the given DC" - self apiReleaseDC: self with: aHDC! Item was removed: - ----- Method: Win32Window>>screenToClient: (in category 'accessing') ----- - screenToClient: aPoint - self apiScreenToClient: self with: aPoint. - ^aPoint! Item was added: + ----- Method: X11Display class>>new (in category 'instance creation') ----- + new + ^ self on: nil! Item was added: + ----- Method: X11Display class>>on: (in category 'instance creation') ----- + on: aStringOrNil + ^ self XOpenDisplay: aStringOrNil! Item was added: + ----- Method: X11Display>>None (in category 'xlib calls') ----- + None + ^ 0! Item was added: + ----- 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 added: + ----- 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 added: + ----- 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 added: + ----- 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 added: + ----- Method: X11Drawable class>>none (in category 'instance creation') ----- + none + "Universal null resource or null atom" + ^ self new! Item was added: + ----- Method: X11Drawable>>xid: (in category 'accessing') ----- + xid: anUnsignedInteger + xid := anUnsignedInteger!

1 0

FFI: FFI-Tools-mt.3.mcz
by commits＠source.squeak.org 19 May '20

19 May '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.3.mcz ==================== Summary ==================== Name: FFI-Tools-mt.3 Author: mt Time: 19 May 2020, 4:22:18.962992 pm UUID: eecefd2a-10ce-5a44-b017-94281056818f Ancestors: FFI-Tools-mt.2 In the Object Explorer, show the instVars again for external structures. They got lost in the previous commit, sorry. Adds a field for interpreting char* as C string but in a guarded fashion. =============== Diff against FFI-Tools-mt.2 =============== Item was added: + ----- Method: ExternalData>>explorerContents (in category '*FFI-Tools') ----- + explorerContents + + ^ super explorerContents, ((type isPointerType and: [(type instVarNamed: #referencedType) = ExternalType char]) + ifTrue: [ + {ObjectExplorerWrapper + with: self fromCStringLimited + name: 'as C string' + model: self}] + ifFalse: [])! Item was added: + ----- Method: ExternalData>>fromCStringLimited (in category '*FFI-Tools') ----- + fromCStringLimited + + ^ self fromCStringLimitedTo: 50! Item was added: + ----- Method: ExternalData>>fromCStringLimitedTo: (in category '*FFI-Tools') ----- + fromCStringLimitedTo: limit + "Limit the number of characters to fetch in case this is no C string." + + | stream index char | + type isPointerType ifFalse: [self error: 'External object is not a pointer type.']. + stream := WriteStream on: String new. + index := 1. + [index > limit or: [(char := handle unsignedCharAt: index) = 0 asCharacter]] whileFalse: [ + stream nextPut: char. + index := index + 1]. + ^stream contents! Item was added: + ----- Method: ExternalData>>hasContentsInExplorer (in category '*FFI-Tools') ----- + hasContentsInExplorer + + ^ (type isPointerType and: [(type instVarNamed: #referencedType) = ExternalType char]) + or: [super hasContentsInExplorer]! Item was changed: ----- Method: ExternalStructure>>explorerContents (in category '*FFI-Tools') ----- explorerContents + | basicExplorerFields | + basicExplorerFields := super explorerContents. + basicExplorerFields do: [:explorerField | + explorerField itemName: '_', explorerField itemName]. + ^ basicExplorerFields, (self class allFieldSelectors replace: [:simpleGetter | - ^ self class allFieldSelectors replace: [:simpleGetter | ObjectExplorerWrapper with: (self perform: simpleGetter) name: simpleGetter + model: self])! - model: self]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2020