Packages October 2019

packages@lists.squeakfoundation.org

1 participants
132 discussions

The Trunk: Tools-ul.899.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.899.mcz ==================== Summary ==================== Name: Tools-ul.899 Author: ul Time: 2 October 2019, 3:29:54.652791 pm UUID: d69b08cf-a93f-4dba-bc1d-857473b033ee Ancestors: Tools-ul.896, Tools-ct.887, Tools-pre.898 - merged with Tools-ct.887 and Tools-ul.896 =============== Diff against Tools-pre.898 =============== Item was added: + ----- Method: Context>>namedTempAt: (in category '*Tools-debugger access') ----- + namedTempAt: index + "Answer the value of the temp at index in the receiver's sequence of tempNames." + ^self debuggerMap namedTempAt: index in: self! Item was added: + ----- Method: Context>>namedTempAt:put: (in category '*Tools-debugger access') ----- + namedTempAt: index put: aValue + "Set the value of the temp at index in the receiver's sequence of tempNames. + (Note that if the value is a copied value it is also set out along the lexical chain, + but alas not in along the lexical chain.)." + ^self debuggerMap namedTempAt: index put: aValue in: self! Item was added: + ----- Method: Context>>print:on: (in category '*Tools-debugger access') ----- + print: anObject on: aStream + "Safely print anObject in the face of direct ProtoObject subclasses." + | objClass title | + objClass := self objectClass: anObject. + (objClass canUnderstand: #printOn:) ifTrue: + [^anObject printOn: aStream]. + title := objClass name. + aStream + nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']); + nextPutAll: title! Item was added: + ----- Method: Context>>tempNames (in category '*Tools-debugger access') ----- + tempNames + "Answer a SequenceableCollection of the names of the receiver's temporary + variables, which are strings." + + ^ self debuggerMap tempNamesForContext: self! Item was added: + ----- Method: Context>>tempsAndValues (in category '*Tools-debugger access') ----- + tempsAndValues + "Return a string of the temporary variables and their current values" + ^self debuggerMap tempsAndValuesForContext: self! Item was added: + ----- Method: Context>>tempsAndValuesLimitedTo:indent: (in category '*Tools-debugger access') ----- + tempsAndValuesLimitedTo: sizeLimit indent: indent + "Return a string of the temporary variabls and their current values" + + | aStream | + aStream := WriteStream on: (String new: 100). + self tempNames + doWithIndex: [:title :index | + indent timesRepeat: [aStream tab]. + aStream nextPutAll: title; nextPut: $:; space; tab. + aStream nextPutAll: + ((self tempAt: index) printStringLimitedTo: (sizeLimit -3 -title size max: 1)). + aStream cr]. + ^aStream contents! Item was added: + ----- Method: InstructionStream>>abstractPC (in category '*Tools-Debugger-support') ----- + abstractPC + ^self method abstractPCForConcretePC: pc! Item was added: + ----- Method: InstructionStream>>debuggerMap (in category '*Tools-Debugger-support') ----- + debuggerMap + ^self method debuggerMap! Item was added: + ----- Method: Workspace>>expressionEvaluated:result: (in category 'menu commands') ----- + expressionEvaluated: anExpression result: anObject + + self changed: #style!

1 0

The Trunk: 60Deprecated-pre.55.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Patrick Rein uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-pre.55.mcz ==================== Summary ==================== Name: 60Deprecated-pre.55 Author: pre Time: 2 October 2019, 3:27:35.842738 pm UUID: f24a9d5c-8b9f-8147-9d0d-945f25258f5f Ancestors: 60Deprecated-mt.54 Deprecates asMutator =============== Diff against 60Deprecated-mt.54 =============== Item was added: + ----- Method: Symbol>>asMutator (in category '*60Deprecated-converting') ----- + asMutator + "Return a setter message from a getter message. For example, #name asMutator returns #name:" + self deprecated: 'Use #asSimpleSetter instead'. + ^ self last = $: + ifTrue: [ self ] + ifFalse: [ (self copyWith: $:) asSymbol ]!

1 0

The Trunk: Morphic-pre.1553.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1553.mcz ==================== Summary ==================== Name: Morphic-pre.1553 Author: pre Time: 2 October 2019, 3:22:00.023738 pm UUID: 4a5a6803-e5f0-f64b-918e-f3ba0dad92cb Ancestors: Morphic-ul.1552 Migrates NewBalloonMorph>>#move to #asSimpleSetter =============== Diff against Morphic-ul.1552 =============== Item was changed: ----- Method: NewBalloonMorph>>move: (in category 'geometry') ----- move: targetPoint + self perform: self orientation asSimpleSetter with: targetPoint.! - self perform: self orientation asMutator with: targetPoint.!

1 0

The Trunk: Tools-pre.898.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.898.mcz ==================== Summary ==================== Name: Tools-pre.898 Author: pre Time: 2 October 2019, 3:18:06.775738 pm UUID: febe3387-5310-944b-b869-de66d6ccb0d9 Ancestors: Tools-mt.897 Migrates createInstVarAccessors to asSimpleSetter =============== Diff against Tools-mt.897 =============== Item was changed: ----- Method: Behavior>>createInstVarAccessors (in category '*Tools-Browser-accessors') ----- createInstVarAccessors "Create getters and setters for all inst vars defined here, except do NOT clobber or override any selectors already understood by me" self instVarNames collect: [:each | each asSymbol] thenDo: [:instVar | (self canUnderstand: instVar) ifFalse: [self createGetterFor: instVar]. + (self canUnderstand: instVar asSimpleSetter) ifFalse: [self createSetterFor: instVar]]. - (self canUnderstand: instVar asMutator) ifFalse: [self createSetterFor: instVar]]. !

