Packages December 2019

packages@lists.squeakfoundation.org

1 participants
59 discussions

The Trunk: Installer-Core-cmm.436.mcz
by commits＠source.squeak.org 29 Dec '19

29 Dec '19

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.436.mcz ==================== Summary ==================== Name: Installer-Core-cmm.436 Author: cmm Time: 29 December 2019, 3:17:54.157994 pm UUID: c3706d14-bd0d-4556-8044-9265bd05e651 Ancestors: Installer-Core-mt.434 Include package-definitions for a GraphQL engine expected in Q1/2020, and targeted for Squeak 5.3. =============== Diff against Installer-Core-mt.434 =============== Item was added: + ----- Method: Installer>>graphQlCore (in category 'package-definitions') ----- + graphQlCore + ^ { #ss -> 'graphql'. + 'GraphQL-Core' }! Item was added: + ----- Method: Installer>>graphQlEngine (in category 'package-definitions') ----- + graphQlEngine + ^ { self graphQlCore. + 'GraphQL-Engine' }! Item was added: + ----- Method: Installer>>graphQlSmalltalkEngine (in category 'package-definitions') ----- + graphQlSmalltalkEngine + ^ { self graphQlEngine. + 'GraphQL-SmalltalkEngine' }! Item was added: + ----- Method: Installer>>graphQlTestsCore (in category 'package-definitions') ----- + graphQlTestsCore + ^ { self graphQlCore. + 'GraphQL-Tests-Core' }! Item was added: + ----- Method: Installer>>graphQlTestsEngine (in category 'package-definitions') ----- + graphQlTestsEngine + ^ { self graphQlEngine. + self graphQlTestsCore. + 'GraphQL-Tests-Engine' }!

1 0

The Trunk: Collections-nice.868.mcz
by commits＠source.squeak.org 29 Dec '19

29 Dec '19

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.868.mcz ==================== Summary ==================== Name: Collections-nice.868 Author: nice Time: 28 December 2019, 1:23:35.502843 pm UUID: e4026d16-31b5-430f-8c22-6475db37bb91 Ancestors: Collections-mt.866 Fix RunArrayTest>>testAt2 (testing access out of bounds) Beware, Text depends on this feature of accessing runs out of bounds, because the characterIndex might be past end. To avoid problems, transform previous #at: implementation into #atPin: and use that in Text. #atPin: clamps the index in accessible range. =============== Diff against Collections-mt.866 =============== Item was changed: ----- Method: RunArray>>at: (in category 'accessing') ----- at: index + self at: index setRunOffsetAndValue: [:run :offset :value | + offset < 0 ifTrue: [ self errorSubscriptBounds: index ]. + offset >= (runs at: run) ifTrue: [ self errorSubscriptBounds: index ]. + ^value]! - self at: index setRunOffsetAndValue: [:run :offset :value | ^value]! Item was added: + ----- Method: RunArray>>atPin: (in category 'accessing') ----- + atPin: index + + self at: index setRunOffsetAndValue: [:run :offset :value | ^value]! Item was changed: ----- Method: Text>>alignmentAt:ifAbsent: (in category 'emphasis') ----- alignmentAt: characterIndex ifAbsent: aBlock | attributes emph | self size = 0 ifTrue: [^aBlock value]. emph := nil. + attributes := runs atPin: characterIndex. - attributes := runs at: characterIndex. attributes do:[:att | (att isKindOf: TextAlignment) ifTrue:[emph := att]]. emph ifNil: [ ^aBlock value ]. ^emph alignment! Item was changed: ----- Method: Text>>attributesAt: (in category 'emphasis') ----- attributesAt: characterIndex "Answer the code for characters in the run beginning at characterIndex." "NB: no senders any more (supplanted by #attributesAt:forStyle: but retained for the moment in order not to break user code that may exist somewhere that still calls this" | attributes | self size = 0 ifTrue: [^ Array with: (TextFontChange new fontNumber: 1)]. "null text tolerates access" + attributes := runs atPin: characterIndex. - attributes := runs at: characterIndex. ^ attributes! Item was changed: ----- Method: Text>>attributesAt:do: (in category 'emphasis') ----- attributesAt: characterIndex do: aBlock "Answer the code for characters in the run beginning at characterIndex." "NB: no senders any more (supplanted by #attributesAt:forStyle: but retained for the moment in order not to break user code that may exist somewhere that still calls this" self size = 0 ifTrue:[^self]. + (runs atPin: characterIndex) do: aBlock! - (runs at: characterIndex) do: aBlock! Item was changed: ----- Method: Text>>attributesAt:forStyle: (in category 'emphasis') ----- attributesAt: characterIndex forStyle: aTextStyle "Answer the code for characters in the run beginning at characterIndex." | attributes | self size = 0 ifTrue: [^ Array with: (TextFontChange new fontNumber: aTextStyle defaultFontIndex)]. "null text tolerates access" + attributes := runs atPin: characterIndex. - attributes := runs at: characterIndex. ^ attributes! Item was changed: ----- Method: Text>>colorAt:ifNone: (in category 'emphasis') ----- colorAt: characterIndex ifNone: block self size = 0 ifTrue: [^ block value]. "null text tolerates access." + ^ (runs atPin: characterIndex) - ^ (runs at: characterIndex) detect: [:attr | attr class == TextColor] ifFound: [:attr | attr color] ifNone: block! Item was changed: ----- Method: Text>>emphasisAt: (in category 'emphasis') ----- emphasisAt: characterIndex "Answer the fontfor characters in the run beginning at characterIndex." | attributes | self size = 0 ifTrue: [^ 0]. "null text tolerates access" + attributes := runs atPin: characterIndex. - attributes := runs at: characterIndex. ^attributes inject: 0 into: [:emph :att | emph bitOr: att emphasisCode]. ! Item was changed: ----- Method: Text>>fontAt:withStyle: (in category 'emphasis') ----- fontAt: characterIndex withStyle: aTextStyle "Answer the fontfor characters in the run beginning at characterIndex." | attributes font | self size = 0 ifTrue: [^ aTextStyle defaultFont]. "null text tolerates access" + attributes := runs atPin: characterIndex. - attributes := runs at: characterIndex. font := aTextStyle defaultFont. "default" attributes do: [:att | att forFontInStyle: aTextStyle do: [:f | font := f]]. ^ font! Item was changed: ----- Method: Text>>fontNumberAt: (in category 'emphasis') ----- fontNumberAt: characterIndex "Answer the fontNumber for characters in the run beginning at characterIndex." | attributes fontNumber | self size = 0 ifTrue: [^1]. "null text tolerates access" + attributes := runs atPin: characterIndex. - attributes := runs at: characterIndex. fontNumber := 1. attributes do: [:att | (att isMemberOf: TextFontChange) ifTrue: [fontNumber := att fontNumber]]. ^ fontNumber !

1 0

The Trunk: KernelTests-nice.373.mcz
by commits＠source.squeak.org 29 Dec '19

29 Dec '19

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.373.mcz ==================== Summary ==================== Name: KernelTests-nice.373 Author: nice Time: 29 December 2019, 3:33:16.336288 pm UUID: ecd1f201-5181-4b61-83f8-675b04807a72 Ancestors: KernelTests-mt.372 Update ClassBuilderTest>>tearDown so as to remove references to obsolete classes =============== Diff against KernelTests-mt.372 =============== Item was changed: ----- Method: ClassBuilderTest>>tearDown (in category 'running') ----- tearDown self cleanup. baseClass := nil. + subClass := nil. + baseClass2 := nil. + subSubClass := nil! - subClass := nil!

1 0

The Trunk: SUnitGUI-cmm.78.mcz
by commits＠source.squeak.org 28 Dec '19

28 Dec '19

Chris Muller uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-cmm.78.mcz ==================== Summary ==================== Name: SUnitGUI-cmm.78 Author: cmm Time: 27 December 2019, 10:59:41.297401 pm UUID: 1c7d7b32-cdec-4875-80d8-7d2413e01a05 Ancestors: SUnitGUI-cmm.77 Fix TestRunner browser for use with Reuse Windows preference. There's no way to spawn that model with any pre-selection, it's essentially a singleton browser in Squeak. =============== Diff against SUnitGUI-cmm.77 =============== Item was changed: ----- Method: TestRunner>>representsSameBrowseeAs: (in category 'accessing-ui') ----- representsSameBrowseeAs: anotherModel + ^ true! - ^ self class = anotherModel class - and: [ classesSelected = anotherModel classesSelected ]!

1 0

The Trunk: Installer-Core-cmm.435.mcz
by commits＠source.squeak.org 28 Dec '19

28 Dec '19

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.435.mcz ==================== Summary ==================== Name: Installer-Core-cmm.435 Author: cmm Time: 27 December 2019, 10:51:14.50841 pm UUID: 3e002190-5c82-4a3f-be83-3754d8be5eee Ancestors: Installer-Core-mt.434 GraphQL is about to be released for Squeak 5.3. Please include these package-definitions in 5.3's Installer. =============== Diff against Installer-Core-mt.434 =============== Item was added: + ----- Method: Installer>>graphQlCore (in category 'package-definitions') ----- + graphQlCore + ^ { #ss -> 'graphql'. + 'GraphQL-Core' }! Item was added: + ----- Method: Installer>>graphQlEngine (in category 'package-definitions') ----- + graphQlEngine + ^ { self graphQlCore. + 'GraphQL-Engine' }! Item was added: + ----- Method: Installer>>graphQlSmalltalkEngine (in category 'package-definitions') ----- + graphQlSmalltalkEngine + ^ { self graphQlEngine. + 'GraphQL-SmalltalkEngine' }! Item was added: + ----- Method: Installer>>graphQlTestsCore (in category 'package-definitions') ----- + graphQlTestsCore + ^ { self graphQlCore. + 'GraphQL-Tests-Core' }! Item was added: + ----- Method: Installer>>graphQlTestsEngine (in category 'package-definitions') ----- + graphQlTestsEngine + ^ { self graphQlEngine. + 'GraphQL-Tests-Engine' }!

1 0

The Trunk: Tools-cmm.928.mcz
by commits＠source.squeak.org 27 Dec '19

27 Dec '19

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.928.mcz ==================== Summary ==================== Name: Tools-cmm.928 Author: cmm Time: 20 December 2019, 10:06:10.77308 pm UUID: e1a28262-590a-443a-83d8-6e994b0f676b Ancestors: Tools-mt.925 Fix DictionaryInspector to allow debugging of Dictionary initialization, and render the entries in order for OrderedDictionary's. =============== Diff against Tools-mt.925 =============== Item was changed: ----- Method: DictionaryInspector>>calculateKeyArray (in category 'selecting') ----- calculateKeyArray + "Recalculate the KeyArray from the object being inspected." + keyArray := [ object keysInOrder ] ifError: + [ "Can occur when debugging Dictionary new" + Array empty ]. + selectionIndex := 0! - "Recalculate the KeyArray from the object being inspected" - - keyArray := object keysSortedSafely asArray. - selectionIndex := 0. - !

1 0

The Trunk: Kernel-nice.1291.mcz
by commits＠source.squeak.org 26 Dec '19

26 Dec '19

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1291.mcz ==================== Summary ==================== Name: Kernel-nice.1291 Author: nice Time: 26 December 2019, 6:56:30.382504 pm UUID: ba77885c-3a21-4d74-a5a4-ef2c3572e192 Ancestors: Kernel-mt.1290 Make AssertionFailure an Error rather than a Halt. This change is necessary for at least running the SUnit tests suite, otherwise the DecompilerTests hangs in a debugger... There was a consensus on this decision in squeak-dev thread last november, so let's just do it: [squeak-dev] Squeak's AssertionFailure vs. SUnit's TestFailure http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-November/205039… For now, keep it resumable. I don't know if reasonable, but like that, AssertionFailure behavior should be mostly unchanged. =============== Diff against Kernel-mt.1290 =============== Item was changed: + Error subclass: #AssertionFailure - Halt subclass: #AssertionFailure instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Exceptions'! !AssertionFailure commentStamp: 'gh 5/2/2002 20:29' prior: 0! AsssertionFailure is the exception signaled from Object>>assert: when the assertion block evaluates to false.! Item was added: + ----- Method: AssertionFailure>>isResumable (in category 'priv handling') ----- + isResumable + ^ true!

1 0

The Trunk: Multilingual-nice.251.mcz
by commits＠source.squeak.org 26 Dec '19

26 Dec '19

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.251.mcz ==================== Summary ==================== Name: Multilingual-nice.251 Author: nice Time: 26 December 2019, 10:36:29.534168 am UUID: 52f3dd04-9f3e-4b32-9f76-ee53e5248ed3 Ancestors: Multilingual-nice.250, Multilingual-nice.249 Merge Multilingual-nice.250, Multilingual-nice.249 =============== Diff against Multilingual-nice.250 =============== Item was changed: ----- Method: JapaneseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) - ifTrue: [^NoConversionClipboardInterpreter]. platformName = 'Win32' ifTrue: [^UTF8ClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [^MacShiftJISClipboardInterpreter]. ^platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [MacShiftJISClipboardInterpreter] ifFalse: [UnixJPClipboardInterpreter]] ifFalse: [ NoConversionClipboardInterpreter ]! Item was changed: ----- Method: JapaneseEnvironment class>>defaultEncodingName (in category 'public query') ----- defaultEncodingName | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^'utf-8']. (#('Win32' 'ZaurusOS') includes: platformName) ifTrue: [^'shift-jis']. platformName = 'Mac OS' ifTrue: [^('10*' match: osVersion) ifTrue: ['utf-8'] ifFalse: ['shift-jis']]. ^'unix' = platformName ifTrue: ['euc-jp'] ifFalse: ['mac-roman']! Item was changed: ----- Method: JapaneseEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName osVersion encoding | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' - and: [osVersion = 'CE']) - ifTrue: [^ MacRomanInputInterpreter]. platformName = 'Win32' ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32JPInputInterpreter] ifFalse: [WinShiftJISInputInterpreter]]. platformName = 'Mac OS' ifTrue: [^ (('10*' match: osVersion) and: [(Smalltalk getSystemAttribute: 3) isNil]) ifTrue: [MacUnicodeInputInterpreter] ifFalse: [MacShiftJISInputInterpreter]]. platformName = 'unix' ifTrue: [encoding := X11Encoding encoding. (EUCJPTextConverter encodingNames includes: encoding) ifTrue: [^ UnixEUCJPInputInterpreter]. (UTF8TextConverter encodingNames includes: encoding) ifTrue: [^ UnixUTF8JPInputInterpreter]. (ShiftJISTextConverter encodingNames includes: encoding) ifTrue: [^ MacShiftJISInputInterpreter]]. ^ MacRomanInputInterpreter! Item was changed: ----- Method: KoreanEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) - ifTrue: [^NoConversionClipboardInterpreter]. platformName = 'Win32' ifTrue: [^WinKSX1001ClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [('10*' match: osVersion) ifTrue: [^NoConversionClipboardInterpreter] ifFalse: [^WinKSX1001ClipboardInterpreter]]. platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [^WinKSX1001ClipboardInterpreter] ifFalse: [^NoConversionClipboardInterpreter]]. ^NoConversionClipboardInterpreter! Item was changed: ----- Method: KoreanEnvironment class>>defaultEncodingName (in category 'public query') ----- defaultEncodingName | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^'utf-8' copy]. (#('Win32' 'Mac OS' 'ZaurusOS') includes: platformName) + ifTrue: [^'euc-kr']. + (#('unix') includes: platformName) ifTrue: [^'euc-kr']. - ifTrue: [^'euc-kr' copy]. - (#('unix') includes: platformName) ifTrue: [^'euc-kr' copy]. ^'mac-roman'! Item was changed: ----- Method: KoreanEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName osVersion encoding | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) - ifTrue: [^MacRomanInputInterpreter]. platformName = 'Win32' ifTrue: [^WinKSX1001InputInterpreter]. platformName = 'Mac OS' ifTrue: [('10*' match: osVersion) ifTrue: [^MacUnicodeInputInterpreter] ifFalse: [^WinKSX1001InputInterpreter]]. platformName = 'unix' ifTrue: [encoding := X11Encoding encoding. (EUCJPTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (UTF8TextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (ShiftJISTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]]. ^MacRomanInputInterpreter! Item was changed: Object subclass: #LanguageEnvironment instanceVariableNames: 'id' classVariableNames: 'ClipboardInterpreterClass FileNameConverterClass InputInterpreterClass KnownEnvironments SystemConverterClass' poolDictionaries: '' category: 'Multilingual-Languages'! + !LanguageEnvironment commentStamp: 'nice 12/9/2019 15:34' prior: 0! - !LanguageEnvironment commentStamp: 'bf 8/16/2009 16:52' prior: 0! The name multilingualized Squeak suggests that you can use multiple language at one time. This is true, of course, but the system still how to manage the primary language; that provides the interpretation of data going out or coming in from outside world. It also provides how to render strings, as there rendering rule could be different in one language to another, even if the code points in a string is the same. Originally, LanguageEnvironment and its subclasses only has class side methods. After merged with Diego's Babel work, it now has instance side methods. Since this historical reason, the class side and instance side are not related well. + When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename. On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does have) different encodings. So we need to manage them separately. Note that the encoding in a file can be anything. While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical. + + Rendering support is limited basic L-to-R rendering so far. But you can provide different line-wrap rule, at least. + ! - When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename. On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does h ave) different encodings. So we need to manage them separately. Note that the encoding in a file can be anything. While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical. - - Rendering support is limited basic L-to-R rendering so far. But you can provide different line-wrap rule, at least. - ! Item was changed: ----- Method: Latin1Environment class>>defaultEncodingName (in category 'subclass responsibilities') ----- defaultEncodingName | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^'utf-8' copy]. (#('Win32' 'Mac OS' 'ZaurusOS') includes: platformName) + ifTrue: [^'iso8859-1']. + (#('unix') includes: platformName) ifTrue: [^'iso8859-1']. - ifTrue: [^'iso8859-1' copy]. - (#('unix') includes: platformName) ifTrue: [^'iso8859-1' copy]. ^'mac-roman'! Item was changed: ----- Method: Latin1Environment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. + (platformName = 'Win32') - osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion ~= 'CE']) ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32InputInterpreter] ifFalse: [MacRomanInputInterpreter]]. platformName = 'Mac OS' ifTrue: [^ MacUnicodeInputInterpreter]. platformName = 'unix' ifTrue: [^ UTF32InputInterpreter]. ^ MacUnicodeInputInterpreter! Item was changed: ----- Method: Latin1Environment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk getSystemAttribute: 1002. - (platformName = 'Win32' - and: [osVersion = 'CE']) - ifTrue: [^ MacRomanTextConverter]. platformName = 'Win32' ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF8TextConverter] ifFalse: [ISO88591TextConverter]]. platformName = 'Mac OS' ifTrue: [^ ('10*' match: Smalltalk osVersion) ifTrue: [UTF8TextConverter] ifFalse: [MacRomanTextConverter]]. platformName = 'unix' ifTrue: [^ UTF8TextConverter]. ^ MacRomanTextConverter! Item was changed: ----- Method: Latin2Environment class>>defaultEncodingName (in category 'subclass responsibilities') ----- defaultEncodingName + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. - osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^'utf-8' copy]. (#('Win32') includes: platformName) + ifTrue: [^'cp-1250']. + (#('unix') includes: platformName) ifTrue: [^'iso8859-2']. - ifTrue: [^'cp-1250' copy]. - (#('unix') includes: platformName) ifTrue: [^'iso8859-2' copy]. ^'mac-roman'! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) - ifTrue: [^NoConversionClipboardInterpreter]. platformName = 'Win32' ifTrue: [^WinGB2312ClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [('10*' match: osVersion) ifTrue: [^NoConversionClipboardInterpreter] ifFalse: [^WinGB2312ClipboardInterpreter]]. platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [^MacShiftJISClipboardInterpreter] ifFalse: [^NoConversionClipboardInterpreter]]. ^NoConversionClipboardInterpreter! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>defaultEncodingName (in category 'public query') ----- defaultEncodingName | platformName osVersion | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^'utf-8' copy]. (#('Win32' 'Mac OS' 'ZaurusOS') includes: platformName) + ifTrue: [^'gb2312']. + (#('unix') includes: platformName) ifTrue: [^'euc-cn']. - ifTrue: [^'gb2312' copy]. - (#('unix') includes: platformName) ifTrue: [^'euc-cn' copy]. ^'mac-roman'! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName osVersion encoding | platformName := Smalltalk platformName. osVersion := Smalltalk osVersion. - (platformName = 'Win32' and: [osVersion = 'CE']) - ifTrue: [^MacRomanInputInterpreter]. platformName = 'Win32' ifTrue: [^WinGB2312InputInterpreter]. platformName = 'Mac OS' ifTrue: [('10*' match: osVersion) ifTrue: [^MacUnicodeInputInterpreter] ifFalse: [^WinGB2312InputInterpreter]]. platformName = 'unix' ifTrue: [encoding := X11Encoding encoding. (EUCJPTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (UTF8TextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (ShiftJISTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]]. ^MacRomanInputInterpreter! Item was changed: ----- Method: UTF32InputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf + "Fall back to internal char-code if char is 0" - "Fall back on MacRoman if char is 0" ^(evtBuf at: 6) > 0 ifTrue: [(evtBuf at: 6) asCharacter] + ifFalse: + [#fixme. + "The windows VM does not require macToSqueak for the fallback char-code + since https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/403 + But unix VM still uses sqTextEncoding which still defaults to MacRoman... + We should fix the Unix VM too, or create two different KeyboardInterpreter. + Hardcoding macToSqueak is a bad idea anyway, because Unix behavior is a + parameter that can be changed thru either --encoding VM option + or SQUEAK_ENCODING environment variable" + (evtBuf at: 3) asCharacter macToSqueak]. - ifFalse: [(evtBuf at: 3) asCharacter macToSqueak]. ! Item was changed: UTF32InputInterpreter subclass: #UTF32RussianInputInterpreter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'Multilingual-TextConversion'! - category: 'Multilingual-Languages'!

1 0

The Trunk: EToys-nice.373.mcz
by commits＠source.squeak.org 26 Dec '19

26 Dec '19

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.373.mcz ==================== Summary ==================== Name: EToys-nice.373 Author: nice Time: 26 December 2019, 10:34:10.151074 am UUID: 06405fa3-767a-4731-a975-8d36f56d6039 Ancestors: EToys-nice.372, EToys-mt.372 Merge EToys-nice.372, EToys-mt.372 =============== Diff against EToys-nice.372 =============== Item was changed: + ----- Method: ChessPlayerAI>>statusString (in category 'accessing') ----- - ----- Method: ChessPlayerAI>>statusString (in category 'nil') ----- statusString | av count | ^String streamContents:[:s| (myMove == #none or:[myMove == nil]) ifFalse:[ s print: myMove value * 0.01; space. ]. av := bestVariation. count := av at: 1. count > 0 ifFalse:[ av := activeVariation. count := av at: 1]. count > 0 ifFalse:[ s nextPutAll:'***'. av := variations at: 1. count := av at: 1. count > 3 ifTrue:[count := 3]]. 2 to: count + 1 do:[:index| s nextPutAll: (ChessMove decodeFrom: (av at: index)) moveString. s space]. s nextPut:$[. s print: nodesVisited. " s nextPut:$|. s print: ttHits. s nextPut: $|. s print: alphaBetaCuts. " s nextPut:$]. ].! Item was changed: + ----- Method: InteriorSolidSugarSuppliesTab>>addCustomMenuItems:hand: (in category 'menu') ----- - ----- Method: InteriorSolidSugarSuppliesTab>>addCustomMenuItems:hand: (in category 'nil') ----- addCustomMenuItems: aMenu hand: aHand "Overridden in order to thwart super." ! Item was changed: + ----- Method: SugarNavigatorBar class>>themeProperties (in category 'preferences') ----- - ----- Method: SugarNavigatorBar class>>themeProperties (in category 'nil') ----- themeProperties ^ {}! Item was changed: + ----- Method: SugarNavigatorBar>>canApplyUserInterfaceTheme (in category 'visual properties') ----- - ----- Method: SugarNavigatorBar>>canApplyUserInterfaceTheme (in category 'nil') ----- canApplyUserInterfaceTheme ^ true! Item was changed: + ----- Method: TextInput>>reset (in category 'input handling') ----- - ----- Method: TextInput>>reset (in category 'nil') ----- reset textMorph setText: defaultValue! Item was changed: + ----- Method: WatchMorph>>createLabels (in category 'updating') ----- - ----- Method: WatchMorph>>createLabels (in category 'nil') ----- createLabels | numeral font h r | self removeAllMorphs. font := StrikeFont familyName: fontName size: (h := self height min: self width)//8. r := 1.0 - (1.4 * font height / h). 1 to: 12 do: [:hour | numeral := romanNumerals ifTrue: [#('I' 'II' 'III' 'IV' 'V' 'VI' 'VII' ' VIII' 'IX' 'X' 'XI' 'XII') at: hour] ifFalse: [hour asString]. self addMorphBack: ((StringMorph contents: numeral font: font emphasis: 1) center: (self radius: r hourAngle: hour)) lock]. !

1 0

The Trunk: Multilingual-nice.250.mcz
by commits＠source.squeak.org 26 Dec '19

26 Dec '19

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.250.mcz ==================== Summary ==================== Name: Multilingual-nice.250 Author: nice Time: 11 December 2019, 9:45:47.879387 pm UUID: ebe6fac0-efa6-449b-8e4c-7eb3fd167b47 Ancestors: Multilingual-mt.249 Nuke keyValueIndex (my pleasure) The intention was for accessing either event buffer at 3 (macRoman) or 6 (UTF32/UCS4) Currently the choice is between 6 or 6 (it could have been dependent on VM version in 2007, but it's not and never was in Cog/Spur) Anyway, the code was testing for presence of #SugarLaunche instead of #SugarLauncher, so it would not have worked as intended (if ever we can distinguish 6 from 6). =============== Diff against Multilingual-mt.249 =============== Item was changed: KeyboardInputInterpreter subclass: #MacUnicodeInputInterpreter + instanceVariableNames: '' - instanceVariableNames: 'keyValueIndex' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! 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]. "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue! Item was changed: KeyboardInputInterpreter subclass: #UnixUnicodeInputInterpreter + instanceVariableNames: '' - instanceVariableNames: 'keyValueIndex' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! Item was removed: - ----- Method: UnixUnicodeInputInterpreter>>initialize (in category 'initialization') ----- - initialize - | satisfiesVersion launcherClass | - launcherClass := Smalltalk at: #SugarLaunche ifAbsent: [nil]. - satisfiesVersion := launcherClass notNil and: [launcherClass current isRunningInSugar]. - satisfiesVersion - ifTrue: [keyValueIndex := 6] - ifFalse: [keyValueIndex := 6 "it might have to be 3, but probably different logic to check the VM version would be better."]! Item was removed: - ----- Method: UnixUnicodeInputInterpreter>>keyValueIndex (in category 'accessing') ----- - keyValueIndex - ^ keyValueIndex! Item was changed: ----- Method: UnixUnicodeInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | + keyValue := evtBuf at: 6. - keyValue := evtBuf at: self keyValueIndex. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. keyValue < 256 ifTrue: [^ Character value: keyValue]. "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2019