Packages June 2019

packages@lists.squeakfoundation.org

1 participants
21 discussions

The Trunk: Morphic-pre.1489.mcz
by commits＠source.squeak.org 14 Jun '19

14 Jun '19

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1489.mcz ==================== Summary ==================== Name: Morphic-pre.1489 Author: pre Time: 14 June 2019, 8:31:21.288862 pm UUID: 5e2933e1-ce9f-1c44-9362-7292158da7eb Ancestors: Morphic-pre.1488 Moves two methods from Collections belonging to Morphic to that package. =============== Diff against Morphic-pre.1488 =============== Item was added: + ----- Method: Text>>embeddedMorphs (in category '*Morphic-Text Support') ----- + embeddedMorphs + "return the list of morphs embedded in me" + + | morphs | + morphs := IdentitySet new. + runs withStartStopAndValueDo: + [:start :stop :attribs | + attribs + do: [:attrib | attrib anchoredMorph ifNotNil: [morphs add: attrib anchoredMorph]]]. + ^morphs select: [:m | m isMorph]! Item was added: + ----- Method: Text>>embeddedMorphsFrom:to: (in category '*Morphic-Text Support') ----- + embeddedMorphsFrom: start to: stop + "return the list of morphs embedded in me" + + | morphs | + morphs := IdentitySet new. + runs + runsFrom: start + to: stop + do: + [:attribs | + attribs + do: [:attr | attr anchoredMorph ifNotNil: [morphs add: attr anchoredMorph]]]. + ^morphs select: [:m | m isMorph]!

1 0

The Trunk: Collections-pre.836.mcz
by commits＠source.squeak.org 14 Jun '19

14 Jun '19

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.836.mcz ==================== Summary ==================== Name: Collections-pre.836 Author: pre Time: 14 June 2019, 8:26:00.375862 pm UUID: 317eb24c-8286-c44b-aea8-8cf2119fb38d Ancestors: Collections-cmm.835 Moves two methods belonging to Morphic to that package. =============== Diff against Collections-cmm.835 =============== Item was removed: - ----- Method: Text>>embeddedMorphs (in category 'accessing') ----- - embeddedMorphs - "return the list of morphs embedded in me" - - | morphs | - morphs := IdentitySet new. - runs withStartStopAndValueDo: - [:start :stop :attribs | - attribs - do: [:attrib | attrib anchoredMorph ifNotNil: [morphs add: attrib anchoredMorph]]]. - ^morphs select: [:m | m isMorph]! Item was removed: - ----- Method: Text>>embeddedMorphsFrom:to: (in category 'accessing') ----- - embeddedMorphsFrom: start to: stop - "return the list of morphs embedded in me" - - | morphs | - morphs := IdentitySet new. - runs - runsFrom: start - to: stop - do: - [:attribs | - attribs - do: [:attr | attr anchoredMorph ifNotNil: [morphs add: attr anchoredMorph]]]. - ^morphs select: [:m | m isMorph]!

1 0

The Trunk: Graphics-nice.409.mcz
by commits＠source.squeak.org 12 Jun '19

12 Jun '19

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.409.mcz ==================== Summary ==================== Name: Graphics-nice.409 Author: nice Time: 12 June 2019, 12:23:35.430508 am UUID: f24ba92c-bd8d-43bf-87f6-eb4023dd8f5a Ancestors: Graphics-mt.406 Sending isoToSqueak is no longer needed (since 2005). =============== Diff against Graphics-mt.406 =============== Item was changed: ----- Method: StrikeFont>>fixAccuISO8859From: (in category 'multibyte character methods') ----- fixAccuISO8859From: aStrikeFont | f | self reset. xTable := aStrikeFont xTable copy. glyphs := Form extent: aStrikeFont glyphs extent. maxAscii := 255. minAscii := 0. "stopConditions := nil." 0 to: 127 do: [:i | + f := aStrikeFont characterFormAt: (Character value: i). - f := aStrikeFont characterFormAt: (Character value: i) isoToSqueak. f width = 0 ifTrue: [f := Form extent: 1@f height]. self characterFormAt: (Character value: i) put: f. ]. 128 to: 159 do: [:i | f := Form extent: 1@f height. self characterFormAt: (Character value: i) put: f. ]. 160 to: 255 do: [:i | + f := aStrikeFont characterFormAt: (Character value: i). - f := aStrikeFont characterFormAt: (Character value: i) isoToSqueak. f width = 0 ifTrue: [f := Form extent: 1@f height]. self characterFormAt: (Character value: i) put: f. ]. ^ self. !

