Packages December 2013

packages@lists.squeakfoundation.org

1 participants
477 discussions

The Trunk: Compiler-eem.276.mcz
by commits＠source.squeak.org 03 Dec '13

03 Dec '13

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.276.mcz ==================== Summary ==================== Name: Compiler-eem.276 Author: eem Time: 3 December 2013, 11:47:59.234 am UUID: e99950e7-3dd5-4d06-9647-f3742bdc5949 Ancestors: Compiler-cmm.275 Access VariableNode's index inst var directly instead of reconstructing it form the code inst var. This removes an artificial limit of 256 temps in any one method. =============== Diff against Compiler-cmm.275 =============== Item was changed: ----- Method: VariableNode>>index (in category 'testing') ----- index + "If index is nil, this code attempts to reconstruct the index from its encoding in code." + index ifNotNil: + [^index]. - "This code attempts to reconstruct the index from its encoding in code." code < 0 ifTrue:[^nil]. code > 256 ifTrue: [self assert: index = (code \\ 256). ^code \\ 256]. code >= (CodeBases at: self type) ifTrue: [self assert: index = (code - (CodeBases at: self type)). ^code - (CodeBases at: self type)]. self assert: index = (code - self type). ^code - self type!

1 0

The Trunk: Compiler-eem.276.mcz
by commits＠source.squeak.org 03 Dec '13

03 Dec '13

1 0

The Trunk: Kernel-eem.823.mcz
by commits＠source.squeak.org 03 Dec '13

03 Dec '13

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.823.mcz ==================== Summary ==================== Name: Kernel-eem.823 Author: eem Time: 3 December 2013, 11:46:14.717 am UUID: b2a6c46e-4bf3-4ebd-b69f-a676648e52fc Ancestors: Kernel-eem.822 AdditionalMethodState>>analogousCodeTo: needs to reject other kinds of objects, not assume they're AdditionalMethodState instances. =============== Diff against Kernel-eem.822 =============== Item was changed: ----- Method: AdditionalMethodState>>analogousCodeTo: (in category 'testing') ----- analogousCodeTo: aMethodProperties | bs | + self class == aMethodProperties class ifFalse: - (bs := self basicSize) ~= aMethodProperties basicSize ifTrue: [^false]. + (bs := self basicSize) = aMethodProperties basicSize ifFalse: + [^false]. 1 to: bs do: [:i| ((self basicAt: i) analogousCodeTo: (aMethodProperties basicAt: i)) ifFalse: [^false]]. ^true!

1 0

The Trunk: Kernel-eem.823.mcz
by commits＠source.squeak.org 03 Dec '13

03 Dec '13

1 0

The Trunk: Kernel-eem.823.mcz
by commits＠source.squeak.org 03 Dec '13

03 Dec '13

1 0

The Trunk: System-cmm.632.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.632.mcz ==================== Summary ==================== Name: System-cmm.632 Author: cmm Time: 2 December 2013, 2:12:28.796 pm UUID: d70901de-91c8-4b3c-add9-998bf3cfac55 Ancestors: System-fbs.631 - Method to #resume RecentMessages, although I have no idea how it got stuck suspended. - Only filter DoIt's from RecentMessages. - Remove arbitrary restriction and inherit the Smalltalk environment's error-handling. =============== Diff against System-fbs.631 =============== Item was changed: ----- Method: RecentMessages class>>setRecentHistorySize (in category 'preferences') ----- setRecentHistorySize + "Let the user specify the recent history size." + self numberOfRecentSubmissionsToStore: + (UIManager default + request: 'How many recent changes + should be remembered?' + initialAnswer: self numberOfRecentSubmissionsToStore asString)! - "Let the user specify the recent history size" - - | aReply aNumber | - aReply := UIManager default request: 'How many recent methods - should be maintained?' initialAnswer: self numberOfRecentSubmissionsToStore asString. - aReply isEmptyOrNil ifFalse: - [aNumber := aReply asNumber rounded. - (aNumber > 1 and: [aNumber <= 1000]) - ifTrue: - [self numberOfRecentSubmissionsToStore: aNumber. - self inform: 'Okay, ', aNumber asString, ' is the new size of the recent method history'] - ifFalse: - [self inform: 'Sorry, must be a number between 2 & 1000']]! Item was changed: ----- Method: RecentMessages>>initialize (in category 'initialize-release') ----- initialize super initialize. methodReferences := OrderedCollection new: (maximumSubmissionCount := 30). + self resume! - isSuspended := false! Item was changed: ----- Method: RecentMessages>>recordSelector:forClass:inEnvironment: (in category 'accessing') ----- recordSelector: aSelector forClass: aClass inEnvironment: anEnvironment | ref | (isSuspended = true or: [ aClass wantsChangeSetLogging not ]) ifTrue: [ ^ self ]. ref := MethodReference class: aClass selector: aSelector environment: anEnvironment. methodReferences + remove: ref + ifAbsent: [ ]. + ref methodSymbol isDoIt ifFalse: [ methodReferences addFirst: ref ]. - remove: ref ifAbsent: [ ] ; - addFirst: ref. self trim! Item was added: + ----- Method: RecentMessages>>resume (in category 'accessing') ----- + resume + isSuspended := false!

