Squeak-dev March 2023

squeak-dev@lists.squeakfoundation.org

32 participants
124 discussions

The Inbox: Morphic-ct.1641.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1641.mcz ==================== Summary ==================== Name: Morphic-ct.1641 Author: ct Time: 7 June 2020, 2:45:17.536284 pm UUID: b90e23e1-ce70-3d49-a8e4-f09af148ef97 Ancestors: Morphic-ct.1638 Refine #isHighFrequentEvent implementation for further event types. Fixes one possible cause of the "color depth = 0" bug. See http://forum.world.st/Image-not-startable-after-save-td5117084.html. Depends indeed on Morphic-ct.1638. =============== Diff against Morphic-ct.1638 =============== Item was added: + ----- Method: DropEvent>>isHighFrequentEvent (in category 'testing') ----- + isHighFrequentEvent + + ^ false! Item was added: + ----- Method: WindowEvent>>isHighFrequentEvent (in category 'testing') ----- + isHighFrequentEvent + + ^ (#(windowClose) includes: self type) not! Item was changed: ----- Method: WorldState>>doSafely:onErrorThat:setErrorFlag:ifFatal:afterErrorDo: (in category 'update cycle') ----- doSafely: aBlock onErrorThat: errorPredicate setErrorFlag: errorFlag ifFatal: fatalErrorBlock afterErrorDo: postErrorBlock "Evaluate aBlock and keep track of errors during morph invocations." | finished classesWithErrors | finished := false. classesWithErrors := IdentitySet new. [finished] whileFalse: [ [aBlock value. finished := true] on: Error, Halt, Warning do: [:ex | | err rcvr errCtxt errMorph | (errorPredicate cull: ex) ifFalse: [ex pass]. err := ex description. rcvr := ex receiver. errCtxt := thisContext. [ errCtxt := errCtxt sender. "Search the sender chain to find the morph causing the problem" [errCtxt notNil and: [(errCtxt receiver isMorph) not]] whileTrue: [errCtxt := errCtxt sender]. "If we're at the root of the context chain then we have a fatal problem" errCtxt ifNil: [^ fatalErrorBlock cull: err]. + errMorph := errCtxt receiver + ] doWhileTrue: [ - errMorph := errCtxt receiver. "If the morph causing the problem has already the error flag set, then search for the next morph above in the caller chain." errMorph hasProperty: errorFlag + ]. - ] whileTrue. errMorph setProperty: errorFlag toValue: true; changed. "Catch all errors, one for each receiver class." (classesWithErrors includes: rcvr class) ifFalse: [ classesWithErrors add: rcvr class. ToolSet debugException: ex]. postErrorBlock cull: err. ]].! Item was changed: ----- Method: WorldState>>processEventsSafely: (in category 'update cycle') ----- processEventsSafely: aHandMorph ^ self doSafely: [aHandMorph processEvents] + onErrorThat: [:error | self currentEvent ifNil: [true] ifNotNil: [:evt | evt isHighFrequentEvent]] - onErrorThat: [:error | ActiveEvent isNil or: [ActiveEvent isHighFrequentEvent]] setErrorFlag: #errorOnEvent ifFatal: [:error | Project current fatalEventHandlingError: error] afterErrorDo: []!

5 6

Review Request: stylePackageScripts.2.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 18 May '23

18 May '23

Please give me a short feedback on whether you agree with the idea of this change (PackageInfo scripts are no longer instances of StringHolder). If there is no objection, I will try to merge this into the Trunk after a week or so. :-) ["stylePackageScripts.png"] Best, Christoph =============== Summary =============== Change Set: stylePackageScripts Date: 22 November 2021 Author: Christoph Thiede This change set enables syntax highlighting for package scripts ({preamble,postscript}{, of removal}). To achieve this, the instance variables in PackageInfo are converted to hold plain strings or texts rather than StringHolders, and the client (Monticello) is reponsible itself for displaying them to the user and storing them back into the package. Note the postscript which converts all PackageInfo instances in the image. =============== Postscript =============== "Postscript: Eliminate StringHolder script in PackageInfos" PackageInfo allSubInstancesDo: [:packageInfo | #(preamble postscript preambleOfRemoval postscriptOfRemoval) do: [:sel | (packageInfo instVarNamed: sel) ifNotNil: [:stringHolder | packageInfo instVarNamed: sel put: stringHolder contents]]]. =============== Diff =============== MCWorkingCopyBrowser>>editLoadScripts {morphic ui} · ct 11/22/2021 16:05 (changed) editLoadScripts | arg | self hasWorkingCopy ifFalse: [^self]. arg := UIManager default - chooseFrom: #('edit preamble' 'edit postscript' 'edit preambleOfRemoval' 'edit postscriptOfRemoval') + chooseFrom: {'edit preamble' translated. 'edit postscript' translated. 'edit preambleOfRemoval' translated. 'edit postscriptOfRemoval' translated} values: #(#preamble #postscript #preambleOfRemoval #postscriptOfRemoval). arg ifNotNil: [ self editScript: arg]. MCWorkingCopyBrowser>>editScript: {morphic ui} · ct 11/22/2021 15:59 (changed) editScript: scriptSymbol - | script | - script := workingCopy packageInfo perform: scriptSymbol. - script openLabel: scriptSymbol asString, ' of the Package ', workingCopy package name. + | script | + script := workingCopy packageInfo perform: scriptSymbol. + Project uiManager + edit: script + label: ('{1} of the Package {2}' translated format: {scriptSymbol asString capitalized. workingCopy package name}) + shouldStyle: true + accept: [:result | workingCopy packageInfo + perform: scriptSymbol asSimpleSetter + with: result] PackageInfo>>isScript:not: {preamble/postscript} · ct 11/22/2021 15:53 (changed) isScript: script not: default ^ script notNil and: [ | contents | - contents := script contents asString withBlanksTrimmed. + contents := script asString withBlanksTrimmed. contents notEmpty and: [contents ~= default and: [contents ~= 'nil']]] PackageInfo>>postscript {preamble/postscript} · ct 11/22/2021 15:53 (changed) postscript + ^ postscript ifNil: [ - postscript := StringHolder new contents: self postscriptDefault] + postscript := self postscriptDefault] PackageInfo>>postscript: {preamble/postscript} · ct 11/22/2021 15:57 (changed) postscript: aString - postscript := StringHolder new contents: aString + postscript := aString PackageInfo>>postscriptOfRemoval {preamble/postscript} · ct 11/22/2021 15:53 (changed) postscriptOfRemoval ^ postscriptOfRemoval ifNil: [ - postscriptOfRemoval := StringHolder new contents: self postscriptOfRemovalDefault] + postscriptOfRemoval := self postscriptOfRemovalDefault] PackageInfo>>postscriptOfRemoval: {preamble/postscript} · ct 11/22/2021 15:57 (changed) postscriptOfRemoval: aString - postscriptOfRemoval := StringHolder new contents: aString + postscriptOfRemoval := aString PackageInfo>>preamble {preamble/postscript} · ct 11/22/2021 15:54 (changed) preamble ^ preamble ifNil: [ - preamble := StringHolder new contents: self preambleDefault] + preamble := self preambleDefault] PackageInfo>>preamble: {preamble/postscript} · ct 11/22/2021 15:56 (changed) preamble: aString - preamble := StringHolder new contents: aString + preamble := aString PackageInfo>>preambleOfRemoval {preamble/postscript} · ct 11/22/2021 15:54 (changed) preambleOfRemoval ^ preambleOfRemoval ifNil: [ - preambleOfRemoval := StringHolder new contents: self preambleOfRemovalDefault] + preambleOfRemoval := self preambleOfRemovalDefault] PackageInfo>>preambleOfRemoval: {preamble/postscript} · ct 11/22/2021 15:56 (changed) preambleOfRemoval: aString - preambleOfRemoval := StringHolder new contents: aString + preambleOfRemoval := aString ["stylePackageScripts.2.cs"]

2 5

Please Try | New TreeBrowser
by Marcel Taeumel 24 Apr '23

24 Apr '23

Hi all -- Here is a slightly alternative version of Squeak's default browser. It uses tree widgets for the first three panes, that is, system/class categories, classes, message categories. Menus, filters, drag/drop, updates etc. should all work as in the traditional "Browser" browser. SystemBrowser default: TreeBrowser. SystemBrowser default: Browser. Please report issues. I plan to merge this soon. Note that there are 3 preferences: TreeBrowser showAllClassesInPackage TreeBrowser showBlankClassIcons TreeBrowser showEmptyPackages Yes, there is a slim integration with PackageInfo and Monticello packages. Best, Marcel

7 18

Interesting build problem on Raspberry PI 32 bit
by Bruce O'Neel 11 Apr '23

11 Apr '23

Hi all, First, this is not our problem :-). But it affects us. I have kept a 32 bit Pi OS around even though the rest of my ARM systems are 64 bit. Until today Squeak built fine. The last build I did was 901401c from the 28th but tonight it started failing on Pi OS 32 bit with: tmp/opensmalltalk-vm/platforms/Cross/plugins/BitBltPlugin/BitBltArm64.c:261:9: error: invalid 'asm': invalid operand for code 'w' which is bizarre. Why would it start building the BitBltArm64.c plugin? It's ARM32 (armv7l to be exact). And the is no way that the two commits since the last successful build could have changed this. And what do you know, that commit fails as well now. But there is the problem. uname -m returned armv7l. Yesterday But today it does not return armv7l. Today uname -m and arch both return aarch64. Which is technically at some level correct. This system IS a PI/400 so therefore it is an ARM64, but with a 32 bit OS installed. I think the change is this package: libc-bin:armhf 2.31-13+rpt2+rpi1+deb11u5 We'll see if Debian or Raspberry PI fixes this in the next few days. cheers bruce

5 17

Setting Memory pointer for bitmap object.. is it possible without plugin?
by LawsonEnglish 01 Apr '23

01 Apr '23

I decided to do a strange, but potentially very nifty thing, and share memory between two or more squeak applications on the Mac, but I find I can’t even get started… What I’d like to do is manually set the pointer for a Bitmap in Image A so that it points to the same shared memory as the BitMap in Image B (and C and D and…) and then display the Image Bitmap while B (C, etc) asynchronously draw into the same shared memory. The immediate usecase would be doing a multi-process Mandelbrot Set drawing app where the Image A is for display and menu selection while the remaining Images do the calculations and setting of pixels. Is this doable out-of-the-box in Squeak, or must I write a plugin first? If so, what do I need to do? If I do need to write a plug-in, how do I do it. I’ve read on the wiki about the Surface Plugin, but not quite sure if that is what I need or not. Thanks. L

7 24

Squeak 6.0 is badly broken loading "old" .morphs
by Jim Rosenberg 01 Apr '23

01 Apr '23

Here's a simple test. In Squeak 4.3 create a TextMorph with this text (5 lines): This is line 1 Line 2 is blank Line 4 is also blank Save to a .morph using the halo. Now in Squeak 6.0, open a file list, click on the entry for the file above, and click load as morph. You will get the following prompt in a dialogue: Reading an instance of MultiNewParagraph. Which modern class should it translate to? How are we supposed to import .morph files in new Squeak versions??? You Squeak code jockeys seem to have a mania for code purity refactoring that gives no thought at all to us Squeak content developers who are hoping to preserve our artistic work. And then you can't figure out why more people don't use Squeak for application development. Grrrrr!!

2 3

Re: [squeak-dev] [Vm-dev] Extended Clipboard
by David T. Lewis 01 Apr '23

01 Apr '23

On Mon, Mar 27, 2023 at 08:13:58PM -0700, Vanessa Freudenberg wrote: > > Awesome! > > Just to confirm that indeed, at some point this worked in the version of > Squeak/Etoys that shipped on the OLPC machines. > > You could for example copy a morph and insert it into an OpenOffice > document (it was converted to a bitmap). > > If I remember correctly you could even copy morphs including their > running scripts from one image to another, by way of serializing the morph > and using a Squeak-specific MIME type. Thanks Vanessa, I am not keeping up very well with the current clipboard development, but I am try to help by putting together the historical pieces. The OLPC image should be a good reference. It's on Linux and it delivers Etoys and all of the clipboard functionality that worked at that time. Can you say if the Etoys development image Etoys-Dev-4.1.2381.zip is the same as what was delivered on OLPC? If so it should serve as a useful reference. If anyone would like to try looking at Etoys-Dev-4.1.2381.zip, here are a few notes: - The image will run in SqueakJS on https://try.squeak.org/. It's a bit slow but it works and allows anyone to browse the system and look at the source. - The image also runs on an up to date interpreter VM, which is useful if you want to run Etoys on a native Linux VM and try the clipboard functions on Linux. - I found that I now need to compile the VM with the gcc -fno-stack-protector option, otherwise the VM exits with a stack smashing warning. I am assuming this is due to recent gcc security updates (exit on stack smashing detected) that are triggered by the existing VM/image when running the Etoys image. Home hobby Squeakers compiling the VM will need to follow the instructions at https://wiki.squeak.org/squeak/6354 but also add the -fno-stack-protector compiler option in order to run the Etoys development image on Linux. BTW I do not recall the link for downloading Etoys-Dev-4.1.2381.zip but hopefully it is still available on the net. If not maybe we can put a copy on the files.squeak.org server. Dave

1 0

finding the unix localhost name
by tim Rowledge 31 Mar '23

31 Mar '23

We've had a few discussions about this issue over the years and never really decided on anything more certain than "er, well..." There's certainly a bigger discussion around moving to the 'new networking' setting but for this one particular query it seems to me that using the code currently in NetNameResolver class>>#localHostName that gets ignored by the #useOldNetwork option is a good option. That is, localHostName "Return the local name of this host." "NetNameResolver localHostName" | host | host := String new: NetNameResolver primHostNameSize. NetNameResolver primHostNameResult: host. ^host returns a value that seems to be helpful, and that is retrieved via the unix function gethostname(), which is used by the hostname command. Are there any problems with the idea of using this? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- Mouth in gear, brain in neutral.

6 12

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

31 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1409.mcz ==================== Summary ==================== Name: System-mt.1409 Author: mt Time: 31 March 2023, 3:47:13.230258 pm UUID: d1af62bf-d0ab-c54c-b294-1b872187104b Ancestors: System-mt.1408 Forgot to reset the clipboard constants ... sorry for the noise... =============== Diff against System-mt.1408 =============== Item was changed: + (PackageInfo named: 'System') postscript: 'ExtendedClipboardWinInterface initialize..'! - (PackageInfo named: 'System') postscript: 'ExtendedClipboardWinInterface initialize.'!

1 0

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

