Squeak-dev January 2012

squeak-dev@lists.squeakfoundation.org

65 participants
121 discussions

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

Daily Commit Log
by commits＠source.squeak.org 22 Jan '12

22 Jan '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-January/005161.ht… Name: Kernel-nice.656 Ancestors: Kernel-bf.654 Remove one unused message: now that Integer is polymorphic to Fraction he never has to #adaptToFraction:andSend: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-January/005162.ht… Name: Kernel-nice.664 Ancestors: Kernel-bf.663, Kernel-nice.656 merge Kernel-nice.656 Remove one unused message: now that Integer is polymorphic to Fraction he never has to #adaptToFraction:andSend: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-January/005163.ht… Name: Morphic-dtl.607 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'. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-January/005164.ht… Name: ST80-dtl.138 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. =============================================

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: 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

speeding up copying World using dirty rectangles?
by Lawson English 21 Jan '12

21 Jan '12

in my Gui to OpenGL code, I'm doing a very naive procedure to copy the World to an OpenGL at every #step. I know that there's many ways to speed this up (I get only 10fps with a saturated core when I do it the simplest way). Suggestsion on how to make the following more efficient? THanks. getLatestImageFromWorld |format form tempTextures| pasteUpFormCanvas ifNil: [^self]. self hide. myPasteUp fullDrawOn: pasteUpFormCanvas. self show. form := pasteUpFormCanvas form. fPUWidth := form width. fPUHeight := form height. tempTextures := WordArray with: (textureIntNames at: 1). ogl glDeleteTextures: 1 with: tempTextures. ogl glBindTexture: GLTexture2d with: (textureIntNames at: 1). ogl checkForError. format := ogl textureInternalFormat. ogl glEnable: GLTexture2d. ogl glTexParameteri: GLTexture2d with: GLTextureMinFilter with: GLLinear. ogl glTexParameteri: GLTexture2d with: GLTextureMagFilter with: GLLinear. ogl glTexImage2D: GLTexture2d with: 0 with: format with: form width with: form height with: 0 with: ogl texturePixelFormat with: ogl texturePixelType with: form bits.

2 2

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

21 Jan '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.664.mcz ==================== Summary ==================== Name: Kernel-nice.664 Author: nice Time: 21 January 2012, 4:44:27.824 pm UUID: fd5de2b6-9257-4184-bd16-498faaca6329 Ancestors: Kernel-bf.663, Kernel-nice.656 merge Kernel-nice.656 Remove one unused message: now that Integer is polymorphic to Fraction he never has to #adaptToFraction:andSend: =============== Diff against Kernel-bf.663 =============== Item was removed: - ----- Method: Integer>>adaptToFraction:andSend: (in category 'converting') ----- - adaptToFraction: rcvr andSend: selector - "If I am involved in arithmetic with a Fraction, convert me to a Fraction." - ^ rcvr perform: selector with: (Fraction numerator: self denominator: 1)!

1 0

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

21 Jan '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.656.mcz ==================== Summary ==================== Name: Kernel-nice.656 Author: nice Time: 19 November 2011, 10:45:57.156 pm UUID: 506e1645-c5f3-8f4b-8307-0c22476c079e Ancestors: Kernel-bf.654 Remove one unused message: now that Integer is polymorphic to Fraction he never has to #adaptToFraction:andSend: =============== Diff against Kernel-bf.654 =============== Item was removed: - ----- Method: Integer>>adaptToFraction:andSend: (in category 'converting') ----- - adaptToFraction: rcvr andSend: selector - "If I am involved in arithmetic with a Fraction, convert me to a Fraction." - ^ rcvr perform: selector with: (Fraction numerator: self denominator: 1)!

1 0

Re:Saga of trying to integrate IDE with OpenGL continuesRe:
by Lawson English 20 Jan '12

20 Jan '12

sigh, I'm getting disk access constantly when my little GUI opengl thingie runs. The max FPS is 10ish. Package is: OpenGL-Tutorial-LDE.32 in monticello repository: 'http://croquet-src-01.oit.duke.edu:8886/Contributions' suggestions? Thanks. L.

2 2

Squeak Oversight Board minutes – 01/17/12
by Chris Cunnington 18 Jan '12

18 Jan '12

Squeak Oversight Board minutes – 01/17/12 Attending: Chris Muller, Colin Putney, Levente Uzonyi, Chris Cunnington -- it was agreed that was nice to see Eliot exploring the SqueakCore image, as we hope this is a direction the community will take up -- a long conversation was had about how to distribute the next version of OmniBrowser, as existing tools don’t seem quite right -- a long Installer script could be written, but that meant every version would have its own, and managing them would be a nuisance -- Metacello was seen as good, but that it would be better if the metadata/dependency info could be accessible; so you could ask questions of the metadata -- the difference between the needs of users and developers was raised -- the next OmniBrowser will have around 30 packages to co-ordinate and likely more -- Colin’s working on a DSL and tool to manage the task for his own personal use: a tool that reads a spec and creates an Installer script -- Levente suggested a tool to read a Metacello configuration to make a spec to feed into Colin’s tool and then produce an Installer script -- it was mentioned that a build server factors into these problems and could assist the process

3 2

A pretty big Squeak 4.3 image (nearly 8 GB)
by David T. Lewis 18 Jan '12

18 Jan '12

Here is a screen shot of the Squeak 4.3 release image traced to 64-bit object format, showing the image size after allocating a lot of object memory. This is running on a box with 8GB of real memory, so the image is about as large as can get on my computer. <http://squeakvm.org/~lewis/squeak4.3-64bit/squeak64-big.png> The image is fully functional and can be saved to disk and reloaded. Monticello and other tools all work, and the image can be updated from the trunk update stream as normal. Saving the image to disk and restarting it are slow due the file size and amount of memory used, but the image itself works fine. Garbage collection works, and overall the performance remains good up to the point that the operating system is forced to start page swapping (because the image is larger than available real memory on this box). Dave

5 7

← Newer
1
...
4
5
6
7
8
9
10
...
13
Older →