Packages January 2012

packages@lists.squeakfoundation.org

1 participants
84 discussions

The Trunk: Kernel-nice.665.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.665.mcz ==================== Summary ==================== Name: Kernel-nice.665 Author: nice Time: 22 January 2012, 6:13:29.686 pm UUID: 3122f4bd-6c16-4919-9b90-47080e9365cb Ancestors: Kernel-nice.664, Kernel-nice.644 merge Kernel-nice.644 Add Integer>>bitCount to count the bits set (to 1) in an Integer. =============== Diff against Kernel-nice.664 =============== Item was added: + ----- Method: Integer>>bitCount (in category 'bit manipulation') ----- + bitCount + "Count the number of bits set to 1 in self" + + | bitCount | + self < 0 ifTrue: [self error: 'Cannot count bits of negative integers']. + bitCount := 0. + 1 to: self digitLength do: [:i | + bitCount := bitCount + (self digitAt: i) bitCountOfByte]. + ^bitCount! Item was added: + ----- Method: SmallInteger>>bitCountOfByte (in category 'bit manipulation') ----- + bitCountOfByte + "Count the number of bits set to 1 in a byte." + + ^#[0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 4 5 5 6 5 6 6 7 5 6 6 7 6 7 7 8] at: self + 1 + + "Evaluate this expression to form above byte array: + ((0 to: 255) + collect: [:i | + | bitCount n | + n := i. + bitCount := 0. + [n = 0] + whileFalse: + [bitCount := bitCount + 1. + n := n bitAnd: n - 1]. + bitCount] + as: ByteArray)"!

1 0

The Trunk: Kernel-nice.644.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.644.mcz ==================== Summary ==================== Name: Kernel-nice.644 Author: nice Time: 19 October 2011, 10:26:06.268 pm UUID: 612f5a8e-66ec-4531-86ab-ebc494038a94 Ancestors: Kernel-nice.642 Add Integer>>bitCount to count the bits set (to 1) in an Integer. =============== Diff against Kernel-nice.642 =============== Item was added: + ----- Method: Integer>>bitCount (in category 'bit manipulation') ----- + bitCount + "Count the number of bits set to 1 in self" + + | bitCount | + self < 0 ifTrue: [self error: 'Cannot count bits of negative integers']. + bitCount := 0. + 1 to: self digitLength do: [:i | + bitCount := bitCount + (self digitAt: i) bitCountOfByte]. + ^bitCount! Item was added: + ----- Method: SmallInteger>>bitCountOfByte (in category 'bit manipulation') ----- + bitCountOfByte + "Count the number of bits set to 1 in a byte." + + ^#[0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 4 5 5 6 5 6 6 7 5 6 6 7 6 7 7 8] at: self + 1 + + "Evaluate this expression to form above byte array: + ((0 to: 255) + collect: [:i | + | bitCount n | + n := i. + bitCount := 0. + [n = 0] + whileFalse: + [bitCount := bitCount + 1. + n := n bitAnd: n - 1]. + bitCount] + as: ByteArray)"!

1 0

The Trunk: Kernel-nice.644.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

1 0

The Trunk: Kernel-nice.644.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

1 0

The Trunk: ST80-dtl.138.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.138.mcz ==================== Summary ==================== Name: ST80-dtl.138 Author: dtl Time: 21 January 2012, 6:29:11.068 pm UUID: d58a74b5-ea99-4a46-86ac-06ddf4159f3c Ancestors: ST80-ul.137 Update reference to obsolete TextMorphEditor with a plausible looking replacement, replacing "self class name = #TextMorphEditor" with "self isKindOf: TextEditor". This eliminates the last direct reference to TextMorphEditor in the image. =============== Diff against ST80-ul.137 =============== 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 := ((self isKindOf: TextEditor) and: [(self morph isKindOf: TextMorphForEditView) not]) - extras := (self class name = #TextMorphEditor 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-dtl.138.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

1 0

The Trunk: ST80-dtl.138.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

1 0

The Trunk: Morphic-dtl.607.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.607.mcz ==================== Summary ==================== Name: Morphic-dtl.607 Author: dtl Time: 21 January 2012, 6:04:27.511 pm UUID: b012bc53-98e7-47de-aaa3-a98bcc130ab9 Ancestors: Morphic-eem.606 Provide a stub implementation of TextMorphEditor, subclassed from its replacement TextEditor, for the benefit of external packages such as Connectors that depend on it. Note that an existing Connectors installation may have been damaged in the trunk update process. Check for this by opening a Text Rectangle or similar from the Connectors tab, then hit <esc> while focused on the text region. If problems are experienced, reload Connectors and evaluate 'NCTextMorphEditor initialize'. =============== Diff against Morphic-eem.606 =============== Item was added: + TextEditor subclass: #TextMorphEditor + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Text Support'! + + !TextMorphEditor commentStamp: 'dtl 1/21/2012 18:02' prior: 0! + This is a stub class to replace the original implementation of a ParagraphEditor for TextMorphs, which has since been replaced by TextEditor. This implementation is retained for the benefit of external packages such as Connectors and FreeType that may have dependencies on TextMorphEditor. + + The comment below is from the class comment of the original TextMorphEditor. + ----- + In the past, BookMorphs had the ability to have each page be on the server as a .sp SqueakPage file. The index of the book was a .bo file. In text, Cmd-6 had a LinkTo option that linked to a page by its name, or created a new page of that name. It assumed the book was on a server with a file per page. Ted removed that code, and kept a copy on his disk in 'TME-ChngEmphasis.st for .bo .sp'!

1 0

The Trunk: Morphic-dtl.607.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

1 0

The Trunk: Morphic-dtl.607.mcz
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2012