Squeak-dev April 2017

squeak-dev@lists.squeakfoundation.org

48 participants
221 discussions

Ma Client Server & Squeak launch issues
by Hari Balaraman 20 Apr '17

20 Apr '17

Hi All, I've been attempting to use the Ma Client Server package on Squeak 5.0 using the instructions on http://wiki.squeak.org/squeak/2978 <http://wiki.squeak.org/squeak/2978>. The instructions there appear to be out of date. Is there another source of documentation available? The wiki lists the last edit date of that page in Sep 2016. So I assume the package is still being maintained. Please let me know if that is not the case. Also, the version of Squeak 5.1 on the Squeak.org <http://squeak.org/> does not launch on MacOS. The Squeak 5.0 image provided on Aida/web site does, which I am using. Thanks in advance. Kind regards, Hari

14 28

The Trunk: Collections-pre.747.mcz
by commits＠source.squeak.org 20 Apr '17

20 Apr '17

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.747.mcz ==================== Summary ==================== Name: Collections-pre.747 Author: pre Time: 20 April 2017, 11:37:10.168994 am UUID: 6fe02314-e789-064a-b678-0caec3506aac Ancestors: Collections-eem.746 changes decoding of mime headers to decode directly to squeak encoding =============== Diff against Collections-eem.746 =============== Item was changed: ----- Method: String>>decodeMimeHeader (in category 'internet') ----- decodeMimeHeader "See RFC 2047, MIME Part Three: Message Header Extension for Non-ASCII + Text and RFC 1342. Text containing non-ASCII characters is encoded by the sequence - Text. Text containing non-ASCII characters is encoded by the sequence =?character-set?encoding?encoded-text?= Encoding is Q (quoted printable) or B (Base64), handled by Base64MimeConverter / RFC2047MimeConverter. Thanks to Yokokawa-san, it works in m17n package. Try the following: '=?ISO-2022-JP?B?U1dJS0lQT1AvGyRCPUJDKyVpJXMlQRsoQi8=?= =?ISO-2022-JP?B?GyRCJVElRiUjJSobKEIoUGF0aW8p?=' decodeMimeHeader. " | input output temp charset decoder encodedStream encoding pos | input := ReadStream on: self. output := WriteStream on: String new. [output nextPutAll: (input upTo: $=). "ASCII Text" input atEnd] whileFalse: [(temp := input next) = $? ifTrue: [charset := input upTo: $?. encoding := (input upTo: $?) asUppercase. temp := input upTo: $?. input next. "Skip final =" (charset isNil or: [charset size = 0]) ifTrue: [charset := 'LATIN-1']. + encodedStream := WriteStream on: String new. - encodedStream := MultiByteBinaryOrTextStream on: String new encoding: charset. decoder := encoding = 'B' ifTrue: [Base64MimeConverter new] ifFalse: [RFC2047MimeConverter new]. decoder mimeStream: (ReadStream on: temp); dataStream: encodedStream; mimeDecode. + + output nextPutAll: (MultiByteBinaryOrTextStream with: encodedStream contents encoding: charset) contents. - output nextPutAll: encodedStream reset contents. pos := input position. input skipSeparators. "Delete spaces if followed by =" input peek = $= ifFalse: [input position: pos]] ifFalse: [output nextPut: $=; nextPut: temp]]. ^ output contents!

2 1

The Trunk: Network-pre.191.mcz
by commits＠source.squeak.org 20 Apr '17

