Squeak-dev November 2016

squeak-dev@lists.squeakfoundation.org

34 participants
77 discussions

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.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 28 Nov '16

28 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 28 Nov '16

28 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

Cannot publish mcm to source.squeak.org?
by Bert Freudenberg 26 Nov '16

26 Nov '16

I was trying to upload a config to SS for testing purposes, I get no error, but afterwards it's nowhere to be found: 1. browse a config (e.g. trunk/update-...) 2. save, choose source.squeak.org/inbox (we don't want to mess with trunk updates) 3. browse inbox repo: no update config The front page of source.squeak.org does not show the log file anymore (I guess that's a bug?) so I can't verify what's going on. - Bert -

2 2

Re: [squeak-dev] [Pharo-dev] About ~= and ~~
by Eliot Miranda 26 Nov '16

26 Nov '16

Hi Peter, I'd appreciate it if you used reply to all to keep the conversation thread going. > On Nov 25, 2016, at 10:31 AM, Peter Uhnak <i.uhnak(a)gmail.com> wrote: > > Out of interest... is the single extra dispatch really that expensive? Yes, in the common case where the send of #== is followed by a jump, as it is in ifNil:ifNotNil: or == foo ifTrue: etc. when #== is inclined the following jump is eliminated and the VM jumps on the condition codes for the comparison. When #== is a real send it answers the true or false objects and the following jump must compare this result against true or false. Note that Sista will be able to perform the inclining optimisation so we will get the performance back once Sista is deployed. > > And speaking of object inequality... I would like to propose "<>" instead of "~=", because I never remember on which side ~ should be.. > > Peter > >> On Wed, Nov 23, 2016 at 05:39:03AM -0800, Aliaksei Syrel wrote: >> Hi >> >> It is been a while... >> So, do we want to replace ~~ with a primitive? :) >> >> Cheers >> Alex >> >> >> >> -- >> View this message in context: http://forum.world.st/About-and-tp3898409p4924391.html >> Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com. >> >

1 0

Re: [squeak-dev] [Cuis] Regular Expressions
by Phil B 26 Nov '16

26 Nov '16

I've got a port of Vasilli's version in github.com/Cuis-Ports I've been using that pretty extensively for years without issues On Nov 22, 2016 11:31 AM, "KenD" <Ken.Dickey(a)whidbey.com> wrote: > On Fri, 18 Nov 2016 10:39:52 -0300 > Edgar De Cleene <edgardec2005(a)gmail.com> wrote: > > > Folks: > > I wish remove tags from HTMlL > > According to https://regex101.com/ and http://www.freeformatter.com/ > regex-tester.html and also of my old Nissus Pro. > > > > <.+?> > > > > Should be a valid expression. > > > > But > > > > regex| > > regex := RxMatcher forString: '<.+?>’. > > > > Gives my an error. > > > > Any help ? > > Edgar, > > Sorry for the delay. Busy lives.. > > > I found https://github.com/garduino/Cuis-Smalltalk-RegEx but this code is > very old and simply loaded fails most test cases (see notes below). > > The Cuis-Smalltalk-RegEx code definitely signals an error for the example > you site, even though > RegEx-Core RxParser DOCUMENTATION c:syntax: > description would appear to support this use case. > > > What source of RegEx are you using? Is there a Cuis Package available? > > > Note that I have zero experience with this package but am happy to help > out as I get time. > > Best wishes, > -KenD > > ========================================================= > https://github.com/garduino/Cuis-Smalltalk-RegEx notes: > > 1) Needs requirements (tests should require core should require Squeak > compatibility). > > 2) Line endings should be newLines. > > 3) Needs added compatibility methods, e.g.: > > ' > Array>>contains: other > > ^ self includes: other > ' > > ' > Character>>sameAs: otherChar > "Case independent compare" > > (self class) = (otherChar class) ifFalse: [ ^ false ]. > > ^(self asLowercase) = (otherChar asLowercase) > ' > ========================================================= > > > _______________________________________________ > Cuis mailing list > Cuis(a)jvuletich.org > http://jvuletich.org/mailman/listinfo/cuis_jvuletich.org >

2 1

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