Packages May 2020

packages@lists.squeakfoundation.org

1 participants
97 discussions

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

19 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.70.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.70 Author: mt Time: 19 May 2020, 4:18:35.480992 pm UUID: 77eeead7-5f0d-6c4c-99c1-fc879d8c79e6 Ancestors: FFI-Kernel-mt.69 Print the type for external data in tools so one can quickly recognize 'char*' etc. =============== Diff against FFI-Kernel-mt.69 =============== Item was added: + ----- Method: ExternalData>>printOn: (in category 'printing') ----- + printOn: stream + + super printOn: stream. + + stream + nextPut: $<; + print: type; + nextPut: $>.!

1 0

The Trunk: Morphic-mt.1660.mcz
by commits＠source.squeak.org 19 May '20

19 May '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1660.mcz ==================== Summary ==================== Name: Morphic-mt.1660 Author: mt Time: 19 May 2020, 4:16:54.978992 pm UUID: 5627ad28-e67a-1c46-b9a0-672878e35a2f Ancestors: Morphic-mt.1659 Make ObjectExplorer more robust against mistakes in #explorerContents. Allow renaming of nodes so that specialized #explorerContents can denote their share of fields visually in the explorer. =============== Diff against Morphic-mt.1659 =============== Item was added: + ----- Method: ObjectExplorerWrapper class>>forError: (in category 'instance creation') ----- + forError: message + + ^ ObjectExplorerWrapper + with: message + name: '<error>' translated + model: nil! Item was changed: ----- Method: ObjectExplorerWrapper>>contents (in category 'accessing') ----- contents + ^ [self object explorerContents - ^ self object explorerContents do: [:wrapper | wrapper parent: self]; + yourself] ifError: [:msg | {self class forError: msg}]! - yourself! Item was added: + ----- Method: ObjectExplorerWrapper>>itemName: (in category 'accessing') ----- + itemName: newName + + self item key: newName.!

1 0

FFI: FFI-Tools-mt.2.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.2.mcz ==================== Summary ==================== Name: FFI-Tools-mt.2 Author: mt Time: 19 May 2020, 2:35:13.809702 pm UUID: 9d58bef4-eee3-f741-b93c-6cd39fb77d05 Ancestors: FFI-Tools-mt.1 Adds basic tool support for Squeak's ObjectExplorer. =============== Diff against FFI-Tools-mt.1 =============== Item was added: + ----- Method: ExternalObject class>>toolIcon (in category '*FFI-Tools') ----- + toolIcon + + ^ #externalObject! Item was added: + ----- Method: ExternalStructure class>>allFieldSelectors (in category '*FFI-Tools') ----- + allFieldSelectors + "Answer a list of all simple getters for fields in this structure. Rely on the #fields definition but only return selectors that are actually implemented. Consequently for any change in #fields, #defineFields should be called before calling this method." + + ^ self isTypeAlias + ifTrue: [#()] + ifFalse: [self fields + collect: [:spec | spec first] + thenSelect: [:selector | + selector notNil and: [self includesSelector: selector]]]! Item was added: + ----- Method: ExternalStructure class>>isTypeAlias (in category '*FFI-Tools') ----- + isTypeAlias + "Answer whether this structure is an alias for another C type, enum, etc." + "Example: #( nil 'long' )" + + | fields | + ^ (fields := self fields) size = 2 + and: [fields first isNil]! Item was added: + ----- Method: ExternalStructure class>>toolIcon (in category '*FFI-Tools') ----- + toolIcon + + ^ #externalStructure! Item was added: + ----- Method: ExternalStructure>>explorerContents (in category '*FFI-Tools') ----- + explorerContents + + ^ self class allFieldSelectors replace: [:simpleGetter | + ObjectExplorerWrapper + with: (self perform: simpleGetter) + name: simpleGetter + model: self]! Item was added: + ----- Method: ExternalStructure>>hasContentsInExplorer (in category '*FFI-Tools') ----- + hasContentsInExplorer + + ^ self class allFieldSelectors notEmpty! Item was removed: - ----- Method: ExternalStructureInspector>>recordFieldList (in category 'accessing') ----- - recordFieldList - | fields | - fields := object class fields. - (fields first isKindOf: Array) ifFalse: [fields := Array with: fields]. - ^fields collect: [ :field | field first ] thenSelect: [:name | name notNil]! Item was changed: ----- Method: ExternalStructureInspector>>streamRecordFieldsOn: (in category 'fields - streaming') ----- streamRecordFieldsOn: aStream + self object class allFieldSelectors do: [:field | - self recordFieldList do: [:field | aStream nextPut: ((self newFieldForType: #record key: field) valueGetter: [:object | object perform: field]; valueSetter: [:object :value | (field, ':') asSymbol with: value]; yourself)].! Item was added: + ----- Method: ToolIcons class>>externalObject (in category '*FFI-Tools') ----- + externalObject + + ^ (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)! Item was added: + ----- 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 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)!