20 Apr '17

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.191.mcz ==================== Summary ==================== Name: Network-pre.191 Author: pre Time: 20 April 2017, 11:47:54.602994 am UUID: b0867435-21dc-7b4e-a2ab-ad150d42237d Ancestors: Network-ul.190 Changes to the MIME classes to respect charsets, mime encoded header fields, and fixes some parser issues =============== Diff against Network-ul.190 =============== Item was changed: Object subclass: #MIMEDocument + instanceVariableNames: 'mainType subType content parameters url' - instanceVariableNames: 'mainType subType content url' classVariableNames: 'MIMEdatabase' poolDictionaries: '' category: 'Network-Url'! !MIMEDocument commentStamp: '<historical>' prior: 0! a MIME object, along with its type and the URL it was found at (if any)! Item was changed: ----- Method: MIMEDocument class>>contentType:content: (in category 'instance creation') ----- contentType: aString content: content "create a MIMEObject with the given content-type and content" + "MIMEDocument contentType: 'text/plain' content: 'This is a test'" - "MIMEObject contentType: 'text/plain' content: 'This is a test'" + | ans | + - | ans idx | ans := self new. - ans privateContent: content. "parse the content-type" + ((aString isNil or: [ (aString includes: $/) not])) + ifTrue: [ + ans privateMainType: 'application'. + ans privateSubType: 'octet-stream' ] + ifFalse: [ | value parts | + value := MIMEHeaderValue fromMIMEHeader: aString. + parts := value mainValue splitBy: '/'. + ans privateMainType: parts first. + ans privateSubType: parts second. + ans privateParameters: value parameters ]. - (aString isNil or: [ - idx := aString indexOf: $/. - idx = 0]) - ifTrue: [ - ans privateMainType: 'application'. - ans privateSubType: 'octet-stream' ] - ifFalse: [ - ans privateMainType: (aString copyFrom: 1 to: idx-1). - ans privateSubType: (aString copyFrom: idx+1 to: aString size) ]. + (ans isPlaintext or: [ans isHTML]) + ifTrue: [ans privateContent: (self tryToDecodeBody: content as: (ans parameterNamed: 'charset' ifAbsent: [nil]))] + ifFalse: [ans privateContent: content]. + + ^ ans - ^ans ! Item was changed: ----- Method: MIMEDocument class>>contentType:content:url: (in category 'instance creation') ----- contentType: aString content: content url: aUrl "create a MIMEObject with the given content-type and content" "MIMEObject contentType: 'text/plain' content: 'This is a test'" + | ans | + ans := self contentType: aString content: content. - | ans idx | - ans := self new. - ans privateContent: content. - - "parse the content-type" - (aString isNil or: [ - idx := aString indexOf: $/. - idx = 0]) - ifTrue: [ - ans privateMainType: 'application'. - ans privateSubType: 'octet-stream' ] - ifFalse: [ - ans privateMainType: (aString copyFrom: 1 to: idx-1). - ans privateSubType: (aString copyFrom: idx+1 to: aString size) ]. - ans privateUrl: aUrl asUrl. - ^ans ! Item was added: + ----- Method: MIMEDocument class>>tryToDecodeBody:as: (in category 'instance creation') ----- + tryToDecodeBody: content as: encodingName + + ^ [(MultiByteBinaryOrTextStream + with: content + encoding: encodingName) contents] + on: InvalidUTF8 do: [(MultiByteBinaryOrTextStream + with: content + encoding: 'latin1') contents]! Item was added: + ----- Method: MIMEDocument>>isHTML (in category 'testing') ----- + isHTML + + ^ self mainType = 'text' and: [self subType = 'html']! Item was added: + ----- Method: MIMEDocument>>isPlaintext (in category 'testing') ----- + isPlaintext + + ^ self mainType = 'text' and: [self subType = 'plain']! Item was added: + ----- Method: MIMEDocument>>parameterNamed: (in category 'accessing') ----- + parameterNamed: parameterKey + + ^ parameters at: parameterKey! Item was added: + ----- Method: MIMEDocument>>parameterNamed:ifAbsent: (in category 'accessing') ----- + parameterNamed: parameterKey ifAbsent: aBlock + + ^ parameters at: parameterKey ifAbsent: aBlock! Item was added: + ----- Method: MIMEDocument>>privateParameters: (in category 'private') ----- + privateParameters: aDictionary + parameters := aDictionary! Item was changed: ----- Method: MIMEHeaderValue>>mainValue (in category 'accessing') ----- mainValue + ^mainValue decodeMimeHeader! - ^mainValue! Item was changed: ----- Method: MailMessage>>bodyTextFormatted (in category 'printing/formatting') ----- bodyTextFormatted "Answer a version of the text in my body suitable for display. This will parse multipart forms, decode HTML, and other such things" "check for multipart" self body isMultipart ifTrue: [ "check for alternative forms" self body isMultipartAlternative ifTrue: [ "it's multipart/alternative. search for a part that we can display, biasing towards nicer formats" #('text/html' 'text/plain') do: [ :format | self parts do: [ :part | + part body contentType = format ifTrue: [ ^ part bodyTextFormatted ] ] ]. - part body contentType = format ifTrue: [ ^part bodyTextFormatted ] ] ]. "couldn't find a desirable part to display; just display the first part" ^self parts first bodyTextFormatted ]. "not alternative parts. put something for each part" ^Text streamContents: [ :str | self parts do: [ :part | ((#('text' 'multipart') includes: part body mainType) or: [ part body contentType = 'message/rfc822']) ifTrue: [ "try to inline the message part" str nextPutAll: part bodyTextFormatted. ] ifFalse: [ |descript | str cr. descript := part name ifNil: [ 'attachment' ]. str nextPutAll: (Text string: '[', descript, ']' attribute: (TextMessageLink message: part)). ] ] ]. ]. "check for HTML" (self body contentType = 'text/html') ifTrue: [ Smalltalk at: #HtmlParser ifPresent: [ :htmlParser | + ^(htmlParser parse: (ReadStream on: body content)) formattedText]. + Smalltalk at: #HtmlReadWriter ifPresent: [:html | + ^ body content asTextFromHtml] - ^(htmlParser parse: (ReadStream on: body content)) formattedText - ] ]. "check for an embedded message" self body contentType = 'message/rfc822' ifTrue: [ ^(MailMessage from: self body content) formattedText ]. "nothing special--just return the text" ^body content. ! Item was changed: ----- Method: MailMessage>>fieldsFrom:do: (in category 'parsing') ----- fieldsFrom: aStream do: aBlock "Invoke the given block with each of the header fields from the given stream. The block arguments are the field name and value. The streams position is left right after the empty line separating header and body." | savedLine line s | savedLine := aStream nextLine. [aStream atEnd] whileFalse: [ line := savedLine. (line isEmpty) ifTrue: [^self]. "quit when we hit a blank line" [savedLine := aStream nextLine. + savedLine notNil and: [savedLine notEmpty] and: [savedLine first isSeparator]] whileTrue: [ - (savedLine size > 0) and: [savedLine first isSeparator]] whileTrue: [ "lines starting with white space are continuation lines" s := ReadStream on: savedLine. s skipSeparators. line := line, ' ', s upToEnd]. self reportField: line withBlanksTrimmed to: aBlock]. "process final header line of a body-less message" (savedLine isEmpty) ifFalse: [self reportField: savedLine withBlanksTrimmed to: aBlock]. ! Item was changed: ----- Method: MailMessage>>from: (in category 'initialize-release') ----- from: aString "Parse aString to initialize myself." | parseStream contentType bodyText contentTransferEncoding | + text := aString withoutTrailingBlanks, String cr, String cr. - text := aString withoutTrailingBlanks, String cr. parseStream := ReadStream on: text. contentType := 'text/plain'. contentTransferEncoding := nil. fields := Dictionary new. "Extract information out of the header fields" self fieldsFrom: parseStream do: [:fName :fValue | "NB: fName is all lowercase" + fName = 'content-type' ifTrue: [contentType := fValue asLowercase]. - fName = 'content-type' ifTrue: [contentType := (fValue copyUpTo: $;) asLowercase]. fName = 'content-transfer-encoding' ifTrue: [contentTransferEncoding := fValue asLowercase]. (fields at: fName ifAbsentPut: [OrderedCollection new: 1]) add: (MIMEHeaderValue forField: fName fromString: fValue)]. "Extract the body of the message" bodyText := parseStream upToEnd. + contentTransferEncoding = 'base64' ifTrue: [ + bodyText := Base64MimeConverter mimeDecodeToChars: (ReadStream on: bodyText). - contentTransferEncoding = 'base64' - ifTrue: - [bodyText := Base64MimeConverter mimeDecodeToChars: (ReadStream on: bodyText). bodyText := bodyText contents]. + contentTransferEncoding = 'quoted-printable' ifTrue: [ + bodyText := bodyText decodeQuotedPrintable]. + - contentTransferEncoding = 'quoted-printable' ifTrue: [bodyText := bodyText decodeQuotedPrintable]. body := MIMEDocument contentType: contentType content: bodyText! Item was changed: ----- Method: MailMessage>>subject (in category 'access') ----- subject + ^ (self fieldNamed: 'subject' ifAbsent: [ ^'' ]) mainValue! - ^(self fieldNamed: 'subject' ifAbsent: [ ^'' ]) mainValue!

