Squeak-dev May 2015

squeak-dev@lists.squeakfoundation.org

50 participants
615 discussions

The Trunk: Collections-eem.636.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.636.mcz ==================== Summary ==================== Name: Collections-eem.636 Author: eem Time: 29 May 2015, 4:03:27.101 pm UUID: 0ccecc27-ca23-41aa-be79-584dbc53e4d0 Ancestors: Collections-mt.635 findLast:startingAt: dual for findFirst:startingAt: =============== Diff against Collections-mt.635 =============== Item was added: + ----- Method: SequenceableCollection>>findLast:startingAt: (in category 'enumerating') ----- + findLast: aBlock startingAt: i + "Return the index of my last element with index >= i for which aBlock evaluates as true." + + | index | + index := self size + 1. + [(index := index - 1) >= i] whileTrue: + [(aBlock value: (self at: index)) ifTrue: [^index]]. + ^ 0!

1 0

The Trunk: ReleaseBuilder-cmm.123.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-cmm.123.mcz ==================== Summary ==================== Name: ReleaseBuilder-cmm.123 Author: cmm Time: 29 May 2015, 5:44:29.7 pm UUID: 7b74b571-a20e-42f7-b387-b31a7aed87e1 Ancestors: ReleaseBuilder-topa.122 - #clearPasswords was renamed to #clearCredentials. - Updated ReleaseBuilder class>>#versionString. =============== Diff against ReleaseBuilder-topa.122 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- prepareNewBuild: anMCRepository "ReleaseBuilderTrunk prepareNewBuild" "Prepare everything that should be done for a new image build" MCMcmUpdater updateMissingPackages: true. MCMcmUpdater enableUpdatesForAllPackages. TTCFont registerAll. RealEstateAgent standardSize: 600 @ 400. SystemVersion newVersion: self versionString. SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." self setDisplayExtent: 800 @ 600 ; switchToNewRepository: anMCRepository ; setPreferences ; "<-- remove this after defaultValueTableForCurrentRelease is fixed up." checkForDirtyPackages ; configureDesktop. Smalltalk cleanUp: true. "Let's be explicit about clearing passwords for the publicly-consumed build." "clearPasswords is not very thorough, it should be improved." + MCHttpRepository clearCredentials. - MCHttpRepository clearPasswordsAndUsers. Utilities setAuthorInitials: String empty. Environment allInstancesDo: [ : env | env purgeUndeclared ]. Undeclared removeUnreferencedKeys. Smalltalk garbageCollect. [ self loadWellKnownPackages "<-- 4.5 is not ready for unloaded / reloaded packages" ]. Compiler recompileAll! Item was changed: ----- Method: ReleaseBuilder class>>prepareNextVersionAlpha (in category 'scripts') ----- prepareNextVersionAlpha "Prepare the first alpha image for next release." SystemVersion newVersion: ((UIManager default request: 'Please specify the name of the\new version of Squeak.' withCRs initialAnswer: SystemVersion current version) ifEmpty: [^ self inform: 'Aborted.']). MCFileBasedRepository flushAllCaches. + MCHttpRepository clearCredentials. - MCHttpRepository clearPasswords. Utilities setAuthorInitials: String empty. self switchToNewRepository: self buildRepository. Smalltalk condenseSources! Item was changed: ----- Method: ReleaseBuilder class>>versionString (in category 'private') ----- versionString + ^ 'Squeak4.6'! - ^ 'Squeak4.5'.!

1 0