1 0

The Trunk: Tests-pre.420.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Patrick Rein uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-pre.420.mcz ==================== Summary ==================== Name: Tests-pre.420 Author: pre Time: 2 October 2019, 3:15:32.306738 pm UUID: 3989d8ae-f068-3743-b798-10cb9af692c7 Ancestors: Tests-ct.419 Adds isSimpleSetter and asSimpleSetter tests =============== Diff against Tests-ct.419 =============== Item was added: + TestCase subclass: #StringSystemSupportTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-System-Support'! Item was added: + ----- Method: StringSystemSupportTest>>testAsSimpleSetter (in category 'tests') ----- + testAsSimpleSetter + self + assert: #x asSimpleSetter = #x: ; + assert: #x: asSimpleSetter = #x: ; + assert: #x asSimpleSetter isSymbol! Item was added: + ----- Method: StringSystemSupportTest>>testIsSimpleSetter (in category 'tests') ----- + testIsSimpleSetter + self + assert: #x: isSimpleSetter ; + deny: #x isSimpleSetter ; + deny: #+ isSimpleSetter ; + deny: #a:b: isSimpleSetter!

1 0

The Trunk: System-pre.1111.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Patrick Rein uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-pre.1111.mcz ==================== Summary ==================== Name: System-pre.1111 Author: pre Time: 2 October 2019, 3:14:07.191738 pm UUID: 44b24cb6-3202-4748-b302-738d8c3df482 Ancestors: System-pre.1110 Migrates FilePackage methods to asSimpleSetter. =============== Diff against System-pre.1110 =============== Item was changed: ----- Method: FilePackage>>fileInFrom: (in category 'reading') ----- fileInFrom: aStream | changes | changes := ChangeSet scanFile: aStream from: 0 to: aStream size. aStream close. ('Processing ', self packageName) displayProgressFrom: 1 to: changes size during:[:bar| | chgRec | 1 to: changes size do:[:i| bar value: i. chgRec := changes at: i. + self perform: chgRec type asSimpleSetter with: chgRec. - self perform: chgRec type asMutator with: chgRec. ]. ].! Item was changed: ----- Method: FilePackage>>fromStream:named: (in category 'reading') ----- fromStream: aStream named: aName | changes | changes := ChangeSet scanFile: aStream from: 0 to: aStream size. aStream close. ('Processing ', aName) displayProgressFrom: 1 to: changes size during:[:bar| | chgRec | 1 to: changes size do:[:i| bar value: i. chgRec := changes at: i. + self perform: chgRec type asSimpleSetter with: chgRec. - self perform: chgRec type asMutator with: chgRec. ]. ].!

1 0

The Trunk: System-pre.1110.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Patrick Rein uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-pre.1110.mcz ==================== Summary ==================== Name: System-pre.1110 Author: pre Time: 2 October 2019, 3:12:18.602738 pm UUID: 9b6a14ee-b7dd-664d-b120-58ec32ad76b7 Ancestors: System-mt.1109 Adds asSimpleSetter and isSimpleSetter to String. =============== Diff against System-mt.1109 =============== Item was changed: ----- Method: Preferences class>>addPragmaPreference: (in category 'add/remove') ----- addPragmaPreference: pragma "Note that there will be no accessor method generated because the pragma's method does already govern that." | preference | ((pragma keyword beginsWith: #preference:) and: [self respondsTo: pragma keyword]) ifFalse: [ "no pragma pref to be defined. do nothing" ^ self]. self assert: pragma methodClass isMeta. preference := self perform: pragma keyword withArguments: pragma arguments. preference provider: pragma methodClass theNonMetaClass getter: pragma method selector + setter: pragma method selector asSimpleSetter. - setter: pragma method selector asMutator. self atomicUpdatePreferences: [ :copyOfDictionaryOfPreferences | copyOfDictionaryOfPreferences at: preference id put: preference]. ^ preference! Item was added: + ----- Method: String>>asSimpleSetter (in category '*System-Support') ----- + asSimpleSetter + "Return a setter message from a getter message. For example, #name asMutator returns #name:" + ^ self last = $: + ifTrue: [ self asSymbol ] + ifFalse: [ (self copyWith: $:) asSymbol ]! Item was added: + ----- Method: String>>isSimpleSetter (in category '*System-Support') ----- + isSimpleSetter + + ^ self isKeyword and: [self numArgs = 1]!

1 0

The Trunk: CollectionsTests-pre.321.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.321.mcz ==================== Summary ==================== Name: CollectionsTests-pre.321 Author: pre Time: 2 October 2019, 3:10:28.551738 pm UUID: a1f686f0-7727-eb40-929a-c529ee66af0c Ancestors: CollectionsTests-jr.320 Removes asMutator and isMutator tests =============== Diff against CollectionsTests-jr.320 =============== Item was removed: - ----- Method: SymbolTest>>testAsMutator (in category 'tests') ----- - testAsMutator - self - assert: #x asMutator = #x: ; - assert: #x: asMutator = #x: ; - assert: #x asMutator isSymbol! Item was removed: - ----- Method: SymbolTest>>testIsMutator (in category 'tests - testing') ----- - testIsMutator - self - assert: #x: isMutator ; - deny: #x isMutator ; - deny: #+ isMutator ; - deny: #a:b: isMutator!

1 0

The Trunk: ShoutCore-ct.74.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ct.74.mcz ==================== Summary ==================== Name: ShoutCore-ct.74 Author: ct Time: 2 October 2019, 2:12:06.443339 pm UUID: 5c0d2d00-28a2-7340-9e42-d11f20c2f6b5 Ancestors: ShoutCore-ct.73 Simplifies and corrects context dependent styling. Makes ShoutTests-ct.32 pass again. Thanks to Levente! =============== Diff against ShoutCore-ct.73 =============== Item was changed: ----- Method: SHParserST80>>initializeVariablesFromContext (in category 'parse support') ----- initializeVariablesFromContext | contextSourcePcIndex contextSourceParser | contextSourcePcIndex := (context debuggerMap rangeForPC: context pc in: context method contextIsActiveContext: true "little white lie to work in every situation") start. contextSourceParser := self class new classOrMetaClass: context method methodClass; environment: self environment; source: (context method getSource first: contextSourcePcIndex); yourself. contextSourceParser parse. + arguments := contextSourceParser activeArguments. + temporaries := contextSourceParser activeTemporaries.! - arguments at: 1 put: ((contextSourceParser activeArguments - reject: #isNil) gather: #yourself) asOrderedCollection. - temporaries at: 1 put: ((contextSourceParser activeTemporaries - reject: #isNil) gather: #yourself) asOrderedCollection.!

1 0

The Trunk: ShoutCore-ct.73.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ct.73.mcz ==================== Summary ==================== Name: ShoutCore-ct.73 Author: ct Time: 28 September 2019, 11:31:09.24777 pm UUID: 27e05259-bafa-0749-827d-b54de84bb8d2 Ancestors: ShoutCore-ct.72 Fixes a bug in context-dependent styling, as described in [1]. Until proved otherwise, we cannot distinguish between args and tempvars via DebuggerMap, so shout-reparse the original context source up to the place where the provided context starts and access the active variables from the nested shout parser. (Minimal example to reproduce the old bug: Do it: [:x| [:z | (x*z) halt] value: 7] value: 6 And style [z] in the context of #halt - it was wrongly styled as a tempvar before.) [1] http://forum.world.st/Distinguishing-temp-vars-and-arguments-via-DebuggerMa… =============== Diff against ShoutCore-ct.72 =============== Item was added: + ----- Method: SHParserST80>>activeArguments (in category 'accessing') ----- + activeArguments + "Parsed arguments that are in the active scope" + ^ arguments! Item was added: + ----- Method: SHParserST80>>activeTemporaries (in category 'accessing') ----- + activeTemporaries + "Parsed temporaries that are in the active scope" + ^ temporaries! Item was changed: ----- Method: SHParserST80>>initializeInstanceVariables (in category 'parse support') ----- initializeInstanceVariables instanceVariables := classOrMetaClass ifNil: [ #() ] ifNotNil: [ classOrMetaClass allInstVarNames asArray ]. allowUnderscoreAssignments := Scanner allowUnderscoreAsAssignment. allowUnderscoreSelectors := Scanner prefAllowUnderscoreSelectors. allowBlockArgumentAssignment := Scanner allowBlockArgumentAssignment. sourcePosition := 1. arguments ifNil: [ arguments := OrderedCollection with: nil ] ifNotNil: [ arguments reset; addLast: nil ]. temporaries ifNil: [ temporaries := OrderedCollection with: nil ] ifNotNil: [ temporaries reset; addLast: nil ]. + context ifNotNil: [ self initializeVariablesFromContext ]. - context ifNotNil: [ - | contextArgumentCount contextVariableNames | - contextArgumentCount := context numArgs. - contextVariableNames := context tempNames asOrderedCollection. - contextArgumentCount > 0 ifTrue: [ - arguments at: 1 put: (contextVariableNames first: contextArgumentCount) ]. - contextArgumentCount < contextVariableNames size ifTrue: [ - temporaries at: 1 put: (contextVariableNames allButFirst: contextArgumentCount) ] ]. bracketDepth := 0. ranges ifNil: [ ranges := OrderedCollection new: 40 "Covers over 80% of all methods." ] ifNotNil: [ ranges reset ]! Item was added: + ----- Method: SHParserST80>>initializeVariablesFromContext (in category 'parse support') ----- + initializeVariablesFromContext + + | contextSourcePcIndex contextSourceParser | + contextSourcePcIndex := (context debuggerMap + rangeForPC: context pc + in: context method + contextIsActiveContext: true "little white lie to work in every situation") + start. + contextSourceParser := self class new + classOrMetaClass: context method methodClass; + environment: self environment; + source: (context method getSource first: contextSourcePcIndex); + yourself. + contextSourceParser parse. + arguments at: 1 put: ((contextSourceParser activeArguments + reject: #isNil) gather: #yourself) asOrderedCollection. + temporaries at: 1 put: ((contextSourceParser activeTemporaries + reject: #isNil) gather: #yourself) asOrderedCollection.!

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 October 2019