1 0

The Trunk: System-cmm.632.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

1 0

The Trunk: System-cmm.632.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

1 0

The Trunk: Tools-cmm.507.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.507.mcz ==================== Summary ==================== Name: Tools-cmm.507 Author: cmm Time: 2 December 2013, 1:56:35.213 pm UUID: b97af8db-8cef-4648-bad5-3f6343ff95f2 Ancestors: Tools-fbs.506 - RecentMessageSet don't blow up if you get out-of-sync with RecentMessages default. - Don't filter for #isValid in the UI. Instead, maintain a valid domain. =============== Diff against Tools-fbs.506 =============== Item was changed: ----- Method: RecentMessageSet>>reformulateList (in category 'update') ----- reformulateList "Reformulate the receiver's list. Exclude methods now deleted" + self + initializeMessageList: RecentMessages default methodReferences ; + messageListIndex: (messageList size min: 1) ; + changed: #messageList ; + changed: #messageListIndex! - self initializeMessageList: - (RecentMessages default methodReferences select: - [ : each | each isValid ]). - self messageListIndex: (messageList size min: 1). "0 or 1" - self changed: #messageList. - self changed: #messageListIndex! Item was changed: ----- Method: RecentMessageSet>>updateListsAndCodeIn: (in category 'update') ----- + updateListsAndCodeIn: aWindow - updateListsAndCodeIn: aWindow - | recentFromUtilities | + self canDiscardEdits ifFalse: [ ^ self ]. - "RAA 20 june 2000 - a recent change to how messages were displayed in the list caused them not to match what was stored in Utilities. This caused the recent submissions to be continuously updated. The hack below fixed that problem" - - self flag: #mref. "in second pass, use simpler test" - - self canDiscardEdits ifFalse: [^ self]. RecentMessages default isEmpty ifTrue: [ ^ self ]. + recentFromUtilities := RecentMessages default mostRecent asString , ' '. + (messageList isEmpty or: [ messageList first asStringOrText asString beginsWith: recentFromUtilities ]) + ifTrue: [ self updateCodePaneIfNeeded ] + ifFalse: [ self reformulateList ]! - recentFromUtilities := RecentMessages default mostRecent asString,' '. - (messageList first asStringOrText asString beginsWith: recentFromUtilities) - ifFalse: - [self reformulateList] - ifTrue: - [self updateCodePaneIfNeeded]! Item was changed: ----- Method: Utilities class>>browseRecentSubmissions (in category '*Tools') ----- browseRecentSubmissions "Open up a browser on the most recent methods submitted in the image." ^ RecentMessageSet openMessageList: RecentMessages default methodReferences + name: 'Recent Submissions' - name: 'Recent submissions -- youngest first ' autoSelect: nil! Item was changed: ----- Method: Utilities class>>recentSubmissionsWindow (in category '*Tools') ----- recentSubmissionsWindow "Answer a SystemWindow holding recent submissions" + | messageSet | + messageSet := RecentMessageSet messageList: RecentMessages default methodReferences. - - | recentMessages messageSet | - recentMessages := RecentMessages default methodReferences. - messageSet := RecentMessageSet messageList: recentMessages. messageSet autoSelectString: nil. + ^ ToolBuilder build: messageSet! - ^ ToolBuilder build: messageSet - - "Utilities recentSubmissionsWindow openInHand" - - !

1 0

The Trunk: Tools-cmm.507.mcz
by commits＠source.squeak.org 02 Dec '13

02 Dec '13

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2013