Packages November 2016

packages@lists.squeakfoundation.org

1 participants
22 discussions

The Trunk: Tools-topa.734.mcz
by commits＠source.squeak.org 30 Nov '16

30 Nov '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.734.mcz ==================== Summary ==================== Name: Tools-topa.734 Author: topa Time: 30 November 2016, 9:11:47.629631 pm UUID: 27819c9e-a945-4829-bc77-1feffe7f997f Ancestors: Tools-topa.733 ¯\_(ô_o)_/¯ =============== Diff against Tools-topa.733 =============== Item was changed: ----- Method: Behavior>>createGetterFor: (in category '*Tools-Browser-accessors') ----- createGetterFor: aName | code | + code := '{1}\ \ ^ {1}\' withCRs format: {aName.}. - code := '{1}\ <generated>\\ ^ {1}\' withCRs format: {aName.}. self compile: code classified: #accessing notifying: nil.! Item was changed: ----- Method: Behavior>>createSetterFor: (in category '*Tools-Browser-accessors') ----- createSetterFor: aName | code | + code := '{1}: anObject\ \ {2}{1} := anObject.\' withCRs - code := '{1}: anObject\ <generated>\\ {2}{1} := anObject.\' withCRs format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: [''].}. self compile: code classified: #accessing notifying: nil.!

1 0

The Trunk: EToys-bf.275.mcz
by commits＠source.squeak.org 30 Nov '16

30 Nov '16

Bert Freudenberg uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-bf.275.mcz ==================== Summary ==================== Name: EToys-bf.275 Author: bf Time: 30 November 2016, 3:44:35.80125 pm UUID: a8795b38-6b55-4db2-8d8d-55417f3193b9 Ancestors: EToys-bf.274 Disable #aboutToLeaveWorld sending deprectated #removeModalWindow =============== Diff against EToys-bf.274 =============== Item was changed: (PackageInfo named: 'EToys') postscript: '"Remove an obsolete class that somehow got into the system" (Smalltalk environment includesKey: #KedamaTurtleVectorPlayer) ifTrue: [ Smalltalk environment removeKey: #KedamaTurtleVectorPlayer. SystemOrganization removeMissingClasses]. + "Clear weak message sends to remove modal windows from worlds that are closing." + (WeakMessageSend allInstances select: [:wm | + (wm receiver isKindOf: PasteUpMorph) and: [wm selector = #removeModalWindow]]) + do: [:wm | wm receiver: nil].'! - '!

1 0

The Trunk: EToys-bf.274.mcz
by commits＠source.squeak.org 29 Nov '16

29 Nov '16

Bert Freudenberg uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-bf.274.mcz ==================== Summary ==================== Name: EToys-bf.274 Author: bf Time: 29 November 2016, 10:03:09.903456 pm UUID: 4226f714-972f-4223-979a-9d5a413c7c68 Ancestors: EToys-nice.273 Remove spurious KedamaTurtleVectorPlayer class =============== Diff against EToys-nice.273 =============== Item was added: + (PackageInfo named: 'EToys') postscript: '"Remove an obsolete class that somehow got into the system" + (Smalltalk environment includesKey: #KedamaTurtleVectorPlayer) ifTrue: [ + Smalltalk environment removeKey: #KedamaTurtleVectorPlayer. + SystemOrganization removeMissingClasses]. + + '!

1 0

The Trunk: System-bf.919.mcz
by commits＠source.squeak.org 29 Nov '16

29 Nov '16

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.919.mcz ==================== Summary ==================== Name: System-bf.919 Author: bf Time: 29 November 2016, 4:25:21.448787 pm UUID: 74ade1d7-aa4a-41a2-b229-894c3c2602ac Ancestors: System-cmm.918 Another fix for reading Characters from SmartRefStream =============== Diff against System-cmm.918 =============== Item was changed: ----- Method: SmartRefStream>>initShapeDicts (in category 'read write') ----- initShapeDicts "Initialize me. " self flag: #bobconv. "These must stay constant. When structures read in, then things can change." + steady := {Array. Dictionary. Association. ByteString. SmallInteger. Character} asSet. - steady := {Array. Dictionary. Association. ByteString. SmallInteger} asSet. renamed ifNil: [ renamed := Dictionary new. "(old class name symbol -> new class name)" renamedConv := Dictionary new "(oldClassNameSymbol -> conversionSelectorInNewClass)" ]. self initKnownRenames!

1 0

The Trunk: Tools-topa.721.mcz
by commits＠source.squeak.org 29 Nov '16

29 Nov '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.721.mcz ==================== Summary ==================== Name: Tools-topa.721 Author: topa Time: 29 November 2016, 3:27:14.942944 pm UUID: 2d64a7b9-8dcb-46fd-9371-c9dcb3f9cfd1 Ancestors: Tools-mt.720 Accessor generation. Makes for a nice class hook and pushes responsibility to the class. =============== Diff against Tools-mt.720 =============== Item was added: + ----- Method: Behavior>>createGetterFor: (in category '*Tools-Browser-accessors') ----- + createGetterFor: aName + + | code | + code := '{1}\ <generated>\\ ^ {1}\' withCRs format: {aName.}. + self compile: code classified: #accessing notifying: nil.! Item was added: + ----- 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 asMutator) ifFalse: [self createSetterFor: instVar]]. + + ! Item was added: + ----- Method: Behavior>>createSetterFor: (in category '*Tools-Browser-accessors') ----- + createSetterFor: aName + + | code | + code := '{1}: anObject\ <generated>\\ {2}{1} := anObject.\' withCRs + format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: [''].}. + self compile: code classified: #accessing notifying: nil.! Item was changed: ----- Method: Browser>>createInstVarAccessors (in category 'class functions') ----- createInstVarAccessors - "Create getters and setters for all inst vars defined at the level of the current class selection, - except do NOT clobber or override any selectors already understood by the instances of the selected class" + self selectedClassOrMetaClass + ifNotNil: [:aClass | aClass createInstVarAccessors]. + ! - self selectedClassOrMetaClass ifNotNil: - [:aClass| | cr | - cr := String with: Character cr. - aClass instVarNames do: - [:aName | | newMessage setter | - (aClass canUnderstand: aName asSymbol) ifFalse: - [newMessage := - aName, cr, cr, - ' ^ ', aName. - aClass compile: newMessage classified: #accessing notifying: nil]. - (aClass canUnderstand: (setter := aName, ':') asSymbol) ifFalse: - [newMessage := - setter, ' anObject', cr, cr, - (aClass settersReturnValue ifTrue: [' ^'] ifFalse: [' ']), - aName, ' := anObject'. - aClass compile: newMessage classified: #accessing notifying: nil]]]!

1 0

The Trunk: Tools-topa.733.mcz
by commits＠source.squeak.org 29 Nov '16

29 Nov '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.733.mcz ==================== Summary ==================== Name: Tools-topa.733 Author: topa Time: 29 November 2016, 3:30:41.552525 pm UUID: d6d53751-c59e-42e7-85b1-cc4278da5052 Ancestors: Tools-nice.732, Tools-topa.721 merge =============== Diff against Tools-nice.732 =============== Item was added: + ----- Method: Behavior>>createGetterFor: (in category '*Tools-Browser-accessors') ----- + createGetterFor: aName + + | code | + code := '{1}\ <generated>\\ ^ {1}\' withCRs format: {aName.}. + self compile: code classified: #accessing notifying: nil.! Item was added: + ----- 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 asMutator) ifFalse: [self createSetterFor: instVar]]. + + ! Item was added: + ----- Method: Behavior>>createSetterFor: (in category '*Tools-Browser-accessors') ----- + createSetterFor: aName + + | code | + code := '{1}: anObject\ <generated>\\ {2}{1} := anObject.\' withCRs + format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: [''].}. + self compile: code classified: #accessing notifying: nil.! Item was changed: ----- Method: Browser>>createInstVarAccessors (in category 'class functions') ----- createInstVarAccessors - "Create getters and setters for all inst vars defined at the level of the current class selection, - except do NOT clobber or override any selectors already understood by the instances of the selected class" + self selectedClassOrMetaClass + ifNotNil: [:aClass | aClass createInstVarAccessors]. + ! - self selectedClassOrMetaClass ifNotNil: - [:aClass| | cr | - cr := String with: Character cr. - aClass instVarNames do: - [:aName | | newMessage setter | - (aClass canUnderstand: aName asSymbol) ifFalse: - [newMessage := - aName, cr, cr, - ' ^ ', aName. - aClass compile: newMessage classified: #accessing notifying: nil]. - (aClass canUnderstand: (setter := aName, ':') asSymbol) ifFalse: - [newMessage := - setter, ' anObject', cr, cr, - (aClass settersReturnValue ifTrue: [' ^'] ifFalse: [' ']), - aName, ' := anObject'. - aClass compile: newMessage classified: #accessing notifying: nil]]]!

