Squeak-dev December 2019

squeak-dev@lists.squeakfoundation.org

32 participants
257 discussions

The Inbox: EToys-nice.372.mcz
by commits＠source.squeak.org 09 Dec '19

09 Dec '19

Nicolas Cellier uploaded a new version of EToys to project The Inbox: http://source.squeak.org/inbox/EToys-nice.372.mcz ==================== Summary ==================== Name: EToys-nice.372 Author: nice Time: 9 December 2019, 6:20:54.94058 pm UUID: 2cffef5b-8de9-434d-967e-a2e1488cb189 Ancestors: EToys-mt.371 Nuke Windows CE OS support at image side. We do not support such legacy OS on OpenSmalltalk VM side. =============== Diff against EToys-mt.371 =============== Item was changed: ----- Method: M17nEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName | platformName := SmalltalkImage current platformName. - platformName = 'Win32' - ifTrue: [ 'CE' = (SmalltalkImage current getSystemAttribute: 1002) - ifTrue: [^ MacRomanInputInterpreter]]. platformName = 'MacOS' ifTrue: [^MacRomanInputInterpreter]. ^M17nInputInterpreter.! Item was changed: ----- Method: NepaleseEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass + | platformName | - | platformName osVersion | platformName := SmalltalkImage current platformName. - osVersion := SmalltalkImage current getSystemAttribute: 1002. - (platformName = 'Win32' - and: [osVersion = 'CE']) - ifTrue: [^ MacRomanInputInterpreter]. platformName = 'Win32' ifTrue: [^ UTF32NPInputInterpreter]. platformName = 'Mac OS' ifTrue: [^ MacUnicodeInputInterpreter]. platformName = 'unix' ifTrue: [^ UTF32NPInputInterpreter]. ^ MacRomanInputInterpreter!

1 0

The Inbox: Multilingual-nice.249.mcz
by commits＠source.squeak.org 09 Dec '19

09 Dec '19

Nicolas Cellier uploaded a new version of Multilingual to project The Inbox: http://source.squeak.org/inbox/Multilingual-nice.249.mcz ==================== Summary ==================== Name: Multilingual-nice.249 Author: nice Time: 9 December 2019, 6:17:46.99458 pm UUID: 1a02af2f-d014-2a4e-9023-ef0cec93897b Ancestors: Multilingual-nice.248 1) Nuke code specific to windows CE OS. We do not support such legacy OS in Opensmalltalk VM. Multilingual is complex enough without this useless drag. 2) Fix LanguageEnvironment comment which was a mixture of iso8859L1 (ByteString) and UTF32 (WideString) re-interpreted as ByteString. Note: that might have happened before UTF8 fixes to Monticello (the stream did start as ByteString, but did continue as WideString at first non-byte code... The encoding change did only happen at buffer boundary leading to such strange side-effects). Fortunately (sic!) most Multilingual classes are un-commented. 3) Nuke useless copy of 'encoding' literal 4) Comment possibly incorrect usage of (evtBuf at: 3) in UTF32InputInterpreter. This is the charCode field of squeak event, which is not anymore macRoman encoded on recent windows VM. More work is required at VM side for Unix before we can fully clean-up... 5) classify UTF32RussianInputInterpreter in same category than siblings =============== Diff against Multilingual-nice.248 =============== 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 Inbox: Morphic-ct.1605.mcz
by commits＠source.squeak.org 09 Dec '19