1 0

The Trunk: Multilingual-pre.220.mcz
by commits＠source.squeak.org 20 Apr '17

20 Apr '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-pre.220.mcz ==================== Summary ==================== Name: Multilingual-pre.220 Author: pre Time: 20 April 2017, 11:45:29.196994 am UUID: 169bfe39-bcfa-5241-98e0-9465b6470cb8 Ancestors: Multilingual-pre.219 refactored the initialize of TextConverter classes as they all had the exact same source. Fixed the comment of the CP1252 converter =============== Diff against Multilingual-pre.219 =============== Item was added: + ----- Method: ByteTextConverter class>>initialize (in category 'class initialization') ----- + initialize + self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: CP1250TextConverter class>>initialize (in category 'class initialization') ----- - initialize - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was changed: ByteTextConverter subclass: #CP1252TextConverter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! + !CP1252TextConverter commentStamp: 'pre 4/20/2017 11:40' prior: 0! + Text converter for CP1252. Windows code page used in Western Europe.! - !CP1252TextConverter commentStamp: '<historical>' prior: 0! - Text converter for CP1250. Windows code page used in Eastern Europe.! Item was removed: - ----- Method: CP1252TextConverter class>>initialize (in category 'class initialization') ----- - initialize - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: CP1253TextConverter class>>initialize (in category 'class initialization') ----- - initialize - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: ISO88592TextConverter class>>initialize (in category 'class initialization') ----- - initialize - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: ISO88597TextConverter class>>initialize (in category 'class initialization') ----- - initialize - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: Latin1TextConverter class>>initialize (in category 'class initialization') ----- - initialize - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: MacRomanTextConverter class>>initialize (in category 'class initialization') ----- - initialize - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings!

1 0

The Trunk: Multilingual-pre.219.mcz
by commits＠source.squeak.org 20 Apr '17

