Packages September 2014

packages@lists.squeakfoundation.org

1 participants
129 discussions

The Trunk: ST80-nice.174.mcz
by commits＠source.squeak.org 11 Sep '14

11 Sep '14

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.174.mcz ==================== Summary ==================== Name: ST80-nice.174 Author: nice Time: 11 September 2014, 11:05:56.454 pm UUID: e7cfd0c2-6a52-4508-b44e-7895d4a110da Ancestors: ST80-nice.173 Remove unecessary dependency on TextEditor and:TextMorphForEditView. There used to be some hackish mixing between st80 and morphic editors, but there's not any more for a while. =============== Diff against ST80-nice.173 =============== Item was changed: ----- Method: ParagraphEditor>>changeEmphasis: (in category 'editing keys') ----- changeEmphasis: characterStream "Change the emphasis of the current selection or prepare to accept characters with the change in emphasis. Emphasis change amounts to a font change. Keeps typeahead." | keyCode attribute oldAttributes index thisSel colors extras | "control 0..9 -> 0..9" keyCode := ('0123456789-=' indexOf: sensor keyboard ifAbsent: [1]) - 1. oldAttributes := paragraph text attributesAt: self pointIndex forStyle: paragraph textStyle. thisSel := self selection. "Decipher keyCodes for Command 0-9..." (keyCode between: 1 and: 5) ifTrue: [ attribute := TextFontChange fontNumber: keyCode ]. keyCode = 6 ifTrue: [ | labels lines | colors := #(#black #magenta #red #yellow #green #blue #cyan #white ). + extras := #('Link to comment of class' 'Link to definition of class' 'Link to hierarchy of class' 'Link to method' ). - extras := ((self isKindOf: TextEditor) and: [(self morph isKindOf: TextMorphForEditView) not]) - ifTrue: ["not a system window" #()] - ifFalse: [#('Link to comment of class' 'Link to definition of class' 'Link to hierarchy of class' 'Link to method' )]. Preferences noviceMode ifTrue: [ labels := colors , #('choose color...' ). lines := #() ] ifFalse: [ labels := colors , #('choose color...' 'Do it' 'Print it' ) , extras , #('be a web URL link' 'Edit hidden info' 'Copy hidden info' ). lines := Array with: colors size + 1 ]. "index := (PopUpMenu labelArray: labels lines: lines) startUp. " index := UIManager default chooseFrom: labels lines: lines. index = 0 ifTrue: [ ^ true]. index <= colors size ifTrue: [ attribute := TextColor color: (Color perform: (colors at: index)) ] ifFalse: [ index := index - colors size - 1. "Re-number!!!!!!" index = 0 ifTrue: [ attribute := self chooseColor ]. index = 1 ifTrue: [ attribute := TextDoIt new. thisSel := attribute analyze: self selection asString ]. index = 2 ifTrue: [ attribute := TextPrintIt new. thisSel := attribute analyze: self selection asString ]. extras size = 0 & (index > 2) ifTrue: [ index := index + 4 "skip those" ]. index = 3 ifTrue: [ attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Comment' ]. index = 4 ifTrue: [ attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Definition' ]. index = 5 ifTrue: [ attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Hierarchy' ]. index = 6 ifTrue: [ attribute := TextLink new. thisSel := attribute analyze: self selection asString ]. index = 7 ifTrue: [ attribute := TextURL new. thisSel := attribute analyze: self selection asString ]. index = 8 ifTrue: [ "Edit hidden info" thisSel := self hiddenInfo. "includes selection" attribute := TextEmphasis normal ]. index = 9 ifTrue: [ "Copy hidden info" self copyHiddenInfo. ^ true ]. "no other action" thisSel ifNil: [ ^ true ] ] ]. (keyCode between: 7 and: 11) ifTrue: [ sensor leftShiftDown ifTrue: [ keyCode = 10 ifTrue: [ attribute := TextKern kern: -1 ]. keyCode = 11 ifTrue: [ attribute := TextKern kern: 1 ] ] ifFalse: [ attribute := TextEmphasis perform: (#(#bold #italic #narrow #underlined #struckOut ) at: keyCode - 6). oldAttributes do: [:att | (att dominates: attribute) ifTrue: [attribute turnOff]] ] ]. keyCode = 0 ifTrue: [attribute := TextEmphasis normal]. beginTypeInBlock ~~ nil ifTrue: [ "only change emphasisHere while typing" self insertTypeAhead: characterStream. emphasisHere := Text addAttribute: attribute toArray: oldAttributes. ^ true ]. self replaceSelectionWith: (thisSel asText addAttribute: attribute). ^ true !

1 0

The Trunk: System-dtl.685.mcz
by commits＠source.squeak.org 07 Sep '14

07 Sep '14

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.685.mcz ==================== Summary ==================== Name: System-dtl.685 Author: dtl Time: 7 September 2014, 4:58:15.377 pm UUID: 55eba121-23d3-41cc-9525-52554adac2ec Ancestors: System-eem.684 Smalltalk isRunningCog should answer false for an interpreter VM =============== Diff against System-eem.684 =============== Item was changed: ----- Method: SmalltalkImage>>isRunningCog (in category 'system attributes') ----- isRunningCog "Answers if we're running on a Cog VM (JIT or StackInterpreter)" + ^( [self vmParameterAt: 42] on: Error do: [] ) - ^(self vmParameterAt: 42) ifNil: [false] ifNotNil: [:numStackPages| numStackPages > 0]!

1 0

The Trunk: System-dtl.685.mcz
by commits＠source.squeak.org 07 Sep '14

07 Sep '14

1 0

The Trunk: System-dtl.685.mcz
by commits＠source.squeak.org 07 Sep '14

07 Sep '14

1 0

The Trunk: Monticello-topa.600.mcz
by commits＠source.squeak.org 05 Sep '14

05 Sep '14

Tobias Pape uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-topa.600.mcz ==================== Summary ==================== Name: Monticello-topa.600 Author: topa Time: 5 September 2014, 10:33:07.063 pm UUID: d3c39c60-0f4d-4452-bd4c-7b76ce3c0c55 Ancestors: Monticello-topa.599 Correction to topa.599: Do not break existing users of MCVersionNameAndMessageRequest. =============== Diff against Monticello-topa.599 =============== Item was changed: ----- Method: MCWorkingCopy>>newVersion (in category 'operations') ----- newVersion + | packageSnapshot parentSnapshot patch patchBlock | - | packageSnapshot parentSnapshot patch | parentSnapshot := self parentSnapshot. + patchBlock := [patch := (packageSnapshot := package snapshot) patchRelativeToBase: parentSnapshot]. + patchBlock value. "Ensure that this is called at least once." ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName initialMessage: self patchMessageSuggestion + patchBlock: patchBlock - patchBlock: [patch := (packageSnapshot := package snapshot) patchRelativeToBase: parentSnapshot] ) ifNotNil: [:tuple | self newVersionWithName: tuple first withBlanksTrimmed message: (self patchMessageStripped: tuple second) + snapshot: ((tuple size >= 3 and: [tuple third notEmpty]) + ifTrue: [ MCPatcher apply: (patch ignoring: tuple third) to: parentSnapshot] + ifFalse: [packageSnapshot])]! - snapshot: (tuple third - ifEmpty: [packageSnapshot] - ifNotEmpty: [ - MCPatcher apply: (patch ignoring: tuple third) - to: parentSnapshot])] - !

1 0

The Trunk: Monticello-topa.600.mcz
by commits＠source.squeak.org 05 Sep '14

05 Sep '14

1 0

The Trunk: Monticello-topa.600.mcz
by commits＠source.squeak.org 05 Sep '14

05 Sep '14

1 0

The Trunk: Tests-topa.302.mcz
by commits＠source.squeak.org 05 Sep '14

05 Sep '14

Tobias Pape uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-topa.302.mcz ==================== Summary ==================== Name: Tests-topa.302 Author: topa Time: 5 September 2014, 9:07:38.083 pm UUID: 34ca6d97-e886-4970-a84e-84b544ce5526 Ancestors: Tests-fbs.301 Adapt tests to Monticelo-topa.599 =============== Diff against Tests-fbs.301 =============== Item was changed: ----- Method: MCWorkingCopyTest>>assertNameWhenSavingTo:is: (in category 'asserting') ----- assertNameWhenSavingTo: aRepository is: aString | name | name := nil. [aRepository storeVersion: workingCopy newVersion] on: MCVersionNameAndMessageRequest + do: [:n | + n patchBlock value. + name := n suggestedName. n resume: (Array with: name with: '' with: Set new)]. - do: [:n | name := n suggestedName. n resume: (Array with: name with: '')]. self assert: name = aString! Item was changed: ----- Method: MCWorkingCopyTest>>assertNumberWhenSavingTo:is: (in category 'asserting') ----- assertNumberWhenSavingTo: aRepository is: aNumber | name | name := nil. [aRepository storeVersion: workingCopy newVersion] on: MCVersionNameAndMessageRequest + do: [:n | + n patchBlock value. + name := n suggestedName. n resume: (Array with: name with: '' with: Set new)]. - do: [:n | name := n suggestedName. n resume: (Array with: name with: '')]. self assert: name = (self packageName, '-', Utilities authorInitials, '.', aNumber asString)! Item was changed: ----- Method: MCWorkingCopyTest>>snapshot (in category 'actions') ----- snapshot | version | [version := workingCopy newVersion] on: MCVersionNameAndMessageRequest + do: [:n | + n patchBlock value. + n resume: (Array with: n suggestedName with: '' with: Set new)]. - do: [:n | n resume: (Array with: n suggestedName with: '')]. versions at: version info put: version. ^ version!

1 0

The Trunk: Tests-topa.302.mcz
by commits＠source.squeak.org 05 Sep '14

05 Sep '14

1 0

The Trunk: Tests-topa.302.mcz
by commits＠source.squeak.org 05 Sep '14

05 Sep '14

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2014