1 0

The Trunk: Monticello-cmm.658.mcz
by commits＠source.squeak.org 27 Nov '16

27 Nov '16

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.658.mcz ==================== Summary ==================== Name: Monticello-cmm.658 Author: cmm Time: 27 November 2016, 5:32:56.411486 pm UUID: 4e8d4c9a-f381-4d9c-bfd6-3a6cfc7c5e09 Ancestors: Monticello-cmm.657 missed renaming the #browseMcMethodHistory service =============== Diff against Monticello-cmm.657 =============== Item was changed: + (PackageInfo named: 'Monticello') preamble: '"Woops, somehow missed the #browseMcMethodRevisions Service." - (PackageInfo named: 'Monticello') preamble: '"Former MCRepository class>>#unload. Unregister the old names." | methodMenuServiceCategory classMenuServiceCategory | methodMenuServiceCategory := ServiceRegistry current serviceWithId: #browserMethodMenu. methodMenuServiceCategory services copy do: [ : each | (#(#browseMcMethodHistory #browseMcMethodOrigin ) includes: each id) ifTrue: [ methodMenuServiceCategory services remove: each ] ]. classMenuServiceCategory := ServiceRegistry current serviceWithId: #browserClassMenu. classMenuServiceCategory services copy do: [ : each | (#(#browseMcClassHistory #browseMcClassOrigin ) includes: each id) ifTrue: [ classMenuServiceCategory services remove: each ] ]'! Item was changed: ----- Method: MCRepository class>>browseMethodRevisionsService (in category 'ui-support') ----- browseMethodRevisionsService ^ ServiceAction + id: #browseMcMethodRevisions + text: 'browse revisions' - id: #browseMcMethodHistory - text: 'browse repository revisions' button: 'mc' description: 'Browse revisions of this method from the first-listed HTTP repository of this package.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcMethodRevisions ] condition: [ : aBrowserRequestor | true ]! Item was changed: + (PackageInfo named: 'Monticello') postscript: '"Woops somehow missed renaming the #browseMcMethodHistory service." - (PackageInfo named: 'Monticello') postscript: '"Just renamed ''history'' nomenclature to ''revisions''." MCHttpRepository initialize.'!

1 0

The Trunk: Monticello-cmm.657.mcz
by commits＠source.squeak.org 27 Nov '16

27 Nov '16

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.657.mcz ==================== Summary ==================== Name: Monticello-cmm.657 Author: cmm Time: 27 November 2016, 5:09:50.746119 pm UUID: 78f40613-8652-4312-82b4-b429582e34f8 Ancestors: Monticello-bf.656 Change "history" nomenclature to "revisions". =============== Diff against Monticello-bf.656 =============== Item was changed: + (PackageInfo named: 'Monticello') preamble: '"Former MCRepository class>>#unload. Unregister the old names." + | methodMenuServiceCategory classMenuServiceCategory | + methodMenuServiceCategory := ServiceRegistry current serviceWithId: #browserMethodMenu. + methodMenuServiceCategory services copy do: + [ : each | (#(#browseMcMethodHistory #browseMcMethodOrigin ) includes: each id) ifTrue: [ methodMenuServiceCategory services remove: each ] ]. + classMenuServiceCategory := ServiceRegistry current serviceWithId: #browserClassMenu. + classMenuServiceCategory services copy do: + [ : each | (#(#browseMcClassHistory #browseMcClassOrigin ) includes: each id) ifTrue: [ classMenuServiceCategory services remove: each ] ]'! - (PackageInfo named: 'Monticello') preamble: 'MCFileBasedRepository allSubInstances do: [ : each | each flushCache ]'! Item was removed: - ----- Method: BrowserRequestor>>browseMcClassHistory (in category '*monticello-history') ----- - browseMcClassHistory - "Open a browser on all versions of this class available in the MC repository for this package." - self getClass - ifNil: [ UIManager inform: 'No class selected' ] - ifNotNilDo: - [ : theClass | theClass theNonMetaClass mcModel - ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support Monticello history.' ] - ifNotNil: - [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]! Item was added: + ----- Method: BrowserRequestor>>browseMcClassRevisions (in category '*monticello-revisions') ----- + browseMcClassRevisions + "Open a browser on all versions of this class available in the MC repository for this package." + self getClass + ifNil: [ UIManager inform: 'No class selected' ] + ifNotNilDo: + [ : theClass | theClass theNonMetaClass mcModel + ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support browsing Monticello revisions.' ] + ifNotNil: + [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]! Item was removed: - ----- Method: BrowserRequestor>>browseMcMethodHistory (in category '*monticello-history') ----- - browseMcMethodHistory - "Open a browser on all versions of this method available in the MC repository for this package." - self selectedMethodReference - ifNil: [ UIManager inform: 'No method selected' ] - ifNotNilDo: - [ : methodReference | methodReference mcModel - ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support Monticello history.' ] - ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]! Item was added: + ----- Method: BrowserRequestor>>browseMcMethodRevisions (in category '*monticello-revisions') ----- + browseMcMethodRevisions + "Open a browser on all versions of this method available in the MC repository for this package." + self selectedMethodReference + ifNil: [ UIManager inform: 'No method selected' ] + ifNotNilDo: + [ : methodReference | methodReference mcModel + ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support browsing Monticello revisions.' ] + ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]! Item was changed: + ----- Method: BrowserRequestor>>selectedMethodReference (in category '*monticello-revisions') ----- - ----- Method: BrowserRequestor>>selectedMethodReference (in category '*monticello-history') ----- selectedMethodReference ^ MethodReference class: self getClass selector: self getBrowser selectedMessageName! Item was removed: - ----- Method: Class>>mcHistory (in category '*monticello') ----- - mcHistory - "Answer a collection of MCClassDefinitions for this Class, which are in the first Magma-backed repository in the list of repositories of my working-copy." - ^ self mcModel ifNotNil: [ : mcmodel | mcmodel historyOf: self asClassDefinition ]! Item was changed: ----- Method: Class>>mcPatchOperations (in category '*monticello') ----- mcPatchOperations "Answer a collection of MCPatchOperations that can be displayed in a MCPatchBrowser which will reflect the history of this methods definition in relation to each other (not simply compared to the image version)." + ^ (self mcRevisions reversed + inject: OrderedCollection new + into: + [ : coll : each | coll + ifEmpty: + [ coll + add: (MCAddition of: each) ; + yourself ] + ifNotEmpty: + [ coll + add: - ^(self mcHistory reversed - inject: OrderedCollection new - into: - [ : coll : each | coll - ifEmpty: - [ coll - add: (MCAddition of: each) ; - yourself ] - ifNotEmpty: - [ coll - add: (MCModification of: (coll last isAddition ifTrue: [ coll last definition ] ifFalse: [ coll last modification ]) to: each) ; + yourself ] ]) reversed! - yourself ] ]) reversed! Item was added: + ----- Method: Class>>mcRevisions (in category '*monticello') ----- + mcRevisions + "Answer a collection of MCClassDefinitions for this Class, which are in the first Magma-backed repository in the list of repositories of my working-copy." + ^ self mcModel ifNotNil: [ : mcmodel | mcmodel revisionsOf: self asClassDefinition ]! Item was removed: - ----- Method: MCDefinition>>sortHistory: (in category 'private') ----- - sortHistory: anOrderedCollection - ^ anOrderedCollection sort: [ : a : b | a dateAndTime > b dateAndTime ]! Item was changed: ----- Method: MCHttpRepository class>>initialize (in category 'class initialization') ----- initialize self unload. + (ServiceRegistry current serviceWithId: #browserMethodMenu) services add: self browseMethodRevisionsService. + (ServiceRegistry current serviceWithId: #browserClassMenu) services add: self browseClassRevisionsService! - (ServiceRegistry current serviceWithId: #browserMethodMenu) services add: self browseMcMethodHistoryService. - (ServiceRegistry current serviceWithId: #browserClassMenu) services add: self browseMcClassHistoryService! Item was added: + ----- Method: MCHttpRepository class>>unload (in category 'class initialization') ----- + unload + | methodMenuServiceCategory classMenuServiceCategory | + methodMenuServiceCategory := ServiceRegistry current serviceWithId: #browserMethodMenu. + methodMenuServiceCategory services copy do: + [ : each | (#(#browseMcMethodRevisions #browseMcMethodOrigin ) includes: each id) ifTrue: [ methodMenuServiceCategory services remove: each ] ]. + classMenuServiceCategory := ServiceRegistry current serviceWithId: #browserClassMenu. + classMenuServiceCategory services copy do: + [ : each | (#(#browseMcClassRevisions #browseMcClassOrigin ) includes: each id) ifTrue: [ classMenuServiceCategory services remove: each ] ]! Item was removed: - ----- Method: MCHttpRepository>>historyOf: (in category 'accessing') ----- - historyOf: aMCDefinition - | reply | - reply := self - httpGet: 'history' - for: aMCDefinition. - ^ reply isString - ifTrue: - [ Warning signal: 'History request failed. Server ''reply'' in debugger.'. - Array empty ] - ifFalse: [ (ReferenceStream on: reply) next ]! Item was added: + ----- Method: MCHttpRepository>>revisionsOf: (in category 'accessing') ----- + revisionsOf: aMCDefinition + | reply | + reply := self + httpGet: 'history' + for: aMCDefinition. + ^ reply isString + ifTrue: + [ Warning signal: 'Revisions request failed. Server ''reply'' in debugger.'. + Array empty ] + ifFalse: [ (ReferenceStream on: reply) next ]! Item was changed: ----- Method: MCOperationsBrowser>>defaultLabel (in category 'ui') ----- defaultLabel + ^ label ifNil: [ 'Revisions Browser' ]! - ^ label ifNil: [ 'Editions Browser' ]! Item was added: + ----- Method: MCRepository class>>browseClassRevisionsService (in category 'ui-support') ----- + browseClassRevisionsService + ^ ServiceAction + id: #browseMcClassRevisions + text: 'browse revisions' + button: 'mc' + description: 'Browse revisions of this class definition from the first-listed HTTP repository of this package.' + action: + [ : aBrowserRequestor | aBrowserRequestor browseMcClassRevisions ] + condition: + [ : aBrowserRequestor | true ]! Item was removed: - ----- Method: MCRepository class>>browseMcClassHistoryService (in category 'ui-support') ----- - browseMcClassHistoryService - ^ ServiceAction - id: #browseMcClassHistory - text: 'browse repository editions' - button: 'mc' - description: 'Browse editions of this class definition from the first-listed HTTP repository of this package.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcClassHistory ] - condition: - [ : aBrowserRequestor | true ]! Item was removed: - ----- Method: MCRepository class>>browseMcMethodHistoryService (in category 'ui-support') ----- - browseMcMethodHistoryService - ^ ServiceAction - id: #browseMcMethodHistory - text: 'browse repository editions' - button: 'mc' - description: 'Browse editions of this method from the first-listed HTTP repository of this package.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcMethodHistory ] - condition: - [ : aBrowserRequestor | true ]! Item was added: + ----- Method: MCRepository class>>browseMethodRevisionsService (in category 'ui-support') ----- + browseMethodRevisionsService + ^ ServiceAction + id: #browseMcMethodHistory + text: 'browse repository revisions' + button: 'mc' + description: 'Browse revisions of this method from the first-listed HTTP repository of this package.' + action: + [ : aBrowserRequestor | aBrowserRequestor browseMcMethodRevisions ] + condition: + [ : aBrowserRequestor | true ]! Item was removed: - ----- Method: MCRepository class>>unload (in category 'ui-support') ----- - unload - | methodMenuServiceCategory classMenuServiceCategory | - methodMenuServiceCategory := ServiceRegistry current serviceWithId: #browserMethodMenu. - methodMenuServiceCategory services copy do: - [ : each | (#(#browseMcMethodHistory #browseMcMethodOrigin ) includes: each id) ifTrue: [ methodMenuServiceCategory services remove: each ] ]. - classMenuServiceCategory := ServiceRegistry current serviceWithId: #browserClassMenu. - classMenuServiceCategory services copy do: - [ : each | (#(#browseMcClassHistory #browseMcClassOrigin ) includes: each id) ifTrue: [ classMenuServiceCategory services remove: each ] ]! Item was removed: - ----- Method: MethodReference>>mcHistory (in category '*monticello') ----- - mcHistory - "Answer a collection of MCMethodDefinitions for this method, which are in the first Magma-backed repository in the list of repositories of my working-copy." - ^ self mcModel ifNotNil: [ : mcmodel | mcmodel historyOf: self asMethodDefinition ]! Item was changed: ----- Method: MethodReference>>mcPatchOperations (in category '*monticello') ----- mcPatchOperations "Answer a collection of MCPatchOperations that can be displayed in a MCPatchBrowser which will reflect the history of this objects definition in relation to each other (not simply compared to the image version)." + ^(self mcRevisions reversed - ^(self mcHistory reversed inject: OrderedCollection new into: [ : coll : each | coll ifEmpty: [ coll add: (MCAddition of: each) ; yourself ] ifNotEmpty: [ coll add: + (MCModification + of: + (coll last isAddition + ifTrue: [ coll last definition ] + ifFalse: [ coll last modification ]) + to: each) ; - (MCModification - of: - (coll last isAddition - ifTrue: [ coll last definition ] - ifFalse: [ coll last modification ]) - to: each) ; yourself ] ]) reversed! Item was added: + ----- Method: MethodReference>>mcRevisions (in category '*monticello') ----- + mcRevisions + "Answer a collection of MCMethodDefinitions for this method, which are in the first Magma-backed repository in the list of repositories of my working-copy." + ^ self mcModel ifNotNil: [ : mcmodel | mcmodel revisionsOf: self asMethodDefinition ]! Item was changed: + (PackageInfo named: 'Monticello') postscript: '"Just renamed ''history'' nomenclature to ''revisions''." + MCHttpRepository initialize.'! - (PackageInfo named: 'Monticello') postscript: 'MCHttpRepository initialize.'!

1 0

The Trunk: Morphic-ul.1315.mcz
by commits＠source.squeak.org 26 Nov '16

26 Nov '16

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1315.mcz ==================== Summary ==================== Name: Morphic-ul.1315 Author: ul Time: 3 November 2016, 4:50:55.012719 pm UUID: 148cb3eb-d04d-40bc-871c-57463a764c1e Ancestors: Morphic-nice.1314 - now that baseColor is initialized in SimpleBorder, make sure its subclasses expect it to be initialized as well =============== Diff against Morphic-nice.1314 =============== Item was changed: ----- Method: ComplexBorder>>trackColorFrom: (in category 'color tracking') ----- trackColorFrom: aMorph + baseColor isTransparent ifTrue:[self color: aMorph raisedColor].! - baseColor ifNil:[self color: aMorph raisedColor].! Item was changed: ----- Method: InsetBorder>>trackColorFrom: (in category 'color tracking') ----- trackColorFrom: aMorph + baseColor isTransparent ifTrue:[self color: aMorph insetColor].! - baseColor ifNil:[self color: aMorph insetColor].! Item was changed: ----- Method: RaisedBorder>>trackColorFrom: (in category 'color tracking') ----- trackColorFrom: aMorph + baseColor isTransparent ifTrue:[self color: aMorph raisedColor].! - baseColor ifNil:[self color: aMorph raisedColor].!

1 0

The Trunk: Monticello-bf.656.mcz
by commits＠source.squeak.org 25 Nov '16

25 Nov '16

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.656.mcz ==================== Summary ==================== Name: Monticello-bf.656 Author: bf Time: 25 November 2016, 12:17:47.494828 pm UUID: b1f7d626-c985-4400-9d5e-4cc68459b1cf Ancestors: Monticello-bf.655 Don't shadow 'label' var. Also, rename single use of "editions". =============== Diff against Monticello-bf.655 =============== Item was removed: - ----- Method: MCOperationsBrowser>>isViewingEditions (in category 'accessing') ----- - isViewingEditions - ^self items size > 1 and: - [self items allSatisfy: - [:each | each definition isRevisionOf: self items first definition]]! Item was added: + ----- Method: MCOperationsBrowser>>isViewingRevisions (in category 'accessing') ----- + isViewingRevisions + ^self items size > 1 and: + [self items allSatisfy: + [:each | each definition isRevisionOf: self items first definition]]! Item was changed: ----- Method: MCOperationsBrowser>>list (in category 'accessing') ----- list | showRevision | + showRevision := self isViewingRevisions. + ^ self items collect: [:each | | summary | + summary := showRevision ifTrue: [each summaryAndRevision] ifFalse: [each summary]. - showRevision := self isViewingEditions. - ^ self items collect: [:each | | label | - label := showRevision ifTrue: [each summaryAndRevision] ifFalse: [each summary]. (self reverts includes: each) + ifFalse: [summary] - ifFalse: [label] ifTrue: [Text + string: '( ', summary, ' )' - string: '( ', label, ' )' attributes: (self userInterfaceTheme revertedOperationAttributes ifNil: [{TextEmphasis struckOut}])]]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2016