09 Dec '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1605.mcz ==================== Summary ==================== Name: Morphic-ct.1605 Author: ct Time: 7 December 2019, 4:21:04.854219 pm UUID: 3c7d5454-0b60-2a47-91fd-51d333eeeb3b Ancestors: Morphic-mt.1604 Delete dialog windows if curtailed This can happen when the user debugs its invocation and then abandons the debugger, but also in the following example: [self inform: 'Carpe Squeak!'] valueWithin: 2 seconds onTimeout: [] Imho, it would be a bad idea to keep such a dialog window open if nothing will happen after you react on it. =============== Diff against Morphic-mt.1604 =============== Item was changed: ----- Method: DialogWindow>>debugInvocation (in category 'running') ----- debugInvocation + Processor activeProcess - [Processor activeProcess debug: self findInvocationContext + title: 'Dialog invocation'! - title: 'Dialog invocation'] - ifCurtailed: [self closeDialog].! Item was changed: ----- Method: DialogWindow>>getUserResponse (in category 'running') ----- getUserResponse | hand world | self message ifEmpty: [messageMorph delete]. "Do not waste space." self paneMorph submorphs ifEmpty: ["Do not waste space and avoid strange button-row wraps." self paneMorph delete. self buttonRowMorph wrapDirection: #none]. hand := self currentHand. world := self currentWorld. self fullBounds. self moveToPreferredPosition. self openInWorld: world. hand showTemporaryCursor: nil. "Since we are out of context, reset the cursor." hand keyboardFocus in: [:priorKeyboardFocus | hand mouseFocus in: [:priorMouseFocus | self exclusive ifTrue: [hand newMouseFocus: self]. hand newKeyboardFocus: self. + [[self isInWorld] whileTrue: [world doOneSubCycle]] + ifCurtailed: [self abandon]. - [self isInWorld] whileTrue:[world doOneSubCycle]. hand newKeyboardFocus: priorKeyboardFocus. hand newMouseFocus: priorMouseFocus]]. ^ result!

3 5

The Inbox: Morphic-ct.1606.mcz
by commits＠source.squeak.org 09 Dec '19

09 Dec '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1606.mcz ==================== Summary ==================== Name: Morphic-ct.1606 Author: ct Time: 7 December 2019, 4:53:17.106431 pm UUID: 83ec1d59-dfa2-ca40-806d-809e76232100 Ancestors: Morphic-mt.1604 Restore original selection interval after any kind of do-it. This is important if you print-it the following and skip the compiler hint: | x | x. 2 Before this commit, the answer was displayed just after x, not at the end of the snippet. =============== Diff against Morphic-mt.1604 =============== Item was changed: ----- Method: TextEditor>>evaluateSelectionAndDo: (in category 'do-its') ----- evaluateSelectionAndDo: aBlock "Treat the current selection as an expression; evaluate it and invoke aBlock with the result." + | selectionInterval result rcvr ctxt | - | result rcvr ctxt | self lineSelectAndEmptyCheck: [^ nil]. + selectionInterval := self selectionInterval. (model respondsTo: #evaluateExpression:) ifTrue: [ ^ aBlock value: (model perform: #evaluateExpression: with: self selection)]. (model respondsTo: #doItReceiver) ifTrue: [ rcvr := model doItReceiver. ctxt := model doItContext] ifFalse: [rcvr := ctxt := nil]. result := [ rcvr class evaluatorClass new evaluate: self selectionAsStream in: ctxt to: rcvr environment: (model environment ifNil: [Smalltalk globals]) notifying: self ifFail: [morph flash. ^ nil] logged: true. ] on: OutOfScopeNotification do: [ :ex | ex resume: true]. + self selectInterval: selectionInterval. + - (model respondsTo: #expressionEvaluated:result:) ifTrue: [ model perform: #expressionEvaluated:result: with: self selection with: result]. ^aBlock value: result!

4 8

The Trunk: ShoutCore-mt.76.mcz
by commits＠source.squeak.org 09 Dec '19

09 Dec '19

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.76.mcz ==================== Summary ==================== Name: ShoutCore-mt.76 Author: mt Time: 21 November 2019, 3:51:18.231156 pm UUID: c0aa1566-69f3-1845-8993-0f5f67fcdb96 Ancestors: ShoutCore-eem.75 Fixes a bug with syntax highlighting for dead context's in the debugger. =============== Diff against ShoutCore-eem.75 =============== Item was changed: ----- Method: SHParserST80>>initializeInstanceVariables (in category 'parse support') ----- initializeInstanceVariables instanceVariables := classOrMetaClass ifNil: [ #() ] ifNotNil: [ classOrMetaClass allInstVarNames asArray ]. allowUnderscoreAssignments := Scanner allowUnderscoreAsAssignment. allowUnderscoreSelectors := Scanner prefAllowUnderscoreSelectors. allowBlockArgumentAssignment := Scanner allowBlockArgumentAssignment. sourcePosition := 1. arguments ifNil: [ arguments := OrderedCollection with: nil ] ifNotNil: [ arguments reset; addLast: nil ]. temporaries ifNil: [ temporaries := OrderedCollection with: nil ] ifNotNil: [ temporaries reset; addLast: nil ]. + (context notNil and: [ context isDead not ]) + ifTrue: [ self initializeVariablesFromContext ]. - context ifNotNil: [ self initializeVariablesFromContext ]. bracketDepth := 0. ranges ifNil: [ ranges := OrderedCollection new: 40 "Covers over 80% of all methods." ] ifNotNil: [ ranges reset ]! Item was changed: ----- Method: SHParserST80>>initializeVariablesFromContext (in category 'parse support') ----- initializeVariablesFromContext | contextSourcePcIndex contextSourceParser | contextSourcePcIndex := (context debuggerMap rangeForPC: context pc in: context method + contextIsActiveContext: true "... to really use the context's pc.") - contextIsActiveContext: true "little white lie to work in every situation") start. contextSourceParser := self class new classOrMetaClass: context method methodClass; environment: self environment; source: (context method getSource first: contextSourcePcIndex); yourself. contextSourceParser parse. arguments := contextSourceParser activeArguments. temporaries := contextSourceParser activeTemporaries.!

3 5

The Trunk: ReleaseBuilder-mt.203.mcz
by commits＠source.squeak.org 09 Dec '19

09 Dec '19

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.203.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.203 Author: mt Time: 9 December 2019, 10:30:40.800701 am UUID: b724e384-eaad-8d40-86ef-a503b8b229d8 Ancestors: ReleaseBuilder-mt.202 Feature freeze! Changes system version to 5.3beta. CI builds should now go to: http://files.squeak.org/5.3beta/ =============== Diff against ReleaseBuilder-mt.202 =============== Item was changed: ----- Method: ReleaseBuilder class>>initialize (in category 'class initialization') ----- initialize QAndA ifNil: [self clearQAndA]. "We have to be after AutoStart so that Morphic is up and running." Smalltalk addToStartUpList: ReleaseBuilder after: AutoStart. + SystemVersion newVersion: 'Squeak5.3beta'! - SystemVersion newVersion: 'Squeak5.3alpha'!

1 0

The Trunk: Kernel-mt.1283.mcz
by commits＠source.squeak.org 08 Dec '19

08 Dec '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1283.mcz ==================== Summary ==================== Name: Kernel-mt.1283 Author: mt Time: 27 November 2019, 10:25:51.203363 am UUID: 04694a24-76a1-a941-b664-645ffc7f27e6 Ancestors: Kernel-nice.1282 Removes Kernel -> Regex dependency. =============== Diff against Kernel-nice.1282 =============== Item was changed: ----- Method: BlockClosure>>valueSupplyingAnswers: (in category 'evaluating') ----- valueSupplyingAnswers: aListOfPairs "evaluate the block using a list of questions / answers that might be called upon to automatically respond to Object>>confirm: or FillInTheBlank requests" ^self on: ProvideAnswerNotification do: [ :notification | | caption | caption := notification messageText withSeparatorsCompacted. "to remove new lines" aListOfPairs detect: [ :each | caption = each first or: [ (caption includesSubstring: each first caseSensitive: false) or: [ (each first match: caption) or: [ (caption respondsTo: #matchesRegex:) + and: [ [caption matchesRegex: each first] on: Error do: [false] ] ] ] ] ] - and: [ [caption matchesRegex: each first] on: RegexSyntaxError do: [false] ] ] ] ] ] ifFound: [ :answer | notification resume: answer second ] ifNone: [ (ProvideAnswerNotification signal: notification messageText) ifNil: [ notification resume ] ifNotNil: [ :outerAnswer | notification resume: outerAnswer ] ] ]!

3 3

The Inbox: Tools-ct.923.mcz
by commits＠source.squeak.org 08 Dec '19

