Packages March 2011

packages@lists.squeakfoundation.org

1 participants
447 discussions

The Trunk: ST80-dtl.125.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.125.mcz ==================== Summary ==================== Name: ST80-dtl.125 Author: dtl Time: 28 February 2011, 8:33:38.792 pm UUID: 4e3f6978-87b4-4996-b710-b2bd7993f0bf Ancestors: ST80-nice.124 Add Debugger class>>mvcOpenOn:context:label:contents:fullView: as dispatch target for opening a debugger in MVC. =============== Diff against ST80-nice.124 =============== Item was added: + ----- Method: Debugger class>>mvcOpenOn:context:label:contents:fullView: (in category '*ST80-opening') ----- + mvcOpenOn: process context: context label: title contents: contentsStringOrNil fullView: bool + "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + + | controller debugger | + controller := ScheduledControllers activeControllerProcess == process + ifTrue: [ScheduledControllers activeController]. + [debugger := self new + process: process + controller: controller + context: context. + bool + ifTrue: [debugger openFullNoSuspendLabel: title] + ifFalse: [debugger openNotifierContents: contentsStringOrNil label: title]. + Preferences logDebuggerStackToFile + ifTrue: [Smalltalk logSqueakError: title inContext: context] + ] on: Error do: [:ex | + self primitiveError: 'Original error: ' , title asString , '. + Debugger error: ' , ([ex description] + on: Error + do: ['a ' , ex class printString]) , ':']. + process suspend!

1 0

The Trunk: Morphic-dtl.522.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.522.mcz ==================== Summary ==================== Name: Morphic-dtl.522 Author: dtl Time: 28 February 2011, 8:31:43.924 pm UUID: b029c657-a64b-4ee8-8f7b-c93a2e4847a8 Ancestors: Morphic-mtf.521 Add Debugger class>>morphicOpenOn:context:label:contents:fullView: as dispatch target for opening a debugger in Morphic. =============== Diff against Morphic-mtf.521 =============== Item was added: + ----- Method: Debugger class>>morphicOpenOn:context:label:contents:fullView: (in category '*Morphic-opening') ----- + morphicOpenOn: process context: context label: title contents: contentsStringOrNil fullView: bool + "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + + | errorWasInUIProcess debugger | + errorWasInUIProcess := Project spawnNewProcessIfThisIsUI: process. + WorldState addDeferredUIMessage: [ + "schedule debugger in deferred UI message to address redraw + problems after opening a debugger e.g. from the testrunner." + [ + debugger := self new process: process controller: nil context: context. + bool + ifTrue: [debugger openFullNoSuspendLabel: title] + ifFalse: [debugger openNotifierContents: contentsStringOrNil label: title]. + debugger errorWasInUIProcess: errorWasInUIProcess. + Preferences logDebuggerStackToFile ifTrue: [ + Smalltalk logSqueakError: title inContext: context]. + ] on: Error do: [:ex | + self primitiveError: + 'Original error: ', + title asString, '. + Debugger error: ', + ([ex description] on: Error do: ['a ', ex class printString]), ':' + ] + ]. + process suspend. + !

1 0

The Trunk: Morphic-dtl.522.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

1 0

The Trunk: Morphic-dtl.522.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

1 0

The Trunk: Monticello-cmm.421.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.421.mcz ==================== Summary ==================== Name: Monticello-cmm.421 Author: cmm Time: 28 February 2011, 6:15:02.72 pm UUID: 72a9c3d1-ea9a-4aaf-826c-24893d23b8cd Ancestors: Monticello-cmm.420 - Added printing forMCFileName. - Fixed #versionHighlight: for new MCFileName model. =============== Diff against Monticello-cmm.420 =============== Item was added: + ----- Method: MCFileName>>printOn: (in category 'printing') ----- + printOn: aStream + super printOn: aStream. + aStream + space ; + nextPutAll: self fileName! Item was added: + ----- Method: MCFileName>>versionName (in category 'access') ----- + versionName + "Answer my version name, without the file suffix." + ^ extension + ifNil: [ fileName ] + ifNotNil: + [ String streamContents: + [ : stream | stream + nextPutAll: self packageName ; + nextPut: $- ; + nextPutAll: self author ; + nextPut: $. ; + nextPutAll: self versionNumber asString ] ]! Item was removed: - ----- Method: MCFileRepositoryInspector>>buttonSpecs (in category 'morphic ui') ----- - buttonSpecs - ^#(('Refresh' refresh 'refresh the version-list')) , super buttonSpecs! Item was changed: ----- Method: MCFileRepositoryInspector>>versionHighlight: (in category 'morphic ui') ----- + versionHighlight: aMCFileName - versionHighlight: aString - - | verName | inherited ifNil: [inherited := #()]. - verName := (aString copyUpToLast: $.) copyUpTo: $(. ^Text + string: aMCFileName fileName - string: aString attribute: (TextEmphasis new emphasisCode: ( + ((loaded includes: aMCFileName) ifTrue: [ 4 "underlined" ] + ifFalse: [ (inherited includes: aMCFileName versionName) - ((loaded includes: verName) ifTrue: [ 4 "underlined" ] - ifFalse: [ (inherited includes: verName) ifTrue: [ 0 ] ifFalse: [ 1 "bold" ] ])))! Item was changed: ----- Method: MCFileRepositoryInspector>>versionList (in category 'morphic ui') ----- versionList | result | result := selectedPackage ifNil: [ versions copy ] ifNotNil: [ versions select: [ : each | selectedPackage = each packageName ] ]. "Not sure why we need this ugly Error trapping here.." (self orderSpecs at: order) value ifNotNil: [ : sortBlock | result sort: [ : a : b | [ sortBlock value: a value: b ] on: Error do: [ true ] ] ]. ^ result replace: + [ : each | self versionHighlight: each ]! - [ : each | self versionHighlight: each fileName ]! Item was removed: - ----- Method: MCRepositoryInspector>>buttonSpecs (in category 'morphic ui') ----- - buttonSpecs - ^#(('Refresh' refresh 'refresh the version-list')) , super buttonSpecs! Item was changed: ----- Method: MCVersionInspector>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs + ^ #(('Refresh' refresh 'refresh the version-list') + (Browse browse 'Browse this version' hasVersion) - ^ #((Browse browse 'Browse this version' hasVersion) (History history 'Browse the history of this version' hasVersion) (Changes changes 'Browse the changes this version would make to the image' hasVersion) (Load load 'Load this version into the image' hasVersion) (Merge merge 'Merge this version into the image' hasVersion) (Adopt adopt 'Adopt this version as an ancestor of your working copy' hasVersion) (Copy save 'Copy this version to another repository' hasVersion) (Diff diff 'Create an equivalent version based on an earlier release' hasVersion))!

1 0

The Trunk: Monticello-cmm.421.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

1 0

The Trunk: Monticello-cmm.421.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

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 March 2011