Packages July 2012

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Kernel-eem.706.mcz
by commits＠source.squeak.org 23 Jul '12

23 Jul '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.706.mcz ==================== Summary ==================== Name: Kernel-eem.706 Author: eem Time: 23 July 2012, 2:03:27.407 pm UUID: 0e281a27-0e2d-42e5-ab2f-11f4cbabe6ca Ancestors: Kernel-dtl.705 Remove redundant code in CompiledMethod>>copyWithTrailerBytes: that worked around an obsolete bug =============== Diff against Kernel-dtl.705 =============== Item was changed: ----- Method: CompiledMethod>>copyWithTrailerBytes: (in category 'copying') ----- copyWithTrailerBytes: trailer "Testing: (CompiledMethod compiledMethodAt: #copyWithTrailerBytes:) tempNamesPut: 'copy end ' " | copy end start penultimateLiteral | start := self initialPC. end := self endPC. copy := trailer createMethod: end - start + 1 class: self class header: self header. 1 to: self numLiterals do: [:i | copy literalAt: i put: (self literalAt: i)]. (penultimateLiteral := self penultimateLiteral) isMethodProperties ifTrue: [copy penultimateLiteral: (penultimateLiteral copy setMethod: copy; + yourself)]. - yourself). - self pragmas do: - [:p| p setMethod: self]]. start to: end do: [:i | copy at: i put: (self at: i)]. ^copy!

1 0

The Trunk: Kernel-eem.706.mcz
by commits＠source.squeak.org 23 Jul '12

23 Jul '12

1 0

The Trunk: Kernel-eem.706.mcz
by commits＠source.squeak.org 23 Jul '12

23 Jul '12

1 0

The Trunk: Monticello-eem.519.mcz
by commits＠source.squeak.org 20 Jul '12

20 Jul '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.519.mcz ==================== Summary ==================== Name: Monticello-eem.519 Author: eem Time: 20 July 2012, 11:32:43.471678 am UUID: 9471e578-e04a-436d-9667-f2251444f036 Ancestors: Monticello-eem.518 Make file-out in the patch browser output class initializations and output class initializations and method removals last. =============== Diff against Monticello-eem.518 =============== Item was changed: ----- Method: MCCodeTool>>fileOutMessage (in category 'menus') ----- fileOutMessage "Put a description of the selected message on a file" | fileName | self selectedMessageName ifNotNil: [Cursor write showWhile: [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]. ^self]. items isEmpty ifTrue: [^self]. fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. Cursor write showWhile: + [| definitionStream removalInitStream | + definitionStream := WriteStream on: (String new: 1000). + removalInitStream := WriteStream on: (String new: 100). + definitionStream header; timeStamp. - [| internalStream | - internalStream := WriteStream on: (String new: 1000). - internalStream header; timeStamp. items do: [:patchOp| | def | def := patchOp definition. def isMethodDefinition ifTrue: [(def actualClass notNil and: [def actualClass includesSelector: def selector]) ifTrue: [def actualClass printMethodChunk: def selector withPreamble: true + on: definitionStream - on: internalStream moveSource: false + toFile: nil. + (def selector == #initialize and: [def classIsMeta]) ifTrue: + [removalInitStream nextChunkPut: def className, ' initialize'; cr]] - toFile: nil] ifFalse: + [removalInitStream nextChunkPut: def className, (def classIsMeta ifTrue: [' class'] ifFalse: ['']), ' removeSelector: ', def selector printString; cr]]. - [internalStream nextChunkPut: def className, (def classIsMeta ifTrue: [' class'] ifFalse: ['']), ' removeSelector: ', def selector printString]]. def isClassDefinition ifTrue: [def actualClass ifNotNil: + [definitionStream nextChunkPut: def actualClass definition. - [internalStream nextChunkPut: def actualClass definition. def comment ifNotNil: [def actualClass organization + putCommentOnFile: definitionStream - putCommentOnFile: internalStream numbered: 1 moveSource: false forClass: def actualClass]] ifNil: + [removalInitStream nextChunkPut: def className, ' removeFromSystem'; cr]]]. + definitionStream nextPutAll: removalInitStream contents. + FileStream writeSourceCodeFrom: definitionStream baseName: fileName isSt: true useHtml: false]! - [internalStream nextChunkPut: def className, ' removeFromSystem']]]. - FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!

1 0

The Trunk: Monticello-eem.519.mcz
by commits＠source.squeak.org 20 Jul '12

20 Jul '12

1 0

The Trunk: Monticello-eem.519.mcz
by commits＠source.squeak.org 20 Jul '12

20 Jul '12

1 0

The Trunk: Monticello-eem.518.mcz
by commits＠source.squeak.org 20 Jul '12

20 Jul '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.518.mcz ==================== Summary ==================== Name: Monticello-eem.518 Author: eem Time: 20 July 2012, 10:54:21.053 am UUID: fbbef718-f8a6-4559-a8ab-72cd467babe0 Ancestors: Monticello-eem.517 Make file-out in the patch browser output class-side method removals correctly. =============== Diff against Monticello-eem.517 =============== Item was changed: ----- Method: MCCodeTool>>fileOutMessage (in category 'menus') ----- fileOutMessage "Put a description of the selected message on a file" | fileName | self selectedMessageName ifNotNil: [Cursor write showWhile: [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]. ^self]. items isEmpty ifTrue: [^self]. fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. Cursor write showWhile: [| internalStream | internalStream := WriteStream on: (String new: 1000). internalStream header; timeStamp. items do: + [:patchOp| | def | + def := patchOp definition. + def isMethodDefinition ifTrue: + [(def actualClass notNil + and: [def actualClass includesSelector: def selector]) - [:patchOp| - patchOp definition isMethodDefinition ifTrue: - [(patchOp definition actualClass notNil - and: [patchOp definition actualClass includesSelector: patchOp definition selector]) ifTrue: + [def actualClass + printMethodChunk: def selector - [patchOp definition actualClass - printMethodChunk: patchOp definition selector withPreamble: true on: internalStream moveSource: false toFile: nil] ifFalse: + [internalStream nextChunkPut: def className, (def classIsMeta ifTrue: [' class'] ifFalse: ['']), ' removeSelector: ', def selector printString]]. + def isClassDefinition ifTrue: + [def actualClass - [internalStream nextChunkPut: patchOp definition className, ' removeSelector: ', patchOp definition selector printString]]. - patchOp definition isClassDefinition ifTrue: - [patchOp definition actualClass ifNotNil: + [internalStream nextChunkPut: def actualClass definition. + def comment ifNotNil: + [def actualClass organization - [internalStream nextChunkPut: patchOp definition actualClass definition. - patchOp definition comment ifNotNil: - [patchOp definition actualClass organization putCommentOnFile: internalStream numbered: 1 moveSource: false + forClass: def actualClass]] - forClass: patchOp definition actualClass]] ifNil: + [internalStream nextChunkPut: def className, ' removeFromSystem']]]. - [internalStream nextChunkPut: patchOp definition className, ' removeFromSystem']]]. FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!

1 0

The Trunk: Monticello-eem.518.mcz
by commits＠source.squeak.org 20 Jul '12

20 Jul '12

1 0

The Trunk: Monticello-eem.518.mcz
by commits＠source.squeak.org 20 Jul '12

20 Jul '12

1 0

The Trunk: Morphic-bf.621.mcz
by commits＠source.squeak.org 20 Jul '12

20 Jul '12

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.621.mcz ==================== Summary ==================== Name: Morphic-bf.621 Author: bf Time: 19 July 2012, 4:46:28.191 pm UUID: 35494a91-808a-4bc3-bb8c-0ebc2f0d2b26 Ancestors: Morphic-cmm.620 Fix filtering in AlternatePluggableListMorphOfMany. WTF do we even have subclasses of PluggableListMorph? It's supposed to be pluggable! =============== Diff against Morphic-cmm.620 =============== Item was removed: - (PackageInfo named: 'Morphic') postscriptOfRemoval: 'nil'! Item was removed: - (PackageInfo named: 'Morphic') preamble: 'nil'! Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>itemSelectedAmongMultiple: (in category 'model access') ----- itemSelectedAmongMultiple: index + ^self listSelectionAt: (self modelIndexFor: index)! - ^model isMessageSelectedAt: index! Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>mouseDown: (in category 'event handling') ----- mouseDown: event | row | event yellowButtonPressed ifTrue: [^ self yellowButtonActivity: event shiftPressed]. row := self rowAtLocation: event position. row = 0 ifTrue: [^super mouseDown: event]. model okToChange ifFalse: [^ self]. "No change if model is locked" "Inform model of selected item and let it toggle." self + changeModelSelection: (self modelIndexFor: row) - changeModelSelection: row shifted: event shiftPressed controlled: event controlKeyPressed. " event hand releaseMouseFocus: aMorph. submorphs do: [ :each | each changed ] "! Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>mouseMove: (in category 'event handling') ----- mouseMove: event "The mouse has moved, as characterized by the event provided. Adjust the scrollbar, and alter the selection as appropriate" | oldIndex oldVal row | event position y < self top ifTrue: [scrollBar scrollUp: 1. row := self rowAtLocation: scroller topLeft + (1 @ 1)] ifFalse: [row := event position y > self bottom ifTrue: [scrollBar scrollDown: 1. self rowAtLocation: scroller bottomLeft + (1 @ -1)] ifFalse: [ self rowAtLocation: event position]]. row = 0 ifTrue: [^super mouseDown: event]. model okToChange ifFalse: [^self]. "No change if model is locked" "Set meaning for subsequent dragging of selection" oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. "Inform model of selected item and let it toggle." self + changeModelSelection: (self modelIndexFor: row) - changeModelSelection: row shifted: true controlled: event controlKeyPressed. submorphs do: [:each | each changed]!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
14
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2012