08 Dec '19

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.923.mcz ==================== Summary ==================== Name: Tools-ct.923 Author: ct Time: 7 December 2019, 4:42:14.945219 pm UUID: 011debad-5545-ed47-b9b8-6118d0c2c79d Ancestors: Tools-mt.922 Display deprecated classes gray and struck-out as selectors are. =============== Diff against Tools-mt.922 =============== Item was changed: ----- Method: Browser>>classList (in category 'class list') ----- classList + ^ (self class listClassesHierarchically - ^ self class listClassesHierarchically ifTrue: [self hierarchicalClassList] + ifFalse: [self defaultClassList]) + collect: [:each | self formattedClassLabel: each]! - ifFalse: [self defaultClassList].! Item was changed: ----- Method: ClassCommentVersionsBrowser class>>browseCommentOf: (in category 'instance creation') ----- browseCommentOf: class Cursor read showWhile: [| changeList | changeList := self new scanVersionsOf: class. + changeList ifNil: [^ self inform: 'No versions available']. + self open: changeList name: 'Recent versions of ',class name,'''s comments' multiSelect: false ] - changeList ifNil: [^ self inform: 'No versions available']. - self open: changeList name: 'Recent versions of ',class name,'''s comments' multiSelect: false ] ! Item was added: + ----- Method: CodeHolder>>formattedClassLabel: (in category 'message list') ----- + formattedClassLabel: aString + + ^ self + formattedClassLabel: aString + inClass: (self environment at: aString withBlanksTrimmed asSymbol)! Item was added: + ----- Method: CodeHolder>>formattedClassLabel:inClass: (in category 'message list') ----- + formattedClassLabel: aString inClass: aClass + + ^ aClass isDeprecated + ifFalse: [aString] + ifTrue: [self formattedDeprecatedLabel: aString]! Item was added: + ----- Method: CodeHolder>>formattedDeprecatedLabel: (in category 'message list') ----- + formattedDeprecatedLabel: aString + + ^ aString asText + addAllAttributes: (self userInterfaceTheme deprecatedMessageAttributes + ifNil: [{TextColor gray. TextEmphasis struckOut}]); + yourself! Item was changed: ----- Method: CodeHolder>>formattedLabel:forSelector:inClass: (in category 'message list') ----- formattedLabel: aString forSelector: aSymbol inClass: aClass "Show deprecated messages differently so that users recognize them quickly to avoid them. This is a performance critical method in the user interface." - | formattedLabel | self flag: #investigate. "mt: aClass must never be nil!! Faulty tools should override this call themselves or fix the caller site." aClass ifNil: [^ aString]. (aSymbol = #Definition or: [aSymbol = #Comment]) ifTrue: [aClass isDeprecated ifFalse: [^ aString]] ifFalse: [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated]) ifFalse: [^ aString]]. + ^ self formattedDeprecatedLabel: aString! - formattedLabel := aString asText. - - (self userInterfaceTheme deprecatedMessageAttributes ifNil: [{TextColor gray. TextEmphasis struckOut}]) do: [:textAttribute | - formattedLabel addAttribute: textAttribute]. - - ^ formattedLabel.!

3 2

Create new trait in Browser
by Jakob Reschke 08 Dec '19

08 Dec '19

Hello, When I want to create a new Trait, I currently search and type the trait template myself. You know, Trait named: #foo uses: ... Should there not be a context menu item that fills the browser code pane with the template? I see there is Browser>>newTrait and Browser>>addSpecialMenu: but the latter has no senders in my Trunk image. Kind regards Jakob

2 3

Adjusting the volume of a sound as it's playing
by Jim Rosenberg 08 Dec '19

08 Dec '19

Apologies in advance if this has been fixed in more recent versions of Squeak; I'm developing at the moment under Squeak 4.3. I have a project in which I'm adding sound to a longstanding body of artistic work implemented in Squeak. I'm going to need several sounds playing at once; typically there will be one or more instances of RepeatingSound and probably just one (or zero) MixedSound. When the MixedSound comes on I want to turn down the volume on the other sounds. How to do this. It has been driving me crazy. I was getting absolutely nothing to work to actually change the volume. There seems to be the right method in AbstractSound -- adjustVolumeTo:overMSecs: -- but in Squeak 4.3 this seems to not be properly overridden in MixedSound or RepeatingSound. I was getting absolutely nothing to work until I stumbled onto changing leftVols and rightVols by brute force at an explorer. This DOES WORK. leftVols and rightVols are instance variables in MixedSound, so it seems to me they should be changed by MixedSound's own implementation of adjustVolumeTo:overMSecs:. RepeatingSound should have its own implementation which just passes on to its sound. Maybe there's a better way to do this, but given that AbstractSound does have the right method, it seems like overriding here is the right thing to do. Comments? -Thanks, Jim

3 6

← Newer
1
...
19
20
21
22
23
24
25
26
Older →

Jump to page: