Packages September 2014

packages@lists.squeakfoundation.org

1 participants
129 discussions

The Trunk: Graphics-topa.301.mcz
by commits＠source.squeak.org 16 Sep '14

16 Sep '14

Tobias Pape uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-topa.301.mcz ==================== Summary ==================== Name: Graphics-topa.301 Author: topa Time: 16 September 2014, 5:16:44.215 pm UUID: a66aac86-031b-4db4-97ce-e33376745f9e Ancestors: Graphics-mt.300 Fix Mantis 5711 http://bugs.squeak.org/view.php?id=5711 after 7 years... =============== Diff against Graphics-mt.300 =============== Item was changed: ----- Method: TextComposer>>composeLinesFrom:to:delta:into:priorLines:atY:textStyle:text:container:wantsColumnBreaks: (in category 'as yet unclassified') ----- composeLinesFrom: argStart to: argStop delta: argDelta into: argLinesCollection priorLines: argPriorLines atY: argStartY textStyle: argTextStyle text: argText container: argContainer wantsColumnBreaks: argWantsColumnBreaks wantsColumnBreaks := argWantsColumnBreaks. lines := argLinesCollection. theTextStyle := argTextStyle. theText := argText. theContainer := argContainer. deltaCharIndex := argDelta. currCharIndex := startCharIndex := argStart. stopCharIndex := argStop. prevLines := argPriorLines. currentY := argStartY. maxRightX := theContainer left. possibleSlide := stopCharIndex < theText size and: [theContainer isMemberOf: Rectangle]. nowSliding := false. prevIndex := 1. "choose an appropriate scanner - should go away soon, when they can be unified" scanner := CompositionScanner new. scanner text: theText textStyle: theTextStyle. scanner wantsColumnBreaks: wantsColumnBreaks. defaultLineHeight := scanner computeDefaultLineHeight. isFirstLine := true. self composeAllLines. isFirstLine ifTrue: ["No space in container or empty text" self addNullLineWithIndex: startCharIndex + andRectangle: (theContainer left @ theContainer top extent: 0@defaultLineHeight) - andRectangle: (theContainer topLeft extent: 0@defaultLineHeight) ] ifFalse: [ (lines last last = theText size and: [scanner doesTheLineBreaksAfterLastChar]) ifTrue: [self addNullLineForIndex: theText size + 1] ]. ^{lines asArray. maxRightX} !

1 0

The Trunk: Graphics-topa.301.mcz
by commits＠source.squeak.org 16 Sep '14

16 Sep '14

1 0

The Trunk: Tests-eem.303.mcz
by commits＠source.squeak.org 15 Sep '14

15 Sep '14

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.303.mcz ==================== Summary ==================== Name: Tests-eem.303 Author: eem Time: 15 September 2014, 12:21:34.496 pm UUID: 12395786-b3bb-2847-a824-6e76400180d8 Ancestors: Tests-topa.302 Add a test to check that relative paths work with FileDirectory instances. =============== Diff against Tests-topa.302 =============== Item was added: + ----- Method: FileDirectoryTest>>testRelativePaths (in category 'tests') ----- + testRelativePaths + | myDirViaContainer | + self assert: (FileDirectory default on: self myLocalDirectoryName) fullName = self myDirectory fullName. + self assert: (FileDirectory default on: self myLocalDirectoryName) = self myDirectory. + myDirViaContainer := FileDirectory default localName, FileDirectory default slash, self myLocalDirectoryName. + self assert: (FileDirectory default containingDirectory on: myDirViaContainer) fullName = self myDirectory fullName. + self assert: (FileDirectory default containingDirectory on: myDirViaContainer) = self myDirectory!

1 0

The Trunk: Tests-eem.303.mcz
by commits＠source.squeak.org 15 Sep '14

15 Sep '14

1 0

The Trunk: Tests-eem.303.mcz
by commits＠source.squeak.org 15 Sep '14

15 Sep '14

1 0

The Trunk: Files-eem.138.mcz
by commits＠source.squeak.org 15 Sep '14

15 Sep '14

Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.138.mcz ==================== Summary ==================== Name: Files-eem.138 Author: eem Time: 15 September 2014, 9:45:42.663 am UUID: 9dc5167d-267f-4496-92e3-da7e2750d917 Ancestors: Files-eem.137 Fix regression in Files-eem.132. The instance-side FileDirectory on: method needs to be class-specific in determining the full path of a file name. =============== Diff against Files-eem.137 =============== Item was changed: ----- Method: FileDirectory>>on: (in category 'path access') ----- on: path + "Answer another instance" - "Return another instance" + ^self class on: (self fullPathFor: path)! - ^ self class on: ((path at: 1 ifAbsent: nil) = self pathNameDelimiter - ifTrue: [path] - ifFalse: [pathName asString, (String with: self pathNameDelimiter), path])!

1 0

The Trunk: Files-eem.138.mcz
by commits＠source.squeak.org 15 Sep '14

15 Sep '14

1 0

The Trunk: Files-eem.138.mcz
by commits＠source.squeak.org 15 Sep '14

15 Sep '14

1 0

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: ST80-nice.174.mcz
by commits＠source.squeak.org 11 Sep '14

11 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