Daily Commit Log

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours:

http://lists.squeakfoundation.org/pipermail/packages/2010-June/003491.html

Name: System-eem.345
Ancestors: System-tbn.344

Changes to ChangeRecord to support remove unchanged
definitions and file-in reorganizations in the ChangeList.

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2010-June/003492.html

Name: Monticello-eem.396
Ancestors: Monticello-ar.395

Make sure MCWorkingCopy receives system change
notifications by reregistering for them on startup.

File-out-all for PatchBrowser (package changes).

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2010-June/003493.html

Name: Collections-eem.366
Ancestors: Collections-ul.365

Much faster Dictionary>>unreferencedKeys (single pass

Squeak joins the Software Freedom Conservancy

[see also 
http://board.squeak.org/2010/07/01/squeak-joins-the-software-freedom-conservancy/ 
]

Squeak joins the Software Freedom Conservancy

The Squeak Oversight Board is excited to announce that Squeak is now a 
member of the Software Freedom Conservancy[1]. The Software Freedom 
Conservancy is an organization composed of Free and Open Source Software 
(FOSS) projects. As a fiscal sponsor for FOSS projects, the Conservancy 
provides member projects with free financial and administrative 
services, but does not involve itself with technological and artistic 
decisions.

By joining the Conservancy, Squeak obtains the benefits of a formal 
legal structure while keeping focused on software development. The 
benefits of joining the Conservancy include, most notably, the ability 
to collect donations and protection from personal liability for the 
developers of the project. Another benefit of joining the Conservancy is 
we can use it to hold assets, which are managed by the Conservancy on 
behalf of and at the direction of the Squeak Oversight Board. The 
Conservancy is a tax-exempt 501(c)(3) organization, so member projects 
can receive tax-deductible donations to the extent allowed by law.

[1] http://sfconservancy.org/overview/

Re: Squeak joins the Software Freedom Conservancy

Touchdown!

On Jul 1, 2010, at 12:32 AM, Andreas Raab <andreas.raab <at> gmx.de> wrote:

> [see also http://board.squeak.org/2010/07/01/squeak-joins-the-software-freedom-conservancy/ ]
> 
> Squeak joins the Software Freedom Conservancy
> 
> The Squeak Oversight Board is excited to announce that Squeak is now a member of the Software Freedom
Conservancy[1]. The Software Freedom Conservancy is an organization composed of Free and Open Source
Software (FOSS) projects. As a fiscal sponsor for FOSS projects, the Conservancy provides member
projects with free financial and administrative services, but does not involve itself with
technological and artistic decisions.
> 
> By joining the Conservancy, Squeak obtains the benefits of a formal legal structure while keeping
focused on software development. The benefits of joining the Conservancy include, most notably, the
ability to collect donations and protection from personal liability for the developers of the project.
Another benefit of joining the Conservancy is we can use it to hold assets, which are managed by the
Conservancy on behalf of and at the direction of the Squeak Oversight Board. The Conservancy is a
tax-exempt 501(c)(3) organization, so member projects can receive tax-deductible donations to the
extent allowed by law.
> 
> [1] http://sfconservancy.org/overview/
> 
> 

Re: Squeak joins the Software Freedom Conservancy

Great work!

regards, Göran

Re: Squeak joins the Software Freedom Conservancy

[OT] Interesting light bulb

Maybe this new "light bulb" can be a step after 
the laptop/webpad/dynabook. In the future we 
dont need hardware in our bags, it can just be
around us.

Interesting times with interesting solutions ...

http://labcast.media.mit.edu/?p=129 

Bye
T.
--

-- 
GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT!
Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

Re: Squeak joins the Software Freedom Conservancy

Re: Squeak joins the Software Freedom Conservancy

On 7/1/10 4:32 AM, "Andreas Raab" <andreas.raab <at> gmx.de> wrote:

> [see also 
> http://board.squeak.org/2010/07/01/squeak-joins-the-software-freedom-conservan
> cy/ 
> ]
> 
> Squeak joins the Software Freedom Conservancy
> 
> The Squeak Oversight Board is excited to announce that Squeak is now a
> member of the Software Freedom Conservancy[1]. The Software Freedom
> Conservancy is an organization composed of Free and Open Source Software
> (FOSS) projects. As a fiscal sponsor for FOSS projects, the Conservancy
> provides member projects with free financial and administrative
> services, but does not involve itself with technological and artistic
> decisions.
> 
> By joining the Conservancy, Squeak obtains the benefits of a formal
> legal structure while keeping focused on software development. The
> benefits of joining the Conservancy include, most notably, the ability
> to collect donations and protection from personal liability for the
> developers of the project. Another benefit of joining the Conservancy is
> we can use it to hold assets, which are managed by the Conservancy on
> behalf of and at the direction of the Squeak Oversight Board. The
> Conservancy is a tax-exempt 501(c)(3) organization, so member projects
> can receive tax-deductible donations to the extent allowed by law.
> 
> [1] http://sfconservancy.org/overview/

A Day to remember, very , very thanks to all involved.

Oid mortales el grito sagrado
Libertad Libertad Libertad

Edgar

Invitation to submit to VMIL'10

Dear Colleagues:

It gives us great pleasure to invite you to submit your
contributions to **the fourth international workshop on
Virtual Machines and Intermediate Languages (VMIL 2010)**,
which will be co-located with SPLASH 2010 (former OOPSLA).
This workshop is a forum for research in virtual machines
(VM) and intermediate languages (IL). It is dedicated to
identifying programming mechanisms and constructs that are
currently realized as code transformations or implemented in
libraries but should rather be supported at VM and IL level.
------------------------------------------------------------
**Invited Talks**
In the tradition of past VMIL workshops, the 2010 edition
will feature high-quality, on-topic invited talks. At this
moment, talks by Cliff Click and Kathryn McKinley are
confirmed.
------------------------------------------------------------
**Due Dates**
Papers for VMIL are due Aug 9, 2010. Abstract submission is
not required but recommended until Aug 2, 2010. Notification
of acceptance will be on August 30, 2010.
------------------------------------------------------------
**Program Committee**
We have once again assembled an excellent program committee
which consists of Walter Binder, Steve Blackburn, Erik
Ernst, Naveen Kumar, Doug Simon, Roel Wuyts, and all
workshop organizers.
------------------------------------------------------------

For more details please see:
http://www.cs.iastate.edu/~design/vmil/

We look forward to your submissions to VMIL 2010.

Best regards,
Hridesh Rajan, Christoph Bockisch, Michael Haupt and Robert
Dyer
VMIL 2010 Organizers

The Trunk: System-ul.346.mcz

Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.346.mcz

==================== Summary ====================

Name: System-ul.346
Author: ul
Time: 1 July 2010, 5:47:34.811 pm
UUID: 24a3893a-af8a-d341-9211-5dc456369a43
Ancestors: System-eem.345

- ignore vm parameters with nil value in MessageTally, so it can be used in Cog

=============== Diff against System-eem.345 ===============

Item was changed:
  ----- Method: MessageTally>>spyEvery:onProcess:forMilliseconds: (in category
'initialize-release') -----
  spyEvery: millisecs onProcess: aProcess forMilliseconds: msecDuration 
  	"Create a spy and spy on the given process at the specified rate."
  	| myDelay time0 endTime observedProcess sem |
  	(aProcess isKindOf: Process)
  		ifFalse: [self error: 'spy needs a Process here'].
  	self class: aProcess suspendedContext receiver class method: aProcess suspendedContext method.
  	"set up the probe"
  	observedProcess := aProcess.
  	myDelay := Delay forMilliseconds: millisecs.
  	time0 := Time millisecondClockValue.
  	endTime := time0 + msecDuration.
  	sem := Semaphore new.
  	gcStats := SmalltalkImage current getVMParameters.
  	Timer ifNotNil: [ self error: 'it seems a tally is already running' ].
  	Timer := [
  			[
  				| startTime |
  				startTime := Time millisecondClockValue.
  				myDelay wait.
  				self
  					tally: Processor preemptedProcess suspendedContext
  					in: (observedProcess == Processor preemptedProcess 
  						ifTrue: [ observedProcess ]
  						ifFalse: [ nil ])
  					"tally can be > 1 if ran a long primitive"
  					by: (Time millisecondClockValue - startTime) // millisecs.
  				startTime < endTime
  			] whileTrue.
  			sem signal.
  		] newProcess.
  	Timer priority: Processor timingPriority-1.
  		"activate the probe and evaluate the block"
  	Timer resume.
  	"activate the probe and wait for it to finish"
  	sem wait.
  	"Collect gc statistics"
+ 	SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal |
+ 		gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ].
- 	SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | 
- 		gcStats at: idx put: (gcVal - gcStats at: idx)].
  	time := Time millisecondClockValue - time0!

Item was changed:
  ----- Method: MessageTally>>spyAllEvery:on: (in category 'initialize-release') -----
  spyAllEvery: millisecs on: aBlock
  	"Create a spy and spy on the given block at the specified rate."
  	"Spy all the system processes"

  	| myDelay time0 |
  	aBlock isBlock
  		ifFalse: [ self error: 'spy needs a block here' ].
  	self class: aBlock receiver class method: aBlock method.
  		"set up the probe"
  	myDelay := Delay forMilliseconds: millisecs.
  	time0 := Time millisecondClockValue.
  	gcStats := SmalltalkImage current getVMParameters.
  	Timer ifNotNil: [ self error: 'it seems a tally is already running' ].
  	Timer := [
  		[true] whileTrue: [
  			| observedProcess startTime |
  			startTime := Time millisecondClockValue.
  			myDelay wait.
  			observedProcess := Processor preemptedProcess.
  			self
  				tally: observedProcess suspendedContext
  				in: observedProcess
  				"tally can be > 1 if ran a long primitive"
  				by: (Time millisecondClockValue - startTime) // millisecs].
  		nil] newProcess.
  	Timer priority: Processor timingPriority-1.
  		"activate the probe and evaluate the block"
  	Timer resume.
  	^ aBlock ensure: [
  		"cancel the probe and return the value"
  		"Could have already been terminated. See #terminateTimerProcess"
  		Timer ifNotNil: [
  			Timer terminate.
  			Timer := nil ].
  		"Collect gc statistics"
+ 			SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal |
+ 				gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ].
- 		SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | 
- 			gcStats at: idx put: (gcVal - (gcStats at: idx))].
  		time := Time millisecondClockValue - time0]!