20 Apr '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-pre.219.mcz ==================== Summary ==================== Name: Multilingual-pre.219 Author: pre Time: 20 April 2017, 11:38:03.929994 am UUID: 61658322-f7a5-9042-b319-a1166a658928 Ancestors: Multilingual-ul.218 adds the cp1252 charset and adds iso-8859-1 to the names of latin1 =============== Diff against Multilingual-ul.218 =============== Item was added: + ByteTextConverter subclass: #CP1252TextConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Multilingual-TextConversion'! + + !CP1252TextConverter commentStamp: '<historical>' prior: 0! + Text converter for CP1250. Windows code page used in Eastern Europe.! Item was added: + ----- Method: CP1252TextConverter class>>encodingNames (in category 'utilities') ----- + encodingNames + + ^ #('cp-1252' 'windows-1252') copy + ! Item was added: + ----- Method: CP1252TextConverter class>>initialize (in category 'class initialization') ----- + initialize + self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was added: + ----- Method: CP1252TextConverter class>>initializeDecodeTable (in category 'class initialization') ----- + initializeDecodeTable + decodeTable := (0 to: 127) , #( + 16r20AC + -1 + 16r201A + 16r0192 + 16r201E + 16r2026 + 16r2020 + 16r2021 + 16r02C6 + 16r2030 + 16r0160 + 16r2039 + 16r0152 + -1 + 16r017D + -1 + -1 + 16r2018 + 16r2019 + 16r201C + 16r201D + 16r2022 + 16r2013 + 16r2014 + 16r02DC + 16r2122 + 16r0161 + 16r203A + 16r0153 + -1 + 16r017E + 16r0178 + 16r00A0 + 16r00A1 + 16r00A2 + 16r00A3 + 16r00A4 + 16r00A5 + 16r00A6 + 16r00A7 + 16r00A8 + 16r00A9 + 16r00AA + 16r00AB + 16r00AC + 16r00AD + 16r00AE + 16r00AF + 16r00B0 + 16r00B1 + 16r00B2 + 16r00B3 + 16r00B4 + 16r00B5 + 16r00B6 + 16r00B7 + 16r00B8 + 16r00B9 + 16r00BA + 16r00BB + 16r00BC + 16r00BD + 16r00BE + 16r00BF + 16r00C0 + 16r00C1 + 16r00C2 + 16r00C3 + 16r00C4 + 16r00C5 + 16r00C6 + 16r00C7 + 16r00C8 + 16r00C9 + 16r00CA + 16r00CB + 16r00CC + 16r00CD + 16r00CE + 16r00CF + 16r00D0 + 16r00D1 + 16r00D2 + 16r00D3 + 16r00D4 + 16r00D5 + 16r00D6 + 16r00D7 + 16r00D8 + 16r00D9 + 16r00DA + 16r00DB + 16r00DC + 16r00DD + 16r00DE + 16r00DF + 16r00E0 + 16r00E1 + 16r00E2 + 16r00E3 + 16r00E4 + 16r00E5 + 16r00E6 + 16r00E7 + 16r00E8 + 16r00E9 + 16r00EA + 16r00EB + 16r00EC + 16r00ED + 16r00EE + 16r00EF + 16r00F0 + 16r00F1 + 16r00F2 + 16r00F3 + 16r00F4 + 16r00F5 + 16r00F6 + 16r00F7 + 16r00F8 + 16r00F9 + 16r00FA + 16r00FB + 16r00FC + 16r00FD + 16r00FE + 16r00FF).! Item was changed: ----- Method: Latin1TextConverter class>>encodingNames (in category 'utilities') ----- encodingNames + ^ #('latin-1' 'latin1' 'iso-8859-1') copy. - ^ #('latin-1' 'latin1') copy. !

1 0

The Trunk: CollectionsTests-pre.279.mcz
by commits＠source.squeak.org 20 Apr '17

20 Apr '17

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.279.mcz ==================== Summary ==================== Name: CollectionsTests-pre.279 Author: pre Time: 20 April 2017, 11:36:05.997994 am UUID: d9801703-2175-ef41-ad6d-3eb0be4e3f22 Ancestors: CollectionsTests-fn.278 Adds a test to test the decoding of mime headers =============== Diff against CollectionsTests-fn.278 =============== Item was added: + ----- Method: StringTest>>testDecodeMimeHeader (in category 'tests - internet') ----- + testDecodeMimeHeader + + self + assert: 'Schöne Grüße' + equals: '=?utf-8?Q?Sch=C3=B6ne_Gr=C3=BC=C3=9Fe?=' decodeMimeHeader!

1 0

The Inbox: GraphicsExternal-cbc.1.mcz
by commits＠source.squeak.org 20 Apr '17

20 Apr '17