31 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1408.mcz ==================== Summary ==================== Name: System-mt.1408 Author: mt Time: 31 March 2023, 3:46:27.004258 pm UUID: 7f2615f1-de4b-e94c-afc2-c6db47d95633 Ancestors: System-mt.1407 Make ExtendedClipboardWinInterface compatible with latest platform code: https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ed1f7431a09f044488… Avoid in-image use of CF_UNICODE and let CF_UTF8TEXT handle that consistently. Try reading the PNG data from the Windows Snipping Tool or copy a shape from PowerPoint and read CF_BITMAP. See #readFormClipboardData. More work needed. :-) =============== Diff against System-mt.1407 =============== Item was added: + ----- Method: Clipboard class>>extended (in category 'accessing') ----- + extended + + ^ ExtendedClipboardInterface current! Item was added: + ----- Method: Clipboard>>extended (in category 'accessing') ----- + extended + "Answer an object representing the extended clipboard interface." + + ^ self class extended! Item was changed: ----- Method: ExtendedClipboardInterface>>initialize (in category 'initialize-release') ----- initialize - super initialize. - clipboard := [self primCreateClipboard] on: Error do: [:ex | clipboard := 0].! Item was changed: ExtendedClipboardInterface subclass: #ExtendedClipboardWinInterface instanceVariableNames: '' + classVariableNames: 'CF_BITMAP CF_DIB CF_DIBV5 CF_HDROP CF_HTMLTEXT CF_LOCALE CF_OEMTEXT CF_PALETTE CF_PENDATA CF_PRIVATELAST CF_RIFF CF_TEXT CF_TIFF CF_UTF8TEXT CF_WAVE SQCF_GIF SQCF_HTML SQCF_MIME_BMP SQCF_MIME_GIF SQCF_MIME_HTML SQCF_MIME_JPEG SQCF_MIME_MPEG SQCF_MIME_PDF SQCF_MIME_PNG SQCF_MIME_RAW SQCF_MIME_RICHTEXT SQCF_MIME_RTF SQCF_MIME_SVG SQCF_MIME_TEXT SQCF_MIME_TEXTUTF8 SQCF_MIME_TIFF SQCF_MIME_WAV SQCF_MIME_XHTML SQCF_MIME_XML SQCF_PNG SQCF_RTF' - classVariableNames: 'CF_BITMAP CF_DIB CF_DIBV5 CF_HDROP CF_HTMLTEXT CF_LOCALE CF_OEMTEXT CF_PALETTE CF_PENDATA CF_PRIVATELAST CF_RIFF CF_TEXT CF_TIFF CF_UNICODETEXT CF_UTF8TEXT CF_WAVE' poolDictionaries: '' category: 'System-Clipboard'! Item was changed: ----- Method: ExtendedClipboardWinInterface class>>initializeClipboardFormatMap (in category 'class initialization') ----- initializeClipboardFormatMap - "ExtendedClipboardWinInterface initializeClipboardFormatMap" - CF_TEXT := 1. - CF_BITMAP := 2. - "CF_METAFILEPICT := 3. - CF_SYLK := 4. - CF_DIF := 5." - CF_TIFF := 6. - CF_OEMTEXT := 7. - CF_DIB := 8. - CF_PALETTE := 9. - CF_PENDATA := 10. - CF_RIFF := 11. - CF_WAVE := 12. - CF_UNICODETEXT := 13. - "CF_ENHMETAFILE := 14." - CF_HDROP := 15. - CF_LOCALE := 16. - CF_DIBV5 := 17. - "CF_OWNERDISPLAY := 16r0080. - CF_DSPTEXT := 16r0081. - CF_DSPBITMAP := 16r0082. - CF_DSPMETAFILEPICT := 16r0083. - CF_DSPENHMETAFILE := 16r008E. - CF_PRIVATEFIRST := 16r0200." - CF_PRIVATELAST := 16r02FF. - CF_UTF8TEXT := CF_PRIVATELAST. "extension to the Windows ClipboardExtendedPlugin..." - "CF_GDIOBJFIRST := 16r0300. - CF_GDIOBJLAST := 16r03FF." - CF_HTMLTEXT := 49358. "a.k.a. 16rC0CE this is used by both Chrome and Edge when one selects HTML there-in." - clipboardFormatMap := Dictionary new. - "at: 6 put: 'image/tiff' asMIMEType; CF_TIFF" + self initializeClipboardStandardFormatMap. + self initializeClipboardRegisteredFormatMap. ! - clipboardFormatMap - at: 49510 put: 'text/rtf' asMIMEType; - at: 1 put: 'text/plain' asMIMEType; "CF_TEXT" - at: 2 put: 'image/bmp' asMIMEType; "CF_BITMAP" - at: 12 put: 'audio/wave'; "CF_WAVE" - at: 13 put: 'text/unicode' asMIMEType; "CF_UNICODETEXT" - at: 16 put: 'CF_LOCALE'; "CF_LOCALE" - yourself. - - - ! Item was added: + ----- Method: ExtendedClipboardWinInterface class>>initializeClipboardRegisteredFormatMap (in category 'class initialization') ----- + initializeClipboardRegisteredFormatMap + "https://learn.microsoft.com/en-us/windows/win32/dataxchg/clipboard-formats#… + + ExtendedClipboardWinInterface initializeClipboardRegisteredFormatMap + " + + SQCF_HTML := 16r10001. + SQCF_RTF := 16r10002. + SQCF_PNG := 16r10003. + SQCF_GIF := 16r10004. + + clipboardFormatMap + " at: SQCF_HTML put: 'text/html' asMIMEType;" + at: SQCF_HTML put: 'HTML Format'; + " at: SQCF_RTF put: 'text/rtf' asMIMEType; + at: SQCF_RTF put: 'text/richtext' asMIMEType;" + at: SQCF_RTF put: 'Rich Text Format'; + " at: SQCF_PNG put: 'image/png' asMIMEType;" + at: SQCF_PNG put: 'PNG'; + " at: SQCF_GIF put: 'image/gif' asMIMEType;" + at: SQCF_GIF put: 'GIF'; + yourself. + + SQCF_MIME_TEXT := 16r20001. + SQCF_MIME_TEXTUTF8 := 16r20002. + SQCF_MIME_RICHTEXT := 16r20003. + SQCF_MIME_RTF := 16r20004. + SQCF_MIME_WAV := 16r20005. + SQCF_MIME_GIF := 16r20006. + SQCF_MIME_JPEG := 16r20007. + SQCF_MIME_TIFF := 16r20008. + SQCF_MIME_PNG := 16r20009. + SQCF_MIME_SVG := 16r2000A. + SQCF_MIME_BMP := 16r2000B. + SQCF_MIME_MPEG := 16r2000C. + SQCF_MIME_RAW := 16r2000D. + SQCF_MIME_PDF := 16r2000E. + SQCF_MIME_XHTML := 16r2000F. + SQCF_MIME_HTML := 16r20010. + SQCF_MIME_XML := 16r20011. + + clipboardFormatMap + at: SQCF_MIME_TEXT put: 'text/plain' asMIMEType; + at: SQCF_MIME_TEXTUTF8 put: 'text/plain;charset=utf-8' asMIMEType; + at: SQCF_MIME_RICHTEXT put: 'text/richtext' asMIMEType; + at: SQCF_MIME_RTF put: 'application/richtext' asMIMEType; + at: SQCF_MIME_WAV put: 'audio/wav' asMIMEType; + at: SQCF_MIME_GIF put: 'image/gif' asMIMEType; + at: SQCF_MIME_JPEG put: 'image/jpeg' asMIMEType; + at: SQCF_MIME_TIFF put: 'image/tiff' asMIMEType; + at: SQCF_MIME_PNG put: 'image/png' asMIMEType; + at: SQCF_MIME_SVG put: 'image/svg+xml' asMIMEType; + at: SQCF_MIME_BMP put: 'image/bmp' asMIMEType; + at: SQCF_MIME_MPEG put: 'video/mpeg' asMIMEType; + at: SQCF_MIME_RAW put: 'application/octet-stream' asMIMEType; + at: SQCF_MIME_PDF put: 'application/pdf' asMIMEType; + at: SQCF_MIME_XHTML put: 'application/xhtml+xml' asMIMEType; + at: SQCF_MIME_HTML put: 'text/html' asMIMEType; + at: SQCF_MIME_XML put: 'text/xml' asMIMEType; + yourself.! Item was added: + ----- Method: ExtendedClipboardWinInterface class>>initializeClipboardStandardFormatMap (in category 'class initialization') ----- + initializeClipboardStandardFormatMap + "https://learn.microsoft.com/en-us/windows/win32/dataxchg/standard-clipboard… + + ExtendedClipboardWinInterface initializeClipboardFormatMap + " + + CF_TEXT := 1. + CF_BITMAP := 2. + "CF_METAFILEPICT := 3. + CF_SYLK := 4. + CF_DIF := 5." + CF_TIFF := 6. + CF_OEMTEXT := 7. + CF_DIB := 8. + CF_PALETTE := 9. + CF_PENDATA := 10. + CF_RIFF := 11. + CF_WAVE := 12. + "CF_UNICODETEXT := 13. -- unused in image, see CF_UTF8TEXT" + "CF_ENHMETAFILE := 14." + CF_HDROP := 15. + CF_LOCALE := 16. + CF_DIBV5 := 17. + + "CF_OWNERDISPLAY := 16r0080. + CF_DSPTEXT := 16r0081. + CF_DSPBITMAP := 16r0082. + CF_DSPMETAFILEPICT := 16r0083. + CF_DSPENHMETAFILE := 16r008E. + CF_PRIVATEFIRST := 16r0200." + CF_PRIVATELAST := 16r02FF. + CF_UTF8TEXT := CF_PRIVATELAST. "extension to the Windows ClipboardExtendedPlugin..." + "CF_GDIOBJFIRST := 16r0300. + CF_GDIOBJLAST := 16r03FF." + + clipboardFormatMap + at: CF_UTF8TEXT put: 'text/unicode' asMIMEType; + at: CF_TEXT put: 'text/plain' asMIMEType; + at: CF_OEMTEXT put: 'OEM Text'; + at: CF_BITMAP put: 'image/bmp' asMIMEType; + " at: CF_DIB put: 'image/bmp' asMIMEType; + at: CF_DIBV5 put: 'image/bmp' asMIMEType; + " at: CF_WAVE put: 'audio/wav' asMIMEType; + at: CF_LOCALE put: 'Locale Identifier'; + at: CF_TIFF put: 'image/tiff' asMIMEType; + yourself. + + + ! Item was changed: ----- Method: ExtendedClipboardWinInterface class>>initializeMimeTypeMap (in category 'class initialization') ----- initializeMimeTypeMap "ExtendedClipboardWinInterface initializeMimeTypeMap" + self flag: #todo. mimeTypeMap := Dictionary new. mimeTypeMap at: 'text/rtf' asMIMEType put: 49510; at: 'text/plain' asMIMEType put: 1; "CF_TEXT" at: 'image/*' asMIMEType put: 2; "CF_BITMAP" at: 'metafile' put: 3; "CF_METAFILEPICT" at: 'CF_SYLK' put: 4; "CF_SYLK" at: 'CF_DIF' put: 5; "CF_DIF" at: 'image/tiff' asMIMEType put: 6; "CF_TIFF" at: 'oemtext' put: 7; "CF_OEMTEXT" at: 'CF_DIB' put: 8; "CF_DIB" at: 'CF_PALETTE' put: 9; "CF_PALETTE" at: 'CF_PENDATA' put: 10; "CF_PENDATA" at: 'CF_RIFF' put: 11; "CF_RIFF" at: 'wave' put: 12; "CF_WAVE" at: 'text/unicode' asMIMEType put: 13; "CF_UNICODETEXT" at: 'CF_ENHMETAFILE' put: 14; "CF_ENHMETAFILE" at: 'CF_HDROP' put: 15; "CF_HDROP" at: 'CF_LOCALE' put: 16; "CF_LOCALE" at: 'CF_DIBV5' put: 17; "CF_DIBV5" yourself ! Item was changed: + ----- Method: ExtendedClipboardWinInterface>>clipboardText: (in category 'accessing') ----- - ----- 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: [^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: SQCF_HTML) - ^(self tryAddClipboardData: htmlPayload dataFormat: CF_HTMLTEXT) and: [self tryAddClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: CF_UTF8TEXT]! Item was added: + ----- Method: ExtendedClipboardWinInterface>>convertPNGBytesToForm: (in category 'private') ----- + convertPNGBytesToForm: aByteArray + + ^ PNGReadWriter formFromStream: aByteArray readStream! Item was removed: - ----- Method: ExtendedClipboardWinInterface>>readAvailableFormats (in category 'general-api-read') ----- - readAvailableFormats - - | lastFormat availableFormats | - availableFormats := OrderedCollection new: 10. - lastFormat := 0. - [(lastFormat := self getClipboardFormat: lastFormat) notNil] - whileTrue: [ - (self class clipboardFormatMap at: lastFormat ifAbsent: [nil]) - ifNotNil: [:mimeType | availableFormats add: mimeType]]. - ^ availableFormats! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readFormClipboardData (in category 'general-api-read') ----- readFormClipboardData self readAvailableRawFormats sorted reverseDo: [:format| format caseOf: { [CF_DIBV5] -> [^self convertDIBV5BytesToForm: (self readClipboardData: format)]. [CF_DIB] -> [^self convertDIBBytesToForm: (self readClipboardData: format)]. + [CF_BITMAP] -> [^self convertBitmapBytesToForm: (self readClipboardData: format)]. + [SQCF_PNG] -> [^ self convertPNGBytesToForm: (self readClipboardData: format)]. - [CF_BITMAP] -> [^self convertBitmapBytesToForm: (self readClipboardData: format)] } otherwise: []]. ^nil! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readWideStringClipboardData (in category 'general-api-read') ----- readWideStringClipboardData + ^ (self hasClipboardData: CF_UTF8TEXT) - ^ (self hasClipboardData: CF_UNICODETEXT) ifTrue: [((self readClipboardData: CF_UTF8TEXT) changeClassTo: ByteString) utf8ToSqueak]!

1 0

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