1 0

The Trunk: Morphic-mt.1659.mcz
by commits＠source.squeak.org 19 May '20

19 May '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1659.mcz ==================== Summary ==================== Name: Morphic-mt.1659 Author: mt Time: 19 May 2020, 2:32:16.407702 pm UUID: a50918d1-5a41-774e-81c6-696146b0dd2c Ancestors: Morphic-nice.1658 Like in the code browser, show class icons in object explorer for non-visual objects. Depends on the browser's #showClassIcons preference as well as #visualExplorer. Routed through ObjectExplorerWrapper in case we decide to decouple those preferences for dependency concerns between Morphic <-> Tools package. Maybe we should move ObjectExplorerWrapper into the Tools package. =============== Diff against Morphic-nice.1658 =============== Item was added: + ----- Method: ObjectExplorerWrapper class>>showClassIcons (in category 'preferences') ----- + showClassIcons + ^ Browser showClassIcons! Item was added: + ----- Method: ObjectExplorerWrapper class>>showClassIcons: (in category 'preferences') ----- + showClassIcons: aBoolean + Browser showClassIcons: aBoolean.! Item was changed: ----- Method: ObjectExplorerWrapper>>icon (in category 'accessing') ----- icon "Answer a form to be used as icon" ^ Preferences visualExplorer ifTrue: [([self object iconOrThumbnailOfSize: 12] on: Error do: [nil]) + ifNil: [self class showClassIcons + ifTrue: [ToolIcons iconNamed: self object class toolIcon] + ifFalse: [self class showContentsInColumns + ifTrue: [ToolIcons iconNamed: #blank] + ifFalse: [nil]]]] - ifNil: [self class showContentsInColumns - ifTrue: [ToolIcons iconNamed: #blank] - ifFalse: [nil]]] ifFalse: [nil]!

1 0

The Trunk: 60Deprecated-mt.78.mcz
by commits＠source.squeak.org 19 May '20

19 May '20

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.78.mcz ==================== Summary ==================== Name: 60Deprecated-mt.78 Author: mt Time: 19 May 2020, 1:24:08.242702 pm UUID: 5e4b063f-2159-1149-859f-4aab97c2f882 Ancestors: 60Deprecated-mt.77 Un-deprecate inspector for external FFI structures. Moved to FFI-Tools package. =============== Diff against 60Deprecated-mt.77 =============== Item was removed: - Inspector subclass: #ExternalStructureInspector - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: '60Deprecated-Tools-Inspector'! Item was removed: - ----- Method: ExternalStructureInspector>>fieldSelf (in category 'fields') ----- - fieldSelf - - ^ super fieldSelf - name: 'self: ', object defaultLabelForInspector; - yourself! Item was removed: - ----- Method: ExternalStructureInspector>>fieldsRecordsOn: (in category 'fields') ----- - fieldsRecordsOn: aStream - - self recordFieldList do: [:field | - aStream nextPut: ((self newFieldForType: #record key: field) - valueGetter: [:object | object perform: field]; - valueSetter: [:object :value | (field, ':') asSymbol with: value]; - yourself)].! Item was removed: - ----- Method: ExternalStructureInspector>>recordFieldList (in category 'accessing') ----- - recordFieldList - | fields | - fields := object class fields. - (fields first isKindOf: Array) ifFalse: [fields := Array with: fields]. - ^fields collect: [ :field | field first ] thenSelect: [:name | name notNil]! Item was removed: - ----- Method: ExternalStructureInspector>>streamFieldsOn: (in category 'fields') ----- - streamFieldsOn: aStream - - self - streamBaseFieldsOn: aStream; - fieldsRecordsOn: aStream.!

1 0

FFI: FFI-Tools-mt.1.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.1.mcz ==================== Summary ==================== Name: FFI-Tools-mt.1 Author: mt Time: 19 May 2020, 1:23:14.276702 pm UUID: 5063ac2e-3c6e-be41-81bd-6dc2f87f025b Ancestors: Recue inspector for external structures from being deprecated. ==================== Snapshot ==================== SystemOrganization addCategory: #'FFI-Tools'! ----- Method: ExternalStructure>>inspectorClass (in category '*FFI-Tools') ----- inspectorClass ^ ExternalStructureInspector! Inspector subclass: #ExternalStructureInspector instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tools'! ----- Method: ExternalStructureInspector>>recordFieldList (in category 'accessing') ----- recordFieldList | fields | fields := object class fields. (fields first isKindOf: Array) ifFalse: [fields := Array with: fields]. ^fields collect: [ :field | field first ] thenSelect: [:name | name notNil]! ----- Method: ExternalStructureInspector>>streamFieldsOn: (in category 'fields - streaming') ----- streamFieldsOn: aStream self streamBaseFieldsOn: aStream; streamRecordFieldsOn: aStream.! ----- Method: ExternalStructureInspector>>streamRecordFieldsOn: (in category 'fields - streaming') ----- streamRecordFieldsOn: aStream self recordFieldList do: [:field | aStream nextPut: ((self newFieldForType: #record key: field) valueGetter: [:object | object perform: field]; valueSetter: [:object :value | (field, ':') asSymbol with: value]; yourself)].!

1 0

The Trunk: 60Deprecated-mt.77.mcz
by commits＠source.squeak.org 17 May '20

17 May '20

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.77.mcz ==================== Summary ==================== Name: 60Deprecated-mt.77 Author: mt Time: 17 May 2020, 4:50:10.605947 pm UUID: fef8e088-9a41-654b-a5bb-f754bffeb229 Ancestors: 60Deprecated-mt.76 Complements Graphics-mt.433 =============== Diff against 60Deprecated-mt.76 =============== Item was added: + ----- Method: DisplayScreen>>fullScreen (in category '*60Deprecated-other') ----- + fullScreen + + self deprecated. + clippingBox := super boundingBox.! Item was added: + ----- Method: DisplayScreen>>replacedBy:do: (in category '*60Deprecated-other') ----- + replacedBy: aForm do: aBlock + "Permits normal display to draw on aForm instead of the display." + + self deprecated: 'See Project >> #imageFormOfSize:depth:.'. + aBlock value.!

1 0

The Trunk: System-mt.1160.mcz
by commits＠source.squeak.org 17 May '20

17 May '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1160.mcz ==================== Summary ==================== Name: System-mt.1160 Author: mt Time: 17 May 2020, 4:49:45.301947 pm UUID: eec72432-59e2-e643-9fb6-f4be6facc6ef Ancestors: System-mt.1159 Complements Graphics-mt.433 =============== Diff against System-mt.1159 =============== Item was changed: ----- Method: Project>>imageFormOfSize:depth: (in category 'displaying') ----- imageFormOfSize: extentPoint depth: d + + | currentDisplay temporaryDisplay | + currentDisplay := Display. + temporaryDisplay := DisplayScreen extent: extentPoint depth: d. + [Display := temporaryDisplay. self invalidate; restore] + ensure: [Display := currentDisplay]. + ^ temporaryDisplay! - | newDisplay | - newDisplay := DisplayScreen extent: extentPoint depth: d. - Display replacedBy: newDisplay do:[self invalidate; restore]. - ^newDisplay!

1 0

The Trunk: Graphics-mt.433.mcz
by commits＠source.squeak.org 17 May '20

17 May '20

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.433.mcz ==================== Summary ==================== Name: Graphics-mt.433 Author: mt Time: 17 May 2020, 4:49:08.858947 pm UUID: 7e70458e-14f3-ef46-a954-9c1368211056 Ancestors: Graphics-mt.432 Removes instance-side refs to the global Display because it can be quite surprising to call #replacedBy:do: expecting a #become: or similar. =============== Diff against Graphics-mt.432 =============== Item was changed: Form subclass: #DisplayScreen instanceVariableNames: 'clippingBox extraRegions' + classVariableNames: 'DeferringUpdates DisplayChangeSignature DisplayIsFullScreen' - classVariableNames: 'DeferringUpdates DisplayChangeSignature DisplayIsFullScreen ScreenSave' poolDictionaries: '' category: 'Graphics-Display Objects'! !DisplayScreen commentStamp: '<historical>' prior: 0! There is only one instance of me, Display. It is a global and is used to handle general user requests to deal with the whole display screen. Although I offer no protocol, my name provides a way to distinguish this special instance from all other Forms. This is useful, for example, in dealing with saving and restoring the system. To change the depth of your Display... Display newDepth: 16. Display newDepth: 8. Display newDepth: 1. Valid display depths are 1, 2, 4, 8, 16 and 32. It is suggested that you run with your monitors setting the same, for better speed and color fidelity. Note that this can add up to 4Mb for the Display form. Finally, note that newDepth: ends by executing a 'ControlManager restore' which currently terminates the active process, so nothing that follows in the doit will get executed. Depths 1, 2, 4 and 8 bits go through a color map to put color on the screen, but 16 and 32-bit color use the pixel values directly for RGB color (5 and 8 bits per, respectivlely). The color choice an be observed by executing Color fromUser in whatever depth you are using. ! Item was removed: - ----- Method: DisplayScreen>>fullScreen (in category 'other') ----- - fullScreen "Display fullScreen" - - ScreenSave notNil ifTrue: [Display := ScreenSave]. - clippingBox := super boundingBox! Item was removed: - ----- Method: DisplayScreen>>replacedBy:do: (in category 'other') ----- - replacedBy: aForm do: aBlock - "Permits normal display to draw on aForm instead of the display." - - ScreenSave := self. - Display := aForm. - aBlock value. - Display := self. - ScreenSave := nil.!

1 0

The Trunk: System-mt.1159.mcz
by commits＠source.squeak.org 17 May '20

17 May '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1159.mcz ==================== Summary ==================== Name: System-mt.1159 Author: mt Time: 17 May 2020, 4:21:47.664702 pm UUID: 295e0b7d-6603-ca4e-b7b7-9152cd3d4678 Ancestors: System-mt.1158 Adds way to locate all stores into global variables. Expands documentation a little bit. (Note that I am not sure whether it is a good idea to have this duplication in #allStoresInto:from:. Try SystemNavigation default browseAllStoresInto: 'Display' from: ProtoObject Maybe that addition with SharedPool was once a now obsolete workaround?) =============== Diff against System-mt.1158 =============== Item was added: + ----- Method: SystemNavigation>>allStoresInto: (in category 'query') ----- + allStoresInto: globalVarName + "Answer a collection of method references for all methods in the current environment that assign to the globalVarName. Also supports variables from shared pools." + "self new allStoresInto: 'ActiveWorld'." + + | result | + result := OrderedCollection new. + self allClasses do: [:class | + (class theNonMetaClass whichMethodsStoreInto: globalVarName) do: [:method | + result add: method methodReference]. + (class theMetaClass whichMethodsStoreInto: globalVarName) do: [:method | + result add: method methodReference]]. + ^result! Item was changed: ----- Method: SystemNavigation>>allStoresInto:from: (in category 'query') ----- + allStoresInto: varName from: aClass + "Answer a collection of method references for all the aClass' methods or any methods of a subclass/superclass that assign to the varName. If aClass is a SharedPool, consider all classes in the current environment that refer to that pool." - allStoresInto: varName from: aClass - "Answer a sequence of MewthodReferences for all the receiver's methods - or any methods of a subclass/superclass that assign to the instance variable name." "self new allStoresInto: 'contents' from: Collection." + "self new allStoresInto: 'DayNames' from: ChronologyConstants." + | result roots | result := OrderedCollection new. (aClass theNonMetaClass inheritsFrom: SharedPool) ifTrue: [roots := self allClasses select: [:class| class sharedPools includes: aClass theNonMetaClass]. roots do: [:root| root withAllSubclassesDo: [:class| (class whichMethodsStoreInto: varName), (class class whichMethodsStoreInto: varName) do: [:eachMethod| result add: eachMethod methodReference]]]]. aClass withAllSubAndSuperclassesDo: [ : class | (class theNonMetaClass whichMethodsStoreInto: varName), (class theMetaClass whichMethodsStoreInto: varName) do: [ : eachMethod | result add: eachMethod methodReference ] ]. ^result! Item was added: + ----- Method: SystemNavigation>>browseAllStoresInto: (in category 'browse') ----- + browseAllStoresInto: globalVarName + "Create and schedule a Message Set browser for all the methods in the current environment that assign to the globalVarName. Also supports variables from shared pools." + "self new browseAllStoresInto: 'ActiveWorld'." + + ^ self + browseMessageList: (self allStoresInto: globalVarName) + name: 'Stores into global ' , globalVarName + autoSelect: globalVarName! Item was changed: ----- Method: SystemNavigation>>browseAllStoresInto:from: (in category 'browse') ----- browseAllStoresInto: varName from: aClass + "Create and schedule a Message Set browser for all the aClass' methods or any methods of a subclass/superclass that assign to the varName. If aClass is a SharedPool, consider all classes in the current environment that refer to that pool." - "Create and schedule a Message Set browser for all the receiver's methods - or any methods of a subclass/superclass that refer to the instance variable name." "self new browseAllStoresInto: 'contents' from: Collection." + "self new browseAllStoresInto: 'DayNames' from: ChronologyConstants." + ^ self browseMessageList: (self allStoresInto: varName from: aClass) name: 'Stores into ' , varName autoSelect: varName!

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