1 0

The Trunk: Tools-pre.848.mcz
by commits＠source.squeak.org 11 Jun '19

11 Jun '19

Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.848.mcz ==================== Summary ==================== Name: Tools-pre.848 Author: pre Time: 11 June 2019, 4:52:22.536016 pm UUID: 75c0a180-4085-1d40-818c-efa53514ce40 Ancestors: Tools-nice.847 Adds drag support to change sorters =============== Diff against Tools-nice.847 =============== Item was changed: ----- Method: ChangeSorter>>buildWith:in:rect: (in category 'toolbuilder') ----- buildWith: builder in: window rect: rect | csListHeight msgListHeight csMsgListHeight listSpec textSpec | contents := ''. csListHeight := 0.25. msgListHeight := 0.25. csMsgListHeight := csListHeight + msgListHeight. listSpec := builder pluggableListSpec new. listSpec model: self; list: #changeSetList; getSelected: #currentCngSet; setSelected: #showChangeSetNamed:; menu: #changeSetMenu:shifted:; keyPress: #changeSetListKey:from:; + dragItem: #drag:; autoDeselect: false; frame: (((0@0 extent: 0.5@csListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. listSpec := builder pluggableListSpec new. listSpec model: self; list: #classList; getSelected: #currentClassName; setSelected: #currentClassName:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:; frame: (((0.5@0 extent: 0.5@csListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getSelected: #currentSelector; setSelected: #currentSelector:; menu: #messageMenu:shifted:; keyPress: #messageListKey:from:; frame: (((0@csListHeight extent: 1@msgListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #contents; setText: #contents:notifying:; selection: #contentsSelection; menu: #codePaneMenu:shifted:; frame: (((0@csMsgListHeight corner: 1@1) scaleBy: rect extent) translateBy: rect origin). window children add: textSpec. ^window! Item was added: + ----- Method: ChangeSorter>>drag: (in category 'dropping/grabbing') ----- + drag: anIndex + + anIndex = 0 ifTrue: [^ nil]. + ^ ChangesOrganizer changeSetNamed: (self changeSetList at: anIndex) !

1 0

The Trunk: SMBase-nice.142.mcz
by commits＠source.squeak.org 11 Jun '19

11 Jun '19

Nicolas Cellier uploaded a new version of SMBase to project The Trunk: http://source.squeak.org/trunk/SMBase-nice.142.mcz ==================== Summary ==================== Name: SMBase-nice.142 Author: nice Time: 11 June 2019, 11:32:00.824371 am UUID: 28fcc52c-499a-2246-8ad5-49ac6355c95d Ancestors: SMBase-cmm.141 Stop sending squeakToIso =============== Diff against SMBase-cmm.141 =============== Item was changed: ----- Method: SMUtilities class>>mail:subject:message: (in category 'private') ----- mail: anAccount subject: sub message: msg "Send a mail to the holder of <anAccount>." SMTPClient deliverMailFrom: 'squeakmap(a)squeak.org' to: {anAccount email} text: ('From: SqueakMap <squeakmap(a)squeak.org> To: ', anAccount email, ' Subject: ', sub, ' + ', msg, (self randomPhrase), ', SqueakMap') usingServer: MailServer! - ', msg, (self randomPhrase), ', SqueakMap') squeakToIso usingServer: MailServer!

1 0

The Trunk: Network-nice.234.mcz
by commits＠source.squeak.org 11 Jun '19

11 Jun '19