The Trunk: Compiler-eem.300.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.300.mcz ==================== Summary ==================== Name: Compiler-eem.300 Author: eem Time: 29 May 2015, 3:31:40.184 pm UUID: 538f90f4-71d3-4f00-ac34-348700471a82 Ancestors: Compiler-eem.299 Use the size/emitPushNClosureTemps: api in block generation. =============== Diff against Compiler-eem.299 =============== Item was changed: ----- Method: BlockNode>>emitCodeForEvaluatedClosureValue:encoder: (in category 'code generation (closures)') ----- emitCodeForEvaluatedClosureValue: stack encoder: encoder | position | position := stack position. stack position: arguments size + copiedValues size. + encoder genPushNClosureTemps: temporaries size. - temporaries size timesRepeat: - [NodeNil emitCodeForValue: stack encoder: encoder]. self reindexingLocalsDo: [self emitCodeForEvaluatedValue: stack encoder: encoder] encoder: encoder. self returns ifFalse: [encoder genReturnTopToCaller. pc := encoder methodStreamPosition]. stack position: position! Item was changed: ----- Method: BlockNode>>sizeCodeForEvaluatedClosureValue: (in category 'code generation (closures)') ----- sizeCodeForEvaluatedClosureValue: encoder "The closure value primitives push the arguments and the copied values. The compiler guarantees that any copied values come before all local temps. So on closure activation we only need to push nils for the remaining temporaries." + ^(encoder sizePushNClosureTemps: temporaries size) - ^temporaries size * (NodeNil sizeCodeForValue: encoder) + (self reindexingLocalsDo: [self sizeCodeForEvaluatedValue: encoder] encoder: nil "don't store temps yet") + (self returns ifTrue: [0] ifFalse: [encoder sizeReturnTopToCaller])!

1 0

The Trunk: Compiler-eem.299.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.299.mcz ==================== Summary ==================== Name: Compiler-eem.299 Author: eem Time: 29 May 2015, 3:25:41.119 pm UUID: 04451481-d898-4b03-bc51-9e28546cfb82 Ancestors: Compiler-eem.298 Provide support for a specialized pushNClosureTemps: bytecode, as included in the Sista bytecode set. =============== Diff against Compiler-eem.298 =============== Item was added: + ----- Method: BytecodeEncoder>>sizePushNClosureTemps: (in category 'opcode sizing') ----- + sizePushNClosureTemps: numTemps + ^self sizeOpcodeSelector: #genPushNClosureTemps: withArguments: {numTemps}! Item was added: + ----- Method: EncoderForV3PlusClosures>>genPushNClosureTemps: (in category 'bytecode generation') ----- + genPushNClosureTemps: numTemps + numTemps timesRepeat: [self genPushSpecialLiteral: nil]!

1 0

Daily Commit Log
by commits＠source.squeak.org 29 May '15

29 May '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-May/008708.html Name: System-cmm.738 Ancestors: System-ul.737 Fix #run: leaving headless image stuck because there was a MNU or Halt. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008709.html Name: Compiler-eem.298 Ancestors: Compiler-cmm.297 Provide multiple-bytecode-sets aware support for markerOrNil ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008710.html Name: Kernel-eem.926 Ancestors: Kernel-cmm.925 Make markerOrNil multiple-bytecode-sets aware ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008711.html Name: Morphic-cmm.986 Ancestors: Morphic-cmm.984, Morphic-mt.985 - Merged cmm.984. - Auto Enclose fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008712.html Name: Morphic-cmm.984 Ancestors: Morphic-mt.983 Fix the ability to let Morph users set up their own EventHandler to have proper filtering of MouseMoveEvents. =============================================

1 0

The Trunk: Morphic-cmm.984.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.984.mcz ==================== Summary ==================== Name: Morphic-cmm.984 Author: cmm Time: 19 May 2015, 2:56:17.688 pm UUID: e1b37491-efb5-4415-bf9f-6f44b577daa0 Ancestors: Morphic-mt.983 Fix the ability to let Morph users set up their own EventHandler to have proper filtering of MouseMoveEvents. =============== Diff against Morphic-mt.983 =============== Item was changed: ----- Method: Morph>>handlesMouseMove: (in category 'event handling') ----- handlesMouseMove: anEvent "Do I want to receive mouseMove: when the hand passes over the receiver? Rules say that by default a morph gets #mouseMove iff * the hand is not dragging anything, + and some button is down, + and the receiver is the current mouse focus." + self eventHandler ifNotNil: [^ self eventHandler handlesMouseMove: anEvent]. anEvent hand hasSubmorphs ifTrue: [ ^ false ]. (anEvent anyButtonPressed and: [ anEvent hand mouseFocus == self ]) ifFalse: [ ^ false ]. ^ true!

1 0

