Packages April 2012

packages@lists.squeakfoundation.org

1 participants
129 discussions

The Trunk: Tools-eem.401.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.401.mcz ==================== Summary ==================== Name: Tools-eem.401 Author: eem Time: 16 April 2012, 1:29:04.175 pm UUID: 64653d7e-ca28-4119-9773-35c62ff62390 Ancestors: Tools-eem.400 Fix another potential bounds violation in namedTempAt:in:, e.g. in [ |a| a:=2 ] asContext tempsAndValues =============== Diff against Tools-eem.400 =============== Item was changed: ----- Method: DebuggerMethodMapForClosureCompiledMethods>>privateDereference:in: (in category 'private') ----- privateDereference: tempReference in: aContext "Fetch the temporary with reference tempReference in aContext. tempReference can be integer - direct temp reference #( indirectionVectorIndex tempIndex ) - remote temp in indirectionVector at index #( outer. temp reference ) - a temp reference in an outer context." ^tempReference isInteger ifTrue: + [tempReference <= aContext stackPtr ifTrue: + [aContext tempAt: tempReference]] - [aContext tempAt: tempReference] ifFalse: [tempReference first == #outer ifTrue: [self privateDereference: tempReference last in: aContext outerContext] ifFalse: "If stopped before indirection vectors are created they will be nil. Simply answer nil" [(aContext tempAt: tempReference first) ifNotNil: [:indirectionVector| indirectionVector at: tempReference second]]]!

1 0

The Trunk: Tools-eem.401.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

1 0

The Trunk: Tools-eem.401.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

1 0

The Trunk: Morphic-bf.618.mcz
by commits＠source.squeak.org 14 Apr '12

14 Apr '12

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.618.mcz ==================== Summary ==================== Name: Morphic-bf.618 Author: bf Time: 13 April 2012, 4:34:16.297 pm UUID: 0ab6bc05-3abd-458f-8af2-fc9d6c42d769 Ancestors: Morphic-eem.617 Fix keyboard filtering in PluggableListMorphOfMany (e.g., the TestRunner's class list) =============== Diff against Morphic-eem.617 =============== Item was changed: ----- Method: PluggableListMorph>>update: (in category 'updating') ----- update: aSymbol "Refer to the comment in View|update:." aSymbol == getListSelector ifTrue: [ self updateList. ^ self ]. aSymbol == getIndexSelector ifTrue: [ | uiIndex modelIndex | uiIndex := self uiIndexFor: (modelIndex := self getCurrentSelectionIndex). self selectionIndex: (uiIndex = 0 ifTrue: [ "The filter is preventing us from selecting the item we want - remove it." + (modelIndex > 0 and: [list notNil and: [list size > 0]]) ifTrue: [ self removeFilter ]. - (list notNil and: [list size > 0]) ifTrue: [ self removeFilter ]. modelIndex ] ifFalse: [ uiIndex ]). ^ self ]! Item was changed: ----- Method: PluggableListMorphOfMany>>itemSelectedAmongMultiple: (in category 'model access') ----- itemSelectedAmongMultiple: index + ^self listSelectionAt: (self modelIndexFor: index)! - ^self listSelectionAt: index! Item was changed: ----- Method: PluggableListMorphOfMany>>mouseDown: (in category 'event handling') ----- mouseDown: event + | oldIndex oldVal row index | - | oldIndex oldVal row | event yellowButtonPressed ifTrue: [^ self yellowButtonActivity: event shiftPressed]. row := self rowAtLocation: event position. row = 0 ifTrue: [^super mouseDown: event]. + index := self modelIndexFor: row. model okToChange ifFalse: [^ self]. "No change if model is locked" "Set meaning for subsequent dragging of selection" + dragOnOrOff := (self listSelectionAt: index) not. - dragOnOrOff := (self listSelectionAt: row) not. oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Set or clear new primary selection (listIndex)" dragOnOrOff + ifTrue: [self changeModelSelection: index] - ifTrue: [self changeModelSelection: (self modelIndexFor: row)] ifFalse: [self changeModelSelection: 0]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. + self listSelectionAt: index put: dragOnOrOff. - self listSelectionAt: row put: dragOnOrOff. "event hand releaseMouseFocus: aMorph." + ! - "aMorph changed"! Item was changed: ----- Method: PluggableListMorphOfMany>>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 index | - | 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]. + index := self modelIndexFor: row. model okToChange ifFalse: [^self]. "No change if model is locked" dragOnOrOff ifNil: ["Was not set at mouse down, which means the mouse must have gone down in an area where there was no list item" + dragOnOrOff := (self listSelectionAt: index) not]. - dragOnOrOff := (self listSelectionAt: row) not]. "Set meaning for subsequent dragging of selection" oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Set or clear new primary selection (listIndex)" dragOnOrOff + ifTrue: [self changeModelSelection: index] - ifTrue: [self changeModelSelection: (self modelIndexFor: row)] ifFalse: [self changeModelSelection: 0]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. + self listSelectionAt: index put: dragOnOrOff. + ! - self listSelectionAt: row put: dragOnOrOff. - row changed!

1 0

The Trunk: Morphic-bf.618.mcz
by commits＠source.squeak.org 14 Apr '12

14 Apr '12

1 0

The Trunk: Morphic-bf.618.mcz
by commits＠source.squeak.org 14 Apr '12

14 Apr '12

1 0

The Trunk: Monticello-eem.502.mcz
by commits＠source.squeak.org 13 Apr '12

13 Apr '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.502.mcz ==================== Summary ==================== Name: Monticello-eem.502 Author: eem Time: 13 April 2012, 10:30:14.852 am UUID: cad6b50f-5157-4c67-9546-6c788b3a4abd Ancestors: Monticello-eem.501 Better menu augmentation In the working copy browser's repository list; store diffs/full versions applies to a specific repository. =============== Diff against Monticello-eem.501 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu + "first add repository-specific commands" + self repository ifNotNil: + [self fillMenu: aMenu fromSpecs: + #(('open repository' #openRepository) + ('edit repository info' #editRepository) + ('add to package...' #addRepositoryToPackage) + ('remove repository' #removeRepository) + ('copy image versions here' #copyImageVersions)). + aMenu + add: (self repository alwaysStoreDiffs + ifTrue: ['store full versions'] + ifFalse: ['store diffs']) + target: self + selector: #toggleDiffs; + addLine]. + "then the non-specific commands" + ^self fillMenu: aMenu fromSpecs: - self repository ifNil: - [^self fillMenu: aMenu fromSpecs: #( ('load repositories' #loadRepositories) ('save repositories' #saveRepositories) + ('flush cached versions' #flushAllCaches))! - ('flush cached versions' #flushAllCaches))]. - self fillMenu: aMenu fromSpecs: - #(('open repository' #openRepository) - ('edit repository info' #editRepository) - ('add to package...' #addRepositoryToPackage) - ('remove repository' #removeRepository) - ('copy image versions here' #copyImageVersions) - #addLine - ('load repositories' #loadRepositories) - ('save repositories' #saveRepositories) - ('flush cached versions' #flushAllCaches)). - aMenu - add: (self repository alwaysStoreDiffs - ifTrue: ['store full versions'] - ifFalse: ['store diffs']) - target: self - selector: #toggleDiffs. - ^ aMenu - !

1 0

The Trunk: Monticello-eem.502.mcz
by commits＠source.squeak.org 13 Apr '12

13 Apr '12

1 0

The Trunk: Monticello-eem.502.mcz
by commits＠source.squeak.org 13 Apr '12

13 Apr '12

1 0

The Trunk: Monticello-eem.501.mcz
by commits＠source.squeak.org 13 Apr '12

13 Apr '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.501.mcz ==================== Summary ==================== Name: Monticello-eem.501 Author: eem Time: 13 April 2012, 10:23:47.129 am UUID: 67c398f4-47b9-47eb-b0a2-f3cfd2323058 Ancestors: Monticello-bf.500 In the working copy browser's repoisitory list, make load/save repositories & flush cached versions available when no repository is selected (since these apply to all repositories). Also group them at the end of the menu when a repository is selected to indicate they apply to all. Add a line to be nice. =============== Diff against Monticello-bf.500 =============== Item was changed: ----- Method: MCTool>>fillMenu:fromSpecs: (in category 'morphic ui') ----- fillMenu: aMenu fromSpecs: anArray anArray do: [:spec | + spec == #addLine + ifTrue: [aMenu addLine] + ifFalse: + [aMenu + add: spec first + target: self + selector: spec second + argumentList: (spec allButFirst: 2)]]. + ^aMenu! - aMenu add: spec first target: self selector: spec second argumentList: (spec allButFirst: 2)]. - ^ aMenu! Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu + self repository ifNil: + [^self fillMenu: aMenu fromSpecs: + #( ('load repositories' #loadRepositories) + ('save repositories' #saveRepositories) + ('flush cached versions' #flushAllCaches))]. - self repository ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('open repository' #openRepository) ('edit repository info' #editRepository) ('add to package...' #addRepositoryToPackage) + ('remove repository' #removeRepository) - ('remove repository' #removeRepository) - ('load repositories' #loadRepositories) - ('save repositories' #saveRepositories) - ('flush cached versions' #flushAllCaches) ('copy image versions here' #copyImageVersions) + #addLine + ('load repositories' #loadRepositories) + ('save repositories' #saveRepositories) + ('flush cached versions' #flushAllCaches)). + aMenu - ). - aMenu add: (self repository alwaysStoreDiffs ifTrue: ['store full versions'] ifFalse: ['store diffs']) target: self selector: #toggleDiffs. ^ aMenu !

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2012