Packages March 2023

packages@lists.squeakfoundation.org

1 participants
60 discussions

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

24 Mar '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1510.mcz ==================== Summary ==================== Name: Kernel-mt.1510 Author: mt Time: 24 March 2023, 1:23:04.967707 pm UUID: e8c87bf3-8435-0645-99fc-a8a02e80eac9 Ancestors: Kernel-mt.1509 Rescue direct keyboard access from ST80 to keep EmergencyEvaluator working if ST80 package would be unloaded. =============== Diff against Kernel-mt.1509 =============== Item was added: + ----- Method: EventSensor>>characterForKeycode: (in category 'private') ----- + characterForKeycode: keycode + "Map the given keycode to a Smalltalk character object. Encoding: + A keycode is 12 bits: <4 modifer bits><8 bit ISO character> + Modifier bits are: <command><option><control><shift>" + + "NOTE: the command and option keys are specific to the Macintosh and may not have equivalents on other platforms." + + keycode = nil ifTrue: [ ^nil ]. + keycode class = Character ifTrue: [ ^keycode ]. "to smooth the transition!!" + ^ Character value: (keycode bitAnd: 16rFF)! Item was added: + ----- Method: EventSensor>>keyboard (in category 'private') ----- + keyboard + "Answer the next (single-byte or multi-byte) character from the keyboard." + + | firstCharacter secondCharactor stream multiCharacter converter | + "1) Consume next character from buffer." + (firstCharacter := self characterForKeycode: keyboardBuffer next) ifNil: [^ nil]. + + "2) Peek additional character and try to read multi-byte character." + (secondCharactor := self characterForKeycode: keyboardBuffer peek) ifNil: [^ firstCharacter]. + (converter := Locale currentPlatform systemConverter) ifNil: [^ firstCharacter]. + stream := ReadStream on: (String with: firstCharacter with: secondCharactor). + multiCharacter := [converter nextFromStream: stream] ifError: [firstCharacter]. + + "3) Only consume that additional character if we got a multi-byte character." + multiCharacter isOctetCharacter ifFalse: [keyboardBuffer next]. + + "4) Answer either single-byte or multi-byte character." + ^ multiCharacter + ! Item was added: + ----- Method: EventSensor>>keyboardPressed (in category 'private') ----- + keyboardPressed + "Answer true if keystrokes are available." + + ^self peekKeyboard notNil! Item was added: + ----- Method: EventSensor>>peekKeyboard (in category 'private') ----- + peekKeyboard + "Answer the next character in the keyboard buffer without removing it, or nil if it is empty." + + self flag: #toRename. "mt: peek-api is ST80. Find a better name or remove usage by using something like HandMorph >> #lastEvent." + self fetchMoreEvents. + self eventQueue ifNotNil: [:queue | queue flush]. + ^ self characterForKeycode: keyboardBuffer peek!

1 0

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

24 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1397.mcz ==================== Summary ==================== Name: System-mt.1397 Author: mt Time: 24 March 2023, 11:05:43.185808 am UUID: f57a2222-f8b9-9a41-ad0b-eae3f46cc2de Ancestors: System-eem.1396 Remove unused project parameters. =============== Diff against System-eem.1396 =============== Item was changed: + (PackageInfo named: 'System') postscript: '#(caretWidth defaultAnnotationPaneHeight defaultButtonPaneHeight defaultChangeSetDirectoryName defaultWorldColor eToysFont eToysTitleFont haloLabelFont insertionPointColor keyboardFocusColor menuBorderColor menuBorderWidth menuColor menuLineColor menuSelectionColor menuTitleBorderColor menuTitleBorderWidth menuTitleColor numberOfRecentSubmissionsToStore paintBoxButtonFont standardButtonFont standardCodeFont standardFlapFont standardListFont standardMenuFont textHighlightColor windowColors windowTitleFont) + do: [:projectParameter | + Preferences expungeParameter: projectParameter].'! - (PackageInfo named: 'System') postscript: 'PragmaPreference allInstancesDo: [:ea | - ea instVarNamed: #name put: ea name asString].'!

1 0

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

23 Mar '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1396.mcz ==================== Summary ==================== Name: System-eem.1396 Author: eem Time: 23 March 2023, 3:56:35.409033 pm UUID: 53f6b536-39e4-4957-b0b6-5c1958a356b3 Ancestors: System-eem.1395 Add the magic format number (49358, a.k.a. 16rC0CE) used by Chrome and Edge for HTML text copied to the clipboard to ExtendedClipboardWinInterface. =============== Diff against System-eem.1395 =============== 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_UNICODETEXT CF_UTF8TEXT CF_WAVE' - classVariableNames: 'CF_BITMAP CF_DIB CF_DIBV5 CF_HDROP 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" 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. !

1 0

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

23 Mar '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1395.mcz ==================== Summary ==================== Name: System-eem.1395 Author: eem Time: 23 March 2023, 3:34:56.554408 pm UUID: d923e690-07b0-43ae-bc0d-0102525ac783 Ancestors: System-eem.1394 Humble mumble. Undo inadvertent commits in the previous commit. I forgot to use ignore in the cmmit dialogue. =============== Diff against System-eem.1394 =============== Item was removed: - ----- Method: Array>>objectsAccessibleFromRoots (in category '*System-Object Storage-file in/out') ----- - objectsAccessibleFromRoots - "This primitive will answer an array of the receiver and every object in its proper tree of subParts - (ie, that is not refered to from anywhere else outside the tree). Note: all elements of the reciever - are treated as roots in determining the extent of the tree." - - <primitive: 96 error: ec> - self primitiveFailed - - "{ Object } objectsAccessibleFromRoots"! Item was removed: - Association ephemeronSubclass: #Ephemeron - instanceVariableNames: 'container' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Finalization'! - - !Ephemeron commentStamp: 'eem 6/7/2022 15:45' prior: 0! - An Ephemeron is an association known to the garbage collection system, allowing it to function as a pre-mortem finalizer. - - An Ephemeron is intended for uses such as associating an object's dependents with an object without preventing garbage collection. - - Consider a traditional implementation of dependents in non-Model classes. There is a Dictionary in Object, DependentsFields, into which objects wishing to have dependents are entered as keys, with the value being the sequence of their dependents. Since a key's dependents (if they are like views/morphs, etc in MVC) will refer directly back to the key (e.g. in their model inst var etc), the key remains srongly referenced; there is no way to use weak collections in DependentsFields to allow the cycle of an object and its dependents to be collected. If DependentsFields were to use a WeakArray to hold the associations from objects to their dependents then those associations, and the dependencies they record, would simply be lost since the only reference to the associations is from DependentsFields. - - Ephemeron differs from a normal association in that it is known to the garbage collector and it is involved in tracing. First, note that an Ephemeron is a *strong* referrer. The objects it refers to cannot be garbage collected. It is not weak. But it is able to discover when it is the *only* reference to an object. To be accurate, an Ephemeron is notified by the collector when its key is only referenced from the transitive closure of references from ephemerons. i.e. when an ephemeron is notified we know that there are no reference paths to the ephemeron's key other than through ephemerons; the ephemeron's key is not otherwise reachable from the roots. - - Ephemerons are notified by the garage collector placing them in a queue and signalling a semaphore for each element in the queue. An image level process (the extended finalization process) extracts them from the queue and sends mourn to each ephemeron (since their keys are effectively dead). What an Ephemeron does in response to the notification is programmable (one can add subclasses of Ephemeron). But the default behaviour is to send finalize to the key, and then to remove itself from the dictionary it is in, allowing it and the transitive closure of objects reachable from it, to be collected in a subsequent garbage collection. - - Implementation: both in scavenging, and in scan-mark, if an ephemeron is encountered its key is examined. If the key is reachable from the roots (has already been scavenged, or is already marked), then the ephemeron marked and treated as an ordinary object. If the key is not yet known to be reachable the ephemeron is held in an internal queue of maybe triggerable ephemerons, and its objects are not traced. - - At the end of the initial scavenge or scan-mark phase, this queue of triggerable ephemerons is examined. All ephemerons in the list whose key is reachable are traced, and removed from the list. i.e. what has happened was that their key was found reachable form the roots after they were added in the list (the garbage collector traces the object graph in an arbitrary order, typically breadth first in the scavenger, depth-dirst in teh scan-mark). This then leaves the list populated only with ephemerons whose keys are as yet untraced, and hence only referenced from the ephemerons in the triggerable ephemeron queue, which now becomes the triggered ephemeron queue. All these ephemerons are placed in the finalization queue for processing in the image above, and all objects reachable from these ephemerons are traced (scavenged, marked). This tracing phase may encounter new potentially triggerable ephemerons which will be added to the triggerable ephemeron queue (not likely in practice , but essential for sound semantics). So the triggering phase continues until the system reaches a fixed point with an empty triggerable ephemeron queue. - - Implications and advantages: - Because ephemerons do not allow their object to be collected, they can be, and are, used to implement pre-mortem finalization. So e.g. a file can flush its buffers and then close its file descriptor before being collected (which may also imply that the system runs the garbage collector *before* snapshotting, not as part of the snapshot primitive). Ephemerons are conceptually more simple than WeakKeyDictionary et al, since they are about reference paths, not merely the existence of strong references. They accurately identify when an object is no longer reachable from the roots, no matter how many ephemerons are attached to a specific object for whatever purpose. Note that the back reference from a dependent to an object renders a weak key dictionary useless in enabling an isolated cycle to be collected since the back reference is string, and keeps the reference from the weak key alive. - - History: Ephemerons are like guardians. They were invented by George Bosworth in the early '90's, to provide pre-mortem finalization and to solve the problem of DependentsFields retaining garbage. - - Instance Variables (inherited) - container <Dictionary|Set> - the container in which the Ephemeron resides. - ! Item was removed: - ----- Method: Ephemeron>>container (in category 'accessing') ----- - container - "Answer the Dictionary containing the receiver, if any." - ^container! Item was removed: - ----- Method: Ephemeron>>container: (in category 'accessing') ----- - container: aDictionarySetOrNil - "Set the Dictionary containing the receiver, or nil it." - container := aDictionarySetOrNil! Item was removed: - ----- Method: Ephemeron>>isEphemeron (in category 'testing') ----- - isEphemeron - ^true! Item was removed: - ----- Method: Ephemeron>>mourn (in category 'mourning') ----- - mourn - "Triggered ephemerons get sent mourn by WeakArray class's finalizationProcess - (via mournLoopWith:) when the only reference(s) to an ephemeron's key is through - one or more ephemerons. i.e. the key is not reachable from the roots of the system, - only through ephemerons. So ephemerons get sent mourn when their key would - otherwise have been garbage collected. Respond to the information that the key - would have been garbage collected other than through ephemeron references by - sending finalize to the key." - container ifNotNil: [container removeKey: key ifAbsent: nil]. - key finalize! Item was removed: - Dictionary subclass: #EphemeronDictionary - instanceVariableNames: 'mutex' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Finalization'! - - !EphemeronDictionary commentStamp: 'eem 10/1/2020 16:31' prior: 0! - An EphemeronDictionary is a dictionary that uses ephemerons for its associations, and hence is able to arrange that its keys are finalizable. See Phemeron's class comment. - - Instance Variables - mutex: <Mutex> - - mutex - - an access protect that prevents the receiver getting corrupted as finalization occurs while lower priority processes are adding and/or rremoving ephemerons. - ! Item was removed: - ----- Method: EphemeronDictionary>>add: (in category 'adding') ----- - add: anAssociation - anAssociation class ~~ self associationClass ifTrue: - [self error: self class name, 's hold only ', self associationClass name, ' instances']. - ^super add: anAssociation! Item was removed: - ----- Method: EphemeronDictionary>>associationClass (in category 'accessing') ----- - associationClass - ^Ephemeron! Item was removed: - ----- Method: EphemeronDictionary>>atNewIndex:put: (in category 'private') ----- - atNewIndex: index put: anEphemeron - - anEphemeron container: self. - ^super atNewIndex: index put: anEphemeron! Item was removed: - ----- Method: EphemeronDictionary>>initialize: (in category 'initialize-release') ----- - initialize: n - mutex := Mutex new. - super initialize: n! Item was removed: - IdentitySet subclass: #EphemeronRegistry - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Finalization'! Item was removed: - ----- Method: Object>>isEphemeron (in category '*System-Finalization-testing') ----- - isEphemeron - ^false! Item was removed: - ----- Method: Preferences class>>vmProfilerFillInIntegral (in category 'standard queries') ----- - vmProfilerFillInIntegral - ^ self - valueOfFlag: #vmProfilerFillInIntegral - ifAbsent: [false]! Item was removed: - ----- Method: WeakArray class>>doOldFinalization (in category '*System-Finalization') ----- - doOldFinalization - "Process the weak registries, in the old finalization style. Hopefully this will - eventually go away when all clients have adopted the new finalization scheme." - FinalizationLock - critical: - [FinalizationDependents do: - [ :weakDependent | - weakDependent ifNotNil: - [weakDependent finalizeValues]]] - ifError: - [:msg :rcvr | rcvr error: msg]! Item was changed: ----- Method: WeakArray class>>finalizationProcess (in category '*System-Finalization') ----- finalizationProcess - "The finalization process arranges to send mourn to each element of the VM's finalization queue, - which is accessed via primitiveFetchMourner. The VM signals FinalizationSemaphore whenever - the queue is non-empty. This process loops, waiting on the semaphore, fetches the first element - of the queue and then spawns a process at a higher priority to actually send the mourn messages. - If an error occurs in the higher priority mourn loop process then this process will simply spawn - another process, hence ensuring that errors in finalization methods don't break finalization. + [FinalizationSemaphore wait. + FinalizationLock + critical: + [FinalizationDependents do: + [ :weakDependent | + weakDependent ifNotNil: + [weakDependent finalizeValues]]] + ifError: + [:msg :rcvr | rcvr error: msg]] repeat! - In addition this process also runs the old finalization scheme, supporting clients of the older, - WeakRegistry based scheme. Hopefully this will go away when all cleints have moved over." - | throttle firstMourner | - throttle := Semaphore new. - [FinalizationSemaphore wait; initSignals. - "Support the old scheme until things have changed over..." - self doOldFinalization. - [firstMourner := self primitiveFetchMourner. - firstMourner notNil] whileTrue: - [[throttle signal. - self mournLoopWith: firstMourner] forkAt: Processor activePriority + 1. - throttle wait]] repeat! Item was removed: - ----- Method: WeakArray class>>mournLoopWith: (in category '*System-Finalization') ----- - mournLoopWith: firstMourner - "Send mourn to all the objects available in the mourn queue, starting - with firstMourner which the sender has already extraced for us. If - an error occurs here, it will break this loop but the sender will spawn - another mournLoopWith: so that finalization is not broken by errors in - individual cases." - | mourner | - mourner := firstMourner. - [mourner isEphemeron ifTrue: - [mourner mourn]. - (mourner := self primitiveFetchMourner) notNil] whileTrue!

1 0

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

23 Mar '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1394.mcz ==================== Summary ==================== Name: System-eem.1394 Author: eem Time: 23 March 2023, 3:29:19.403623 pm UUID: ad7fcbb9-b648-47c3-850d-d4ea3ea3f466 Ancestors: System-mt.1393 Add ExtendedClipboardInterface code from Virtend that allows importing unicode text, filenames and images. This uses the deprecated DropFilesEvent, but I don't know how to fix the import, so I'll leave it up to those that do (hi Maercle!) to fix the code in situ. N.B. pasting text in multiple formats to follow, but see ExtendedClipboardWinInterface>>packageAsHTML: as busy work necessary on Windows. =============== Diff against System-mt.1393 =============== Item was added: + (PackageInfo named: 'System') preamble: 'ExtendedClipboardWinInterface initializeClipboardFormatMap'! Item was added: + ----- Method: Array>>objectsAccessibleFromRoots (in category '*System-Object Storage-file in/out') ----- + objectsAccessibleFromRoots + "This primitive will answer an array of the receiver and every object in its proper tree of subParts + (ie, that is not refered to from anywhere else outside the tree). Note: all elements of the reciever + are treated as roots in determining the extent of the tree." + + <primitive: 96 error: ec> + self primitiveFailed + + "{ Object } objectsAccessibleFromRoots"! Item was added: + Association ephemeronSubclass: #Ephemeron + instanceVariableNames: 'container' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Finalization'! + + !Ephemeron commentStamp: 'eem 6/7/2022 15:45' prior: 0! + An Ephemeron is an association known to the garbage collection system, allowing it to function as a pre-mortem finalizer. + + An Ephemeron is intended for uses such as associating an object's dependents with an object without preventing garbage collection. + + Consider a traditional implementation of dependents in non-Model classes. There is a Dictionary in Object, DependentsFields, into which objects wishing to have dependents are entered as keys, with the value being the sequence of their dependents. Since a key's dependents (if they are like views/morphs, etc in MVC) will refer directly back to the key (e.g. in their model inst var etc), the key remains srongly referenced; there is no way to use weak collections in DependentsFields to allow the cycle of an object and its dependents to be collected. If DependentsFields were to use a WeakArray to hold the associations from objects to their dependents then those associations, and the dependencies they record, would simply be lost since the only reference to the associations is from DependentsFields. + + Ephemeron differs from a normal association in that it is known to the garbage collector and it is involved in tracing. First, note that an Ephemeron is a *strong* referrer. The objects it refers to cannot be garbage collected. It is not weak. But it is able to discover when it is the *only* reference to an object. To be accurate, an Ephemeron is notified by the collector when its key is only referenced from the transitive closure of references from ephemerons. i.e. when an ephemeron is notified we know that there are no reference paths to the ephemeron's key other than through ephemerons; the ephemeron's key is not otherwise reachable from the roots. + + Ephemerons are notified by the garage collector placing them in a queue and signalling a semaphore for each element in the queue. An image level process (the extended finalization process) extracts them from the queue and sends mourn to each ephemeron (since their keys are effectively dead). What an Ephemeron does in response to the notification is programmable (one can add subclasses of Ephemeron). But the default behaviour is to send finalize to the key, and then to remove itself from the dictionary it is in, allowing it and the transitive closure of objects reachable from it, to be collected in a subsequent garbage collection. + + Implementation: both in scavenging, and in scan-mark, if an ephemeron is encountered its key is examined. If the key is reachable from the roots (has already been scavenged, or is already marked), then the ephemeron marked and treated as an ordinary object. If the key is not yet known to be reachable the ephemeron is held in an internal queue of maybe triggerable ephemerons, and its objects are not traced. + + At the end of the initial scavenge or scan-mark phase, this queue of triggerable ephemerons is examined. All ephemerons in the list whose key is reachable are traced, and removed from the list. i.e. what has happened was that their key was found reachable form the roots after they were added in the list (the garbage collector traces the object graph in an arbitrary order, typically breadth first in the scavenger, depth-dirst in teh scan-mark). This then leaves the list populated only with ephemerons whose keys are as yet untraced, and hence only referenced from the ephemerons in the triggerable ephemeron queue, which now becomes the triggered ephemeron queue. All these ephemerons are placed in the finalization queue for processing in the image above, and all objects reachable from these ephemerons are traced (scavenged, marked). This tracing phase may encounter new potentially triggerable ephemerons which will be added to the triggerable ephemeron queue (not likely in practice , but essential for sound semantics). So the triggering phase continues until the system reaches a fixed point with an empty triggerable ephemeron queue. + + Implications and advantages: + Because ephemerons do not allow their object to be collected, they can be, and are, used to implement pre-mortem finalization. So e.g. a file can flush its buffers and then close its file descriptor before being collected (which may also imply that the system runs the garbage collector *before* snapshotting, not as part of the snapshot primitive). Ephemerons are conceptually more simple than WeakKeyDictionary et al, since they are about reference paths, not merely the existence of strong references. They accurately identify when an object is no longer reachable from the roots, no matter how many ephemerons are attached to a specific object for whatever purpose. Note that the back reference from a dependent to an object renders a weak key dictionary useless in enabling an isolated cycle to be collected since the back reference is string, and keeps the reference from the weak key alive. + + History: Ephemerons are like guardians. They were invented by George Bosworth in the early '90's, to provide pre-mortem finalization and to solve the problem of DependentsFields retaining garbage. + + Instance Variables (inherited) + container <Dictionary|Set> - the container in which the Ephemeron resides. + ! Item was added: + ----- Method: Ephemeron>>container (in category 'accessing') ----- + container + "Answer the Dictionary containing the receiver, if any." + ^container! Item was added: + ----- Method: Ephemeron>>container: (in category 'accessing') ----- + container: aDictionarySetOrNil + "Set the Dictionary containing the receiver, or nil it." + container := aDictionarySetOrNil! Item was added: + ----- Method: Ephemeron>>isEphemeron (in category 'testing') ----- + isEphemeron + ^true! Item was added: + ----- Method: Ephemeron>>mourn (in category 'mourning') ----- + mourn + "Triggered ephemerons get sent mourn by WeakArray class's finalizationProcess + (via mournLoopWith:) when the only reference(s) to an ephemeron's key is through + one or more ephemerons. i.e. the key is not reachable from the roots of the system, + only through ephemerons. So ephemerons get sent mourn when their key would + otherwise have been garbage collected. Respond to the information that the key + would have been garbage collected other than through ephemeron references by + sending finalize to the key." + container ifNotNil: [container removeKey: key ifAbsent: nil]. + key finalize! Item was added: + Dictionary subclass: #EphemeronDictionary + instanceVariableNames: 'mutex' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Finalization'! + + !EphemeronDictionary commentStamp: 'eem 10/1/2020 16:31' prior: 0! + An EphemeronDictionary is a dictionary that uses ephemerons for its associations, and hence is able to arrange that its keys are finalizable. See Phemeron's class comment. + + Instance Variables + mutex: <Mutex> + + mutex + - an access protect that prevents the receiver getting corrupted as finalization occurs while lower priority processes are adding and/or rremoving ephemerons. + ! Item was added: + ----- Method: EphemeronDictionary>>add: (in category 'adding') ----- + add: anAssociation + anAssociation class ~~ self associationClass ifTrue: + [self error: self class name, 's hold only ', self associationClass name, ' instances']. + ^super add: anAssociation! Item was added: + ----- Method: EphemeronDictionary>>associationClass (in category 'accessing') ----- + associationClass + ^Ephemeron! Item was added: + ----- Method: EphemeronDictionary>>atNewIndex:put: (in category 'private') ----- + atNewIndex: index put: anEphemeron + + anEphemeron container: self. + ^super atNewIndex: index put: anEphemeron! Item was added: + ----- Method: EphemeronDictionary>>initialize: (in category 'initialize-release') ----- + initialize: n + mutex := Mutex new. + super initialize: n! Item was added: + IdentitySet subclass: #EphemeronRegistry + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Finalization'! Item was changed: ----- Method: ExtendedClipboardInterface class>>current (in category 'accessing') ----- current + + ^Current ifNil: + [Current := (Smalltalk classNamed: #CPlatform) + ifNotNil: [:cPlatform| cPlatform current extendedClipboardInterfaceClass new] + ifNil: [SmalltalkImage current platformName + caseOf: { + ['Mac OS'] -> [ExtendedClipboardMacInterface new]. + ['unix'] -> [ExtendedClipboardUnixInterface new]. + ['Win32'] -> [ExtendedClipboardWinInterface new] } + otherwise: [nil]]]! - - | 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 changed: ----- Method: ExtendedClipboardInterface class>>initialize (in category 'class initialization') ----- initialize "ExtendedClipboardInterface initialize" Current := nil. + (Smalltalk classNamed: #CPlatform) + ifNil: [Smalltalk addToStartUpList: self] + ifNotNil: [:cPlatformClass| Smalltalk addToStartUpList: self after: cPlatformClass]. + Smalltalk addToShutDownList: self! - Smalltalk - addToStartUpList: self; - addToShutDownList: self.! 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" + Current := nil! - resuming ifTrue: [ - Current := nil. - self current].! Item was added: + ----- Method: ExtendedClipboardInterface>>addFormClipboardData: (in category 'general-api-add') ----- + addFormClipboardData: aForm + ^self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardInterface>>cleanupToCopyMorphic (in category 'general-api-add') ----- + cleanupToCopyMorphic + "For some very complicated issue, this method is called when you copy a morph. + The morph is stored into PasteBuffer class variable. So text clipboard should not be + referenced. That's why this is needed. I'll re-implement it more straightforward way." + Clipboard clipboardText: ''. + ! Item was added: + ----- Method: ExtendedClipboardInterface>>convertUTF8BytesToSqueakString: (in category 'private') ----- + convertUTF8BytesToSqueakString: aByteArrayOrNil + ^aByteArrayOrNil ifNotNil: + [aByteArrayOrNil changeClassTo: ByteString. + [aByteArrayOrNil utf8ToSqueak] ifError: [aByteArrayOrNil]]! Item was added: + ----- Method: ExtendedClipboardInterface>>createClipboard (in category 'general-api-utility') ----- + createClipboard + clipboard = 0 ifTrue: [^self]. + ^ self primCreateClipboard.! Item was added: + ----- Method: ExtendedClipboardInterface>>hasClipboardDataInFormat: (in category 'testing') ----- + hasClipboardDataInFormat: integerCodeOrMIMETypeString + ^self primClipboard: clipboard hasDataInFormat: integerCodeOrMIMETypeString + + "ExtendedClipboardInterface current hasClipboardDataInFormat: 'public.file-url'" + "ExtendedClipboardInterface current hasClipboardDataInFormat: 'NSFilenamesPboardType'" + "ExtendedClipboardInterface current hasClipboardDataInFormat: 'Apple URL pasteboard type'" + "ExtendedClipboardInterface current hasClipboardDataInFormat: 'com.apple.finder.noderef'"! Item was added: + ----- Method: ExtendedClipboardInterface>>hasFileOrBitmap (in category 'testing') ----- + hasFileOrBitmap + "Answer if the clipboard contains a file (e.g. Copy in Finder/Explorer et al) or a bitmap. + Subclasses (should) override as appropriate." + + ^false! Item was added: + ----- Method: ExtendedClipboardInterface>>isInstalled (in category 'testing') ----- + isInstalled + ^self primCreateClipboardNoFail isInteger! Item was changed: ----- Method: ExtendedClipboardInterface>>primAddClipboardData:data:dataFormat: (in category 'system primitives') ----- + primAddClipboardData: clipboard data: data dataFormat: aFormat + + <primitive:'ioAddClipboardData' module: 'ClipboardExtendedPlugin' error: ec> + ^self primitiveFailed! - primAddClipboardData: clipboard "<Integer>" data: data "<ByteArray>" dataFormat: aFormat "<Integer | ByteArray>" - <primitive:'ioAddClipboardData' module: 'ClipboardExtendedPlugin'> - self primitiveFailed! Item was changed: ----- Method: ExtendedClipboardInterface>>primClearClipboard: (in category 'system primitives') ----- + primClearClipboard: clipboard + + <primitive:'ioClearClipboard' module: 'ClipboardExtendedPlugin' error: ec> + ^self primitiveFailed! - primClearClipboard: clipboard "<Integer>" - <primitive:'ioClearClipboard' module: 'ClipboardExtendedPlugin'> - self primitiveFailed.! Item was added: + ----- Method: ExtendedClipboardInterface>>primClipboard:hasDataInFormat: (in category 'system primitives') ----- + primClipboard: aClipboardAddress hasDataInFormat: integerCodeOrMIMETypeString + <primitive: 'ioHasClipboardDataInFormat' module: #ClipboardExtendedPlugin error: ec> + ^self primitiveFailed + + "ExtendedClipboardInterface current hasClipboardFormat: 'public.file-url'" + "ExtendedClipboardInterface current hasClipboardFormat: 'NSFilenamesPboardType'" + "ExtendedClipboardInterface current hasClipboardFormat: 'Apple URL pasteboard type'" + "ExtendedClipboardInterface current hasClipboardFormat: 'com.apple.finder.noderef'"! Item was changed: ----- Method: ExtendedClipboardInterface>>primCreateClipboard (in category 'system primitives') ----- + primCreateClipboard + + <primitive:'ioCreateClipboard' module: 'ClipboardExtendedPlugin' error: ec> + ^self primitiveFailed! - primCreateClipboard "^<Integer>" - <primitive:'ioCreateClipboard' module: 'ClipboardExtendedPlugin'> - ^ self primitiveFailed - ! Item was added: + ----- Method: ExtendedClipboardInterface>>primCreateClipboardNoFail (in category 'system primitives') ----- + primCreateClipboardNoFail + + <primitive:'ioCreateClipboard' module: 'ClipboardExtendedPlugin' error: ec> + ^ec! Item was changed: ----- Method: ExtendedClipboardInterface>>primGetClipboardFormat:formatNumber: (in category 'system primitives') ----- + primGetClipboardFormat: clipboard formatNumber: formatNumber + + <primitive:'ioGetClipboardFormat' module: 'ClipboardExtendedPlugin' error: ec> + ^self primitiveFailed! - primGetClipboardFormat: clipboard "<Integer>" formatNumber: formatNumber "<Integer> ^<Integer>" - "Enumerate available formats in the clipboard." - <primitive:'ioGetClipboardFormat' module: 'ClipboardExtendedPlugin'> - ^ self primitiveFailed. - ! Item was added: + ----- Method: ExtendedClipboardInterface>>primNoFailReadClipboardData:format: (in category 'system primitives') ----- + primNoFailReadClipboardData: clipboard format: format + + <primitive:'ioReadClipboardData' module: 'ClipboardExtendedPlugin' error: ec> + ^nil! Item was changed: ----- Method: ExtendedClipboardInterface>>primReadClipboardData:format: (in category 'system primitives') ----- + primReadClipboardData: clipboard format: format + + <primitive:'ioReadClipboardData' module: 'ClipboardExtendedPlugin' error: ec> + ^self primitiveFailed! - primReadClipboardData: clipboard "<Integer>" format: format "<Integer | ByteArray> ^<ByteArray>" - <primitive:'ioReadClipboardData' module: 'ClipboardExtendedPlugin'> - ^ self primitiveFailed - ! Item was added: + ----- Method: ExtendedClipboardInterface>>readAvailableFormats (in category 'general-api-read') ----- + readAvailableFormats + | rawFormats | + rawFormats := self readAvailableRawFormats. + ^self class clipboardFormatMap + ifNil: [rawFormats] + ifNotNil: + [:map| + rawFormats + select: [:rawFormat | map includesKey: rawFormat] + thenCollect: [:rawFormat| map at: rawFormat]]! Item was added: + ----- Method: ExtendedClipboardInterface>>readAvailableRawFormats (in category 'general-api-read') ----- + readAvailableRawFormats + | availableFormats formatIndex formatData | + availableFormats := OrderedCollection new: 10. + formatIndex := 1. + [formatData := self getClipboardFormat: formatIndex. + formatData notNil] + whileTrue: + [availableFormats addLast: formatData. + formatIndex := formatIndex +1]. + ^availableFormats! Item was added: + ----- Method: ExtendedClipboardInterface>>readContentsOrNil (in category 'general-api-read') ----- + readContentsOrNil + "Answer a Form, CDropFilesEvent or String for the selection on the clipboard, + or nil if no such data is available (data in another format or the clipboard is empty)." + ^self subclassResponsibility! Item was added: + ----- Method: ExtendedClipboardMacInterface>>addFormClipboardData: (in category 'general-api-add') ----- + addFormClipboardData: aForm + self addClipboardDataConvertFormToPNG: aForm! Item was added: + ----- Method: ExtendedClipboardMacInterface>>hasFileOrBitmap (in category 'testing') ----- + hasFileOrBitmap + ^#('public.file-url' 'com.apple.finder.noderef' 'public.jpeg' 'public.png') anySatisfy: [:format| self hasClipboardDataInFormat: format]! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readAvailableRawFormats (in category 'general-api-read') ----- + readAvailableRawFormats + | currentFormat availableFormats formatData | + availableFormats := OrderedCollection new: 10. + currentFormat := 1. + [formatData := self getClipboardFormat: currentFormat. + formatData notNil] whileTrue: + [availableFormats add: formatData. + currentFormat := currentFormat + 1]. + ^availableFormats! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readContentsOrNil (in category 'general-api-read') ----- + readContentsOrNil + "Answer a Form, CDropFilesEvent or String for the selection on the clipboard, + or nil if no such data is available (data in another format or the clipboard is empty)." + #('public.file-url' 'com.apple.finder.noderef' "'com.adobe.pdf'" 'public.jpeg' 'public.png' 'public.utf8-plain-text') + with: #(readFilenameDataAsDropFilesEvent: readFilenameDataAsDropFilesEvent: "readPDFClipboardDataAsForm" readJPEGClipboardDataAsForm readPNGClipboardDataAsForm readUTF8StringClipboardData) + do: [:format :reader| + (self hasClipboardDataInFormat: format) ifTrue: + [((MessageSend receiver: self selector: reader) cull: format) ifNotNil: + [:data| ^data]]]. + ^nil! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readFileOrBitmap (in category 'general-api-read') ----- + readFileOrBitmap + #('public.file-url' 'com.apple.finder.noderef' "'com.adobe.pdf'" 'public.jpeg' 'public.png') + with: #(readFilenameDataAsDropFilesEvent: readFilenameDataAsDropFilesEvent: "readPDFClipboardDataAsForm" readJPEGClipboardDataAsForm readPNGClipboardDataAsForm) + do: [:format :reader| + (self hasClipboardDataInFormat: format) ifTrue: + [((MessageSend receiver: self selector: reader) cull: format) ifNotNil: + [:data| ^data]]]. + ^nil! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readFilenameDataAsDropFilesEvent: (in category 'general-api-read') ----- + readFilenameDataAsDropFilesEvent: format + ^(self primNoFailReadClipboardData: clipboard format: format) ifNotNil: + [:fileNameBytes| + DropFilesEvent new + setPosition: EventSensor default cursorPoint + contents: (FileDirectory pathFromURI: ([fileNameBytes asString utf8ToSqueak] ifError: [fileNameBytes asString])) + hand: self]! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readJPEGClipboardDataAsForm (in category 'general-api-read') ----- + readJPEGClipboardDataAsForm + ^self readJPEGClipboardData ifNotNil: + [:bytes| (JPEGReadWriter2 on: bytes readStream) nextImage]! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readPDFClipboardData (in category 'general-api-read') ----- + readPDFClipboardData + ^self readClipboardData: 'com.adobe.pdf'! Item was added: + ----- Method: ExtendedClipboardMacInterface>>readPNGClipboardDataAsForm (in category 'general-api-read') ----- + readPNGClipboardDataAsForm + ^self readPNGClipboardData ifNotNil: + [:bytes| (PNGReadWriter on: bytes readStream) nextImage]! Item was changed: ----- Method: ExtendedClipboardMacInterface>>readUTF8StringClipboardData (in category 'general-api-read') ----- readUTF8StringClipboardData + ^(self readClipboardData: 'public.utf8-plain-text') ifNotNil: + [:stringBytes | + stringBytes changeClassTo: ByteString. + [stringBytes utf8ToSqueak] ifError: [stringBytes]]! - ^(self readClipboardData: 'public.utf8-plain-text') - ifNotNil: [:bytes | - [bytes asString utf8ToSqueak] ifError: [bytes asString] ] - ! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>addFormClipboardData: (in category 'general-api-add') ----- + addFormClipboardData: aForm + self addClipboardDataConvertFormToPNG: aForm! Item was added: + ----- Method: ExtendedClipboardUnixInterface>>cleanupToCopyMorphic (in category 'general-api-add') ----- + cleanupToCopyMorphic + Clipboard default reset. + ! Item was changed: ExtendedClipboardInterface subclass: #ExtendedClipboardWinInterface instanceVariableNames: '' + classVariableNames: 'CF_BITMAP CF_DIB CF_DIBV5 CF_HDROP CF_LOCALE CF_OEMTEXT CF_PALETTE CF_PENDATA CF_PRIVATELAST CF_RIFF CF_TEXT CF_TIFF CF_UNICODETEXT CF_UTF8TEXT CF_WAVE' - classVariableNames: '' 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." + 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>>addClipboardDataConvertFormToDIB: (in category 'general-api-add') ----- + addClipboardDataConvertFormToDIB: aForm + | bitmapSize headerSize colorMapSize bytes bitsClass | + bitmapSize := (aForm depth * aForm width + 7) // 8 * aForm height. + headerSize := 6 * 4. + "colorMapSize := aForm depth >= 24 + ifTrue: [aForm depth * 4 / 8] + ifFalse: [self error: 'pasting forms with palettes as yet unimplemented']." + colorMapSize := 0. + bytes := ByteArray new: headerSize + colorMapSize + bitmapSize. + bytes + "bmType uint32At: 1 put: 0;" + "bmWidth" uint32At: 5 put: aForm width; + "bmHeight" int32At: 9 put: aForm height negated; "i.e. top-down, not bottom-up" + "bmWidthBytes" uint32At: 13 put: aForm width * aForm depth + 7 // 8; + "bmPlanes" uint16At: 17 put: 1; + "bmBitsPixel" uint16At: 19 put: aForm depth; + "bmBits" uint32At: 21 put: 0. + bitsClass := aForm bits class. + bitsClass isBytes + ifTrue: + [bytes + replaceFrom: 25 + to: bytes size + with: aForm bits + startingAt: 1] ifFalse: + [bitsClass isWords + ifTrue: + [bitsClass adoptInstance: bytes. + bytes + replaceFrom: 7 + to: bytes size + with: aForm bits + startingAt: 1. + ByteArray adoptInstance: bytes] + ifFalse: + [self error: 'unhandled form bits format']]. + self addClipboardData: bytes dataFormat: CF_DIB! Item was added: + ----- Method: ExtendedClipboardWinInterface>>addClipboardDataConvertFormToDIBV5: (in category 'general-api-add') ----- + addClipboardDataConvertFormToDIBV5: aForm + self addClipboardData: (self convertFormToDIBV5: aForm) dataFormat: CF_DIBV5! Item was added: + ----- Method: ExtendedClipboardWinInterface>>addFormClipboardData: (in category 'general-api-add') ----- + addFormClipboardData: aForm + self addClipboardDataConvertFormToDIBV5: aForm! Item was added: + ----- Method: ExtendedClipboardWinInterface>>convertDIBV5BytesToForm: (in category 'private') ----- + convertDIBV5BytesToForm: aByteArray + "Convert from a DIBV5 bitmap. There are issues; Not every paster appears to paste a valid sizeImage + field, so compute it if zero. The plugin guarantees that height is negative, i.e. that scan-lines are + in Squeak order." + | bitCount bits compression height planes size sizeImage width widthBytes | + size := aByteArray uint32At: 1. + width := aByteArray int32At: 5. + height := aByteArray int32At: 9. + self assert: height < 0. + height := 0 - height. + planes := aByteArray int16At: 13. + bitCount := aByteArray int16At: 15. + compression := aByteArray uint32At: 17. + sizeImage := aByteArray uint32At: 21. + widthBytes := width * bitCount + 31 // 32 * 4. "number of bytes in a scan line for any depth" + sizeImage isZero ifTrue: + [sizeImage := widthBytes * height]. + "xppm := aByteArray int32At: 25. + yppm := aByteArray int32At: 29. + colorUsed := aByteArray uint32At: 33. + colorImportant := aByteArray uint32At: 37." + bits := aByteArray last: sizeImage. + "Squeak bitmaps use 4 bytes per pixel for 32 and 24 bit depths, so 24 bit deep images + must be stretched to 4 bytes per pixel. BTW this should be a primitive, or be in the + + ioReadClipboardData primitive..." + + bitCount = 24 ifTrue: + [| stretchBits ox | + stretchBits := ByteArray new: width * 4 * height. + ox := 1. + 1 to: height do: + [:y| + y - 1 * widthBytes + 1 to: y * widthBytes - 3 by: 3 do: + [:ix| + stretchBits at: ox put: (bits at: ix). + stretchBits at: ox + 1 put: (bits at: ix + 1). + stretchBits at: ox + 2 put: (bits at: ix + 2). + stretchBits at: ox + 3 put: 255. + ox := ox + 4]]. + bits := stretchBits]. + Bitmap adoptInstance: bits. + ^compression + caseOf: { + [3] -> [Form extent: width@height depth: bitCount bits: bits]. "i.e. throw away colours" + [0] -> [Form extent: width@height depth: bitCount bits: bits] + } + otherwise: [Transcript show: 'unhandled clipboard DIBV5 compression scheme ', compression printString. nil]! Item was added: + ----- Method: ExtendedClipboardWinInterface>>convertFilenameDataAsDropFilesEvent: (in category 'private') ----- + convertFilenameDataAsDropFilesEvent: fileNameBytes + "The explorer's format is unpublished. It is a sequence of 20 bytes, starting with the digit 20 (presumably the size of the struct), + folowed by concatenated null-terminated 16-bit character strings for each file name, and a terminating null byte." + | input fileNames fileName charCode | + input := fileNameBytes readStream. + fileNames := Array new writeStream. + fileName := String new writeStream. + input next: 20. + [input atEnd] whileFalse: + [charCode := input nextInt16LE. + charCode = 0 + ifTrue: + [fileName contents ifNotEmpty: [:theName| fileNames nextPut: theName. fileName reset]] + ifFalse: + [fileName nextPut: charCode asCharacter]]. + fileNames := fileNames contents. + ^DropFilesEvent new + setPosition: EventSensor default cursorPoint + contents: (fileNames size = 1 ifTrue: [fileNames first] ifFalse: [fileNames]) + hand: self! Item was added: + ----- Method: ExtendedClipboardWinInterface>>convertFormToDIBV5: (in category 'general-api-add') ----- + convertFormToDIBV5: aForm + | bitmapSize headerSize colorMapSize bytes bitsClass | + bitmapSize := (aForm depth * aForm width + 7) // 8 * aForm height. + headerSize := 124. "a.k.a. sizeof(BITMAPV5HEADER)" + colorMapSize := aForm depth >= 16 + ifTrue: [12] "incoming 32-bit deep forms appear to have no alpha..." + ifFalse: [self error: 'pasting forms with palettes as yet unimplemented']. + bytes := ByteArray new: headerSize + colorMapSize + bitmapSize. + bytes + "DWORD bV5Size" uint32At: 1 put: headerSize; + "LONG bV5Width" uint32At: 5 put: aForm width; + "LONG bV5Height" int32At: 9 put: aForm height negated; "Squeak bitmaps are top-down..." + "WORD bV5Planes" uint16At: 13 put: 1; + "WORD bV5BitCount" uint16At: 15 put: aForm depth; + "DWORD bV5Compression" uint32At: 17 put: 3; "BI_BITFIELDS" + "DWORD bV5SizeImage" uint32At: 21 put: aForm bits byteSize; + "LONG bV5XPelsPerMeter uint32At: 25 put: 0;" + "LONG bV5YPelsPerMeter uint32At: 29 put: 0;" + "DWORD bV5ClrUsed uint32At: 33 put: 0;" + "DWORD bV5ClrImportant uint32At: 37 put: 0;" + "DWORD bV5RedMask" uint32At: 41 put: (aForm depth = 16 ifTrue: [16r7C00] ifFalse: [16rFF0000]); "see Color>>#pixelValueForDepth:" + "DWORD bV5GreenMask" uint32At: 45 put: (aForm depth = 16 ifTrue: [16r03E0] ifFalse: [16r00FF00]); + "DWORD bV5BlueMask" uint32At: 49 put: (aForm depth = 16 ifTrue: [16r001F] ifFalse: [16r0000FF]); + "DWORD bV5AlphaMask" uint32At: 53 put: (aForm depth = 32 ifTrue: [16rFF000000] ifFalse: [0]); + "DWORD bV5CSType" uint32At: 57 put: 16r73524742 "sRGB"; + "typedef long FXPT2DOT30; + typedef struct tagCIEXYZ { FXPT2DOT30 ciexyzX; FXPT2DOT30 ciexyzY; FXPT2DOT30 ciexyzZ; } CIEXYZ; + typedef struct tagICEXYZTRIPLE { CIEXYZ ciexyzRed; CIEXYZ ciexyzGreen; CIEXYZ ciexyzBlue; } CIEXYZTRIPLE;" + "CIEXYZTRIPLE bV5Endpoints uint32At: n put: 0; ignored unless bV5CSType is LCS_CALIBRATED_RGB." + "DWORD bV5GammaRed uint32At: 97 put: 0;" + "DWORD bV5GammaGreen uint32At: 101 put: 0;" + "DWORD bV5GammaBlue uint32At: 105 put: 0;" + "DWORD bV5Intent" uint32At: 109 put: 4. "LCS_GM_IMAGES" + "DWORD bV5ProfileData uint32At: n put: 0;" + "DWORD bV5ProfileSize uint32At: n put: 0;" + "DWORD bV5Reserved uint32At: n put: 0." + "fill in the palette entries, copying them from bV5RedMask et al" + bytes + replaceFrom: 125 + to: 137 + with: bytes + startingAt: 41. + bitsClass := aForm bits class. + bitsClass isBytes + ifTrue: + [bytes + replaceFrom: headerSize + colorMapSize + 1 + to: bytes size + with: aForm bits + startingAt: 1] ifFalse: + [bitsClass isWords + ifTrue: + [bitsClass adoptInstance: bytes. + bytes + replaceFrom: (headerSize + colorMapSize / 4) + 1 + to: bytes size + with: aForm bits + startingAt: 1. + ByteArray adoptInstance: bytes] + ifFalse: + [self error: 'unhandled form bits format']]. + ^bytes! Item was added: + ----- Method: ExtendedClipboardWinInterface>>decomposeDIBBytes: (in category 'private') ----- + decomposeDIBBytes: aByteArray + "Answer a tuple of biSize, biWidth, biHeight biPlanes biBitCount biCompression biSizeImage and biBits, + derived from aDIBByteArray, a byte array containing a Device-Independent Bitmap from the clipboard." + | sizeImage | + ^{ "size:" aByteArray uint32At: 1. + "width" aByteArray int32At: 5. + "height" aByteArray int32At: 9. + "planes:" aByteArray int16At: 13. + "bitCount" aByteArray int16At: 15. + "compression:" aByteArray uint32At: 17. + sizeImage := aByteArray uint32At: 21. + "xppm:" aByteArray int32At: 25. + "yppm:" aByteArray int32At: 29. + "colorUsed:" aByteArray uint32At: 33. + "colorImportant:" aByteArray uint32At: 37. + "bits:" aByteArray last: sizeImage "width * height * bitCount / 8". + aByteArray. + aByteArray size }! Item was added: + ----- Method: ExtendedClipboardWinInterface>>decomposeDIBV5Bytes: (in category 'private') ----- + decomposeDIBV5Bytes: aByteArray + "Answer a tuple of biSize, biWidth, biHeight biPlanes biBitCount biCompression biSizeImage and biBits, + derived from aDIBByteArray, a byte array containing a V5 Device-Independent Bitmap from the clipboard." + ^{ "DWORD bV5Size" aByteArray uint32At: 1. + "LONG bV5Width" aByteArray int32At: 5. + "LONG bV5Height" aByteArray int32At: 9. + "WORD bV5Planes" aByteArray uint16At: 13. + "WORD bV5BitCount" aByteArray uint16At: 15. + "DWORD bV5Compression" aByteArray uint32At: 17. + "DWORD bV5SizeImage" aByteArray uint32At: 21. + "LONG bV5XPelsPerMeter" aByteArray int32At: 25. + "LONG bV5YPelsPerMeter" aByteArray int32At: 29. + "DWORD bV5ClrUsed" aByteArray uint32At: 33. + "DWORD bV5ClrImportant" aByteArray uint32At: 37. + "DWORD bV5RedMask" aByteArray uint32At: 41. + "DWORD bV5GreenMask" aByteArray uint32At: 45. + "DWORD bV5BlueMask" aByteArray uint32At: 49. + "DWORD bV5AlphaMask" aByteArray uint32At: 53. + "DWORD bV5CSType" aByteArray uint32At: 57. + "typedef long FXPT2DOT30; + typedef struct tagCIEXYZ { FXPT2DOT30 ciexyzX; FXPT2DOT30 ciexyzY; FXPT2DOT30 ciexyzZ; } CIEXYZ; + typedef struct tagICEXYZTRIPLE { CIEXYZ ciexyzRed; CIEXYZ ciexyzGreen; CIEXYZ ciexyzBlue; } CIEXYZTRIPLE;" + "CIEXYZTRIPLE bV5Endpoints:" (1 to: 4 * 9 by: 4) collect: [:i| aByteArray int32At: i + 60]. "ignored unless bV5CSType is LCS_CALIBRATED_RGB." + "DWORD bV5GammaRed" aByteArray uint32At: 97. + "DWORD bV5GammaGreen" aByteArray uint32At: 101. + "DWORD bV5GammaBlue" aByteArray uint32At: 105. + "DWORD bV5Intent" aByteArray uint32At: 109. + "DWORD bV5ProfileData" aByteArray uint32At: 113. + "DWORD bV5ProfileSize" aByteArray uint32At: 117. + "DWORD bV5Reserved" aByteArray uint32At: 121 }! Item was added: + ----- Method: ExtendedClipboardWinInterface>>packageAsHTML: (in category 'private') ----- + packageAsHTML: htmlString + "Surround some HTML with the necessary header & footer that makes it palatable to the system clipboard." + | header payload trailer | + header := 'Version:0.9\StartHTML:0000000100\EndHTML:NNNNNNNNNN\StartFragment:0000000134\EndFragment:NNNNNNNNNN\<html>\<body>\<!!--StartFragment-->'. + trailer := '<!!--EndFragment-->\</body>\</html>0'. + payload := header withCRs, htmlString, trailer withCRs. "Chrome appears to use cr as a newline character" + payload + at: payload size put: 0 asCharacter; + replaceFrom: 42 to: 51 with: (payload size - 1 printStringBase: 10 length: 10 padded: true); + replaceFrom: 90 to: 99 with: (payload size - 35 printStringBase: 10 length: 10 padded: true). + ^payload! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readBMPClipboardData (in category 'general-api-read') ----- readBMPClipboardData + ^self getClipboardData: CF_BITMAP! - | string | - self openClipboard. - [string := (self getClipboardData: (self class mimeTypeMap at: 'image/*' asMIMEType)) fromCString] - ensure: [self closeClipboard]. - ^string! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readContentsOrNil (in category 'general-api-read') ----- + readContentsOrNil + "Answer a Form, CDropFilesEvent or String for the selection on the clipboard, + or nil if no such data is available (data in another format or the clipboard is empty)." + + #(15 "CF_DROP" 17 "CF_DIBV5" 8 "CF_DIB" 2 "CF_BITMAP" 767 "CF_UTF8TEXT") + with: #(convertFilenameDataAsDropFilesEvent: convertDIBV5BytesToForm: convertDIBBytesToForm: convertBitmapBytesToForm: convertUTF8BytesToSqueakString:) + do: [:format :converter| + (self primNoFailReadClipboardData: clipboard format: format) ifNotNil: + [:data| ^self perform: converter with: data]]. + ^nil! Item was added: + ----- Method: ExtendedClipboardWinInterface>>readFilenameDataAsDropFilesEvent: (in category 'general-api-read') ----- + readFilenameDataAsDropFilesEvent: format + "Read one or more file names from the clipboard, wrapped in a drop event." + ^(self primNoFailReadClipboardData: clipboard format: format) ifNotNil: + [:fileNameBytes| self convertFilenameDataAsDropFilesEvent: fileNameBytes]! 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)] + } + otherwise: []]. + ^nil! - | bytes formats | - formats := self readAvailableFormats. - (formats includes: 'image/bmp' asMIMEType) - ifTrue: [bytes := self readBMPClipboardData. - ^ (BMPReadWriter on: bytes readStream) nextImage]. - ^ nil! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readTIFFClipboardData (in category 'general-api-read') ----- readTIFFClipboardData + ^self getClipboardData: CF_TIFF! - | string | - self openClipboard. - [string := (self getClipboardData: (self class mimeTypeMap at: 'image/tiff' asMIMEType)) fromCString] - ensure: [self closeClipboard]. - ^string! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readWideStringClipboardData (in category 'general-api-read') ----- readWideStringClipboardData (self hasClipboardData: 13) "CF_UNICODETEXT" ifFalse: [^ nil]. + ^((self getClipboardData: CF_UTF8TEXT) changeClassTo: ByteString) utf8ToSqueak! - "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] ]! Item was added: + ----- Method: Object>>isEphemeron (in category '*System-Finalization-testing') ----- + isEphemeron + ^false! Item was added: + ----- Method: Preferences class>>vmProfilerFillInIntegral (in category 'standard queries') ----- + vmProfilerFillInIntegral + ^ self + valueOfFlag: #vmProfilerFillInIntegral + ifAbsent: [false]! Item was added: + ----- Method: WeakArray class>>doOldFinalization (in category '*System-Finalization') ----- + doOldFinalization + "Process the weak registries, in the old finalization style. Hopefully this will + eventually go away when all clients have adopted the new finalization scheme." + FinalizationLock + critical: + [FinalizationDependents do: + [ :weakDependent | + weakDependent ifNotNil: + [weakDependent finalizeValues]]] + ifError: + [:msg :rcvr | rcvr error: msg]! Item was changed: ----- Method: WeakArray class>>finalizationProcess (in category '*System-Finalization') ----- finalizationProcess + "The finalization process arranges to send mourn to each element of the VM's finalization queue, + which is accessed via primitiveFetchMourner. The VM signals FinalizationSemaphore whenever + the queue is non-empty. This process loops, waiting on the semaphore, fetches the first element + of the queue and then spawns a process at a higher priority to actually send the mourn messages. + If an error occurs in the higher priority mourn loop process then this process will simply spawn + another process, hence ensuring that errors in finalization methods don't break finalization. + In addition this process also runs the old finalization scheme, supporting clients of the older, + WeakRegistry based scheme. Hopefully this will go away when all cleints have moved over." + | throttle firstMourner | + throttle := Semaphore new. + [FinalizationSemaphore wait; initSignals. + "Support the old scheme until things have changed over..." + self doOldFinalization. + [firstMourner := self primitiveFetchMourner. + firstMourner notNil] whileTrue: + [[throttle signal. + self mournLoopWith: firstMourner] forkAt: Processor activePriority + 1. + throttle wait]] repeat! - [FinalizationSemaphore wait. - FinalizationLock - critical: - [FinalizationDependents do: - [ :weakDependent | - weakDependent ifNotNil: - [weakDependent finalizeValues]]] - ifError: - [:msg :rcvr | rcvr error: msg]] repeat! Item was added: + ----- Method: WeakArray class>>mournLoopWith: (in category '*System-Finalization') ----- + mournLoopWith: firstMourner + "Send mourn to all the objects available in the mourn queue, starting + with firstMourner which the sender has already extraced for us. If + an error occurs here, it will break this loop but the sender will spawn + another mournLoopWith: so that finalization is not broken by errors in + individual cases." + | mourner | + mourner := firstMourner. + [mourner isEphemeron ifTrue: + [mourner mourn]. + (mourner := self primitiveFetchMourner) notNil] whileTrue!

1 0

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

23 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1393.mcz ==================== Summary ==================== Name: System-mt.1393 Author: mt Time: 23 March 2023, 5:55:33.245726 pm UUID: 08e09130-c160-bb49-881b-609cbb832893 Ancestors: System-mt.1392 We must not intern the names of pragma preferences as symbols bc. those are UI strings. Their selectors are already symbols. =============== Diff against System-mt.1392 =============== Item was added: + ----- Method: PragmaPreference>>name:helpString:categoryList:type: (in category 'private') ----- + name: aName helpString: aString categoryList: aList type: aType + "Do not make aName an interned symbol." + + name := aName. + value := defaultValue := nil. + + helpString := aString. + localToProject := false. + type := aType. + categoryList := aList + ifNil: [OrderedCollection with: #unclassified] + ifNotNil: [aList collect: [:elem | elem asSymbol]]. + + changeInformee := nil. + changeSelector := nil.! Item was changed: ----- Method: Preferences class>>preference:categoryList:description:type: (in category 'private') ----- preference: prefName categoryList: categoryList description: helpString type: typeSymbol "Create a preference for a preference pragma in a method." ^ PragmaPreference new name: prefName - defaultValue: nil "always nil" helpString: helpString - localToProject: false "governed by the method" categoryList: categoryList - changeInformee: nil - changeSelector: nil type: typeSymbol! Item was added: + (PackageInfo named: 'System') postscript: 'PragmaPreference allInstancesDo: [:ea | + ea instVarNamed: #name put: ea name asString].'!

1 0

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

23 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1392.mcz ==================== Summary ==================== Name: System-mt.1392 Author: mt Time: 23 March 2023, 4:11:05.779438 pm UUID: ff00cc9b-9aff-1740-8318-0236101d4c5e Ancestors: System-mt.1391 In change-set tools, let #checkForSlips work on removed classes. =============== Diff against System-mt.1391 =============== Item was changed: ----- Method: ChangeSet>>checkForSlips (in category 'fileIn/Out') ----- checkForSlips "Return a collection of method refs with possible debugging code in them." | slips | slips := OrderedCollection new. self changedClasses do: [:aClass | + (aClass isKindOf: PseudoClass) ifFalse: + [ (self methodChangesAtClass: aClass name) associationsDo: - (self methodChangesAtClass: aClass name) associationsDo: [:mAssoc | | method | (#(remove addedThenRemoved) includes: mAssoc value) ifFalse: [method := aClass compiledMethodAt: mAssoc key ifAbsent: [nil]. method ifNotNil: [method hasReportableSlip + ifTrue: [slips add: aClass name , ' ' , mAssoc key]]]]]]. - ifTrue: [slips add: aClass name , ' ' , mAssoc key]]]]]. ^ slips!

1 0

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

23 Mar '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2099.mcz ==================== Summary ==================== Name: Morphic-mt.2099 Author: mt Time: 23 March 2023, 3:58:43.217134 pm UUID: 0061bad0-4d92-524f-8f4f-180061587fc3 Ancestors: Morphic-mt.2098 Fixes #dropShadow removal on image save. =============== Diff against Morphic-mt.2098 =============== Item was changed: ----- Method: MorphicProject class>>shutDown: (in category 'system startup') ----- shutDown: quitting Project current isMorphic ifTrue: [ + SystemWindow allSubInstancesDo: [:w | w removeProperty: #dropShadow]. + MenuMorph allSubInstancesDo: [:m | m removeProperty: #dropShadow]].! - Project current world submorphsDo: [:ea | - ea removeProperty: #dropShadow]].!

1 0

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

22 Mar '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.497.mcz ==================== Summary ==================== Name: EToys-mt.497 Author: mt Time: 22 March 2023, 1:47:14.554694 pm UUID: ce698d07-c7f0-8744-b46f-dd0267affbcd Ancestors: EToys-mt.496 Complement System-mt.1391 =============== Diff against EToys-mt.496 =============== Item was removed: - Object subclass: #ExtendedClipboardInterface - instanceVariableNames: 'clipboard' - classVariableNames: 'Current WinClipboardTypes' - poolDictionaries: '' - category: 'Etoys-Squeakland-System-Clipboard-Extended'! - ExtendedClipboardInterface class - instanceVariableNames: 'mimeTypeMap clipboardFormatMap'! - ExtendedClipboardInterface class - instanceVariableNames: 'mimeTypeMap clipboardFormatMap'! Item was removed: - ----- Method: ExtendedClipboardInterface class>>clipboardFormatMap (in category 'private') ----- - clipboardFormatMap - ^clipboardFormatMap! Item was removed: - ----- Method: ExtendedClipboardInterface class>>current (in category 'accessing') ----- - current - | platform | - Current - ifNil: [Current := (Smalltalk includesKey: #CPlatform) - ifTrue: [(Smalltalk at: #CPlatform) current extendedClipboardInterfaceClass new] - ifFalse: ["workaround" - platform := SmalltalkImage current platformName. - platform = 'unix' - ifTrue: [ExtendedClipboardUnixInterface new] - ifFalse: [platform = 'Win32' - ifTrue: [ExtendedClipboardWinInterface new] - ifFalse: [ExtendedClipboardMacInterface new]]]]. - ^ Current! Item was removed: - ----- Method: ExtendedClipboardInterface class>>initialize (in category 'class initialization') ----- - initialize - "ExtendedClipboardInterface initialize" - Current := nil. - Smalltalk - addToStartUpList: self; - addToShutDownList: self.! Item was removed: - ----- Method: ExtendedClipboardInterface class>>mimeTypeMap (in category 'private') ----- - mimeTypeMap - ^mimeTypeMap! Item was removed: - ----- Method: ExtendedClipboardInterface class>>shutDown: (in category 'system startup') ----- - shutDown: quitting - ! Item was removed: - ----- 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" - - Current := nil. - self current.! Item was removed: - ----- 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 removed: - ----- Method: ExtendedClipboardInterface>>addClipboardDataConvertFormToJPEG: (in category 'general-api-add') ----- - addClipboardDataConvertFormToJPEG: aForm - - self useImageReadWriter: JPEGReadWriter2 - onForm: aForm - addClipboardMethod: [:b | self addJPEGClipboardData: b]. - ! Item was removed: - ----- Method: ExtendedClipboardInterface>>addClipboardDataConvertFormToPNG: (in category 'general-api-add') ----- - addClipboardDataConvertFormToPNG: aForm - - self useImageReadWriter: PNGReadWriter - onForm: aForm - addClipboardMethod: [:b | self addPNGClipboardData: b]. - ! Item was removed: - ----- Method: ExtendedClipboardInterface>>addClipboardDataResolveCorrectType: (in category 'general-api-add') ----- - addClipboardDataResolveCorrectType: data - ^data class addClipboardDataResolveCorrectType: data! Item was removed: - ----- Method: ExtendedClipboardInterface>>addJPEGClipboardData: (in category 'general-api-add') ----- - addJPEGClipboardData: data - ^self subclassResponsibility! Item was removed: - ----- 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 removed: - ----- Method: ExtendedClipboardInterface>>addRTFClipboardData: (in category 'general-api-add') ----- - addRTFClipboardData: data - ^self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>addStringClipboardData: (in category 'general-api-add') ----- - addStringClipboardData: data - ^self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>addTextClipboardData: (in category 'general-api-add') ----- - addTextClipboardData: data - ^self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>addWideStringClipboardData: (in category 'general-api-add') ----- - addWideStringClipboardData: data - ^self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>cleanupToCopyMorphic (in category 'general-api-add') ----- - cleanupToCopyMorphic - "For some very complicated issue, this method is called when you copy a morph. - The morph is stored into PasteBuffer class variable. So text clipboard should not be - referenced. That's why this is needed. I'll re-implement it more straightforward way." - Clipboard clipboardText: ''. - ! Item was removed: - ----- Method: ExtendedClipboardInterface>>clearClipboard (in category 'general-api-utility') ----- - clearClipboard - clipboard = 0 ifTrue: [^self]. - ^ self primClearClipboard: clipboard.! Item was removed: - ----- Method: ExtendedClipboardInterface>>clipboardMimeTypeExists: (in category 'testing') ----- - clipboardMimeTypeExists: mimeType - | availableFormats | - availableFormats := self readAvailableFormats. - ^availableFormats includes: mimeType! Item was removed: - ----- Method: ExtendedClipboardInterface>>createClipboard (in category 'general-api-utility') ----- - createClipboard - clipboard = 0 ifTrue: [^self]. - ^ self primCreateClipboard.! Item was removed: - ----- Method: ExtendedClipboardInterface>>getClipboardFormat: (in category 'general-api-utility') ----- - getClipboardFormat: formatNumber - clipboard = 0 ifTrue: [^nil]. - ^ self primGetClipboardFormat: clipboard formatNumber: formatNumber.! Item was removed: - ----- Method: ExtendedClipboardInterface>>initialize (in category 'initialize-release') ----- - initialize - clipboard := [self createClipboard] on: Error do: [:ex | clipboard := 0]! Item was removed: - ----- Method: ExtendedClipboardInterface>>primAddClipboardData:data:dataFormat: (in category 'system primitives') ----- - primAddClipboardData: clipboard data: data dataFormat: aFormat - - <primitive:'ioAddClipboardData' module: 'ClipboardExtendedPlugin'> - ^ self primitiveFailed.! Item was removed: - ----- Method: ExtendedClipboardInterface>>primClearClipboard: (in category 'system primitives') ----- - primClearClipboard: clipboard - - <primitive:'ioClearClipboard' module: 'ClipboardExtendedPlugin'> - ^ self primitiveFailed. - ! Item was removed: - ----- Method: ExtendedClipboardInterface>>primCreateClipboard (in category 'system primitives') ----- - primCreateClipboard - <primitive:'ioCreateClipboard' module: 'ClipboardExtendedPlugin'> - ^ self primitiveFailed. - ! Item was removed: - ----- Method: ExtendedClipboardInterface>>primGetClipboardFormat:formatNumber: (in category 'system primitives') ----- - primGetClipboardFormat: clipboard formatNumber: formatNumber - - <primitive:'ioGetClipboardFormat' module: 'ClipboardExtendedPlugin'> - ^ self primitiveFailed. - ! Item was removed: - ----- Method: ExtendedClipboardInterface>>primReadClipboardData:format: (in category 'system primitives') ----- - primReadClipboardData: clipboard format: format - - <primitive:'ioReadClipboardData' module: 'ClipboardExtendedPlugin'>. - ^ self primitiveFailed. - ! Item was removed: - ----- Method: ExtendedClipboardInterface>>readBMPClipboardData (in category 'general-api-read') ----- - readBMPClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>readByteStringClipboardData (in category 'general-api-read') ----- - readByteStringClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>readClipboardData: (in category 'general-api-read') ----- - readClipboardData: format - ^clipboard = 0 ifFalse: - [self primReadClipboardData: clipboard format: format].! Item was removed: - ----- Method: ExtendedClipboardInterface>>readFormClipboardData (in category 'general-api-read') ----- - readFormClipboardData - ^ nil! Item was removed: - ----- Method: ExtendedClipboardInterface>>readJPEGClipboardData (in category 'general-api-read') ----- - readJPEGClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>readPNGClipboardData (in category 'general-api-read') ----- - readPNGClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>readRTFClipboardData (in category 'general-api-read') ----- - readRTFClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>readStringClipboardData (in category 'general-api-read') ----- - readStringClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>readTIFFClipboardData (in category 'general-api-read') ----- - readTIFFClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>readTextClipboardData (in category 'general-api-read') ----- - readTextClipboardData - ^ nil! Item was removed: - ----- Method: ExtendedClipboardInterface>>readWideStringClipboardData (in category 'general-api-read') ----- - readWideStringClipboardData - ^ self subclassResponsibility! Item was removed: - ----- Method: ExtendedClipboardInterface>>setTextString: (in category 'general-api-utility') ----- - setTextString: aString - Smalltalk at: #CClipboard ifPresent: [:c | c clipboardText: aString]! Item was removed: - ----- 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 removed: - ExtendedClipboardInterface subclass: #ExtendedClipboardMacInterface - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-System-Clipboard-Extended'! Item was removed: - ----- Method: ExtendedClipboardMacInterface class>>initialize (in category 'class initialization') ----- - initialize - "ExtendedClipboardMacInterface initialize" - - self - initializeClipboardFormatMap; - initializeMimeTypeMap! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- Method: ExtendedClipboardMacInterface>>addJPEGClipboardData: (in category 'general-api-add') ----- - addJPEGClipboardData: data - self clearClipboard. - self addClipboardData: data dataFormat: 'public.jpeg' - ! Item was removed: - ----- Method: ExtendedClipboardMacInterface>>addPNGClipboardData: (in category 'general-api-add') ----- - addPNGClipboardData: data - self clearClipboard. - self addClipboardData: data dataFormat: 'public.png' - ! Item was removed: - ----- Method: ExtendedClipboardMacInterface>>addRTFClipboardData: (in category 'general-api-add') ----- - addRTFClipboardData: data - self clearClipboard. - self addClipboardData: data dataFormat: 'public.rtf' - ! Item was removed: - ----- Method: ExtendedClipboardMacInterface>>addStringClipboardData: (in category 'general-api-add') ----- - addStringClipboardData: data - self clearClipboard. - self addClipboardData: data dataFormat: 'public.text' - ! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ----- Method: ExtendedClipboardMacInterface>>readByteStringClipboardData (in category 'general-api-read') ----- - readByteStringClipboardData - ^(self readClipboardData: 'com.apple.traditional-mac-plain-text') - ifNotNil: [: bytes | bytes asString macToSqueak] - ! Item was removed: - ----- 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 removed: - ----- Method: ExtendedClipboardMacInterface>>readJPEGClipboardData (in category 'general-api-read') ----- - readJPEGClipboardData - | bytes | - bytes := self readClipboardData: 'public.jpeg'. - ^bytes - ! Item was removed: - ----- Method: ExtendedClipboardMacInterface>>readPNGClipboardData (in category 'general-api-read') ----- - readPNGClipboardData - | bytes | - bytes := self readClipboardData: 'public.png'. - ^bytes - ! Item was removed: - ----- Method: ExtendedClipboardMacInterface>>readRTFClipboardData (in category 'general-api-read') ----- - readRTFClipboardData - | bytes | - bytes := self readClipboardData: 'public.rtf'. - ^bytes ifNil: [bytes] ifNotNil: [bytes asString] - ! Item was removed: - ----- 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 removed: - ----- Method: ExtendedClipboardMacInterface>>readTIFFClipboardData (in category 'general-api-read') ----- - readTIFFClipboardData - | bytes | - bytes := self readClipboardData: 'public.tiff'. - ^bytes - ! Item was removed: - ----- Method: ExtendedClipboardMacInterface>>readTextClipboardData (in category 'general-api-read') ----- - readTextClipboardData - ^self readStringClipboardData - ifNotNil: [:string | (string replaceAll: Character lf with: Character cr) asText] - ! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ExtendedClipboardInterface subclass: #ExtendedClipboardUnixInterface - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-System-Clipboard-Extended'! Item was removed: - ----- Method: ExtendedClipboardUnixInterface>>addPNGClipboardData: (in category 'general-api-add') ----- - addPNGClipboardData: data - self clearClipboard. - self addClipboardData: data dataFormat: 'image/png' - ! Item was removed: - ----- Method: ExtendedClipboardUnixInterface>>cleanupToCopyMorphic (in category 'general-api-add') ----- - cleanupToCopyMorphic - Clipboard default reset. - ! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ----- Method: ExtendedClipboardUnixInterface>>readStringClipboardData (in category 'general-api-read') ----- - readStringClipboardData - ^self readWideStringClipboardData! Item was removed: - ----- 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 removed: - ----- Method: ExtendedClipboardUnixInterface>>readWideStringClipboardData (in category 'general-api-read') ----- - readWideStringClipboardData - ^(self readClipboardData: 'UTF8_STRING') asString utf8ToSqueak! Item was removed: - ExtendedClipboardInterface subclass: #ExtendedClipboardWinInterface - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-System-Clipboard-Extended'! Item was removed: - ----- Method: ExtendedClipboardWinInterface class>>initialize (in category 'class initialization') ----- - initialize - "ExtendedClipboardWinInterface initialize" - - self - initializeClipboardFormatMap; - initializeMimeTypeMap! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- Method: ExtendedClipboardWinInterface>>readAvailableFormats (in category 'general-api-read') ----- - readAvailableFormats - | currentFormat availableFormats mimeType | - availableFormats := OrderedCollection new: 10. - currentFormat := 0. - self openClipboard. - [currentFormat := self format: currentFormat. - currentFormat ~= 0] - whileTrue: [ - mimeType := self class clipboardFormatMap at: currentFormat ifAbsent: [nil]. - mimeType ifNotNil: [ - availableFormats add: mimeType]]. - self closeClipboard. - ^availableFormats! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ----- Method: ExtendedClipboardWinInterface>>readStringClipboardData (in category 'general-api-read') ----- - readStringClipboardData - | string | - self openClipboard. - [string := (self getClipboardData: (self class mimeTypeMap at: 'text/plain' asMIMEType)) fromCString] - ensure: [self closeClipboard]. - ^string! Item was removed: - ----- 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 removed: - ----- Method: ExtendedClipboardWinInterface>>readWideStringClipboardData (in category 'general-api-read') ----- - readWideStringClipboardData - | string | - self openClipboard. - [string := (self getClipboardData: (self class mimeTypeMap at: 'text/unicode' asMIMEType)) fromUTF16String] - ensure: [self closeClipboard]. - ^string! Item was removed: - Object subclass: #MIMEType - instanceVariableNames: 'main sub parameters' - classVariableNames: 'DefaultSuffixes StandardMIMEMappings' - poolDictionaries: '' - category: 'Etoys-Squeakland-Network-MIME'! Item was removed: - ----- Method: MIMEType class>>contentTypeMultipart (in category 'instance creation') ----- - contentTypeMultipart - ^self main: 'multipart' sub: 'form-data'! Item was removed: - ----- Method: MIMEType class>>contentTypeURLEncoded (in category 'instance creation') ----- - contentTypeURLEncoded - ^self main: 'application' sub: 'x-www-form-urlencoded'! Item was removed: - ----- Method: MIMEType class>>defaultHTML (in category 'instance creation') ----- - defaultHTML - ^self main: 'text' sub: 'html'! Item was removed: - ----- Method: MIMEType class>>defaultStream (in category 'instance creation') ----- - defaultStream - ^self main: 'application' sub: 'octet-stream'! Item was removed: - ----- Method: MIMEType class>>defaultSuffixes (in category 'class initialization') ----- - defaultSuffixes - "MIMEType defaultSuffixes" - - ^DefaultSuffixes ifNil: [DefaultSuffixes := self initializeDefaultSuffixes]! Item was removed: - ----- Method: MIMEType class>>defaultText (in category 'instance creation') ----- - defaultText - ^self main: 'text' sub: 'plain'! Item was removed: - ----- Method: MIMEType class>>forExtension: (in category 'instance creation') ----- - forExtension: fileExtension - | mime | - SmalltalkImage current platformName = 'Mac OS' - ifTrue: - [mime := Smalltalk at: #MIMETypeMacResolver ifPresent: [:c | c getMIMETypeForFilename: 'a.',fileExtension]]. - mime ifNotNil: [^mime]. - ^(self mimeMappings at: fileExtension asLowercase ifAbsent: [^nil]) first! Item was removed: - ----- Method: MIMEType class>>forFileName: (in category 'instance creation') ----- - forFileName: fileName - | ext type | - ext := FileDirectory extensionFor: fileName. - (ext = '' and: [SmalltalkImage current platformName = 'Mac OS']) - ifTrue: [type := (FileDirectory default getMacFileTypeAndCreator: fileName) at: 1. - ^self forExtension: type]. - ^self forExtension: (FileDirectory extensionFor: fileName)! Item was removed: - ----- Method: MIMEType class>>fromMIMEString: (in category 'instance creation') ----- - fromMIMEString: mimeString - | idx main rest sub parameters | - idx := mimeString indexOf: $/. - idx = 0 - ifTrue: [self error: 'Illegal mime type string "' , mimeString , '".']. - main := mimeString copyFrom: 1 to: idx-1. - rest := mimeString copyFrom: idx+1 to: mimeString size. - idx := mimeString indexOf: $;. - idx = 0 - ifTrue: [sub := rest] - ifFalse: [ - sub := rest copyFrom: 1 to: idx. - parameters := rest copyFrom: idx+1 to: rest size]. - ^self - main: main - sub: sub - parameters: parameters - ! Item was removed: - ----- Method: MIMEType class>>huntForDashAndRemove: (in category 'accessing') ----- - huntForDashAndRemove: aString - | n | - (n := aString lastIndexOf: $-) > 0 ifTrue: [^aString copyFrom: n+1 to: aString size]. - ^aString - ! Item was removed: - ----- Method: MIMEType class>>initialize (in category 'class initialization') ----- - initialize - "MIMEType initialize" - - self initializeStandardMIMETypes. - FileDirectory initializeStandardMIMETypes.! Item was removed: - ----- Method: MIMEType class>>initializeDefaultSubTypeSuffixes (in category 'class initialization') ----- - initializeDefaultSubTypeSuffixes - "MIMEType initializeDefaultSubTypeSuffixes" - - | defaultSuffixes | - defaultSuffixes := Dictionary new: 43. - defaultSuffixes - at: 'jpeg' put: 'jpg'; - yourself. - ^defaultSuffixes! Item was removed: - ----- Method: MIMEType class>>initializeDefaultSuffixes (in category 'class initialization') ----- - initializeDefaultSuffixes - "MIMEType initializeDefaultSubTypeSuffixes" - "DefaultSuffixes := nil" - - | defaultSuffixes | - defaultSuffixes := Dictionary new: 43. - defaultSuffixes - at: 'image/jpeg' put: 'jpg'; - at: 'audio/x-mpeg' put: 'mp3'; - at: 'video/x-mpeg' put: 'mpg'; - at: 'image/png' put: 'png'; - at: 'text/xml' put: 'xml'; - yourself. - ^defaultSuffixes! Item was removed: - ----- Method: MIMEType class>>initializeStandardMIMETypes (in category 'class initialization') ----- - initializeStandardMIMETypes - "MIMEType initializeStandardMIMETypes" - - StandardMIMEMappings := Dictionary new. - self standardMIMETypes keysAndValuesDo:[:extension :mimeStrings | - StandardMIMEMappings - at: extension asString asLowercase - put: (mimeStrings collect: [:mimeString | MIMEType fromMIMEString: mimeString]). - ].! Item was removed: - ----- Method: MIMEType class>>main:sub: (in category 'instance creation') ----- - main: mainType sub: subType - ^self new - main: mainType; - sub: subType! Item was removed: - ----- Method: MIMEType class>>main:sub:parameters: (in category 'instance creation') ----- - main: mainType sub: subType parameters: parameters - ^self new - main: mainType; - sub: subType; - parameters: parameters! Item was removed: - ----- Method: MIMEType class>>mimeMappings (in category 'accessing') ----- - mimeMappings - ^StandardMIMEMappings! Item was removed: - ----- Method: MIMEType class>>simpleSuffixForMimeType: (in category 'accessing') ----- - simpleSuffixForMimeType: mimeType - ^(self defaultSuffixes at: mimeType ifAbsent: [self huntForDashAndRemove: mimeType sub]) asSymbol! Item was removed: - ----- Method: MIMEType class>>standardMIMETypes (in category 'class initialization') ----- - standardMIMETypes - "MIMEType standardMIMETypes" - "We had to split this method because of the 256 literal limit in methods." - | mimeTypes | - mimeTypes := self standardMIMETypes2. - mimeTypes - at: 'adr' put: #('application/x-msaddr'); - at: 'jpe' put: #('image/jpeg'); - at: 'ttf' put: #('application/x-truetypefont'); - at: 'wiz' put: #('application/msword'); - at: 'xml' put: #('text/xml' 'text/html'); - at: 'ppz' put: #('application/vnd.ms-powerpoint'); - at: 'rpm' put: #('audio/x-pn-realaudio-plugin'); - at: 'rgb' put: #('image/x-rgb'); - at: 'mid' put: #('audio/midi' 'audio/x-midi'); - at: 'pnm' put: #('image/x-portable-anymap'); - at: 'bcpio' put: #('application/x-bcpio'); - at: 'pot' put: #('application/vnd.ms-powerpoint'); - at: 'o' put: #('application/octet-stream'); - at: 'vgp' put: #('video/x-videogram-plugin'); - at: 'ua' put: #('text/plain'); - at: 'zpa' put: #('application/pcphoto'); - at: 'pdf' put: #('application/pdf'); - at: 'class' put: #('application/octet-stream'); - at: 'ra' put: #('audio/x-realaudio'); - at: 'ips' put: #('application/ips'); - at: 'uu' put: #('application/octet-stream'); - at: 'sh' put: #('application/x-sh'); - at: 'ebk' put: #('application/x-expandedbook'); - at: 'pbm' put: #('image/x-portable-bitmap'); - at: 'ram' put: #('audio/x-pn-realaudio'); - at: 'tsv' put: #('text/tab-separated-values'); - at: 'dvi' put: #('application/x-dvi'); - at: 'lha' put: #('application/octet-stream'); - at: 'gif' put: #('image/gif'); - at: 'aif' put: #('audio/x-aiff'); - at: 'etx' put: #('text/x-setext'); - at: 'jfif-tbnl' put: #('image/jpeg'); - at: 'pps' put: #('application/vnd.ms-powerpoint'); - at: 'mp3' put: #('audio/mpeg' 'audio/x-mpeg'); - at: 'pgr' put: #('text/parsnegar-document'); - at: 'con' put: #('application/x-connector'); - at: 'viv' put: #('video/vnd.vivo'); - at: 'latex' put: #('application/x-latex'); - at: 'h' put: #('text/plain'); - at: 'ms' put: #('application/x-troff-ms'); - at: 'zip' put: #('application/zip'); - at: 'axs' put: #('application/olescript'); - at: 'gtar' put: #('application/x-gtar'); - at: 'fhc' put: #('image/x-freehand'); - at: 'asf' put: #('video/x-ms-asf'); - at: 'm3u' put: #('audio/x-mpeg'); - at: 'ai' put: #('application/postscript'); - at: 'movie' put: #('video/x-sgi-movie' 'video/x-sgi.movie'); - at: 'exe' put: #('application/octet-stream'); - at: 'htm' put: #('text/html' 'text/plain'); - at: 'a' put: #('application/octet-stream'); - at: 'mv' put: #('video/x-sgi-movie'); - at: 'fh4' put: #('image/x-freehand'); - at: 'avi' put: #('video/avi'); - at: 'tiff' put: #('image/tiff'); - at: 'mpga' put: #('audio/mpeg'); - at: 'mov' put: #('video/mov'); - at: 'html' put: #('text/html' 'text/plain'); - at: 'hqx' put: #('application/mac-binhex40' 'application/octet-stream'); - at: 'ras' put: #('image/x-cmu-rast'); - at: 'arc' put: #('application/octet-stream'); - at: 'dump' put: #('application/octet-stream'); - at: 'jfif' put: #('image/jpeg'); - at: 'dus' put: #('audio/x-dspeech'); - at: 'me' put: #('application/x-troff-me'); - at: 'mime' put: #('message/rfc822'); - at: 'gtaru' put: #('application/x-gtar'); - at: 'cdf' put: #('application/x-netcdf'); - at: 'xpm' put: #('image/x-xpixmap'); - at: 'jpg' put: #('image/jpeg'); - at: 'dot' put: #('application/msword'); - at: 'css' put: #('text/css' 'text/x-css'); - at: 'chat' put: #('application/x-chat'); - at: 'gz' put: #('application/gzip'); - at: 'mp2' put: #('audio/mpeg'); - at: 'cpt' put: #('application/mac-compactpro'); - at: 'wlt' put: #('application/x-mswallet'); - at: 'text' put: #('text/plain'); - at: 'wsrc' put: #('application/x-wais-source'); - at: 'xwd' put: #('image/x-xwindowdump'); - at: 'rm' put: #('audio/x-pn-realaudio'); - at: 'wrl' put: #('model/vrml'); - at: 'doc' put: #('application/ms-word-document' 'application/msword'); - at: 'ustar' put: #('audio/basic'); - at: 'js' put: #('application/x-javascript'); - at: 'rtx' put: #('application/rtf'); - at: 'aam' put: #('application/x-authorware-map'); - at: 'oda' put: #('application/oda'); - at: 'ppa' put: #('application/vnd.ms-powerpoint'); - at: 'xbm' put: #('image/x-xbitmap'); - at: 'cpio' put: #('application/x-cpio'); - at: 'sv4crc' put: #('application/x-sv4crc'); - at: 'mpg' put: #('video/mpg' 'video/mpeg' 'video/x-mpeg'); - at: 't' put: #('application/x-troff'); - at: 'txt' put: #('text/plain'); - at: 'sit' put: #('application/x-stuffit'); - at: 'wid' put: #('application/x-DemoShield'); - at: 'swf' put: #('application/x-shockwave-flash'); - at: 'lzh' put: #('application/octet-stream'); - at: 'au' put: #('audio/basic'); - at: 'java' put: #('text/plain'); - at: 'mpeg' put: #('video/mpeg' 'video/x-mpeg'); - at: 'qt' put: #('video/quicktime'); - at: 'pgm' put: #('image/x-portable-graymap'); - at: 'hdf' put: #('application/x-hdf'); - at: 'c' put: #('text/plain'); - at: 'cpp' put: #('text/plain'); - at: 'vgx' put: #('video/x-videogram'); - at: 'aifc' put: #('audio/x-aiff'); - at: 'tex' put: #('application/x.tex'); - at: 'wav' put: #('audio/wav' 'audio/x-wav'); - at: 'ivr' put: #('i-world/i-vrml'); - at: 'saveme' put: #('application/octet-stream'); - at: 'csh' put: #('application/x-csh'); - at: 'aas' put: #('application/x-authorware-map'); - at: 'tar' put: #('application/x-tar'); - at: 'vivo' put: #('video/vnd.vivo'); - yourself. - ^mimeTypes! Item was removed: - ----- Method: MIMEType class>>standardMIMETypes2 (in category 'class initialization') ----- - standardMIMETypes2 - "MIMEType standardMimeTypes2" - "We had to split this method because of the 256 literal limit in methods." - | mimeTypes | - mimeTypes := Dictionary new: 100. - mimeTypes - at: 'nc' put: #('application/x-netcdf'); - at: 'shar' put: #('application/x-shar'); - at: 'pgp' put: #('application/x-pgp-plugin'); - at: 'texi' put: #('application/x-texinfo'); - at: 'z' put: #('application/x-compress'); - at: 'aiff' put: #('audio/aiff' 'audio/x-aiff'); - at: 'bin' put: #('application/octet-stream'); - at: 'pwz' put: #('application/vnd.ms-powerpoint'); - at: 'rtc' put: #('application/rtc'); - at: 'asx' put: #('video/x-ms-asf'); - at: 'ief' put: #('image/ief'); - at: 'ps' put: #('application/postscript'); - at: 'xls' put: #('application/vnd.ms-excel'); - at: 'vrml' put: #('model/vrml'); - at: 'jpeg' put: #('image/jpeg'); - at: 'dwg' put: #('image/vnd'); - at: 'dms' put: #('application/octet-stream'); - at: 'tif' put: #('image/tiff'); - at: 'roff' put: #('application/x-troff'); - at: 'midi' put: #('audio/midi'); - at: 'eps' put: #('application/postscript'); - at: 'man' put: #('application/x-troff-man'); - at: 'sv4cpio' put: #('application/x-sv4cpio'); - at: 'tr' put: #('application/x-troff'); - at: 'dxf' put: #('image/vnd'); - at: 'rtf' put: #('text/rtf' 'application/rtf'); - at: 'frl' put: #('application/freeloader'); - at: 'xlb' put: #('application/vnd.ms-excel'); - at: 'pl' put: #('text/plain'); - at: 'snd' put: #('audio/basic'); - at: 'texinfo' put: #('application/x-texinfo'); - at: 'tbk' put: #('application/toolbook'); - at: 'ppm' put: #('image/x-portable-pixmap'); - at: 'cht' put: #('audio/x-dspeech'); - at: 'bmp' put: #('image/bmp'); - at: 'vgm' put: #('video/x-videogram'); - at: 'fh5' put: #('image/x-freehand'); - at: 'src' put: #('application/x-wais-source'); - at: 'm4' put: #('audio/x-mp4-audio'); - at: 'm4b' put: #('audio/x-quicktime-protected-b'); - at: 'm4p' put: #('audio/x-quicktime-protected'); - at: 'mp4v' put: #('video/x-mp4-video'); - at: 'm4v' put: #('video/x-mp4-video'); - at: 'mp4' put: #('video/x-mp4-video'); - at: 'wma' put: #('audio/x-ms-wma'); - at: 'wmv' put: #('video/x-ms-wmv'); - at: 'wm' put: #('video/x-ms-wm'); - at: 'png' put: #('image/png'); - yourself. - ^mimeTypes - ! Item was removed: - ----- Method: MIMEType class>>suffixForMimeType: (in category 'accessing') ----- - suffixForMimeType: mimeType - ^self defaultSuffixes at: mimeType ifAbsent: [mimeType sub]! Item was removed: - ----- Method: MIMEType>>= (in category 'comparing') ----- - = anotherObject - anotherObject class == self class - ifFalse: [^false]. - ^self main = anotherObject main - and: [self sub = anotherObject sub]! Item was removed: - ----- Method: MIMEType>>asMIMEType (in category 'converting') ----- - asMIMEType - ^self! Item was removed: - ----- Method: MIMEType>>beginsWith: (in category 'comparing') ----- - beginsWith: aString - ^self printString beginsWith: aString! Item was removed: - ----- Method: MIMEType>>hash (in category 'comparing') ----- - hash - ^self main hash bitXor: self sub hash! Item was removed: - ----- Method: MIMEType>>main (in category 'accessing') ----- - main - ^main! Item was removed: - ----- Method: MIMEType>>main: (in category 'accessing') ----- - main: mainType - main := mainType! Item was removed: - ----- Method: MIMEType>>parameters: (in category 'accessing') ----- - parameters: params - parameters := params! Item was removed: - ----- Method: MIMEType>>printOn: (in category 'printing') ----- - printOn: stream - stream - nextPutAll: main; nextPut: $/ ; nextPutAll: sub! Item was removed: - ----- Method: MIMEType>>sub (in category 'accessing') ----- - sub - ^sub! Item was removed: - ----- Method: MIMEType>>sub: (in category 'accessing') ----- - sub: subType - sub := subType! Item was removed: - ----- Method: String>>asMIMEType (in category '*Etoys-Squeakland-network-mime') ----- - asMIMEType - ^MIMEType fromMIMEString: self!

1 0

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

22 Mar '23

Marcel Taeumel uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mt.266.mcz ==================== Summary ==================== Name: Network-mt.266 Author: mt Time: 22 March 2023, 1:46:39.906694 pm UUID: f8c804a7-ba44-f84b-a8a6-78aa4e311004 Ancestors: Network-mt.265 Complement System-mt.1391 =============== Diff against Network-mt.265 =============== Item was changed: SystemOrganization addCategory: #'Network-UUID'! SystemOrganization addCategory: #'Network-Url'! SystemOrganization addCategory: #'Network-URI'! SystemOrganization addCategory: #'Network-RemoteDirectory'! SystemOrganization addCategory: #'Network-Protocols'! SystemOrganization addCategory: #'Network-Exceptions'! SystemOrganization addCategory: #'Network-MailSending'! SystemOrganization addCategory: #'Network-Kernel'! SystemOrganization addCategory: #'Network-RFC822'! + SystemOrganization addCategory: #'Network-MIME'! Item was changed: Object subclass: #MIMEDocument instanceVariableNames: 'mainType subType content fields url parts' classVariableNames: 'MIMEdatabase' poolDictionaries: '' + category: 'Network-MIME'! - category: 'Network-Url'! !MIMEDocument commentStamp: 'pre 7/6/2017 13:58' prior: 0! a MIME object, along with its type and the URL it was found at (if any) Design decisions: - The API for using the content of the MIME object inside Squeak returns Strings in Squeak encoding. The serializing methods return the content serialized according to the content-type and content-transfer-encoding --pre! Item was changed: Object subclass: #MIMEHeaderValue instanceVariableNames: 'mainValue parameters' classVariableNames: '' poolDictionaries: '' + category: 'Network-MIME'! - category: 'Network-Url'! !MIMEHeaderValue commentStamp: '<historical>' prior: 0! I contain the value portion of a MIME-compatible header. I must be only initialized with the value and not the field name. E.g. in processing Subject: This is the subject the MIMEHeaderValue should be given only 'This is the subject' For traditional non-MIME headers, the complete value returned for mainValue and paramaters returns an empty collection. For MIME headers, both mainValue and parameters are used.! Item was changed: MIMEDocument subclass: #MIMELocalFileDocument instanceVariableNames: 'contentStream' classVariableNames: '' poolDictionaries: '' + category: 'Network-MIME'! - category: 'Network-Url'! !MIMELocalFileDocument commentStamp: '<historical>' prior: 0! For local files, we do not read the entire contents unless we absolutely have to.! Item was added: + Object subclass: #MIMEType + instanceVariableNames: 'main sub parameters' + classVariableNames: 'DefaultSuffixes StandardMIMEMappings' + poolDictionaries: '' + category: 'Network-MIME'! Item was added: + ----- Method: MIMEType class>>contentTypeMultipart (in category 'instance creation') ----- + contentTypeMultipart + ^self main: 'multipart' sub: 'form-data'! Item was added: + ----- Method: MIMEType class>>contentTypeURLEncoded (in category 'instance creation') ----- + contentTypeURLEncoded + ^self main: 'application' sub: 'x-www-form-urlencoded'! Item was added: + ----- Method: MIMEType class>>defaultHTML (in category 'instance creation') ----- + defaultHTML + ^self main: 'text' sub: 'html'! Item was added: + ----- Method: MIMEType class>>defaultStream (in category 'instance creation') ----- + defaultStream + ^self main: 'application' sub: 'octet-stream'! Item was added: + ----- Method: MIMEType class>>defaultSuffixes (in category 'class initialization') ----- + defaultSuffixes + "MIMEType defaultSuffixes" + + ^DefaultSuffixes ifNil: [DefaultSuffixes := self initializeDefaultSuffixes]! Item was added: + ----- Method: MIMEType class>>defaultText (in category 'instance creation') ----- + defaultText + ^self main: 'text' sub: 'plain'! Item was added: + ----- Method: MIMEType class>>forExtension: (in category 'instance creation') ----- + forExtension: fileExtension + | mime | + SmalltalkImage current platformName = 'Mac OS' + ifTrue: + [mime := Smalltalk at: #MIMETypeMacResolver ifPresent: [:c | c getMIMETypeForFilename: 'a.',fileExtension]]. + mime ifNotNil: [^mime]. + ^(self mimeMappings at: fileExtension asLowercase ifAbsent: [^nil]) first! Item was added: + ----- Method: MIMEType class>>forFileName: (in category 'instance creation') ----- + forFileName: fileName + | ext type | + ext := FileDirectory extensionFor: fileName. + (ext = '' and: [SmalltalkImage current platformName = 'Mac OS']) + ifTrue: [type := (FileDirectory default getMacFileTypeAndCreator: fileName) at: 1. + ^self forExtension: type]. + ^self forExtension: (FileDirectory extensionFor: fileName)! Item was added: + ----- Method: MIMEType class>>fromMIMEString: (in category 'instance creation') ----- + fromMIMEString: mimeString + | idx main rest sub parameters | + idx := mimeString indexOf: $/. + idx = 0 + ifTrue: [self error: 'Illegal mime type string "' , mimeString , '".']. + main := mimeString copyFrom: 1 to: idx-1. + rest := mimeString copyFrom: idx+1 to: mimeString size. + idx := mimeString indexOf: $;. + idx = 0 + ifTrue: [sub := rest] + ifFalse: [ + sub := rest copyFrom: 1 to: idx. + parameters := rest copyFrom: idx+1 to: rest size]. + ^self + main: main + sub: sub + parameters: parameters + ! Item was added: + ----- Method: MIMEType class>>huntForDashAndRemove: (in category 'accessing') ----- + huntForDashAndRemove: aString + | n | + (n := aString lastIndexOf: $-) > 0 ifTrue: [^aString copyFrom: n+1 to: aString size]. + ^aString + ! Item was added: + ----- Method: MIMEType class>>initialize (in category 'class initialization') ----- + initialize + "MIMEType initialize" + + self initializeStandardMIMETypes. + FileDirectory initializeStandardMIMETypes.! Item was added: + ----- Method: MIMEType class>>initializeDefaultSubTypeSuffixes (in category 'class initialization') ----- + initializeDefaultSubTypeSuffixes + "MIMEType initializeDefaultSubTypeSuffixes" + + | defaultSuffixes | + defaultSuffixes := Dictionary new: 43. + defaultSuffixes + at: 'jpeg' put: 'jpg'; + yourself. + ^defaultSuffixes! Item was added: + ----- Method: MIMEType class>>initializeDefaultSuffixes (in category 'class initialization') ----- + initializeDefaultSuffixes + "MIMEType initializeDefaultSubTypeSuffixes" + "DefaultSuffixes := nil" + + | defaultSuffixes | + defaultSuffixes := Dictionary new: 43. + defaultSuffixes + at: 'image/jpeg' put: 'jpg'; + at: 'audio/x-mpeg' put: 'mp3'; + at: 'video/x-mpeg' put: 'mpg'; + at: 'image/png' put: 'png'; + at: 'text/xml' put: 'xml'; + yourself. + ^defaultSuffixes! Item was added: + ----- Method: MIMEType class>>initializeStandardMIMETypes (in category 'class initialization') ----- + initializeStandardMIMETypes + "MIMEType initializeStandardMIMETypes" + + StandardMIMEMappings := Dictionary new. + self standardMIMETypes keysAndValuesDo:[:extension :mimeStrings | + StandardMIMEMappings + at: extension asString asLowercase + put: (mimeStrings collect: [:mimeString | MIMEType fromMIMEString: mimeString]). + ].! Item was added: + ----- Method: MIMEType class>>main:sub: (in category 'instance creation') ----- + main: mainType sub: subType + ^self new + main: mainType; + sub: subType! Item was added: + ----- Method: MIMEType class>>main:sub:parameters: (in category 'instance creation') ----- + main: mainType sub: subType parameters: parameters + ^self new + main: mainType; + sub: subType; + parameters: parameters! Item was added: + ----- Method: MIMEType class>>mimeMappings (in category 'accessing') ----- + mimeMappings + ^StandardMIMEMappings! Item was added: + ----- Method: MIMEType class>>simpleSuffixForMimeType: (in category 'accessing') ----- + simpleSuffixForMimeType: mimeType + ^(self defaultSuffixes at: mimeType ifAbsent: [self huntForDashAndRemove: mimeType sub]) asSymbol! Item was added: + ----- Method: MIMEType class>>standardMIMETypes (in category 'class initialization') ----- + standardMIMETypes + "MIMEType standardMIMETypes" + "We had to split this method because of the 256 literal limit in methods." + | mimeTypes | + mimeTypes := self standardMIMETypes2. + mimeTypes + at: 'adr' put: #('application/x-msaddr'); + at: 'jpe' put: #('image/jpeg'); + at: 'ttf' put: #('application/x-truetypefont'); + at: 'wiz' put: #('application/msword'); + at: 'xml' put: #('text/xml' 'text/html'); + at: 'ppz' put: #('application/vnd.ms-powerpoint'); + at: 'rpm' put: #('audio/x-pn-realaudio-plugin'); + at: 'rgb' put: #('image/x-rgb'); + at: 'mid' put: #('audio/midi' 'audio/x-midi'); + at: 'pnm' put: #('image/x-portable-anymap'); + at: 'bcpio' put: #('application/x-bcpio'); + at: 'pot' put: #('application/vnd.ms-powerpoint'); + at: 'o' put: #('application/octet-stream'); + at: 'vgp' put: #('video/x-videogram-plugin'); + at: 'ua' put: #('text/plain'); + at: 'zpa' put: #('application/pcphoto'); + at: 'pdf' put: #('application/pdf'); + at: 'class' put: #('application/octet-stream'); + at: 'ra' put: #('audio/x-realaudio'); + at: 'ips' put: #('application/ips'); + at: 'uu' put: #('application/octet-stream'); + at: 'sh' put: #('application/x-sh'); + at: 'ebk' put: #('application/x-expandedbook'); + at: 'pbm' put: #('image/x-portable-bitmap'); + at: 'ram' put: #('audio/x-pn-realaudio'); + at: 'tsv' put: #('text/tab-separated-values'); + at: 'dvi' put: #('application/x-dvi'); + at: 'lha' put: #('application/octet-stream'); + at: 'gif' put: #('image/gif'); + at: 'aif' put: #('audio/x-aiff'); + at: 'etx' put: #('text/x-setext'); + at: 'jfif-tbnl' put: #('image/jpeg'); + at: 'pps' put: #('application/vnd.ms-powerpoint'); + at: 'mp3' put: #('audio/mpeg' 'audio/x-mpeg'); + at: 'pgr' put: #('text/parsnegar-document'); + at: 'con' put: #('application/x-connector'); + at: 'viv' put: #('video/vnd.vivo'); + at: 'latex' put: #('application/x-latex'); + at: 'h' put: #('text/plain'); + at: 'ms' put: #('application/x-troff-ms'); + at: 'zip' put: #('application/zip'); + at: 'axs' put: #('application/olescript'); + at: 'gtar' put: #('application/x-gtar'); + at: 'fhc' put: #('image/x-freehand'); + at: 'asf' put: #('video/x-ms-asf'); + at: 'm3u' put: #('audio/x-mpeg'); + at: 'ai' put: #('application/postscript'); + at: 'movie' put: #('video/x-sgi-movie' 'video/x-sgi.movie'); + at: 'exe' put: #('application/octet-stream'); + at: 'htm' put: #('text/html' 'text/plain'); + at: 'a' put: #('application/octet-stream'); + at: 'mv' put: #('video/x-sgi-movie'); + at: 'fh4' put: #('image/x-freehand'); + at: 'avi' put: #('video/avi'); + at: 'tiff' put: #('image/tiff'); + at: 'mpga' put: #('audio/mpeg'); + at: 'mov' put: #('video/mov'); + at: 'html' put: #('text/html' 'text/plain'); + at: 'hqx' put: #('application/mac-binhex40' 'application/octet-stream'); + at: 'ras' put: #('image/x-cmu-rast'); + at: 'arc' put: #('application/octet-stream'); + at: 'dump' put: #('application/octet-stream'); + at: 'jfif' put: #('image/jpeg'); + at: 'dus' put: #('audio/x-dspeech'); + at: 'me' put: #('application/x-troff-me'); + at: 'mime' put: #('message/rfc822'); + at: 'gtaru' put: #('application/x-gtar'); + at: 'cdf' put: #('application/x-netcdf'); + at: 'xpm' put: #('image/x-xpixmap'); + at: 'jpg' put: #('image/jpeg'); + at: 'dot' put: #('application/msword'); + at: 'css' put: #('text/css' 'text/x-css'); + at: 'chat' put: #('application/x-chat'); + at: 'gz' put: #('application/gzip'); + at: 'mp2' put: #('audio/mpeg'); + at: 'cpt' put: #('application/mac-compactpro'); + at: 'wlt' put: #('application/x-mswallet'); + at: 'text' put: #('text/plain'); + at: 'wsrc' put: #('application/x-wais-source'); + at: 'xwd' put: #('image/x-xwindowdump'); + at: 'rm' put: #('audio/x-pn-realaudio'); + at: 'wrl' put: #('model/vrml'); + at: 'doc' put: #('application/ms-word-document' 'application/msword'); + at: 'ustar' put: #('audio/basic'); + at: 'js' put: #('application/x-javascript'); + at: 'rtx' put: #('application/rtf'); + at: 'aam' put: #('application/x-authorware-map'); + at: 'oda' put: #('application/oda'); + at: 'ppa' put: #('application/vnd.ms-powerpoint'); + at: 'xbm' put: #('image/x-xbitmap'); + at: 'cpio' put: #('application/x-cpio'); + at: 'sv4crc' put: #('application/x-sv4crc'); + at: 'mpg' put: #('video/mpg' 'video/mpeg' 'video/x-mpeg'); + at: 't' put: #('application/x-troff'); + at: 'txt' put: #('text/plain'); + at: 'sit' put: #('application/x-stuffit'); + at: 'wid' put: #('application/x-DemoShield'); + at: 'swf' put: #('application/x-shockwave-flash'); + at: 'lzh' put: #('application/octet-stream'); + at: 'au' put: #('audio/basic'); + at: 'java' put: #('text/plain'); + at: 'mpeg' put: #('video/mpeg' 'video/x-mpeg'); + at: 'qt' put: #('video/quicktime'); + at: 'pgm' put: #('image/x-portable-graymap'); + at: 'hdf' put: #('application/x-hdf'); + at: 'c' put: #('text/plain'); + at: 'cpp' put: #('text/plain'); + at: 'vgx' put: #('video/x-videogram'); + at: 'aifc' put: #('audio/x-aiff'); + at: 'tex' put: #('application/x.tex'); + at: 'wav' put: #('audio/wav' 'audio/x-wav'); + at: 'ivr' put: #('i-world/i-vrml'); + at: 'saveme' put: #('application/octet-stream'); + at: 'csh' put: #('application/x-csh'); + at: 'aas' put: #('application/x-authorware-map'); + at: 'tar' put: #('application/x-tar'); + at: 'vivo' put: #('video/vnd.vivo'); + yourself. + ^mimeTypes! Item was added: + ----- Method: MIMEType class>>standardMIMETypes2 (in category 'class initialization') ----- + standardMIMETypes2 + "MIMEType standardMimeTypes2" + "We had to split this method because of the 256 literal limit in methods." + | mimeTypes | + mimeTypes := Dictionary new: 100. + mimeTypes + at: 'nc' put: #('application/x-netcdf'); + at: 'shar' put: #('application/x-shar'); + at: 'pgp' put: #('application/x-pgp-plugin'); + at: 'texi' put: #('application/x-texinfo'); + at: 'z' put: #('application/x-compress'); + at: 'aiff' put: #('audio/aiff' 'audio/x-aiff'); + at: 'bin' put: #('application/octet-stream'); + at: 'pwz' put: #('application/vnd.ms-powerpoint'); + at: 'rtc' put: #('application/rtc'); + at: 'asx' put: #('video/x-ms-asf'); + at: 'ief' put: #('image/ief'); + at: 'ps' put: #('application/postscript'); + at: 'xls' put: #('application/vnd.ms-excel'); + at: 'vrml' put: #('model/vrml'); + at: 'jpeg' put: #('image/jpeg'); + at: 'dwg' put: #('image/vnd'); + at: 'dms' put: #('application/octet-stream'); + at: 'tif' put: #('image/tiff'); + at: 'roff' put: #('application/x-troff'); + at: 'midi' put: #('audio/midi'); + at: 'eps' put: #('application/postscript'); + at: 'man' put: #('application/x-troff-man'); + at: 'sv4cpio' put: #('application/x-sv4cpio'); + at: 'tr' put: #('application/x-troff'); + at: 'dxf' put: #('image/vnd'); + at: 'rtf' put: #('text/rtf' 'application/rtf'); + at: 'frl' put: #('application/freeloader'); + at: 'xlb' put: #('application/vnd.ms-excel'); + at: 'pl' put: #('text/plain'); + at: 'snd' put: #('audio/basic'); + at: 'texinfo' put: #('application/x-texinfo'); + at: 'tbk' put: #('application/toolbook'); + at: 'ppm' put: #('image/x-portable-pixmap'); + at: 'cht' put: #('audio/x-dspeech'); + at: 'bmp' put: #('image/bmp'); + at: 'vgm' put: #('video/x-videogram'); + at: 'fh5' put: #('image/x-freehand'); + at: 'src' put: #('application/x-wais-source'); + at: 'm4' put: #('audio/x-mp4-audio'); + at: 'm4b' put: #('audio/x-quicktime-protected-b'); + at: 'm4p' put: #('audio/x-quicktime-protected'); + at: 'mp4v' put: #('video/x-mp4-video'); + at: 'm4v' put: #('video/x-mp4-video'); + at: 'mp4' put: #('video/x-mp4-video'); + at: 'wma' put: #('audio/x-ms-wma'); + at: 'wmv' put: #('video/x-ms-wmv'); + at: 'wm' put: #('video/x-ms-wm'); + at: 'png' put: #('image/png'); + yourself. + ^mimeTypes + ! Item was added: + ----- Method: MIMEType class>>suffixForMimeType: (in category 'accessing') ----- + suffixForMimeType: mimeType + ^self defaultSuffixes at: mimeType ifAbsent: [mimeType sub]! Item was added: + ----- Method: MIMEType>>= (in category 'comparing') ----- + = anotherObject + anotherObject class == self class + ifFalse: [^false]. + ^self main = anotherObject main + and: [self sub = anotherObject sub]! Item was added: + ----- Method: MIMEType>>asMIMEType (in category 'converting') ----- + asMIMEType + ^self! Item was added: + ----- Method: MIMEType>>beginsWith: (in category 'comparing') ----- + beginsWith: aString + ^self printString beginsWith: aString! Item was added: + ----- Method: MIMEType>>hash (in category 'comparing') ----- + hash + ^self main hash bitXor: self sub hash! Item was added: + ----- Method: MIMEType>>main (in category 'accessing') ----- + main + ^main! Item was added: + ----- Method: MIMEType>>main: (in category 'accessing') ----- + main: mainType + main := mainType! Item was added: + ----- Method: MIMEType>>parameters: (in category 'accessing') ----- + parameters: params + parameters := params! Item was added: + ----- Method: MIMEType>>printOn: (in category 'printing') ----- + printOn: stream + stream + nextPutAll: main; nextPut: $/ ; nextPutAll: sub! Item was added: + ----- Method: MIMEType>>sub (in category 'accessing') ----- + sub + ^sub! Item was added: + ----- Method: MIMEType>>sub: (in category 'accessing') ----- + sub: subType + sub := subType! Item was added: + ----- Method: String>>asMIMEType (in category '*network-mime') ----- + asMIMEType + ^MIMEType fromMIMEString: self!

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