The Trunk: Morphic-cmm.986.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.986.mcz ==================== Summary ==================== Name: Morphic-cmm.986 Author: cmm Time: 29 May 2015, 4:07:48.693 pm UUID: a448eb5a-ab1f-4acc-9c76-ebdaac144d58 Ancestors: Morphic-cmm.984, Morphic-mt.985 - Merged cmm.984. - Auto Enclose fixes. =============== Diff against Morphic-mt.985 =============== Item was changed: ----- Method: Morph>>handlesMouseMove: (in category 'event handling') ----- handlesMouseMove: anEvent "Do I want to receive mouseMove: when the hand passes over the receiver? Rules say that by default a morph gets #mouseMove iff * the hand is not dragging anything, + and some button is down, + and the receiver is the current mouse focus." + self eventHandler ifNotNil: [^ self eventHandler handlesMouseMove: anEvent]. anEvent hand hasSubmorphs ifTrue: [ ^ false ]. (anEvent anyButtonPressed and: [ anEvent hand mouseFocus == self ]) ifFalse: [ ^ false ]. ^ true! Item was added: + ----- Method: TextEditor>>autoEncloseFor: (in category 'typing support') ----- + autoEncloseFor: typedChar + "Answer whether typeChar was handled by auto-enclosure. Caller should call normalCharacter if not." + | openers closers | + openers := '([{'. + closers := ')]}'. + (closers includes: typedChar) + ifTrue: + [ | pos | + self blinkPrevParen: typedChar. + ((pos := self indexOfNextNonwhitespaceCharacter) notNil and: [ (paragraph string at: pos) = typedChar ]) + ifTrue: + [ (paragraph string at: pos) = typedChar ifTrue: + [ self + moveCursor: [ : position | position + pos - pointBlock stringIndex + 1 ] + forward: true + select: false ]. + ^ true ] + ifFalse: [ ^ false ] ]. + (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: + [ self + addString: (closers at: (openers indexOf: typedChar)) asString ; + insertTypeAhead ; + + moveCursor: [ : position | position - 1 ] + forward: false + select: false. + ^ false ]. + ^ false! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." + | honorCommandKeys typedChar | - | honorCommandKeys openers closers result typedChar | ((typedChar := aKeyboardEvent keyCharacter) == Character cr and: [ morph acceptOnCR ]) ifTrue: [ self closeTypeIn. ^ true ]. self clearParens. aKeyboardEvent keyValue = 13 ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. aKeyboardEvent commandKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. ^ self crWithIndent: aKeyboardEvent ]. ((honorCommandKeys := Preferences cmdKeysInText) and: [ typedChar = Character enter ]) ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) ifTrue: [ ^ aKeyboardEvent controlKeyPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. + self class autoEnclose + ifTrue: [ (self autoEncloseFor: typedChar) ifFalse: [ self normalCharacter: aKeyboardEvent ] ] + ifFalse: [ self normalCharacter: aKeyboardEvent ]. + ^ false! - openers := '([{'. - closers := ')]}'. - (closers includes: typedChar) - ifTrue: - [ self blinkPrevParen: typedChar. - self nextNonwhitespaceCharacter = typedChar - ifTrue: - [ self moveCursor: [ : position | position + 1 ] forward: true select: false. - ^ false ] - ifFalse: [ result := self normalCharacter: aKeyboardEvent ] ] - ifFalse: [ result := self normalCharacter: aKeyboardEvent ]. - (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: - [ self - addString: (closers at: (openers indexOf: typedChar)) asString ; - insertTypeAhead ; - - moveCursor: - [ : position | position - 1 ] - forward: false - select: false ]. - ^ result! Item was added: + ----- Method: TextEditor>>indexOfNextNonwhitespaceCharacter (in category 'private') ----- + indexOfNextNonwhitespaceCharacter + pointBlock stringIndex + to: paragraph string size + do: + [ : n | | char | (char := paragraph string at: n) isSeparator ifFalse: [ ^ n ] ]. + ^ nil! Item was removed: - ----- Method: TextEditor>>nextNonwhitespaceCharacter (in category 'private') ----- - nextNonwhitespaceCharacter - pointBlock stringIndex - to: paragraph string size - do: - [ : n | | char | (char := paragraph string at: n) isSeparator ifFalse: [ ^ char ] ]. - ^ nil!

1 0

The Trunk: Kernel-eem.926.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.926.mcz ==================== Summary ==================== Name: Kernel-eem.926 Author: eem Time: 29 May 2015, 12:02:32.361 pm UUID: b5d090c6-115c-427d-92ca-0e02afa2908d Ancestors: Kernel-cmm.925 Make markerOrNil multiple-bytecode-sets aware =============== Diff against Kernel-cmm.925 =============== Item was changed: ----- Method: CompiledMethod>>markerOrNil (in category 'private') ----- markerOrNil "If I am a marker method, answer the symbol used to mark me. Otherwise + answer nil. What is a marker method? It is method with body like - answer nil. - - What is a marker method? It is method with body like 'self subclassResponsibility' or '^ self subclassResponsibility' + used to indicate ('mark') a special property." - used to indicate ('mark') a special property. + ^self encoderClass markerOrNilFor: self! - Marker methods compile to bytecode like: - - 9 <70> self - 10 <D0> send: <literal 1> - 11 <87> pop - 12 <78> returnSelf - - for the first form, or - - 9 <70> self - 10 <D0> send: <literal 1> - 11 <7C> returnTop - - for the second form." - - | e | - ((e := self endPC) = 19 or: [e = 20]) ifFalse: [^ nil]. - (self numLiterals = 3) ifFalse:[^ nil]. - (self at: 17) = 16r70 ifFalse:[^ nil]. "push self" - (self at: 18) = 16rD0 ifFalse:[^ nil]. "send <literal 1>" - "If we reach this point, we have a marker method that sends self <literal 1>" - ^ self literalAt: 1 - ! Item was added: + ----- Method: InstructionPrinter>>callPrimitive: (in category 'instruction decoding') ----- + callPrimitive: index + "Print the callPrimitive bytecode." + + self print: 'callPrimitive: ' , index printString!

1 0

The Trunk: Compiler-eem.298.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.298.mcz ==================== Summary ==================== Name: Compiler-eem.298 Author: eem Time: 29 May 2015, 11:59:13.77 am UUID: b06cc000-4a40-45cd-a0b2-a2d1c0309e39 Ancestors: Compiler-cmm.297 Provide multiple-bytecode-sets aware support for markerOrNil =============== Diff against Compiler-cmm.297 =============== Item was added: + ----- Method: BytecodeEncoder class>>markerOrNilFor: (in category 'compiled method support') ----- + markerOrNilFor: aMethod + "If aMethod is a marker method, answer the symbol used to mark it. Otherwise + answer nil. What is a marker method? It is method with body like + 'self subclassResponsibility' or '^ self subclassResponsibility' + used to indicate ('mark') a special property. + + Marker methods compile to two bytecode forms, this: + self + send: <literal 1> + pop + returnSelf + or this: + self + send: <literal 1> + returnTop" + ^self subclassResponsibility! Item was added: + ----- Method: EncoderForV3 class>>markerOrNilFor: (in category 'compiled method support') ----- + markerOrNilFor: aMethod + "If aMethod is a marker method, answer the symbol used to mark it. Otherwise + answer nil. What is a marker method? It is method with body like + 'self subclassResponsibility' or '^ self subclassResponsibility' + used to indicate ('mark') a special property. + + Marker methods compile to two bytecode forms, this: + self + send: <literal 1> + pop + returnSelf + or this: + self + send: <literal 1> + returnTop" + | e | + ^(((e := aMethod endPC) = 19 or: [e = 20]) + and: [aMethod numLiterals = 3 + and: [(aMethod at: 17) = 16r70 "push self" + and: [(aMethod at: 18) = 16rD0]]]) "send <literal 1>" + ifTrue: [aMethod literalAt: 1]!

1 0

Re: The Trunk: Morphic-cmm.977.mcz
by marcel.taeumel 29 May '15

29 May '15

Can you elaborate on that "typing blind" use case? My eyes are always opened when I type. ;-) I just don't look at the keyboard but the screen while typing. Not sure what you mean here. Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-Morphic-cmm-977-mcz-tp4825591p4825620.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

5 9

← Newer
1
2
3
4
5
6
7
8
...
62
Older →

Jump to page: