Squeak-dev July 2010

squeak-dev@lists.squeakfoundation.org

75 participants
234 discussions

The Trunk: Kernel-eem.466.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.466.mcz ==================== Summary ==================== Name: Kernel-eem.466 Author: eem Time: 1 July 2010, 11:39:37.515 am UUID: e7f77eee-fec2-441f-91ce-b505b87dd1db Ancestors: Kernel-ar.465 Add Object>>okToClose for multi-window browser support =============== Diff against Kernel-ar.465 =============== Item was added: + ----- Method: Object>>okToClose (in category 'updating') ----- + okToClose + "Allows a controller to ask this of any model" + ^self okToChange!

1 0

The Trunk: System-ul.346.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

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]!

1 0

Invitation to submit to VMIL'10
by Christoph Bockisch 01 Jul '10

01 Jul '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

1 0

[OT] Interesting light bulb
by Torsten Bergmann 01 Jul '10

01 Jul '10

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

1 0

Jump to page: