Squeak-dev March 2023

squeak-dev@lists.squeakfoundation.org

32 participants
124 discussions

FFI: FFI-Kernel-eem.227.mcz
by commits＠source.squeak.org 10 Mar '23

10 Mar '23

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.227.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.227 Author: eem Time: 9 March 2023, 6:18:37.991467 pm UUID: 9a37d6b3-7dc2-4d71-800b-8c5e834f88ad Ancestors: FFI-Kernel-eem.226 Fix a bad thread safety bug with ExternalStructure and ExternalType class var StructTypes. StructTypes is a WeakValueDIctionary from class name (subclass of ExternalStructure) to instance of ExternalStructureType. Because the associations in StructTypes have weak values and are the only reference in ther system to the manufactured ExternalStructureType instance, the garbage collector *will* set the association's valeu to nil sooner or later. This provides a nasty potential for the assert in ExternalUnknownType class>>#newTypeForUnknownNamed: to fail because two threads are both in the process of computing a new type via ExternalType class>>#structTypeNamed:. The fix is to have ExternalStructure maintain a strong reference to the manufactured type in a class inst var, externalType, and to void this type, and the entry in StructTypes whenever a method is added or removed from the instance side of ExternalStructure. =============== Diff against FFI-Kernel-eem.226 =============== Item was changed: ExternalObject subclass: #ExternalStructure instanceVariableNames: '' classVariableNames: 'LogAccessorSourceCode' poolDictionaries: 'ExternalTypePool FFIConstants' category: 'FFI-Kernel'! ExternalStructure class + instanceVariableNames: 'compiledSpec byteAlignment externalType'! - instanceVariableNames: 'compiledSpec byteAlignment'! !ExternalStructure commentStamp: 'eem 6/26/2019 15:26' prior: 0! An ExternalStructure is for representing external data that is - either a structure composed of different fields (a struct of C language) - or an alias for another type (like a typedef of C language) It reserves enough bytes of data for representing all the fields. The data is stored into the handle instance variable which can be of two different types: - ExternalAddress If the handle is an external address then the object described does not reside in the Smalltalk object memory. - ByteArray If the handle is a byte array then the object described resides in Smalltalk memory. Instance Variables (class side) byteAlignment: <Integer> compiledSpec: <WordArray> byteAlignment - the required alignment for the structure compiledSpec - the bit-field definiton of the structure in the ExternalType encoding understood by the VM's FFI call marshalling machinery. A specific structure is defined by subclassing ExternalStructure and specifying its #fields via a class side method. For example if we define a subclass: ExternalStructure subclass: #StructExample instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'garbage'. Then declare the fields like this: StructExample class compile: 'fields ^#( (name ''char*'') (color ''ulong'') )' classified: 'garbage'. It means that this type is composed of two different fields: - a string (accessed thru the field #name) - and an unsigned 32bit integer (accessed thru the field #color). It represents the following C type: struct StructExample {char *name; uint32_t color; }; The accessors for those fields can be generated automatically like this: StructExample defineFields. As can be verified in a Browser: StructExample browse. We see that name and color fields are stored sequentially in different zones of data. The total size of the structure can be verified with: StructExample byteSize = (Smalltalk wordSize + 4). An ExternalStructure can also be used for defining an alias. The fields definition must contain only 2 elements: an eventual accessor (or nil) and the type. For example, We can define a machine dependent 'unsigned long' like this: ExternalStructure subclass: #UnsignedLong instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'garbage'. Then set the fields like this: UnsignedLong class compile: 'fields ^(Smalltalk wordSize=4 or: [Smalltalk platformName=''Win64'']) ifTrue: [#(nil ''ulong'')] ifFalse: [#(nil ''ulonglong'')]' classified: 'garbage'. And verify the size on current platform: UnsignedLong byteSize. Then, the class names 'UnsignedLong' and 'StructExamples' acts as a type specification. They can be used for composing other types, and for defining prototype of external functions: LibraryExample>>initMyStruct: aStructExample name: name color: anInteger <cdecl: void 'init_my_struct'( StructExample * char * UnsignedLong )> self externalCallFailed ! ExternalStructure class + instanceVariableNames: 'compiledSpec byteAlignment externalType'! - instanceVariableNames: 'compiledSpec byteAlignment'! Item was added: + ----- Method: ExternalStructure class>>addSelectorSilently:withMethod: (in category 'accessing method dictionary') ----- + addSelectorSilently: selector withMethod: compiledMethod + "Override to void the strong reference to the externalType" + self voidExternalType. + ^super addSelectorSilently: selector withMethod: compiledMethod! Item was changed: ----- Method: ExternalStructure class>>externalType (in category 'external type') ----- externalType + "Answer an external type describing the receiver as a structure. + Keep a strong reference to it so that it doesn't get garbage collected + from StructTypes immediately." + ^externalType := ExternalType structTypeNamed: self name! - "Return an external type describing the receiver as a structure" - ^ExternalType structTypeNamed: self name! Item was added: + ----- Method: ExternalStructure class>>removeSelector: (in category 'accessing method dictionary') ----- + removeSelector: selector + "Override to void the strong reference to the externalType" + self voidExternalType. + ^super removeSelector: selector! Item was added: + ----- Method: ExternalStructure class>>voidExternalType (in category 'private') ----- + voidExternalType + externalType := nil. + ExternalType voidStructTypeFor: self! Item was added: + ----- Method: ExternalType class>>voidStructTypeFor: (in category 'housekeeping') ----- + voidStructTypeFor: anExternalStructureClass + (StructTypes associationAt: anExternalStructureClass name ifAbsent: [^self]) value: nil!