A new version of GraphicsExternal was added to project The Inbox: http://source.squeak.org/inbox/GraphicsExternal-cbc.1.mcz ==================== Summary ==================== Name: GraphicsExternal-cbc.1 Author: cbc Time: 19 April 2017, 7:55:16.946478 pm UUID: df42d165-8338-7249-bb13-c1b56113bfd5 Ancestors: Moved ExternalForm and ExternalScreen out of EToys and into its own package. No other changes. ==================== Snapshot ==================== SystemOrganization addCategory: #GraphicsExternal! SystemOrganization addCategory: #'GraphicsExternal-Tests'! DisplayScreen subclass: #ExternalScreen instanceVariableNames: 'argbMap allocatedForms' classVariableNames: '' poolDictionaries: '' category: 'GraphicsExternal'! !ExternalScreen commentStamp: '<historical>' prior: 0! I represent a DisplayScreen that is not part of the Squeak universe. Subclasses must implement the appropriate primitives for creating, destroying and allocating the appropriate external objects. Note: It is assumed that all external display surfaces are accessible by FXBlt, meaning that any support code must register the surfaces with the surface plugin. This requires that the support code will have a way of accessing the bits of the surface. Although this can be terribly expensive (such as on X where a roundtrip to the server might be required or for an OpenGL display where glReadPixels usually is slow as hell) the appropriate methods should be implemented. This allows for a gradual transition to less expensive model (such as implementing an X11Canvas supporting the drawing primitives of X) and is therefore the preferred solution. In the eventual case that it's known that BitBlt/FXBlt will *never* be used in conjunction with a particular drawing surface, the support code should return a handle that is a) not a SmallInteger (these are used by the surface plugin) and b) not of the 'bitsSize' of a Form. One possible representation for such a handle would be a ByteArray of a non-integral word size (e.g., a ByteArray of size 5,6, or 7). In this case, all attempts to use FXBlt with the drawing surface will simply fail. ! ----- Method: ExternalScreen>>allocateForm: (in category 'form support') ----- allocateForm: extentPoint "Allocate a new form which is similar to the receiver and can be used for accelerated blts" | formHandle displayForm | formHandle := self primAllocateForm: self depth width: extentPoint x height: extentPoint y. formHandle = nil ifTrue:[^super allocateForm: extentPoint]. displayForm := (ExternalForm extent: extentPoint depth: self depth bits: nil) setExternalHandle: formHandle on: self. allocatedForms at: displayForm put: displayForm executor. ^displayForm! ----- Method: ExternalScreen>>colormapFromARGB (in category 'accessing') ----- colormapFromARGB "Return a ColorMap mapping from canonical ARGB pixel values into the receiver" ^argbMap ifNil:[argbMap := ColorMap mappingFromARGB: self rgbaBitMasks].! ----- Method: ExternalScreen>>copyBits:from:at:clippingBox:rule:fillColor:map: (in category 'blitting support') ----- copyBits: sourceRect from: sourceForm at: destOrigin clippingBox: clipRect rule: rule fillColor: hf map: map "Attempt to accelerate blts to the receiver" | r | ((self isBltAccelerated: rule for: sourceForm) and:[map == nil and:[hf == nil]]) ifTrue:[ "Try an accelerated blt" r := (destOrigin extent: sourceRect extent) intersect: (clipRect intersect: clippingBox). r area <= 0 ifTrue:[^self]. (self primBltFast: bits from: sourceForm getExternalHandle at: r origin from: sourceRect origin extent: r extent) ifNotNil:[^self]. ]. ^super copyBits: sourceRect from: sourceForm at: destOrigin clippingBox: clipRect rule: rule fillColor: hf map: map! ----- Method: ExternalScreen>>destroy (in category 'initialize-release') ----- destroy "Destroy the receiver" allocatedForms ifNotNil:[ allocatedForms lock. "Make sure we don't get interrupted" allocatedForms forceFinalization. "Clean up all lost references" allocatedForms keys do:[:stillValid| stillValid shutDown]. "All remaining references are simply destroyed" allocatedForms associationsDo:[:assoc| assoc key: nil]. allocatedForms forceFinalization. "destroy all others" allocatedForms := nil. ]. bits ifNotNil:[self primDestroyDisplaySurface: bits]. bits := nil.! ----- Method: ExternalScreen>>destroyForm: (in category 'form support') ----- destroyForm: anExternalForm "Destroy the given external form" self primDestroyForm: anExternalForm getExternalHandle. anExternalForm setExternalHandle: nil on: nil. allocatedForms removeKey: anExternalForm ifAbsent:[].! ----- Method: ExternalScreen>>displayOn:at:clippingBox:rule:fillColor: (in category 'blitting support') ----- displayOn: destForm at: destOrigin clippingBox: clipRect rule: rule fillColor: hf "Attempt to accelerate blts to aDisplayMedium" | sourceRect | ((self isBltAccelerated: rule for: destForm) and:[hf = nil]) ifTrue:[ "Try an accelerated blt" sourceRect := (clipRect translateBy: destOrigin negated) intersect: clippingBox. (self primBltFast: bits to: destForm getExternalHandle at: 0@0 from: sourceRect origin extent: sourceRect extent) ifNotNil:[^self]]. destForm copyBits: self boundingBox from: self at: destOrigin + self offset clippingBox: clipRect rule: rule fillColor: hf map: (self colormapIfNeededFor: destForm). ! ----- Method: ExternalScreen>>fill:rule:fillColor: (in category 'blitting support') ----- fill: aRectangle rule: anInteger fillColor: aColor "Replace a rectangular area of the receiver with the pattern described by aForm according to the rule anInteger." | rect | (self isFillAccelerated: anInteger for: aColor) ifTrue:[ rect := aRectangle intersect: clippingBox. (self primFill: bits color: (self pixelWordFor: aColor) x: rect left y: rect top w: rect width h: rect height) ifNotNil:[^self]]. ^super fill: aRectangle rule: anInteger fillColor: aColor! ----- Method: ExternalScreen>>finish (in category 'initialize-release') ----- finish "Flush the receiver" self primFinish: bits. "Now is the time to do some cleanup" allocatedForms unlock. allocatedForms finalizeValues.! ----- Method: ExternalScreen>>flush (in category 'initialize-release') ----- flush "Flush the receiver" self primFlush: bits.! ----- Method: ExternalScreen>>hasNonStandardPalette (in category 'testing') ----- hasNonStandardPalette "Quite possible." ^true! ----- Method: ExternalScreen>>isBltAccelerated:for: (in category 'blitting support') ----- isBltAccelerated: ruleInteger for: aForm "Return true if the receiver can perform accelerated blt operations by itself. It is assumed that blts of forms allocated on the receiverusing Form>>over may be accelerated. Although some hardware may allow source-key blts (that is, Form>>paint or similar) this is usually questionable and the additional effort for allocating and maintaining the OS form doesn't quite seem worth the effort." ^aForm displayScreen == self and:[ruleInteger = Form over]! ----- Method: ExternalScreen>>isExternalForm (in category 'testing') ----- isExternalForm "Sorta. Kinda." ^true! ----- Method: ExternalScreen>>isFillAccelerated:for: (in category 'blitting support') ----- isFillAccelerated: ruleInteger for: aColor "Return true if the receiver can perform accelerated fill operations by itself. It is assumed that the hardware can accelerate plain color fill operations." ^ruleInteger = Form over and:[aColor isColor]! ----- Method: ExternalScreen>>primAllocateForm:width:height: (in category 'primitives-forms') ----- primAllocateForm: d width: w height: h "Primitive. Allocate a form with the given parameters" ^nil! ----- Method: ExternalScreen>>primBltFast:from:at:from:extent: (in category 'primitives-display') ----- primBltFast: displayHandle from: sourceHandle at: destOrigin from: sourceOrigin extent: extent "Primitive. Perform a fast blt operation. Return the receiver if successful." ^nil! ----- Method: ExternalScreen>>primBltFast:to:at:from:extent: (in category 'primitives-display') ----- primBltFast: displayHandle to: dstHandle at: destOrigin from: sourceOrigin extent: extent "Primitive. Perform a fast blt operation. Return the receiver if successful." ^nil! ----- Method: ExternalScreen>>primCreateDisplaySurface:width:height: (in category 'primitives-display') ----- primCreateDisplaySurface: d width: w height: h "Primitive. Create a new external display surface. Return the handle used to identify the receiver. Fail if the surface cannot be created." ^nil! ----- Method: ExternalScreen>>primDestroyDisplaySurface: (in category 'primitives-display') ----- primDestroyDisplaySurface: aHandle "Primitive. Destroy the display surface associated with the given handle." ^nil! ----- Method: ExternalScreen>>primDestroyForm: (in category 'primitives-forms') ----- primDestroyForm: aHandle "Primitive. Destroy the form associated with the given handle." ^nil! ----- Method: ExternalScreen>>primDisplay:colorMasksInto: (in category 'primitives-display') ----- primDisplay: aHandle colorMasksInto: anArray "Primitive. Store the bit masks for each color into the given array." ^nil! ----- Method: ExternalScreen>>primFill:color:x:y:w:h: (in category 'primitives-display') ----- primFill: handle color: pixelWord x: x y: y w: w h: h "Primitive. Perform an accelerated fill operation on the receiver." ^nil! ----- Method: ExternalScreen>>primFinish: (in category 'primitives-display') ----- primFinish: aHandle "Primitive. Finish all rendering operations on the receiver. Do not return before all rendering operations have taken effect." ^nil! ----- Method: ExternalScreen>>primFlush: (in category 'primitives-display') ----- primFlush: aHandle "Primitive. If any rendering operations are pending, force them to be executed. Do not wait until they have taken effect." ^nil! ----- Method: ExternalScreen>>primForm:colorMasksInto: (in category 'primitives-forms') ----- primForm: aHandle colorMasksInto: anArray "Primitive. Store the bit masks for each color into the given array." ^nil! ----- Method: ExternalScreen>>release (in category 'initialize-release') ----- release "I am no longer Display. Release any resources if necessary" self destroy! ----- Method: ExternalScreen>>rgbaBitMasks (in category 'accessing') ----- rgbaBitMasks "Return the masks for specifying the R,G,B, and A components in the receiver" | rgbaBitMasks | rgbaBitMasks := Array new: 4. self primDisplay: bits colorMasksInto: rgbaBitMasks. ^rgbaBitMasks! ----- Method: ExternalScreen>>rgbaBitMasksOfForm: (in category 'form support') ----- rgbaBitMasksOfForm: anExternalForm | rgbaBitMasks | rgbaBitMasks := Array new: 4. self primForm: anExternalForm getExternalHandle colorMasksInto: rgbaBitMasks. ^rgbaBitMasks! ----- Method: ExternalScreen>>setExtent:depth: (in category 'private') ----- setExtent: aPoint depth: bitsPerPixel "Create a 3D accelerated display screen" | screen | (bits isInteger and:[depth == bitsPerPixel and: [aPoint = self extent and: [self supportsDisplayDepth: bitsPerPixel]]]) ifFalse: [ bits ifNotNil:[self primDestroyDisplaySurface: bits]. bits := nil. "Free up old bitmap in case space is low" DisplayChangeSignature := (DisplayChangeSignature ifNil: [0]) + 1. (self supportsDisplayDepth: bitsPerPixel) ifTrue:[depth := bitsPerPixel] ifFalse:["Search for a suitable depth" depth := self findAnyDisplayDepthIfNone:[nil]]. depth == nil ifFalse:[ bits := self primCreateDisplaySurface: depth width: aPoint x height: aPoint y]. "Bail out if surface could not be created" (bits == nil) ifTrue:[ screen := DisplayScreen extent: aPoint depth: bitsPerPixel. self == Display ifTrue:[ Display := screen. Display beDisplay]. ^screen]. width := aPoint x. height := aPoint y. ]. clippingBox := super boundingBox. allocatedForms ifNil:[ allocatedForms := ExternalFormRegistry new. WeakArray addWeakDependent: allocatedForms]. ! ----- Method: ExternalScreen>>shutDown (in category 'initialize-release') ----- shutDown "Minimize Display memory saved in image" self destroy. width := 240. height := 120. bits := Bitmap new: self bitsSize.! ----- Method: ExternalScreen>>supportsDisplayDepth: (in category 'primitives-display') ----- supportsDisplayDepth: pixelDepth "Return true if this pixel depth is supported on the current host platform." ^false! TestCase subclass: #EtoysExternalFormTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'GraphicsExternal-Tests'! ----- Method: EtoysExternalFormTest>>testBlitToAndFromExternalForm (in category 'as yet unclassified') ----- testBlitToAndFromExternalForm "Ensure that we can blit to/from all 4 permutatations of Form and ExternalForm." | source external1 external2 destination | source := Cursor wait asCursorForm asFormOfDepth: 32. destination := Form extent: source extent depth: 32. external1 := ExternalForm extent: source extent depth: 32. external2 := ExternalForm extent: source extent depth: 32. self shouldnt: [source bits = destination bits]. source displayOn: external1. external1 displayOn: external2. external2 displayOn: destination. self should: [source bits = destination bits].! Form subclass: #ExternalForm instanceVariableNames: 'display argbMap' classVariableNames: '' poolDictionaries: '' category: 'GraphicsExternal'! !ExternalForm commentStamp: '<historical>' prior: 0! An ExternalForm is just like any other form. It's only difference is that it is allocated on a specific display and can be used for accelerated blts on the particular display. Upon shutdown of the system ExternalForms will be deallocated from the display and be kept in their internalized form.! ----- Method: ExternalForm>>colormapFromARGB (in category 'accessing') ----- colormapFromARGB "Return a ColorMap mapping from canonical ARGB pixel values into the receiver" ^argbMap ifNil:[argbMap := ColorMap mappingFromARGB: self rgbaBitMasks].! ----- Method: ExternalForm>>colormapFromARGB: (in category 'accessing') ----- colormapFromARGB: aMap "Set the ColorMap mapping from canonical ARGB pixel values into the receiver" argbMap := aMap! ----- Method: ExternalForm>>destroy (in category 'initialize-release') ----- destroy "Destroy the receiver" display ifNotNil:[display destroyForm: self]! ----- Method: ExternalForm>>displayScreen (in category 'accessing') ----- displayScreen "Return the display screen the receiver is allocated on." ^display! ----- Method: ExternalForm>>getExternalHandle (in category 'private') ----- getExternalHandle "Private. Return the virtual handle used to represent the receiver" ^bits! ----- Method: ExternalForm>>hasNonStandardPalette (in category 'testing') ----- hasNonStandardPalette "Quite possible." ^display notNil or:[argbMap notNil]! ----- Method: ExternalForm>>isExternalForm (in category 'testing') ----- isExternalForm "I am an external form but only as long as I'm allocated on a display" ^display notNil! ----- Method: ExternalForm>>rgbaBitMasks (in category 'accessing') ----- rgbaBitMasks "Return the masks for specifying the R,G,B, and A components in the receiver" display ifNil:[^super rgbaBitMasks] ifNotNil:[^display rgbaBitMasksOfForm: self]! ----- Method: ExternalForm>>setExternalHandle:on: (in category 'private') ----- setExternalHandle: aHandle on: aDisplay "Initialize the receiver from the given external handle" display := aDisplay. bits := aHandle.! ----- Method: ExternalForm>>shutDown (in category 'initialize-release') ----- shutDown "System is going down. Internalize my bits and be finished." | copy | copy := Form extent: self extent depth: self depth. self displayOn: copy. copy hibernate. "compact bits of copy" self destroy. "Release my external handle" bits := copy bits. "Now compressed" display := nil. "No longer allocated" argbMap := nil. "No longer external"! WeakKeyDictionary subclass: #ExternalFormRegistry instanceVariableNames: 'lockFlag' classVariableNames: '' poolDictionaries: '' category: 'GraphicsExternal'! !ExternalFormRegistry commentStamp: '<historical>' prior: 0! The ExternalFormRegistry needs to be synchronized with rendering to prevent forms from being destroyed during rendering. Only at certain points (that is after a rendering cycle is completed) the texture registry may be cleaned up.! ----- Method: ExternalFormRegistry>>finalizeValues (in category 'finalization') ----- finalizeValues "This message is sent when an element has gone away." lockFlag == true ifTrue:[^self]. self forceFinalization.! ----- Method: ExternalFormRegistry>>forceFinalization (in category 'finalization') ----- forceFinalization self associationsDo:[:assoc| assoc key isNil ifTrue:[assoc value destroy]. ]. super finalizeValues.! ----- Method: ExternalFormRegistry>>lock (in category 'accessing') ----- lock lockFlag := true! ----- Method: ExternalFormRegistry>>unlock (in category 'accessing') ----- unlock lockFlag := false.!

1 0

The Inbox: Files-tpr.169.mcz
by commits＠source.squeak.org 19 Apr '17

19 Apr '17

A new version of Files was added to project The Inbox: http://source.squeak.org/inbox/Files-tpr.169.mcz ==================== Summary ==================== Name: Files-tpr.169 Author: tpr Time: 19 April 2017, 1:57:12.020502 pm UUID: 590832cc-da85-4700-8caa-82e23e932537 Ancestors: Files-ul.168 A simple approach to handling an absence of a writeable changes file when compiling code changes. NB - this does NOTNOTNOT address the other implementors of #acceptsLoggingOfCompilation such as UnscriptedPlayer etc that do ... odd things. This set of changes must of course be paired with Kernel-tpr.1075 wherein we will find the new version of #acceptsLoggingOfCompilation =============== Diff against Files-ul.168 =============== Item was added: + ----- Method: ExpandedSourceFileArray>>hasWriteableChangesFile (in category 'accessing') ----- + hasWriteableChangesFile + "We should check for a writeable changes file as part of the compiler #acceptsLoggingOfCompilation test" + ^(self at: 2) notNil! Item was added: + ----- Method: SourceFileArray>>hasWriteableChangesFile (in category 'accessing') ----- + hasWriteableChangesFile + "We should check for a writeable chages file as part of the compiler #acceptsLoggingOfCompilation test" + self subclassResponsibility! Item was added: + ----- Method: StandardSourceFileArray>>hasWriteableChangesFile (in category 'accessing') ----- + hasWriteableChangesFile + "We should check for a writeable changes file as part of the compiler #acceptsLoggingOfCompilation test" + ^(self at: 2) notNil!