Item was changed:
  ----- Method: MessageTally>>spyEvery:on: (in category 'initialize-release') -----
  spyEvery: millisecs on: aBlock
  	"Create a spy and spy on the given block at the specified rate."
  	"Spy only on the active process (in which aBlock is run)"

  	| myDelay time0 observedProcess |
  	aBlock isBlock
  		ifFalse: [ self error: 'spy needs a block here' ].
  	self class: aBlock receiver class method: aBlock method.
  		"set up the probe"
  	observedProcess := Processor activeProcess.
  	myDelay := Delay forMilliseconds: millisecs.
  	time0 := Time millisecondClockValue.
  	gcStats := SmalltalkImage current getVMParameters.
  	Timer ifNotNil: [ self error: 'it seems a tally is already running' ].
  	Timer := [
  		[ true ] whileTrue: [
  			| startTime |
  			startTime := Time millisecondClockValue.
  			myDelay wait.
  			self
  				tally: Processor preemptedProcess suspendedContext
  				in: (observedProcess == Processor preemptedProcess ifTrue: [observedProcess] ifFalse: [nil])
  				"tally can be > 1 if ran a long primitive"
  				by: (Time millisecondClockValue - startTime) // millisecs].
  		nil] newProcess.
  	Timer priority: Processor timingPriority-1.
  		"activate the probe and evaluate the block"
  	Timer resume.
  	^ aBlock ensure: [
  		"cancel the probe and return the value"
  		"Could have already been terminated. See #terminateTimerProcess"
  		Timer ifNotNil: [
  			Timer terminate.
  			Timer := nil ].
  		"Collect gc statistics"
+ 		SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal |
+ 			gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ].
+ 		time := Time millisecondClockValue - time0 ]!
- 		SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | 
- 			gcStats at: idx put: (gcVal - (gcStats at: idx))].
- 		time := Time millisecondClockValue - time0]!

Item was removed:
- ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') -----
- lexiconWindowColor
- 	^ self
- 		valueOfFlag: #lexiconWindowColor
- 		ifAbsent: [Color
- 				r: 0.878
- 				g: 1.0
- 				b: 0.878]!

Item was removed:
- ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') -----
- instanceBrowserWindowColor
- 	^ self
- 		valueOfFlag: #instanceBrowserWindowColor
- 		ifAbsent: [Color
- 				r: 0.806
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') -----
- fileListWindowColor
- 	^ self
- 		valueOfFlag: #fileListWindowColor
- 		ifAbsent: [Color
- 				r: 1.0
- 				g: 0.8
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') -----
- debuggerWindowColor
- 	^ self
- 		valueOfFlag: #debuggerWindowColor
- 		ifAbsent: [Color
- 				r: 1.0
- 				g: 0.8
- 				b: 0.8]!

Item was removed:
- ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') -----
- defaultWindowColor
- 	^ self
- 		valueOfFlag: #defaultWindowColor
- 		ifAbsent: [Color
- 				r: 1.0
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') -----
- workspaceWindowColor
- 	^ self
- 		valueOfFlag: #workspaceWindowColor
- 		ifAbsent: [Color
- 				r: 1.0
- 				g: 1.0
- 				b: 0.8]!

Item was removed:
- ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard
queries') -----
- classCommentVersionsBrowserWindowColor
- 	^ self
- 		valueOfFlag: #classCommentVersionsBrowserWindowColor
- 		ifAbsent: [Color
- 				r: 0.769
- 				g: 0.653
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') -----
- fileContentsBrowserWindowColor
- 	^ self
- 		valueOfFlag: #fileContentsBrowserWindowColor
- 		ifAbsent: [Color
- 				r: 0.8
- 				g: 0.8
- 				b: 0.5]!

Item was removed:
- ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') -----
- versionsBrowserWindowColor
- 	^ self
- 		valueOfFlag: #versionsBrowserWindowColor
- 		ifAbsent: [Color
- 				r: 0.869
- 				g: 0.753
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') -----
- testRunnerWindowColor
- 	^ self
- 		valueOfFlag: #testRunnerWindowColor
- 		ifAbsent: [Color
- 				r: 1.0
- 				g: 0.6
- 				b: 0.0]!

Item was removed:
- ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') -----
- dualChangeSorterWindowColor
- 	^ self
- 		valueOfFlag: #dualChangeSorterWindowColor
- 		ifAbsent: [Color
- 				r: 0.8
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') -----
- messageListWindowColor
- 	^ self
- 		valueOfFlag: #messageListWindowColor
- 		ifAbsent: [Color
- 				r: 0.8
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') -----
- messageNamesWindowColor
- 	^ self
- 		valueOfFlag: #messageNamesWindowColor
- 		ifAbsent: [Color
- 				r: 0.645
- 				g: 1.0
- 				b: 0.452]!

Item was removed:
- ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') -----
- browserWindowColor
- 	^ self
- 		valueOfFlag: #browserWindowColor
- 		ifAbsent: [Color
- 				r: 0.8
- 				g: 1.0
- 				b: 0.6]!

Item was removed:
- ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') -----
- packageLoaderWindowColor
- 	^ self
- 		valueOfFlag: #packageLoaderWindowColor
- 		ifAbsent: [Color
- 				r: 0.9
- 				g: 0.9
- 				b: 0.781]!

Item was removed:
- ----- Method: Preferences class>>transcriptWindowColor (in category 'standard queries') -----
- transcriptWindowColor
- 	^ self
- 		valueOfFlag: #transcriptWindowColor
- 		ifAbsent: [Color
- 				r: 1.0
- 				g: 0.8
- 				b: 0.4]!

Item was removed:
- ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') -----
- changeSorterWindowColor
- 	^ self
- 		valueOfFlag: #changeSorterWindowColor
- 		ifAbsent: [Color
- 				r: 0.8
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') -----
- methodFinderWindowColor
- 	^ self
- 		valueOfFlag: #methodFinderWindowColor
- 		ifAbsent: [Color
- 				r: 0.4
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') -----
- changeListWindowColor
- 	^ self
- 		valueOfFlag: #changeListWindowColor
- 		ifAbsent: [Color
- 				r: 0.8
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') -----
- preferenceBrowserWindowColor
- 	^ self
- 		valueOfFlag: #preferenceBrowserWindowColor
- 		ifAbsent: [Color
- 				r: 0.645
- 				g: 1.0
- 				b: 1.0]!

Item was removed:
- ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') -----
- packageBrowserWindowColor
- 	^ self
- 		valueOfFlag: #packageBrowserWindowColor
- 		ifAbsent: [Color
- 				r: 1.0
- 				g: 1.0
- 				b: 0.6]!

Item was removed:
- ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') -----
- monticelloToolWindowColor
- 	^ self
- 		valueOfFlag: #monticelloToolWindowColor
- 		ifAbsent: [Color
- 				r: 0.627
- 				g: 0.69
- 				b: 0.976]!