1 0

Hyphenation puzzle/exercise
by Tim Johnson 10 Mar '23

10 Mar '23

Hi all, I was toying with different ways to add hyphens to a string in a specific pattern, like for a UUID. Here's what I came up with: | s oc | s := 'eg11dc5cad154625885bc70d4f42818e' readStream. oc := OrderedCollection new. #( 8 4 4 4 12 ) do: [:count | oc add: (s next: count)]. oc joinSeparatedBy: $- " 'eg11dc5c-ad15-4625-885b-c70d4f42818e' " Does anyone have any more graceful or clever ways of accomplishing this? Thanks, Tim

4 6

LDAP 'TLS confidentiality required'
by tim Rowledge 09 Mar '23

09 Mar '23

I was just trying out RHE's LDAP code and I get a signal raised worth the error code 13 and message 'TLS confidentiality required'. This is evidently related to using TLS for the socket. Has anyone used this successfully recently? Any experience of this error? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: YII: Yield to Irresistable Impulse

4 7

"World -> new morph -> from alphabetical list" too big
by Eduardo Ochs 09 Mar '23

09 Mar '23

Hi all, the screen on my (only) machine is just 1280x800, and when I run "World -> new morph -> from alphabetical list" the sub-lists for A-C, D-F, G-K, L-N, O-R, and S-S all extend beyond the end of screen - I can go to the off-screen items with the arrow keys but I can't see these items, and none of the ways of scrolling that are obvious to me worked... I've tried mousescroll and PgUp/PgDown. Can we consider that a bug? Does it have an easy fix? Cheers, Eduardo Ochs http://anggtwu.net/eev-squeak.html

5 9

Article: 50 YEARS LATER, WE’RE STILL LIVING IN THE XEROX ALTO’S WORLD
by rabbit 08 Mar '23

08 Mar '23

I thought to bring your attention to this article. https://spectrum.ieee.org/xerox-alto there is nothing new under the sun. it was here before our time. 🐰 — Have a good one; keep it, light. Kindly, rabbit . .. … ‘…^,^ 🐇🐇🐇 Sent from Callisto House mobile - Ganymede :: decentralized mobile homeless solutions ::

1 0

The Trunk: ReleaseBuilder-mt.243.mcz
by commits＠source.squeak.org 08 Mar '23

08 Mar '23

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.243.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.243 Author: mt Time: 8 March 2023, 11:40:16.690447 am UUID: 551ed2c8-1ee2-e842-a5fe-eb085bf46c0c Ancestors: ReleaseBuilder-mt.242 Ensure iconic halo for release building. =============== Diff against ReleaseBuilder-mt.242 =============== Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'scripts') ----- setPreferences "Preferences class defaultValueTableForCurrentRelease" " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." "General User interaction" Preferences enable: #generalizedYellowButtonMenu ; enable: #swapMouseButtons; disable: #mouseOverForKeyboardFocus. Morph indicateKeyboardFocus: true. Project uiManager openToolsAttachedToMouseCursor: false. SearchBar useScratchPad: false. HandMorph sendMouseWheelToKeyboardFocus: false. HandMorph synthesizeMouseWheelEvents: true. "Text input." TextEditor autoEnclose: true ; autoIndent: true ; encloseSelection: true ; destructiveBackWord: false ; blinkingCursor: true ; dumbbellCursor: false. PluggableTextMorph simpleFrameAdornments: false. TextMorphForEditView draggableTextSelection: true. "Windows" SystemWindow reuseWindows: false. SystemWindow windowsRaiseOnClick: true. SystemWindow windowTitleActiveOnFirstClick: true. Model windowActiveOnFirstClick: false. "Not good for little screen real estate." Model useColorfulWindows: false. Preferences disable: #fastDragWindowForMorphic. AbstractResizerMorph gripThickness: 4; handleLength: 16. CornerGripMorph drawCornerResizeHandles: false; drawEdgeResizeHandles: false. ProportionalSplitterMorph showSplitterHandles: false; smartHorizontalSplitters: false; smartVerticalSplitters: false. "Scroll bars." Preferences enable: #scrollBarsNarrow; enable: #scrollBarsOnRight; enable: #alwaysHideHScrollbar; disable: #alwaysShowHScrollbar; disable: #alwaysShowVScrollbar. ScrollBar scrollBarsWithoutArrowButtons: true; scrollBarsWithoutMenuButton: true. ScrollPane useRetractableScrollBars: false. "Rounded corners." Morph preferredCornerRadius: 8. SystemWindow roundedWindowCorners: false. DialogWindow roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. PluggableButtonMorph roundedButtonCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." SystemWindow gradientWindow: false. DialogWindow gradientDialog: false. MenuMorph gradientMenu: false. PluggableButtonMorph gradientButton: false. ScrollBar gradientScrollBar: false. "Shadows" Preferences enable: #menuAppearance3d. Morph useSoftDropShadow: true. "Lists and Trees" PluggableListMorph filterableLists: true; clearFilterAutomatically: false; clearFilterDelay: 500; highlightHoveredRow: true; highlightPreSelection: false; menuRequestUpdatesSelection: true. "Standard Tools" TheWorldMainDockingBar showWorldMainDockingBar: true; showSecondsInClock: true; twentyFourHourClock: true. SearchBar useSmartSearch: true. Workspace shouldStyle: false. TranscriptStream forceUpdate: true; redirectToStdOut: false; characterLimit: 20000. Browser listClassesHierarchically: true; showClassIcons: true; showMessageIcons: true; sortMessageCategoriesAlphabetically: true. SystemBrowser browseWithDragNDrop: true. MessageSet useUnifiedMessageLabels: true. Preferences enable: #annotationPanes; defaultAnnotationRequests: #(timeStamp author messageCategory implementorsCount allChangeSets); enable: #optionalButtons; disable: #diffsWithPrettyPrint; enable: #traceMessages; enable: #alternativeBrowseIt; enable: #menuWithIcons; enable: #visualExplorer; disable: #showSharedFlaps; maxBalloonHelpLineLength: 45. Preferences disable: #debugLogTimestamp. "Halo" Preferences + installIconicHaloSpecs; enable: #showBoundsInHalo ; disable: #alternateHandlesLook; disable: #showDirectionHandles; enable: #biggerHandles. Morph haloForAll: true; metaMenuForAll: true. "System" NetNameResolver enableIPv6: false. Scanner allowUnderscoreAsAssignment: true; prefAllowUnderscoreSelectors: true. Deprecation showDeprecationWarnings: true "that's all, folks"!

1 0

The Trunk: Morphic-mt.2095.mcz
by commits＠source.squeak.org 08 Mar '23

08 Mar '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2095.mcz ==================== Summary ==================== Name: Morphic-mt.2095 Author: mt Time: 8 March 2023, 10:14:08.422447 am UUID: 00cdaa33-4727-5a43-9236-b1dd3379ea34 Ancestors: Morphic-mt.2094 Fix minor EToys dependency in splitters. =============== Diff against Morphic-mt.2094 =============== Item was changed: ----- Method: ProportionalSplitterMorph>>splitterLeft (in category 'queries - adjacent splitters') ----- splitterLeft | immediateLeft | immediateLeft := nil. self siblingSplittersDo: + [ : each | each left < self left ifTrue: - [ : each | each x < self x ifTrue: [ immediateLeft ifNil: [ immediateLeft := each ] ifNotNil: + [ each left > immediateLeft left ifTrue: [ immediateLeft := each ] ] ] ]. - [ each x > immediateLeft x ifTrue: [ immediateLeft := each ] ] ] ]. ^ immediateLeft! Item was changed: ----- Method: ProportionalSplitterMorph>>splitterRight (in category 'queries - adjacent splitters') ----- splitterRight | immediateRight | immediateRight := nil. self siblingSplittersDo: + [ : each | each left > self left ifTrue: - [ : each | each x > self x ifTrue: [ immediateRight ifNil: [ immediateRight := each ] ifNotNil: + [ each left < immediateRight left ifTrue: [ immediateRight := each ] ] ] ]. - [ each x < immediateRight x ifTrue: [ immediateRight := each ] ] ] ]. ^ immediateRight!

1 0

The Trunk: MorphicExtras-mt.344.mcz
by commits＠source.squeak.org 08 Mar '23

08 Mar '23

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.344.mcz ==================== Summary ==================== Name: MorphicExtras-mt.344 Author: mt Time: 8 March 2023, 9:32:19.348447 am UUID: da55c926-1ab1-d14e-9d56-7f03636b9e2e Ancestors: MorphicExtras-eem.343 Complement Morphic-mt.2094 =============== Diff against MorphicExtras-eem.343 =============== Item was added: + ----- Method: MIDIFileReader class>>playFileNamed: (in category '*MorphicExtras-Sounds') ----- + playFileNamed: fileName + + ScorePlayerMorph + openOn: (self scoreFromFileNamed: fileName) + title: (FileDirectory localNameFor: fileName). + ! Item was added: + ----- Method: MIDIFileReader class>>playStream: (in category '*MorphicExtras-Sounds') ----- + playStream: binaryStream + + ScorePlayerMorph + openOn: (self scoreFromStream: binaryStream) + title: 'a MIDI stream' + ! Item was added: + ----- Method: MIDIFileReader class>>playURLNamed: (in category '*MorphicExtras-Sounds') ----- + playURLNamed: urlString + + | titleString | + titleString := urlString + copyFrom: (urlString findLast: [:c | c=$/]) + 1 + to: urlString size. + ScorePlayerMorph + openOn: (self scoreFromURL: urlString) + title: titleString. + !

1 0

The Trunk: Morphic-mt.2094.mcz
by commits＠source.squeak.org 08 Mar '23

08 Mar '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2094.mcz ==================== Summary ==================== Name: Morphic-mt.2094 Author: mt Time: 8 March 2023, 9:31:30.160447 am UUID: e7c40ac5-d497-6542-bb2b-b562cf16b6b2 Ancestors: Morphic-mt.2093 Move MorphicExtras-specific extension to there. ScorePlayerMorph is not in Morphic base package. Also fix a small bug in #makeThumbnail. =============== Diff against Morphic-mt.2093 =============== Item was removed: - ----- Method: MIDIFileReader class>>playFileNamed: (in category '*Morphic-Sounds') ----- - playFileNamed: fileName - - ScorePlayerMorph - openOn: (self scoreFromFileNamed: fileName) - title: (FileDirectory localNameFor: fileName). - ! Item was removed: - ----- Method: MIDIFileReader class>>playStream: (in category '*Morphic-Sounds') ----- - playStream: binaryStream - - ScorePlayerMorph - openOn: (self scoreFromStream: binaryStream) - title: 'a MIDI stream' - ! Item was removed: - ----- Method: MIDIFileReader class>>playURLNamed: (in category '*Morphic-Sounds') ----- - playURLNamed: urlString - - | titleString | - titleString := urlString - copyFrom: (urlString findLast: [:c | c=$/]) + 1 - to: urlString size. - ScorePlayerMorph - openOn: (self scoreFromURL: urlString) - title: titleString. - ! Item was changed: ----- Method: MorphicProject>>makeThumbnail (in category 'menu messages') ----- makeThumbnail "Make a thumbnail image of this project from the Display." world displayWorldSafely. "clean pending damage" super makeThumbnail. + (self environment classNamed: #InternalThreadNavigationMorph) ifNotNil: [:tnMorph | - (Smalltalk at: #InternalThreadNavigationMorph) ifNotNil: [:tnMorph | tnMorph cacheThumbnailFor: self]. ^ thumbnail!

1 0

The Trunk: ST80-mt.291.mcz
by commits＠source.squeak.org 08 Mar '23

08 Mar '23

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.291.mcz ==================== Summary ==================== Name: ST80-mt.291 Author: mt Time: 8 March 2023, 9:28:03.952447 am UUID: 39c04494-709e-d341-8a1c-f5fb62f41065 Ancestors: ST80-mt.290 Complement Kernel-mt.1506 =============== Diff against ST80-mt.290 =============== Item was removed: - ----- Method: EventSensor>>peekPosition (in category '*ST80-Support-mouse') ----- - peekPosition - - self fetchMoreEvents. - self eventQueue ifNotNil: [:queue | queue flush]. - ^ mousePosition!

1 0