3 2

The Trunk: Collections-eem.746.mcz
by commits＠source.squeak.org 19 Apr '17

19 Apr '17

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.746.mcz ==================== Summary ==================== Name: Collections-eem.746 Author: eem Time: 18 April 2017, 2:10:45.148995 pm UUID: 8d9adaca-1401-4323-974f-1aed16ae3688 Ancestors: Collections-eem.745 Nuke the pointless override of ByteSString class>>stringHash:initialHash: in ByteSymbol class. Rewrite the non-byte version to use the hashMultiply primitive. =============== Diff against Collections-eem.745 =============== Item was removed: - ----- Method: ByteSymbol class>>stringHash:initialHash: (in category 'primitives') ----- - stringHash: aString initialHash: speciesHash - ^ByteString stringHash: aString initialHash: speciesHash! Item was changed: ----- Method: String class>>stringHash:initialHash: (in category 'primitives') ----- stringHash: aString initialHash: speciesHash + "Answer the hash of a byte-indexed string, using speciesHash as the initial value. + See SmallInteger>>hashMultiply." + | hash | - - | stringSize hash low | - stringSize := aString size. hash := speciesHash bitAnd: 16r0FFFFFFF. + 1 to: aString size do: + [:pos | + hash := (hash + (aString basicAt: pos)) hashMultiply]. + ^hash! - 1 to: stringSize do: [ :pos | - hash := hash + (aString basicAt: pos). - "Begin hashMultiply" - low := hash bitAnd: 16383. - hash := (16r260D * low + ((16r260D * (hash // 16384) + (16r0065 * low) bitAnd: 16383) * 16384)) bitAnd: 16r0FFFFFFF ]. - ^hash. - - - !

3 2

The Inbox: Kernel-tpr.1075.mcz
by commits＠source.squeak.org 19 Apr '17

19 Apr '17

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-tpr.1075.mcz ==================== Summary ==================== Name: Kernel-tpr.1075 Author: tpr Time: 19 April 2017, 1:56:03.426223 pm UUID: 70a65889-c052-4cb7-8766-9f84adebb338 Ancestors: Kernel-eem.1074 A simple approach to handling an absence of a writeable changes file when compiling code changes. NB - this does NOTNOTNOT address the other implementors of #acceptsLoggingOfCompilation such as UnscriptedPlayer etc that do ... odd things. This set of changes must of course be paired with Files-tpr.169 wherein lies the new code to test for a changes file =============== Diff against Kernel-eem.1074 =============== Item was changed: ----- Method: ClassDescription>>acceptsLoggingOfCompilation (in category 'compiling') ----- acceptsLoggingOfCompilation "weird name is so that it will come lexically before #compile, so that a clean build can make it through. 7/7/96 sw" + ^SourceFiles hasWriteableChangesFile! - ^ true!

1 0

← Newer
1
...
9
10
11
12
13
14
15
...
23
Older →

Jump to page: