Squeak-dev March 2023

squeak-dev@lists.squeakfoundation.org

32 participants
124 discussions

The Trunk: System-mt.1404.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1404.mcz ==================== Summary ==================== Name: System-mt.1404 Author: mt Time: 29 March 2023, 11:45:14.718107 am UUID: e6746bf6-9dd7-ce49-ad64-410f5ae752c8 Ancestors: System-mt.1403 Complement Collections-mt.1031 =============== Diff against System-mt.1403 =============== Item was removed: - ----- Method: String>>isPlainText (in category '*System-Support') ----- - isPlainText - "For compatibility with Text" - ^true! Item was removed: - ----- Method: Text>>isPlainText (in category '*System-Support') ----- - isPlainText - "A Text with no emphasis has empty values." - ^runs values = #(#())!

1 0

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

29 Mar '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2100.mcz ==================== Summary ==================== Name: Morphic-mt.2100 Author: mt Time: 29 March 2023, 11:44:49.143107 am UUID: 4c032757-c84e-d945-87eb-eeb6124849b3 Ancestors: Morphic-mt.2099 Complement Collections-mt.1031 =============== Diff against Morphic-mt.2099 =============== Item was changed: ----- Method: TextMorph>>newContents: (in category 'accessing') ----- newContents: stringOrText "Accept new text contents." | newText embeddedMorphs oldSelection | newText := stringOrText isString ifTrue: [Text fromString: stringOrText copy ] ifFalse: [ stringOrText copy asText. "should be veryDeepCopy?" ]. + self plainTextOnly ifTrue: [ newText removeAttributesForPlainText ]. - self plainTextOnly ifTrue: [ newText removeAttributesThat: [:att | att isTextAlignment not] ]. (text = newText and: [text runs = newText runs]) ifTrue: [^ self]. "No substantive change" text ifNotNil: [(embeddedMorphs := text embeddedMorphs) ifNotNil: [self removeAllMorphsIn: embeddedMorphs. embeddedMorphs do: [:m | m delete]]]. oldSelection := editor ifNotNil: [:ed | ed selectionInterval]. text := newText. "add all morphs off the visible region; they'll be moved into the right place when they become visible. (this can make the scrollable area too large, though)" newText embeddedMorphs do: [:m | self addMorph: m. m position: -1000 @ 0]. self releaseParagraph. "update the paragraph cache" self paragraph. oldSelection ifNotNil: [:sel | self selectFrom: sel first to: sel last]. "re-instantiate to set bounds" self world ifNotNil: [self world startSteppingSubmorphsOf: self]!

1 0

The Trunk: Collections-mt.1031.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1031.mcz ==================== Summary ==================== Name: Collections-mt.1031 Author: mt Time: 29 March 2023, 11:43:16.766107 am UUID: 90b7b1a5-0369-5542-9507-80d32a98cc4a Ancestors: Collections-mt.1030 Document and expand on the notion of "plain text" as a property that can be checked on any String or Text. See commentary in #isPlainText for more inforamtion. Add #hasAnyAttribute to be used if a more strict check is necessary. =============== Diff against Collections-mt.1030 =============== Item was added: + ----- Method: String>>asPlainText (in category 'converting') ----- + asPlainText + "For compatibility with Text" + ^self! Item was added: + ----- Method: String>>isPlainText (in category 'testing') ----- + isPlainText + "For compatibility with Text" + ^true! Item was added: + ----- Method: Text>>asPlainText (in category 'converting') ----- + asPlainText + "Answer a copy of the receiver that represents text that has no attributes substantially related to the visual representation of glyphs. If the receiver represents already plain text, just return it. Thus, do not rely on this method to always answer a copy." + + self isPlainText ifTrue: [^ self]. + ^ self copy removeAttributesForPlainText! Item was added: + ----- Method: Text>>hasAnyAttribute (in category 'testing') ----- + hasAnyAttribute + "Also see (commentary in) #isPlainText, which is compatible with the String protocol. + Examples: + data isStringOrText and: [data isPlainText]. + data isString or: [data isText and: [data hasAnyAttribute not]]." + + ^ self notEmpty and: [self runs anySatisfy: [:attributes | attributes notEmpty]]! Item was added: + ----- Method: Text>>hasAttributeThat: (in category 'testing') ----- + hasAttributeThat: block + + ^ self runs anySatisfy: [:attributes | + attributes anySatisfy: [:attribute | + block value: attribute]]! Item was changed: ----- Method: Text>>hasClickableAttribute (in category 'testing') ----- hasClickableAttribute + ^ self hasAttributeThat: [:attr | attr mayActOnClick]! - ^ self runs anySatisfy: [:attrs | attrs anySatisfy: [:attr | - attr respondsTo: #mayActOnClick]]! Item was changed: ----- Method: Text>>hasColorAttribute (in category 'testing') ----- hasColorAttribute + ^ self hasAttributeThat: [:attr | attr respondsTo: #color]! - ^ self runs anySatisfy: [:attrs | attrs anySatisfy: [:attr | - attr respondsTo: #color]]! Item was changed: ----- Method: Text>>hasFontAttribute (in category 'testing') ----- hasFontAttribute + ^ self hasAttributeThat: [:attr | + (attr respondsTo: #fontNumber) or: [attr respondsTo: #font]]! - ^ self runs anySatisfy: [:attrs | attrs anySatisfy: [:attr | - (attr respondsTo: #fontNumber) or: [attr respondsTo: #font]]]! Item was added: + ----- Method: Text>>isPlainText (in category 'testing') ----- + isPlainText + "A plain text has no attribute that is substantial for a character's visual representation. As of now, this excludes text alignment as this is regarded more a layout property of the surrounding text container (or widget). See #hasAttributes for a more strict check and #asPlainText for conversion. Note that Squeak's notion of text attributes is more powerful and expressive compared to what plain-text is outside Squeak's context." + + self flag: #todo. "mt: First, we should find a way to make widget-specific text alignment possible without having to set attributes on the (plain) text it is showing. See uses of #plainTextOnly(:). Second, there might be an entire category of text attributes possible that only affects Squeak-specific magic but not related to the user's notin of plain text. Thus, find a better check." + ^ (self hasAttributeThat: [:att | att isTextAlignment not]) not! Item was added: + ----- Method: Text>>removeAttributesForPlainText (in category 'private') ----- + removeAttributesForPlainText + "In the receiver, remove all text attributes so that #isPlainText will answer true after this." + + self removeAttributesThat: [:att | att isTextAlignment not].!

1 0

Fwd: Which methods must I override to enable drag&drop?
by Vanessa Freudenberg 28 Mar '23

28 Mar '23

Can someone answer this question on Stack Overflow? https://stackoverflow.com/questions/75842150/which-methods-must-i-override-… Vanessa

3 4

The Trunk: 61Deprecated-mt.6.mcz
by commits＠source.squeak.org 27 Mar '23

27 Mar '23

Marcel Taeumel uploaded a new version of 61Deprecated to project The Trunk: http://source.squeak.org/trunk/61Deprecated-mt.6.mcz ==================== Summary ==================== Name: 61Deprecated-mt.6 Author: mt Time: 27 March 2023, 3:11:40.972363 pm UUID: 6b404313-d56a-124b-af87-dcedf2d5f5e3 Ancestors: 61Deprecated-mt.5 Rescue #resumeProcess: as deprecated method because the Git Browser apparanetly needs it... =============== Diff against 61Deprecated-mt.5 =============== Item was added: + ----- Method: Project class>>resumeProcess: (in category '*61Deprecated-utilities') ----- + resumeProcess: aProcess + "Adopt aProcess as the project process -- probably because of proceeding from a debugger" + + self deprecated: 'Use #resumeProcessSafely: in Project current.'. + self current resumeProcessSafely: aProcess.!

1 0

The Trunk: System-eem.1399.mcz
by commits＠source.squeak.org 27 Mar '23

27 Mar '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1399.mcz ==================== Summary ==================== Name: System-eem.1399 Author: eem Time: 24 March 2023, 10:06:23.813457 am UUID: 301b87c4-dafb-4ff3-9d14-7468fac48fa7 Ancestors: System-mt.1398 Have the Clipboard defer to ExtendedClipboardInterface current to paste text, and only fall back on the old default behaviour if ExtendedClipboardInterface current>>clipboardText: fails. On Mac and Windows paste both HTML and UTF-8. At time of writing, achieving the same on Unix/X11 depends on the ClipboardExtendedPlugin platform specifics being implemented, see this vm-dev thread: http://lists.squeakfoundation.org/pipermail/vm-dev/2023-March/038866.html =============== Diff against System-mt.1398 =============== Item was changed: ----- Method: Clipboard>>clipboardText: (in category 'accessing') ----- clipboardText: text + (ExtendedClipboardInterface current clipboardText: text) ifFalse: + [self clipboardText: text notifyWith: nil]! - - self clipboardText: text notifyWith: nil! Item was changed: Object subclass: #ExtendedClipboardInterface instanceVariableNames: 'clipboard' + classVariableNames: 'Current PluginVersion' - classVariableNames: 'Current WinClipboardTypes' poolDictionaries: '' category: 'System-Clipboard'! ExtendedClipboardInterface class instanceVariableNames: 'mimeTypeMap clipboardFormatMap'! + + !ExtendedClipboardInterface commentStamp: 'eem 3/24/2023 09:53' prior: 0! + An ExtendedClipboardInterface is an interface to the ClipboardExtendedPlugin which provides broader access to the platform's clipboard than the old Clipboard>>#primitiveClipboardText: & Clipboard>>#primitiveClipboardText (primitive 141). ExtendedClipboardInterface is most fully realised on MacOS and Windows. COntributors are encouraged to provide Unix/Linux implementations. When fully implemented an ExtendedClipboardInterface can copy and paste UTF8 text, HTML Text, images in various formats, and filenames. + + Instance Variables + clipboard: <Integer> + + clipboard + - this is supposed to be a handle on the platform's clipboard, but in practice the plugin primitives don't access it. + + N.B. When exploring the platform's clipboard capabilities, readAvailableRawFormats is very useful for seeing what formats are pasted onto the clipboard by various applications. + ! ExtendedClipboardInterface class instanceVariableNames: 'mimeTypeMap clipboardFormatMap'! Item was added: + ----- Method: ExtendedClipboardInterface class>>pluginName (in category 'private') ----- + pluginName + "Answer the version string of the ClipboardExtendedPlugin plugin, or nil if none." + 1 to: SmallInteger maxVal do: + [:i| + (Smalltalk listLoadedModule: i) + ifNil: [^nil] + ifNotNil: + [:moduleName| + (moduleName beginsWith: 'ClipboardExtendedPlugin') ifTrue: + [^moduleName]]]. + "NOTREACHED"! Item was added: + ----- Method: ExtendedClipboardInterface class>>pluginVersion (in category 'private') ----- + pluginVersion + ^PluginVersion ifNil: + [PluginVersion := self pluginName + ifNil: [0] + ifNotNil: [:pluginName| Integer readFrom: (pluginName subsequences: $.) last]]! Item was changed: ----- Method: ExtendedClipboardInterface class>>startUp: (in category 'system startup') ----- startUp: resuming "The image is either being newly started (resuming is true), or it's just been snapshotted" + resuming ifTrue: + [Current := nil. + PluginVersion := nil]! - Current := nil! Item was added: + ----- Method: ExtendedClipboardInterface>>clipboardText: (in category 'general-api-add') ----- + clipboardText: aText + "Attempt to paste aText to the system clipboard in as many formats as makes sense on the platform. + Answer if the attempt succeeded. By default answer false. Subclasses override if they're able." + ^false! Item was added: + ----- Method: ExtendedClipboardMacInterface>>clipboardText: (in category 'general-api-add') ----- + clipboardText: aText + "Attempt to paste aText to the system clipboard in as many formats as makes sense on the platform. + Answer if the attempt succeeded. On the Mac we paste HTML and UTF8. But we can only paste more + than one thing at a time with the VMMaker.oscog-eem.3276 version of the plugin, or later." + | htmlPayload | + (aText isText + and: [self class pluginVersion >= 3276]) ifFalse: + [^false]. + htmlPayload := String streamContents: + [:stream | + stream nextPutAll: '<meta charset="UTF-8">'. + aText printHtmlOn: stream]. + self + addClipboardData: htmlPayload dataFormat: 'public.html'; + addClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: 'public.utf8-plain-text'. + ^true! Item was added: + ----- Method: ExtendedClipboardWinInterface>>clipboardText: (in category 'private') ----- + clipboardText: aText + "Attempt to paste aText to the system clipboard in as many formats as makes sense on the platform. + Answer if the attempt succeeded. On Windows we paste HTML and UTF8. But we can only paste more + than one thing at a time with the VMMaker.oscog-eem.3276 version of the plugin, or later. Note that + the funky HTML format (see packageAsHTML:) has been derived by observing Chrome and Edge." + | htmlPayload | + (aText isText + and: [self class pluginVersion >= 3276]) ifFalse: + [^false]. + htmlPayload := self packageAsHTML: aText printHtmlString. + self + addClipboardData: htmlPayload dataFormat: CF_HTMLTEXT; + addClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: CF_UTF8TEXT. + ^true!

3 2

The Trunk: Collections-mt.1030.mcz
by commits＠source.squeak.org 27 Mar '23

27 Mar '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1030.mcz ==================== Summary ==================== Name: Collections-mt.1030 Author: mt Time: 27 March 2023, 10:01:33.549651 am UUID: dcb95380-3401-c245-9f25-5038991a4950 Ancestors: Collections-eem.1029 Complement System-mt.1403 =============== Diff against Collections-eem.1029 =============== Item was removed: - ----- Method: String>>isPlainText (in category 'testing') ----- - isPlainText - "For compatibility with Text" - ^true! Item was removed: - ----- Method: Text>>isPlainText (in category 'testing') ----- - isPlainText - "A Text with no emphasis has empty values." - ^runs values = #(#())!

1 0

The Trunk: System-eem.1402.mcz
by commits＠source.squeak.org 25 Mar '23

25 Mar '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1402.mcz ==================== Summary ==================== Name: System-eem.1402 Author: eem Time: 24 March 2023, 5:35:13.352983 pm UUID: 46842e93-0131-498f-8233-2566b7594127 Ancestors: System-eem.1401 Don't waste effort pasting HTML for plain texts. =============== Diff against System-eem.1401 =============== Item was changed: ----- Method: ExtendedClipboardMacInterface>>clipboardText: (in category 'general-api-add') ----- clipboardText: aText "Attempt to paste aText to the system clipboard in as many formats as makes sense on the platform. Answer if the attempt succeeded. On the Mac we paste HTML and UTF8. But we can only paste more than one thing at a time with the VMMaker.oscog-eem.3276 version of the plugin, or later." | htmlPayload | + (aText isPlainText + or: [clipboard = 0 + or: [self class pluginVersion < 3276]]) ifTrue: - (aText isText - and: [clipboard ~= 0 - and: [self class pluginVersion >= 3276]]) ifFalse: [^false]. htmlPayload := String streamContents: [:stream | stream nextPutAll: '<meta charset="UTF-8">'. aText printHtmlOn: stream]. self clearClipboard; addClipboardData: htmlPayload dataFormat: 'public.html'; addClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: 'public.utf8-plain-text'. ^true! Item was changed: ----- Method: ExtendedClipboardWinInterface>>clipboardText: (in category 'private') ----- clipboardText: aText "Attempt to paste aText to the system clipboard in as many formats as makes sense on the platform. Answer if the attempt succeeded. On Windows we paste HTML and UTF8. But we can only paste more than one thing at a time with the VMMaker.oscog-eem.3276 version of the plugin, or later. Note that the funky HTML format (see packageAsHTML:) has been derived by observing Chrome and Edge." | htmlPayload | + (aText isPlainText + or: [clipboard = 0 + or: [self class pluginVersion < 3276]]) ifTrue: - (aText isText - and: [clipboard ~= 0 - and: [self class pluginVersion >= 3276]]) ifFalse: [^false]. htmlPayload := self packageAsHTML: aText printHtmlString. self clearClipboard. "We don't understand why yet, but sometimes the plugin fails to copy HTML text." ^(self tryAddClipboardData: htmlPayload dataFormat: CF_HTMLTEXT) and: [self tryAddClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: CF_UTF8TEXT]!

1 0

The Trunk: Collections-eem.1029.mcz
by commits＠source.squeak.org 25 Mar '23

25 Mar '23

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.1029.mcz ==================== Summary ==================== Name: Collections-eem.1029 Author: eem Time: 24 March 2023, 5:34:09.007646 pm UUID: 6b4476ed-6be7-4944-9681-109724903e30 Ancestors: Collections-jar.1028 Add String/Text>>isPlainText for the benefit of the ExtendedClipboardInterface =============== Diff against Collections-jar.1028 =============== Item was added: + ----- Method: String>>isPlainText (in category 'testing') ----- + isPlainText + "For compatibility with Text" + ^true! Item was added: + ----- Method: Text>>isPlainText (in category 'testing') ----- + isPlainText + "A Text with no emphasis has empty values." + ^runs values = #(#())!

1 0

Setting the VM window size
by Jim Rosenberg 24 Mar '23

24 Mar '23

Let's say I have some interactive artistic content developed in Squeak which uses an interface derived from the old HyperCard model of a stack of cards. Each card is an instance of a subclass of PasteUpMorph; all the cards have the same origin and extent. I want to set the size of the window in which the OS desktop-level VM runs from inside squeak based on the "current" (at the front) card's extent. How can I set the VM window's size to a given point from inside Squeak?

3 2

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