Packages March 2023

packages@lists.squeakfoundation.org

1 participants
60 discussions

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

22 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1391.mcz ==================== Summary ==================== Name: System-mt.1391 Author: mt Time: 22 March 2023, 1:45:57.551694 pm UUID: b0c05c05-f1d0-1349-9d8a-2b89a066e4b1 Ancestors: System-eem.1390 Thanks to Eliot (eem), recent updates in the ClipboardExtended plugin made it work again. Thus, rescue the image-side code from Etoys to the base system. Needs more work. I just fixed the following things for win32: #readAvailableFormats #hasClipboardData: #readClipboardData: #readStringClipboardData #readByteStringClipboardData #readWideStringClipboardData #clearClipboard Not yet used in Squeak's text editors. See Clipboard. =============== Diff against System-eem.1390 =============== Item was changed: SystemOrganization addCategory: #'System-Applications'! SystemOrganization addCategory: #'System-Change Notification'! SystemOrganization addCategory: #'System-Changes'! SystemOrganization addCategory: #'System-Digital Signatures'! SystemOrganization addCategory: #'System-Download'! SystemOrganization addCategory: #'System-Exceptions'! SystemOrganization addCategory: #'System-FilePackage'! SystemOrganization addCategory: #'System-FileRegistry'! SystemOrganization addCategory: #'System-Finalization'! SystemOrganization addCategory: #'System-Localization'! SystemOrganization addCategory: #'System-Object Events'! SystemOrganization addCategory: #'System-Object Storage'! SystemOrganization addCategory: #'System-Preferences'! SystemOrganization addCategory: #'System-Recovery'! SystemOrganization addCategory: #'System-Serial Port'! SystemOrganization addCategory: #'System-Support'! SystemOrganization addCategory: #'System-Tools'! + SystemOrganization addCategory: #'System-Clipboard'! Item was changed: Object subclass: #Clipboard instanceVariableNames: 'contents recent interpreter' classVariableNames: 'Default' poolDictionaries: '' + category: 'System-Clipboard'! - category: 'System-Support'! !Clipboard commentStamp: 'fbs 6/15/2013 16:20' prior: 0! The Clipboard class implements a basic buffering scheme for text. The currently selected text is also exported to the OS so that text can be copied from and to other applications. Commonly only a single instance is used (the default clipboard) but applications are free to use other than the default clipboard if necessary. If you'd like to be notified of the changes of the clipboard, you can subscribe to its #contentChanged event. For example: subscriber := [ :newClipboardText :updateSource | Transcript show: ('Clipboard was updated by {1}, the new content is: {2}' format: { updateSource. newClipboardText }); cr ]. Clipboard default when: #contentChanged send: #value:value: to: subscriber. At this point if you open a Transcript and copy or cut some text, then the message will appear on the Transcript. Make sure that there's a reference kept to subscriber, otherwise it will be garbage collected and no messages will appear. To unsubscribe from the clipboard changes, just evaluate: Clipboard default removeActionsWithReceiver: subscriber! Item was added: + Object subclass: #ExtendedClipboardInterface + instanceVariableNames: 'clipboard' + classVariableNames: 'Current WinClipboardTypes' + poolDictionaries: '' + category: 'System-Clipboard'! + ExtendedClipboardInterface class + instanceVariableNames: 'mimeTypeMap clipboardFormatMap'! + ExtendedClipboardInterface class + instanceVariableNames: 'mimeTypeMap clipboardFormatMap'! Item was added: + ----- Method: ExtendedClipboardInterface class>>clipboardFormatMap (in category 'private') ----- + clipboardFormatMap + ^clipboardFormatMap! Item was added: + ----- Method: ExtendedClipboardInterface class>>current (in category 'accessing') ----- + current + + | platform | + Current ifNil: [ + platform := SmalltalkImage current platformName. + Current := (platform = 'unix' + ifTrue: [ExtendedClipboardUnixInterface new] + ifFalse: [platform = 'Win32' + ifTrue: [ExtendedClipboardWinInterface new] + ifFalse: [ExtendedClipboardMacInterface new]])]. + ^ Current! Item was added: + ----- Method: ExtendedClipboardInterface class>>initialize (in category 'class initialization') ----- + initialize + "ExtendedClipboardInterface initialize" + Current := nil. + Smalltalk + addToStartUpList: self; + addToShutDownList: self.! Item was added: + ----- Method: ExtendedClipboardInterface class>>mimeTypeMap (in category 'private') ----- + mimeTypeMap + ^mimeTypeMap! Item was added: + ----- Method: ExtendedClipboardInterface class>>shutDown: (in category 'system startup') ----- + shutDown: quitting + ! Item was added: + ----- 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. + self current].! Item was added: + ----- Method: ExtendedClipboardInterface>>addClipboardData:dataFormat: (in category 'general-api-add') ----- + addClipboardData: data dataFormat: aFormat + clipboard = 0 ifTrue: + [Clipboard clipboardText: data asString. + ^self]. + self primAddClipboardData: clipboard data: data dataFormat: aFormat.! Item was added: + ----- Method: ExtendedClipboardInterface>>addClipboardDataConvertFormToJPEG: (in category 'general-api-add') ----- + addClipboardDataConvertFormToJPEG: aForm + + self useImageReadWriter: JPEGReadWriter2 + onForm: aForm + addClipboardMethod: [:b | self addJPEGClipboardData: b]. + ! Item was added: + ----- Method: ExtendedClipboardInterface>>addClipboardDataConvertFormToPNG: (in category 'general-api-add') ----- + addClipboardDataConvertFormToPNG: aForm + + self useImageReadWriter: PNGReadWriter + onForm: aForm + addClipboardMethod: [:b | self addPNGClipboardData: b]. + ! Item was added: + ----- Method: ExtendedClipboardInterface>>addClipboardDataResolveCorrectType: (in category 'general-api-add') ----- + addClipboardDataResolveCorrectType: data + ^data class addClipboardDataResolveCorrectType: data! Item was added: + ----- Method: ExtendedClipboardInterface>>addJPEGClipboardData: (in category 'general-api-add') ----- + addJPEGClipboardData: data + ^self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>addPNGClipboardData: (in category 'general-api-add') ----- + addPNGClipboardData: data + "I'm not sure the proper way of default behavior, though, now I made it blank to avoid a temporary error. -- 6/28/2007 tak" + "Do nothing"! Item was added: + ----- Method: ExtendedClipboardInterface>>addRTFClipboardData: (in category 'general-api-add') ----- + addRTFClipboardData: data + ^self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>addStringClipboardData: (in category 'general-api-add') ----- + addStringClipboardData: data + ^self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>addTextClipboardData: (in category 'general-api-add') ----- + addTextClipboardData: data + ^self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>addWideStringClipboardData: (in category 'general-api-add') ----- + addWideStringClipboardData: data + ^self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>clearClipboard (in category 'general-api-utility') ----- + clearClipboard + + self isAvailable ifTrue: [self primClearClipboard: clipboard].! Item was added: + ----- Method: ExtendedClipboardInterface>>clipboardMimeTypeExists: (in category 'testing') ----- + clipboardMimeTypeExists: mimeType + | availableFormats | + availableFormats := self readAvailableFormats. + ^availableFormats includes: mimeType! Item was added: + ----- Method: ExtendedClipboardInterface>>getClipboardFormat: (in category 'general-api-utility') ----- + getClipboardFormat: lastFormat + "Answer next available format in the clipboard *after* lastFormat. Typically starts with 0 or a format you already know is there." + + ^ self isAvailable + ifTrue: [self primGetClipboardFormat: clipboard formatNumber: lastFormat] + ifFalse: [nil]! Item was added: + ----- Method: ExtendedClipboardInterface>>hasClipboardData: (in category 'general-api-utility') ----- + hasClipboardData: format + + ^ self isAvailable + ifTrue: [self primHasClipboardData: clipboard inFormat: format] + ifFalse: [false]! Item was added: + ----- Method: ExtendedClipboardInterface>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + + clipboard := [self primCreateClipboard] + on: Error + do: [:ex | clipboard := 0].! Item was added: + ----- Method: ExtendedClipboardInterface>>isAvailable (in category 'testing') ----- + isAvailable + + ^ clipboard ~= 0! Item was added: + ----- Method: ExtendedClipboardInterface>>primAddClipboardData:data:dataFormat: (in category 'system primitives') ----- + primAddClipboardData: clipboard "<Integer>" data: data "<ByteArray>" dataFormat: aFormat "<Integer | ByteArray>" + <primitive:'ioAddClipboardData' module: 'ClipboardExtendedPlugin'> + self primitiveFailed! Item was added: + ----- Method: ExtendedClipboardInterface>>primClearClipboard: (in category 'system primitives') ----- + primClearClipboard: clipboard "<Integer>" + <primitive:'ioClearClipboard' module: 'ClipboardExtendedPlugin'> + self primitiveFailed.! Item was added: + ----- Method: ExtendedClipboardInterface>>primCreateClipboard (in category 'system primitives') ----- + primCreateClipboard "^<Integer>" + <primitive:'ioCreateClipboard' module: 'ClipboardExtendedPlugin'> + ^ self primitiveFailed + ! Item was added: + ----- Method: ExtendedClipboardInterface>>primGetClipboardFormat:formatNumber: (in category 'system primitives') ----- + primGetClipboardFormat: clipboard "<Integer>" formatNumber: formatNumber "<Integer> ^<Integer>" + "Enumerate available formats in the clipboard." + <primitive:'ioGetClipboardFormat' module: 'ClipboardExtendedPlugin'> + ^ self primitiveFailed. + ! Item was added: + ----- Method: ExtendedClipboardInterface>>primHasClipboardData:inFormat: (in category 'system primitives') ----- + primHasClipboardData: clipboard "<Integer>" inFormat: format "<Integer | ByteArray> ^<Boolean>" + <primitive:'ioHasClipboardDataInFormat' module: 'ClipboardExtendedPlugin'> + ^ self primitiveFailed + ! Item was added: + ----- Method: ExtendedClipboardInterface>>primReadClipboardData:format: (in category 'system primitives') ----- + primReadClipboardData: clipboard "<Integer>" format: format "<Integer | ByteArray> ^<ByteArray>" + <primitive:'ioReadClipboardData' module: 'ClipboardExtendedPlugin'> + ^ self primitiveFailed + ! Item was added: + ----- Method: ExtendedClipboardInterface>>readBMPClipboardData (in category 'general-api-read') ----- + readBMPClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>readByteStringClipboardData (in category 'general-api-read') ----- + readByteStringClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>readClipboardData: (in category 'general-api-read') ----- + readClipboardData: format + ^clipboard = 0 ifFalse: + [self primReadClipboardData: clipboard format: format].! Item was added: + ----- Method: ExtendedClipboardInterface>>readFormClipboardData (in category 'general-api-read') ----- + readFormClipboardData + ^ nil! Item was added: + ----- Method: ExtendedClipboardInterface>>readJPEGClipboardData (in category 'general-api-read') ----- + readJPEGClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>readPNGClipboardData (in category 'general-api-read') ----- + readPNGClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>readRTFClipboardData (in category 'general-api-read') ----- + readRTFClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>readStringClipboardData (in category 'general-api-read') ----- + readStringClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>readTIFFClipboardData (in category 'general-api-read') ----- + readTIFFClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>readTextClipboardData (in category 'general-api-read') ----- + readTextClipboardData + ^ nil! Item was added: + ----- Method: ExtendedClipboardInterface>>readWideStringClipboardData (in category 'general-api-read') ----- + readWideStringClipboardData + ^ self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>setTextString: (in category 'general-api-utility') ----- + setTextString: aString + Smalltalk at: #CClipboard ifPresent: [:c | c clipboardText: aString]! Item was added: + ----- Method: ExtendedClipboardInterface>>useImageReadWriter:onForm:addClipboardMethod: (in category 'general-api-add') ----- + useImageReadWriter: aImageReadWriterClass onForm: aForm addClipboardMethod: aAddClipBoardBlock + | estimate buffer stream pngConverter | + (aForm isKindOf: Form) ifTrue: + [estimate := (aForm extent x)*(aForm extent y). + estimate := 1024 max: (estimate * 4 * 3 // 4). + buffer := ByteArray new: estimate. + stream := (RWBinaryOrTextStream on: buffer) binary . + pngConverter := aImageReadWriterClass on: stream. + pngConverter nextPutImage: aForm. + pngConverter close. + aAddClipBoardBlock value: stream contents]. + + ! Item was added: + ExtendedClipboardInterface subclass: #ExtendedClipboardMacInterface + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Clipboard'! Item was added: + ----- Method: ExtendedClipboardMacInterface class>>initialize (in category 'class initialization') ----- + initialize + "ExtendedClipboardMacInterface initialize" + + self + initializeClipboardFormatMap; + initializeMimeTypeMap! Item was added: + ----- Method: ExtendedClipboardMacInterface class>>initializeClipboardFormatMap (in category 'class initialization') ----- + initializeClipboardFormatMap + "ExtendedClipboardMacInterface initializeClipboardFormatMap" + + clipboardFormatMap := Dictionary new. + clipboardFormatMap + at: 'public.rtf' put: 'text/rtf' asMIMEType; + at: 'com.apple.traditional-mac-plain-text' put: 'text/plain' asMIMEType; + at: 'public.png' put: 'image/png' asMIMEType; + at: 'public.jpeg' put: 'image/jpeg' asMIMEType; + at: 'public.tiff' put: 'image/tiff' asMIMEType; + at: 'public.utf16-plain-text' put: 'text/unicode' asMIMEType; + at: 'public.utf8-plain-text' put: 'text/utf8-unicode' asMIMEType; + yourself + ! Item was added: + ----- Method: ExtendedClipboardMacInterface class>>initializeMimeTypeMap (in category 'class initialization') ----- + initializeMimeTypeMap + "ExtendedClipboardWinInterface initializeMimeTypeMap" + + mimeTypeMap := Dictionary new. + mimeTypeMap + at: 'text/rtf' asMIMEType put: 'public.rtf'; + at: 'text/*' asMIMEType put: 'com.apple.traditional-mac-plain-text'; + at: 'image/jpeg' asMIMEType put: 'public.jpeg'; + at: 'image/png' asMIMEType put: 'public.png'; + at: 'text/unicode' asMIMEType put: 'public.utf8-plain-text'; + yourself + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addJPEGClipboardData: (in category 'general-api-add') ----- + addJPEGClipboardData: data + self clearClipboard. + self addClipboardData: data dataFormat: 'public.jpeg' + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addPNGClipboardData: (in category 'general-api-add') ----- + addPNGClipboardData: data + self clearClipboard. + self addClipboardData: data dataFormat: 'public.png' + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addRTFClipboardData: (in category 'general-api-add') ----- + addRTFClipboardData: data + self clearClipboard. + self addClipboardData: data dataFormat: 'public.rtf' + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addStringClipboardData: (in category 'general-api-add') ----- + addStringClipboardData: data + self clearClipboard. + self addClipboardData: data dataFormat: 'public.text' + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addTextClipboardData: (in category 'general-api-add') ----- + addTextClipboardData: data + | buffer stream | + self clearClipboard. + self addClipboardData: data asString dataFormat: 'public.text'. + self halt. + buffer := ByteArray new: 2048. + stream := (RWBinaryOrTextStream on: buffer) binary . + data serializeOn: stream. + self addClipboardData: (buffer copyFrom: 1 to: stream size) dataFormat: 'org.squeak.text'. + + + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addUF8StringClipboardData: (in category 'general-api-add') ----- + addUF8StringClipboardData: aString + | ba | + + self clearClipboard. + ba := aString convertToWithConverter: (UTF8TextConverter new). + self addClipboardData: ba dataFormat: 'public.utf8-plain-text' + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addWideStringClipboardData: (in category 'general-api-add') ----- + addWideStringClipboardData: aString + | ba | + + self clearClipboard. + ba := aString convertToWithConverter: (UTF16TextConverter new useByteOrderMark: true). + self addClipboardData: ba dataFormat: 'public.utf16-plain-text' + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readAvailableFormats (in category 'general-api-read') ----- + readAvailableFormats + | currentFormat availableFormats mimeType formatData | + availableFormats := OrderedCollection new: 10. + currentFormat := 1. + [formatData := self getClipboardFormat: currentFormat. + formatData notNil] + whileTrue: [ + mimeType := self class clipboardFormatMap at: formatData asString ifAbsent: [nil]. + mimeType ifNotNil: [ + availableFormats add: mimeType]. + currentFormat := currentFormat +1]. + ^availableFormats! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readByteStringClipboardData (in category 'general-api-read') ----- + readByteStringClipboardData + ^(self readClipboardData: 'com.apple.traditional-mac-plain-text') + ifNotNil: [: bytes | bytes asString macToSqueak] + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readFormClipboardData (in category 'general-api-read') ----- + readFormClipboardData + | bytes formats | + formats := self readAvailableFormats. + (formats includes: 'image/png' asMIMEType) + ifTrue: [bytes := self readPNGClipboardData. + ^ (PNGReadWriter on: bytes readStream) nextImage]. + (formats includes: 'image/jpeg' asMIMEType) + ifTrue: [bytes := self readJPEGClipboardData. + ^ (JPEGReadWriter2 on: bytes readStream) nextImage]. + ^ nil! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readJPEGClipboardData (in category 'general-api-read') ----- + readJPEGClipboardData + | bytes | + bytes := self readClipboardData: 'public.jpeg'. + ^bytes + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readPNGClipboardData (in category 'general-api-read') ----- + readPNGClipboardData + | bytes | + bytes := self readClipboardData: 'public.png'. + ^bytes + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readRTFClipboardData (in category 'general-api-read') ----- + readRTFClipboardData + | bytes | + bytes := self readClipboardData: 'public.rtf'. + ^bytes ifNil: [bytes] ifNotNil: [bytes asString] + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readStringClipboardData (in category 'general-api-read') ----- + readStringClipboardData + | string | + string := self readUTF8StringClipboardData. + string ifNil: [string := self readWideStringClipboardData]. + string ifNil: [string := self readByteStringClipboardData]. + ^string + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readTIFFClipboardData (in category 'general-api-read') ----- + readTIFFClipboardData + | bytes | + bytes := self readClipboardData: 'public.tiff'. + ^bytes + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readTextClipboardData (in category 'general-api-read') ----- + readTextClipboardData + ^self readStringClipboardData + ifNotNil: [:string | (string replaceAll: Character lf with: Character cr) asText] + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readUTF8StringClipboardData (in category 'general-api-read') ----- + readUTF8StringClipboardData + ^(self readClipboardData: 'public.utf8-plain-text') + ifNotNil: [:bytes | + [bytes asString utf8ToSqueak] ifError: [bytes asString] ] + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readWideStringClipboardData (in category 'general-api-read') ----- + readWideStringClipboardData + | bytes | + "utf16 plain text has no bom" + + bytes := self readClipboardData: 'public.utf16-plain-text'. + ^bytes ifNil: [bytes] ifNotNil: + [bytes asString convertFromWithConverter: (UTF16TextConverter new useLittleEndian: (SmalltalkImage current endianness = #little) + )] + ! Item was added: + ----- Method: ExtendedClipboardMacInterface>>setTextString: (in category 'general-api-utility') ----- + setTextString: aString + super setTextString: aString. + aString isWideString + ifTrue: [self addUF8StringClipboardData: aString]. + Smalltalk at: #MacServicesInterface ifPresent: [:c | c current setTextString: aString].! Item was added: + ExtendedClipboardInterface subclass: #ExtendedClipboardUnixInterface + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Clipboard'! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>addPNGClipboardData: (in category 'general-api-add') ----- + addPNGClipboardData: data + self clearClipboard. + self addClipboardData: data dataFormat: 'image/png' + ! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>readAvailableFormats (in category 'general-api-read') ----- + readAvailableFormats + | currentFormat availableFormats mimeType formatData | + availableFormats := OrderedCollection new: 10. + currentFormat := 1. + [formatData := self getClipboardFormat: currentFormat. + formatData notNil] + whileTrue: [ + "mimeType := self class clipboardFormatMap at: formatData asString ifAbsent: [nil]". + mimeType := formatData. + mimeType ifNotNil: [ + availableFormats add: mimeType]. + currentFormat := currentFormat +1]. + ^availableFormats! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>readFormClipboardData (in category 'general-api-read') ----- + readFormClipboardData + | bytes formats | + formats := self readAvailableFormats. + (formats includes: 'image/png') + ifTrue: [bytes := self readClipboardData: 'image/png'. + ^ (PNGReadWriter on: bytes readStream) nextImage]. + (formats includes: 'image/bmp') + ifTrue: [bytes := self readClipboardData: 'image/bmp'. + ^ (BMPReadWriter on: bytes readStream) nextImage]. + ^ nil! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>readHTMLClipboardData (in category 'general-api-read') ----- + readHTMLClipboardData + | bytes source | + "Answer a HTMLDocument object" + bytes := self readClipboardData: 'text/html'. + (bytes beginsWith: '<!!DOCTYPE' asByteArray) + ifTrue: ["BAD HACK for Abiword" + source := bytes asString convertFromWithConverter: UTF8TextConverter new] + ifFalse: ["BAD HACK for mozilla" + source := bytes asString + convertFromWithConverter: (UTF16TextConverter new useLittleEndian: SmalltalkImage current isLittleEndian)]. + ^ HtmlParser parse: source readStream! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>readStringClipboardData (in category 'general-api-read') ----- + readStringClipboardData + ^self readWideStringClipboardData! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>readTextClipboardData (in category 'general-api-read') ----- + readTextClipboardData + | formats | + formats := self readAvailableFormats. + (formats includes: 'text/html') + ifTrue: [^ self readHTMLClipboardData formattedText]. + (formats includes: 'UTF8_STRING') + ifTrue: [^self readWideStringClipboardData asText]. + (formats includes: 'STRING') + ifTrue: ["handled by old clipboard code, fall through"]. + ^ nil! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>readWideStringClipboardData (in category 'general-api-read') ----- + readWideStringClipboardData + ^(self readClipboardData: 'UTF8_STRING') asString utf8ToSqueak! Item was added: + ExtendedClipboardInterface subclass: #ExtendedClipboardWinInterface + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Clipboard'! Item was added: + ----- Method: ExtendedClipboardWinInterface class>>initialize (in category 'class initialization') ----- + initialize + "ExtendedClipboardWinInterface initialize" + + self + initializeClipboardFormatMap; + initializeMimeTypeMap! Item was added: + ----- Method: ExtendedClipboardWinInterface class>>initializeClipboardFormatMap (in category 'class initialization') ----- + initializeClipboardFormatMap + "ExtendedClipboardWinInterface initializeClipboardFormatMap" + + clipboardFormatMap := Dictionary new. + "at: 6 put: 'image/tiff' asMIMEType; CF_TIFF" + + 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>>initializeMimeTypeMap (in category 'class initialization') ----- + initializeMimeTypeMap + "ExtendedClipboardWinInterface initializeMimeTypeMap" + + 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 added: + ----- 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 added: + ----- Method: ExtendedClipboardWinInterface>>readBMPClipboardData (in category 'general-api-read') ----- + readBMPClipboardData + | string | + self openClipboard. + [string := (self getClipboardData: (self class mimeTypeMap at: 'image/*' asMIMEType)) fromCString] + ensure: [self closeClipboard]. + ^string! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readByteStringClipboardData (in category 'general-api-read') ----- + readByteStringClipboardData + + (self hasClipboardData: 1) "CF_TEXT" + ifFalse: [^ nil]. + + ^ (self readClipboardData: 1) "CF_TEXT" asString! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readFormClipboardData (in category 'general-api-read') ----- + readFormClipboardData + | bytes formats | + formats := self readAvailableFormats. + (formats includes: 'image/bmp' asMIMEType) + ifTrue: [bytes := self readBMPClipboardData. + ^ (BMPReadWriter on: bytes readStream) nextImage]. + ^ nil! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readRTFClipboardData (in category 'general-api-read') ----- + readRTFClipboardData + | string | + self openClipboard. + [string := (self getClipboardData: (self class mimeTypeMap at: 'text/rtf' asMIMEType)) fromCString] + ensure: [self closeClipboard]. + ^string! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readStringClipboardData (in category 'general-api-read') ----- + readStringClipboardData + + ^ self readWideStringClipboardData + ifNil: [self readByteStringClipboardData]! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readTIFFClipboardData (in category 'general-api-read') ----- + readTIFFClipboardData + | string | + self openClipboard. + [string := (self getClipboardData: (self class mimeTypeMap at: 'image/tiff' asMIMEType)) fromCString] + ensure: [self closeClipboard]. + ^string! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readWideStringClipboardData (in category 'general-api-read') ----- + readWideStringClipboardData + + (self hasClipboardData: 13) "CF_UNICODETEXT" + ifFalse: [^ nil]. + + "HACK!! Use CF_PRIVATELAST to handle UTF16-encoded UTF8. See platform code." + ^ (self readClipboardData: 16r02FF) "CF_PRIVATELAST" + ifNotNil: [:bytes | [bytes asString utf8ToSqueak] ifError: [bytes asString] ]!

1 0

The Trunk: Tests-mt.498.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.498.mcz ==================== Summary ==================== Name: Tests-mt.498 Author: mt Time: 15 March 2023, 3:49:46.759667 pm UUID: 41c6c6f0-c49d-4048-97db-14836db1810a Ancestors: Tests-eem.497 Remove dependency between Clipboard tests and SqueakMap project. =============== Diff against Tests-eem.497 =============== Item was changed: ----- Method: ClipboardTest>>testClipboardText (in category 'tests') ----- testClipboardText | uuidString clipboard | + uuidString := UUID new asString. - uuidString := UUID new asString36. clipboard := Clipboard new. clipboard clipboardText: uuidString. self assert: uuidString equals: clipboard clipboardText asString! Item was changed: ----- Method: ClipboardTest>>testClipboardTextNotifyWith (in category 'tests') ----- testClipboardTextNotifyWith | uuidString clipboard subscriber notifiedText notifiedSource | + uuidString := UUID new asString. - uuidString := UUID new asString36. clipboard := Clipboard new. subscriber := [ :text :source | notifiedText := text. notifiedSource := source ]. clipboard when: #contentChanged send: #value:value: to: subscriber. clipboard clipboardText: uuidString. self assert: uuidString equals: notifiedText; assert: nil equals: notifiedSource. clipboard clipboardText: uuidString reversed notifyWith: self. self assert: uuidString reversed equals: notifiedText; assert: self == notifiedSource. clipboard removeActionsWithReceiver: subscriber. clipboard clipboardText: uuidString. self assert: uuidString reversed equals: notifiedText; assert: self == notifiedSource!

1 0

The Trunk: EToys-mt.496.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.496.mcz ==================== Summary ==================== Name: EToys-mt.496 Author: mt Time: 15 March 2023, 3:44:14.432667 pm UUID: ade83861-c8c5-6449-986d-b123e0cbdc56 Ancestors: EToys-mt.495 Complements ToolBuilder-Kernel-mt.164 =============== Diff against EToys-mt.495 =============== Item was removed: - ----- Method: ProgressInitiationException class>>display:during: (in category '*Etoys-Squeakland-signalling') ----- - display: aString during: workBlock - "Show progress bar; the position should be standardize from 0 to 1" - "ProgressInitiationException display: 'progress' during: [:bar | - 0 to: 1 by: 0.1 do: [:x | bar value: x. - (Delay forMilliseconds: 100) wait]]" - ^ self new - display: aString - at: Sensor cursorPoint - from: 0 - to: 1 - during: workBlock!

1 0

The Trunk: ToolBuilder-Kernel-mt.164.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.164.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.164 Author: mt Time: 15 March 2023, 3:43:50.929667 pm UUID: 4bf54839-c35e-514b-bd06-1e88a2fcc023 Ancestors: ToolBuilder-Kernel-mt.163 Clean up EToys dependency. =============== Diff against ToolBuilder-Kernel-mt.163 =============== Item was added: + ----- Method: ProgressInitiationException class>>display:during: (in category 'signalling') ----- + display: aString during: workBlock + "Show progress bar; the position should be standardize from 0 to 1" + "ProgressInitiationException display: 'progress' during: [:bar | + 0 to: 1 by: 0.1 do: [:x | bar value: x. + (Delay forMilliseconds: 100) wait]]" + ^ self new + display: aString + at: Sensor cursorPoint + from: 0 + to: 1 + during: workBlock!

1 0

The Trunk: Kernel-mt.1509.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1509.mcz ==================== Summary ==================== Name: Kernel-mt.1509 Author: mt Time: 15 March 2023, 3:36:22.778667 pm UUID: bc1ad1ee-4b52-294f-994b-550872669b05 Ancestors: Kernel-mt.1508 Revert prior commit. Sorry for the noise. Hmm... ClassDescription >> #isUniClass is too generic at the moment... =============== Diff against Kernel-mt.1508 =============== Item was added: + ----- Method: Object class>>isUniClass (in category 'instance creation') ----- + isUniClass + ^ false!

1 0

The Trunk: Kernel-mt.1508.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1508.mcz ==================== Summary ==================== Name: Kernel-mt.1508 Author: mt Time: 15 March 2023, 3:32:48.658667 pm UUID: 0766bf18-ec79-c24d-854e-01100371fee6 Ancestors: Kernel-mt.1507 Fixes #isUniClass check. See ClassDescription or implementors of #isUniClass. =============== Diff against Kernel-mt.1507 =============== Item was removed: - ----- Method: Object class>>isUniClass (in category 'instance creation') ----- - isUniClass - ^ false!

1 0

The Trunk: EToys-mt.495.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.495.mcz ==================== Summary ==================== Name: EToys-mt.495 Author: mt Time: 15 March 2023, 3:25:49.868667 pm UUID: 2f2d0c61-81ea-8641-8773-2b1972a648b8 Ancestors: EToys-mt.494 Complement Kernel-mt.1507 =============== Diff against EToys-mt.494 =============== Item was removed: - ----- Method: Player class>>cleanUp: (in category 'housekeeping') ----- - cleanUp: aggressive - "Nuke uni-classes when aggressively cleaning up" - aggressive ifTrue:[ - self withAllSubclassesDo:[:aClass| - aClass isUniClass ifTrue:[Smalltalk removeClassNamed: aClass name]. - ]. - ].!

1 0

The Trunk: Kernel-mt.1507.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1507.mcz ==================== Summary ==================== Name: Kernel-mt.1507 Author: mt Time: 15 March 2023, 3:25:15.389667 pm UUID: e1a59e7b-7610-c742-a073-d58d25e80ed0 Ancestors: Kernel-mt.1506 Move robust removal of uni-classes from EToys to here. =============== Diff against Kernel-mt.1506 =============== Item was added: + ----- Method: ClassDescription class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + "Nuke uni-classes when aggressively cleaning up" + + aggressive ifTrue:[ + Metaclass allInstancesDo: [:meta | + meta theNonMetaClass isUniClass ifTrue: [ + meta theNonMetaClass removeFromSystemUnlogged]]].!

1 0

The Trunk: WebClient-Tests-mt.63.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-mt.63.mcz ==================== Summary ==================== Name: WebClient-Tests-mt.63 Author: mt Time: 15 March 2023, 2:51:38.127794 pm UUID: 1e30ab8e-6d62-884a-87dd-95c7b23ad15e Ancestors: WebClient-Tests-ct.62 Remove a dependency to MorphicExtras =============== Diff against WebClient-Tests-ct.62 =============== Item was changed: ----- Method: WebClientServerTest>>testMultipartFiles (in category 'tests - fields') ----- testMultipartFiles "Test client and server handling multipart/form-data fields for file uploads" | resp request document firstPart | server addService: '/fields' action:[:req | request := req. req send200Response: (String streamContents:[:s| req fields keys asArray sort do:[:key | s cr; nextPutAll: key,'=', (req fields at: key)]. ]). ]. document := MIMEDocument contentType: 'text/webclient-test' content: 'Hello World, this is a sample file' + url: FileDirectory default asUrl asString,'test.txt'. - url: FileDirectory default url,'test.txt'. resp := WebClient httpPost: self localHostUrl,'/fields' multipartFields: { 'upload' -> document. }. "First test just verifies that uploaded documents look just like other fields" self assert: resp code = 200. self assert: resp content = ' upload=Hello World, this is a sample file'. "Second test verifies that we have the additional data from a file upload" firstPart := true. request multipartFieldsDo:[:headers :params :content| self assert: firstPart. "should only have one part" self assert: (params at: 'name') = 'upload'. self assert: (params at: 'filename') = (FileDirectory default fullNameFor: 'test.txt'). self assert: (headers at: 'content-type') = 'text/webclient-test'. firstPart := false. ]. ! Item was changed: ----- Method: WebClientServerTest>>testMultipartFiles2 (in category 'tests - fields') ----- testMultipartFiles2 "Same as testMultpartFiles but this time using HTTPSocket API" | resp request document firstPart fields | server addService: '/fields' action:[:req | request := req. req send200Response: (String streamContents:[:s| req fields keys asArray sort do:[:key | s cr; nextPutAll: key,'=', (req fields at: key)]. ]). ]. document := MIMEDocument contentType: 'text/webclient-test' content: 'Hello World, this is a sample file' + url: FileDirectory default asUrl asString,'test.txt'. - url: FileDirectory default url,'test.txt'. fields := Dictionary new. fields at: 'upload' put: {document}. "Make sure we're *actually* using HTTPSocket and not WebClient (if it's registered as HTTP handler in HTTPSocket)" (HTTPSocket respondsTo: #httpRequestHandler:) ifTrue:[ | oldHandler | oldHandler := HTTPSocket httpRequestHandler. [HTTPSocket httpRequestHandler: nil. resp := (self localHostUrl,'/fields') asUrl postMultipartFormArgs: fields. ] ensure:[HTTPSocket httpRequestHandler: oldHandler]. ] ifFalse:[ resp := (self localHostUrl,'/fields') asUrl postMultipartFormArgs: fields. ]. "First test just verifies that uploaded documents look just like other fields" self assert: resp content = ' upload=Hello World, this is a sample file'. "Verifies that we have the additional data from a file upload" firstPart := true. request multipartFieldsDo:[:headers :params :content| self assert: firstPart. "should only have one part" self assert: (params at: 'name') = 'upload'. self assert: (params at: 'filename') = (FileDirectory default fullNameFor: 'test.txt'). self assert: (headers at: 'content-type') = 'text/webclient-test'. firstPart := false. ]. !

1 0

The Trunk: Network-mt.265.mcz
by commits＠source.squeak.org 15 Mar '23

15 Mar '23

Marcel Taeumel uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mt.265.mcz ==================== Summary ==================== Name: Network-mt.265 Author: mt Time: 15 March 2023, 2:51:14.761794 pm UUID: f0445e61-a79f-ca40-947f-5fee4617b92d Ancestors: Network-tpr.264 Remove a dependency to MorphicExtras =============== Diff against Network-tpr.264 =============== Item was changed: ----- Method: SwikiPseudoFileStream>>directory (in category 'accessing') ----- directory + ^directory asUrl asString! - ^directory url! Item was changed: ----- Method: SwikiPseudoFileStream>>directoryUrl (in category 'accessing') ----- directoryUrl + ^directory asUrl asString! - ^directory url!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2023