Nicolas Cellier uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-nice.234.mcz ==================== Summary ==================== Name: Network-nice.234 Author: nice Time: 11 June 2019, 11:22:42.438371 am UUID: d5e36e0b-da09-e947-8622-e490f6a52f47 Ancestors: Network-pre.233 Stop sending squeakToIso / isoToSqueak. These methods are no longer needed (at least since 2005!!!) I don't know if removing such small spots of rust makes sense when the whole package may already have returned to dust, but such cleaning cannot hurt. =============== Diff against Network-pre.233 =============== Item was changed: ----- Method: PRServerDirectory>>getLines (in category 'private') ----- getLines "private - answer a collection of lines with the server response" | url lines string | url := self urlFromServer: self server directories: {'programmatic'} , self directories. url := url , self slash. string := Cursor read showWhile: [(HTTPSocket httpGetDocument: url) contents]. (string beginsWith: '--OK--') ifFalse: [^ nil]. lines := OrderedCollection new. (string allButFirst: 6) + linesDo: [:line | lines add: line]. - linesDo: [:line | lines add: line squeakToIso]. ^ lines! Item was changed: ----- Method: PRServerDirectory>>getPostArgsFromProject:fileNamed:fromDirectory: (in category 'private') ----- getPostArgsFromProject: aProject fileNamed: fileNameString fromDirectory: localDirectory | args thumbnail uploader | args := Dictionary new. "args at: 'contents' put: {(localDirectory oldFileNamed: fileNameString) contentsOfEntireFile}." args at: 'contents' put: {(StandardFileStream readOnlyFileNamed: (localDirectory fullNameFor: fileNameString)) contentsOfEntireFile}. + args at: 'name' put: {aProject name}. - args at: 'name' put: {aProject name isoToSqueak}. args at: 'version' put: {(Project parseProjectFileName: fileNameString) second asString}. args at: 'language' put: {aProject naturalLanguage asString}. uploader := Utilities authorNamePerSe. uploader isEmptyOrNil ifTrue: [uploader := Utilities authorInitialsPerSe]. uploader isEmptyOrNil ifFalse: [args at: 'uploader' put: {uploader}]. self putSmalltalkInfoInto: args. thumbnail := self getProjectThumbnail: aProject. thumbnail isNil ifFalse: [args at: 'thumbnailcontents' put: {thumbnail}]. self putProjectDetailsFrom: aProject to: args. ^ args! Item was changed: ----- Method: PRServerDirectory>>putProjectDetailsFrom:to: (in category 'private') ----- putProjectDetailsFrom: aProject to: args | projectDetails | projectDetails := aProject world valueOfProperty: #ProjectDetails ifAbsent: [^ self]. "" self flag: #todo. "projectname ?" projectDetails at: 'projectdescription' + ifPresent: [:value | args at: 'description' put: {value}]. - ifPresent: [:value | args at: 'description' put: {value isoToSqueak}]. projectDetails at: 'projectauthor' + ifPresent: [:value | args at: 'author' put: {value}]. - ifPresent: [:value | args at: 'author' put: {value isoToSqueak}]. projectDetails at: 'projectcategory' + ifPresent: [:value | args at: 'category' put: {value}]. - ifPresent: [:value | args at: 'category' put: {value isoToSqueak}]. projectDetails at: 'projectsubcategory' + ifPresent: [:value | args at: 'subcategory' put: {value}]. - ifPresent: [:value | args at: 'subcategory' put: {value isoToSqueak}]. projectDetails at: 'projectkeywords' + ifPresent: [:value | args at: 'keywords' put: {value}]! - ifPresent: [:value | args at: 'keywords' put: {value isoToSqueak}]! Item was changed: ----- Method: PRServerDirectory>>putSmalltalkInfoInto: (in category 'private') ----- putSmalltalkInfoInto: args "private - fills args with information from Smalltalk" self flag: #todo. " lastest small-land changeset / small-land version " #(#datedVersion #osVersion #platformName #platformSubtype #vmPath #vmVersion #imageName #changesName #sourcesName #listBuiltinModules #listLoadedModules #getVMParameters ) do: [:each | | value | value := Smalltalk perform: each. + args at: 'extra-' , each asString put: {value asString}]! - args at: 'extra-' , each asString put: {value asString isoToSqueak}]!

1 0

The Trunk: Multilingual-nice.244.mcz
by commits＠source.squeak.org 11 Jun '19

11 Jun '19

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.244.mcz ==================== Summary ==================== Name: Multilingual-nice.244 Author: nice Time: 11 June 2019, 11:15:08.896371 am UUID: 94dda6ba-be79-f343-a57a-58cd0d96a0fb Ancestors: Multilingual-nice.243 Move Etoys specific font reading methods back to Etoys package. Note that those methods depends on other methods that did remain in Etoys package: we need to move either all, or none of these specific methods, but better not some. =============== Diff against Multilingual-nice.243 =============== Item was removed: - ----- Method: EFontBDFFontReaderForRanges>>readCharactersInRanges2:storeInto: (in category 'reading') ----- - readCharactersInRanges2: ranges storeInto: chars - - | array form code rangeStream in | - rangeStream := ReadStream on: ranges. - [true] whileTrue: [ - array := self readOneCharacter. - array second ifNil: [^ self]. - code := array at: 2. - in := false. - ranges do: [:range | - (code between: range first and: range last) ifTrue: [ - in := true. - ]. - ]. - in ifTrue: [ - form := array at: 1. - form ifNotNil: [ - chars add: array. - ]. - ]. - ]. - ! Item was removed: - ----- Method: EFontBDFFontReaderForRanges>>readRangesForSimplifiedChinese:overrideWith:otherRanges:additionalOverrideRange: (in category 'reading') ----- - readRangesForSimplifiedChinese: ranges overrideWith: otherFileName otherRanges: otherRanges additionalOverrideRange: additionalRange - - | xTable strikeWidth glyphs ascent descent minAscii maxAscii maxWidth chars charsNum height form encoding bbx width blt lastAscii pointSize ret lastValue start end | - form := encoding := bbx := nil. - self initialize. - self readAttributes. - height := Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). - ascent := Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. - descent := Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. - (properties includesKey: 'POINT_SIZE' asSymbol) ifTrue: [ - pointSize := (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. - ] ifFalse: [ - pointSize := (ascent + descent) * 72 // 96. - ]. - - - maxWidth := 0. - minAscii := 16r200000. - strikeWidth := 0. - maxAscii := 0. - - charsNum := Integer readFromString: (properties at: #CHARS) first. - chars := Set new: charsNum. - - self readCharactersInRanges2: ranges storeInto: chars. - chars := self override2: chars with: otherFileName ranges: otherRanges transcodingTable: (UCSTable jisx0208Table) additionalRange: additionalRange. - - chars := chars sorted: [:x :y | (x at: 2) <= (y at: 2)]. - charsNum := chars size. "undefined encodings make this different" - - chars do: [:array | - encoding := array at: 2. - bbx := array at: 3.. - width := bbx at: 1. - maxWidth := maxWidth max: width. - minAscii := minAscii min: encoding. - maxAscii := maxAscii max: encoding. - strikeWidth := strikeWidth + width. - ]. - - glyphs := Form extent: strikeWidth@height. - blt := BitBlt toForm: glyphs. - start := ((ranges collect: [:r | r first]), (additionalRange collect: [:r2 | r2 first])) min. - end := ((ranges collect: [:r | r second]), (additionalRange collect: [:r2 | r2 second])) max + 3. - "xRange := Array with: (Array with: ((ranges collect: [:r | r first]), (additionalRange collect: [:r2 | r2 first])) min - with: (((ranges collect: [:r | r second]), (additionalRange collect: [:r2 | r2 second])) max + 2))." - "xTable := XTableForUnicodeFont new - ranges: xRange." - xTable := SparseLargeTable new: end chunkSize: 64 arrayClass: Array base: start defaultValue: -1. - lastAscii := start. - xTable at: lastAscii + 2 put: 0. - 1 to: charsNum do: [:i | - form := (chars at: i) first. - encoding := (chars at: i) second. - bbx := (chars at: i) third. - "lastAscii+1 to: encoding-1 do: [:a | xTable at: a+2 put: (xTable at: a+1)]." - lastValue := xTable at: lastAscii + 1 + 1. - xTable at: encoding + 1 put: lastValue. - blt copy: (((xTable at: encoding+1)@(ascent - (bbx at: 2) - (bbx at: 4))) - extent: (bbx at: 1)@(bbx at: 2)) - from: 0@0 in: form. - xTable at: encoding+2 put: (xTable at: encoding+1)+(bbx at: 1). - lastAscii := encoding. - ]. - xTable at: xTable size put: (xTable at: xTable size - 1). - xTable zapDefaultOnlyEntries. - ret := Array new: 8. - ret at: 1 put: xTable. - ret at: 2 put: glyphs. - ret at: 3 put: minAscii. - ret at: 4 put: maxAscii. - ret at: 5 put: maxWidth. - ret at: 6 put: ascent. - ret at: 7 put: descent. - ret at: 8 put: pointSize. - ^ret. - " ^{xTable. glyphs. minAscii. maxAscii. maxWidth. ascent. descent. pointSize}" - !

1 0

The Trunk: EToys-nice.343.mcz
by commits＠source.squeak.org 11 Jun '19

11 Jun '19

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.343.mcz ==================== Summary ==================== Name: EToys-nice.343 Author: nice Time: 11 June 2019, 11:08:46.028371 am UUID: 31d65fd7-f312-e74b-b70f-7c2ef66d97b6 Ancestors: EToys-cmm.342 1) Classify Etoys specific font reading methods back to Etoys. We can either move all the methods to Multilingual, or none, but not some... 2) Stop sending squeakToIso and isoToSqueak which are no longer needed at least since 2005. =============== Diff against EToys-cmm.342 =============== Item was changed: + ----- Method: EFontBDFFontReaderForRanges>>additionalRangesForSimplifiedChinese (in category '*Etoys-Squeakland-font reading') ----- - ----- Method: EFontBDFFontReaderForRanges>>additionalRangesForSimplifiedChinese (in category '*Etoys-Squeakland-as yet unclassified') ----- additionalRangesForSimplifiedChinese | basics | basics := { {16rFF00. 16rFF60} }. ^ basics ! Item was changed: + ----- Method: EFontBDFFontReaderForRanges>>override2:with:ranges:transcodingTable:additionalRange: (in category '*Etoys-Squeakland-font reading') ----- - ----- Method: EFontBDFFontReaderForRanges>>override2:with:ranges:transcodingTable:additionalRange: (in category '*Etoys-Squeakland-as yet unclassified') ----- override2: chars with: otherFileName ranges: pairArray transcodingTable: table additionalRange: additionalRanges | other newChars form u j in newArray | other := BDFFontReader readOnlyFileNamed: otherFileName. newChars := PluggableSet new. newChars hashBlock: [:elem | (elem at: 2) hash]. newChars equalBlock: [:a :b | (a at: 2) = (b at: 2)]. other readChars do: [:array | j := array at: 2. u := table at: (((j // 256) - 33 * 94 + ((j \\ 256) - 33)) + 1). u ~= -1 ifTrue: [ u hex printString displayAt: 0@0. in := false. pairArray do: [:pair | (u between: pair first and: pair second) ifTrue: [ in := true ] ]. in ifTrue: [ form := array at: 1. form ifNotNil: [ newArray := array shallowCopy. newArray at: 2 put: u. newChars add: newArray. ]. ]. ]. ]. newChars addAll: chars. ^ newChars. ! Item was changed: + ----- Method: EFontBDFFontReaderForRanges>>rangesForSimplifiedChinese (in category '*Etoys-Squeakland-font reading') ----- - ----- Method: EFontBDFFontReaderForRanges>>rangesForSimplifiedChinese (in category '*Etoys-Squeakland-as yet unclassified') ----- rangesForSimplifiedChinese | basics etc | basics := { Array with: 16rA1 with: 16rFF }. etc := { Array with: 16r100 with: 16r17F. "extended latin" Array with: 16r370 with: 16r3FF. "greek" Array with: 16r400 with: 16r52F. "cyrillic" Array with: 16r2000 with: 16r206F. "general punctuation" Array with: 16r2100 with: 16r214F. "letterlike" Array with: 16r2150 with: 16r218F. "number form" Array with: 16r2190 with: 16r21FF. "arrows" Array with: 16r2200 with: 16r22FF. "math operators" Array with: 16r2300 with: 16r23FF. "misc tech" Array with: 16r2460 with: 16r24FF. "enclosed alnum" Array with: 16r2500 with: 16r257F. "box drawing" Array with: 16r2580 with: 16r259F. "box elem" Array with: 16r25A0 with: 16r25FF. "geometric shapes" Array with: 16r2600 with: 16r26FF. "misc symbols" Array with: 16r3000 with: 16r303F. "cjk symbols" Array with: 16r3040 with: 16r309F. "hiragana" Array with: 16r30A0 with: 16r30FF. "katakana" Array with: 16r3190 with: 16r319F. "kanbun" Array with: 16r31F0 with: 16r31FF. "katakana extension" Array with: 16r3200 with: 16r32FF. "enclosed CJK" Array with: 16r3300 with: 16r33FF. "CJK compatibility" Array with: 16r4E00 with: 16r9FAF. "CJK ideograph" Array with: 16rAC00 with: 16rD7AF. "Hangul Syllables" Array with: 16rF900 with: 16rFAFF. "CJK compatiblity ideograph" Array with: 16rFF00 with: 16rFFEF. "half and full" }. ^ basics, etc. ! Item was changed: + ----- Method: EFontBDFFontReaderForRanges>>readCharactersInRanges2:storeInto: (in category '*Etoys-Squeakland-font reading') ----- - ----- Method: EFontBDFFontReaderForRanges>>readCharactersInRanges2:storeInto: (in category '*Etoys-Squeakland-as yet unclassified') ----- readCharactersInRanges2: ranges storeInto: chars | array form code rangeStream in | rangeStream := ReadStream on: ranges. [true] whileTrue: [ array := self readOneCharacter. array second ifNil: [^ self]. code := array at: 2. in := false. ranges do: [:range | (code between: range first and: range last) ifTrue: [ in := true. ]. ]. in ifTrue: [ form := array at: 1. form ifNotNil: [ chars add: array. ]. ]. ]. ! Item was changed: + ----- Method: EFontBDFFontReaderForRanges>>readRangesForSimplifiedChinese:overrideWith:otherRanges:additionalOverrideRange: (in category '*Etoys-Squeakland-font reading') ----- - ----- Method: EFontBDFFontReaderForRanges>>readRangesForSimplifiedChinese:overrideWith:otherRanges:additionalOverrideRange: (in category '*Etoys-Squeakland-as yet unclassified') ----- readRangesForSimplifiedChinese: ranges overrideWith: otherFileName otherRanges: otherRanges additionalOverrideRange: additionalRange | xTable strikeWidth glyphs ascent descent minAscii maxAscii maxWidth chars charsNum height form encoding bbx width blt lastAscii pointSize ret lastValue start end | form := encoding := bbx := nil. self initialize. self readAttributes. height := Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). ascent := Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. descent := Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. (properties includesKey: 'POINT_SIZE' asSymbol) ifTrue: [ pointSize := (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. ] ifFalse: [ pointSize := (ascent + descent) * 72 // 96. ]. maxWidth := 0. minAscii := 16r200000. strikeWidth := 0. maxAscii := 0. charsNum := Integer readFromString: (properties at: #CHARS) first. chars := Set new: charsNum. self readCharactersInRanges2: ranges storeInto: chars. chars := self override2: chars with: otherFileName ranges: otherRanges transcodingTable: (UCSTable jisx0208Table) additionalRange: additionalRange. chars := chars sorted: [:x :y | (x at: 2) <= (y at: 2)]. charsNum := chars size. "undefined encodings make this different" chars do: [:array | encoding := array at: 2. bbx := array at: 3.. width := bbx at: 1. maxWidth := maxWidth max: width. minAscii := minAscii min: encoding. maxAscii := maxAscii max: encoding. strikeWidth := strikeWidth + width. ]. glyphs := Form extent: strikeWidth@height. blt := BitBlt toForm: glyphs. start := ((ranges collect: [:r | r first]), (additionalRange collect: [:r2 | r2 first])) min. end := ((ranges collect: [:r | r second]), (additionalRange collect: [:r2 | r2 second])) max + 3. "xRange := Array with: (Array with: ((ranges collect: [:r | r first]), (additionalRange collect: [:r2 | r2 first])) min with: (((ranges collect: [:r | r second]), (additionalRange collect: [:r2 | r2 second])) max + 2))." "xTable := XTableForUnicodeFont new ranges: xRange." xTable := SparseLargeTable new: end chunkSize: 64 arrayClass: Array base: start defaultValue: -1. lastAscii := start. xTable at: lastAscii + 2 put: 0. 1 to: charsNum do: [:i | form := (chars at: i) first. encoding := (chars at: i) second. bbx := (chars at: i) third. "lastAscii+1 to: encoding-1 do: [:a | xTable at: a+2 put: (xTable at: a+1)]." lastValue := xTable at: lastAscii + 1 + 1. xTable at: encoding + 1 put: lastValue. blt copy: (((xTable at: encoding+1)@(ascent - (bbx at: 2) - (bbx at: 4))) extent: (bbx at: 1)@(bbx at: 2)) from: 0@0 in: form. xTable at: encoding+2 put: (xTable at: encoding+1)+(bbx at: 1). lastAscii := encoding. ]. xTable at: xTable size put: (xTable at: xTable size - 1). xTable zapDefaultOnlyEntries. ret := Array new: 8. ret at: 1 put: xTable. ret at: 2 put: glyphs. ret at: 3 put: minAscii. ret at: 4 put: maxAscii. ret at: 5 put: maxWidth. ret at: 6 put: ascent. ret at: 7 put: descent. ret at: 8 put: pointSize. ^ret. " ^{xTable. glyphs. minAscii. maxAscii. maxWidth. ascent. descent. pointSize}" ! Item was changed: ----- Method: String>>replaceHtmlCharRefs (in category '*Etoys-internet') ----- replaceHtmlCharRefs | pos ampIndex scIndex special specialValue outString outPos newOutPos | outString := String new: self size. outPos := 0. pos := 1. [ pos <= self size ] whileTrue: [ "read up to the next ampersand" ampIndex := self indexOf: $& startingAt: pos ifAbsent: [0]. ampIndex = 0 ifTrue: [ pos = 1 ifTrue: [ ^self ] ifFalse: [ ampIndex := self size+1 ] ]. newOutPos := outPos + ampIndex - pos. outString replaceFrom: outPos + 1 to: newOutPos with: self startingAt: pos. outPos := newOutPos. pos := ampIndex. ampIndex <= self size ifTrue: [ "find the $;" scIndex := self indexOf: $; startingAt: ampIndex ifAbsent: [ self size + 1 ]. special := self copyFrom: ampIndex+1 to: scIndex-1. specialValue := HtmlEntity valueOfHtmlEntity: special. specialValue ifNil: [ "not a recognized entity. wite it back" scIndex > self size ifTrue: [ scIndex := self size ]. newOutPos := outPos + scIndex - ampIndex + 1. outString replaceFrom: outPos+1 to: newOutPos with: self startingAt: ampIndex. outPos := newOutPos.] ifNotNil: [ outPos := outPos + 1. + outString at: outPos put: specialValue]. - outString at: outPos put: specialValue isoToSqueak.]. pos := scIndex + 1. ]. ]. ^outString copyFrom: 1 to: outPos! Item was changed: ----- Method: UTF32CNInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. keyValue < 256 + ifTrue: [^Character value: keyValue]. - ifTrue: [^ (Character value: keyValue) squeakToIso]. ^ Character leadingChar: SimplifiedChineseEnvironment leadingChar code: keyValue! Item was changed: ----- Method: UTF32GreekInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. keyValue < 256 + ifTrue: [^Character value: keyValue]. - ifTrue: [^ (Character value: keyValue) squeakToIso]. ^ Character leadingChar: GreekEnvironment leadingChar code: keyValue! Item was changed: ----- Method: UTF32NPInputInterpreter>>nextCharFrom:firstEvt: (in category 'all') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. keyValue < 256 + ifTrue: [^Character value: keyValue]. - ifTrue: [^ (Character value: keyValue) squeakToIso]. ^ Character leadingChar: NepaleseEnvironment leadingChar code: keyValue!

1 0

The Trunk: Multilingual-nice.243.mcz
by commits＠source.squeak.org 11 Jun '19

11 Jun '19

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.243.mcz ==================== Summary ==================== Name: Multilingual-nice.243 Author: nice Time: 11 June 2019, 10:45:54.414371 am UUID: 94df4c4d-9cfc-0f4d-a971-221a81efe382 Ancestors: Multilingual-pre.242 As its comment tells, squeakToIso is no longer needed, at least since 2005. The grace delay has been exceptionnally long, but time has come to stop sending it, YAGNI. Both squeakToIso and isToSqueak are good candidates for deprecation. =============== Diff against Multilingual-pre.242 =============== Item was changed: ----- Method: MacUnicodeInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | keyValue := evtBuf at: 6. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. keyValue < 256 + ifTrue: [^Character value: keyValue]. - ifTrue: [^ (Character value: keyValue) squeakToIso]. "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue! Item was changed: ----- Method: UTF32JPInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | keyValue := evtBuf at: 6. keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. keyValue < 256 + ifTrue: [^Character value: keyValue]. - ifTrue: [^ (Character value: keyValue) squeakToIso]. ^ Character leadingChar: JapaneseEnvironment leadingChar code: keyValue! Item was changed: ----- Method: UTF32RussianInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. keyValue < 256 + ifTrue: [^Character value: keyValue]. - ifTrue: [^ (Character value: keyValue) squeakToIso]. ^ Character leadingChar: RussianEnvironment leadingChar code: keyValue!

1 0

The Trunk: MorphicExtras-tcj.256.mcz
by commits＠source.squeak.org 11 Jun '19

11 Jun '19

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tcj.256.mcz ==================== Summary ==================== Name: MorphicExtras-tcj.256 Author: tcj Time: 7 June 2019, 3:03:00.368787 pm UUID: 14a1c7c2-1e36-4ce1-b27f-b046f640921e Ancestors: MorphicExtras-kfr.255 Tell TextMorphs in Flaps to wrap at parent boundary, rather than extend across the whole display (as exposed by enabling debug code in TextMorph>>drawOn: ). Must execute the following (as postscript of MorphicExtras package, perhaps) to give life to the change: FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab] =============== Diff against MorphicExtras-kfr.255 =============== Item was changed: ----- Method: FlapTab>>assumeString:font:orientation:color: (in category 'textual tabs') ----- assumeString: aString font: aFont orientation: orientationSymbol color: aColor | aTextMorph workString tabStyle | labelString := aString asString. workString := orientationSymbol == #vertical ifTrue: [String streamContents: [:s | labelString do: [:c | s nextPut: c] separatedBy: [s nextPut: Character cr]]] ifFalse: [labelString]. tabStyle := (TextStyle new) leading: 0; newFontArray: (Array with: aFont). aTextMorph := (TextMorph new setTextStyle: tabStyle) contents: (workString asText addAttribute: (TextKern kern: 3)). + aTextMorph wrapFlag: true. self removeAllMorphs. self borderStyle: (BorderStyle raised width: 2). aColor ifNotNil: [self color: aColor]. self addMorph: aTextMorph centered. aTextMorph lock " FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab] "!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2019