Squeak-dev August 2009

squeak-dev@lists.squeakfoundation.org

114 participants
300 discussions

Status of Tests in trunk
by Alexander Lazarević 01 Sep '09

01 Sep '09

6 11

Latest trunk and tests
by Alexander Lazarević 01 Sep '09

01 Sep '09

Maybe someone can verify this. With the latest batch of updates the BitmapStreamTests result in errors for me. Alex

1 1

Installing Etoys and Squeak on Ubuntu 9.04
by Ricardo Moran 31 Aug '09

31 Aug '09

Hi, I'm starting to work on Linux, I installed Ubuntu 9.04 and I was trying to install Etoys and Squeak. I should tell you: I am a Windows user with no experience in Linux. I downloaded the EtoysInstaller.deb from squeakland and it worked fine. Then I tried to install squeak following the instructions I found in http://wiki.squeak.org/squeak/3616. This also worked, I typed squeak in the terminal and Squeak opened. Then I tried to use one of my own images in which I usually work (on Windows), so I opened it using the command "squeakvm". The image worked almost fine, the only problem I found was that the buttons on the "Sugar Navigator Flap" wasn't displayed correctly. Then I tried to open Etoys using the menu "Applications->Education->eToys" but it didn't open anymore. I went to /usr/share/etoys and tried to open the etoys.image with squeakvm and it opened with an error: "A primitive has failed" and the display all wrong (I had to redraw the screen by clicking on "display mode->scale to fit"). I tried reinstalling Etoys but the Package Installer tells me that "A later version is already installed". I suppose the Etoys image needs a different vm but I don't know where to find it. What do you think I should do?

7 16

Greek letters and math equation displays
by Brad Fuller 31 Aug '09

31 Aug '09

Looking around for this on the swiki, but couldn't find exactly how I could display greek letters easily in squeak (that is for a presentation). Also, would like to display math equations as well. thanks much. -- Brad Fuller *NOTE NEW PHONE* +1 (408) 335-0112

3 5

Etoys-to-go goes AWOL?
by K. K. Subramaniam 31 Aug '09

31 Aug '09

Hi, I got a SVN error today while updating: "svn: Cannot replace a directory from within" What happened to Etoys-To-Go.app SVN at svn.squeakland.org/installers/? There is a Etoys-To-Go/ directory but it has only a few launcher files. Has it been merged into Etoys.app? TIA .. Subbu

4 5

weekly Etoys developers meeting in IRC
by Timothy Falconer 31 Aug '09

31 Aug '09

Hi everyone, We're opening up our weekly Etoys software chats to anyone that wants to attend, using the #etoys channel on irc.freenode.org. You can also attend using a web-browser by clicking "chat" on squeakland.org . First we need to find the best time for everyone. I've created a doodle that has slots for 12 noon New York time to 5pm New York time. This accommodates the people in California and the people in New York & Cambridge & Toronto. Please add your available times if you'd like to attend weekly. Meeting times will be an hour or less. http://www.doodle.com/akyp86qi3kfvyqrq Thanks, Tim

1 0

Podcast interview "There's a Cuis in my Smalltalk"
by Juan Vuletich 31 Aug '09

31 Aug '09

Hi Folks, A couple of weeks ago I was part of "Industry Misinterpretations 150: There's a Cuis in my Smalltalk" with James Robertson and Michael Lucas-Smith from Cincom. (Thanks Folks!) You can listen to it at http://www.cincomsmalltalk.com/blog/blogView?showComments=true&printTitle=I… I hope you like it. Cheers, Juan Vuletich

1 0

Latest trunk and window handles
by Alexander Lazarević 31 Aug '09

31 Aug '09

In addition to that the window handle seem to be off by a few pixels and seem to behave strangely. The screen image is after collapsing the active window and save+quit start the image. Alex

1 0

The Trunk: Multilingual-ar.46.mcz
by commits＠source.squeak.org 31 Aug '09

31 Aug '09

Andreas Raab uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ar.46.mcz ==================== Summary ==================== Name: Multilingual-ar.46 Author: ar Time: 30 August 2009, 9:48:57 am UUID: 4b20790d-9f81-c147-a216-fdc17a377a14 Ancestors: Multilingual-ar.45 The last commit included a change to ShiftJISConverter that didn't show in the diff and seems to be just a truncated method version. Very, very odd. For now just revert the method. =============== Diff against Multilingual-ar.45 =============== Item was added: + ----- Method: ShiftJISTextConverter>>nextPut:toStream: (in category 'conversion') ----- + nextPut: aCharacter toStream: aStream + | value leadingChar aChar | + aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. + aCharacter isTraditionalDomestic ifTrue: [ + aChar := aCharacter. + value := aCharacter charCode. + ] ifFalse: [ + value := aCharacter charCode. + (16rFF61 <= value and: [value <= 16rFF9F]) ifTrue: [ + aStream basicNextPut: (self sjisKatakanaFor: value). + ^ aStream + ]. + aChar := JISX0208 charFromUnicode: value. + aChar ifNil: [^ aStream]. + value := aChar charCode. + ]. + leadin! Item was changed: ----- Method: ShiftJISTextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 character2 value1 value2 char1Value result | aStream isBinary ifTrue: [^ aStream basicNext]. character1 := aStream basicNext. character1 isNil ifTrue: [^ nil]. char1Value := character1 asciiValue. (char1Value < 16r81) ifTrue: [^ character1]. (char1Value > 16rA0 and: [char1Value < 16rE0]) ifTrue: [^ self katakanaValue: char1Value]. character2 := aStream basicNext. character2 = nil ifTrue: [^ nil "self errorMalformedInput"]. value1 := character1 asciiValue. character1 asciiValue >= 224 ifTrue: [value1 := value1 - 64]. value1 := value1 - 129 bitShift: 1. value2 := character2 asciiValue. character2 asciiValue >= 128 ifTrue: [value2 := value2 - 1]. character2 asciiValue >= 158 ifTrue: [ value1 := value1 + 1. value2 := value2 - 158 ] ifFalse: [value2 := value2 - 64]. result := Character leadingChar: self leadingChar code: value1 * 94 + value2. + ^ self toUnicode: result + ! - ^ self toUnicode: !

1 0

The Trunk: Multilingual-ar.45.mcz
by commits＠source.squeak.org 31 Aug '09

31 Aug '09

Andreas Raab uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ar.45.mcz ==================== Summary ==================== Name: Multilingual-ar.45 Author: ar Time: 30 August 2009, 9:22:55 am UUID: bd5e9df4-4981-674d-b9e1-45c5fa1c6dd0 Ancestors: Multilingual-ar.44 Merge back one of the fixes for TTC display that got overwritten by FreeTypePlus integration. =============== Diff against Multilingual-ar.44 =============== Item was changed: ----- Method: MultiDisplayScanner>>displayLine:offset:leftInRun: (in category 'scanning') ----- displayLine: textLine offset: offset leftInRun: leftInRun "The call on the primitive (scanCharactersFrom:to:in:rightX:) will be interrupted according to an array of stop conditions passed to the scanner at which time the code to handle the stop condition is run and the call on the primitive continued until a stop condition returns true (which means the line has terminated). leftInRun is the # of characters left to scan in the current run; when 0, it is time to call setStopConditions." + | done stopCondition nowLeftInRun startIndex string lastPos | - | done stopCondition nowLeftInRun startIndex string lastPos underline strikeout | line := textLine. morphicOffset := offset. lineY := line top + offset y. lineHeight := line lineHeight. rightMargin := line rightMargin + offset x. lastIndex := line first. leftInRun <= 0 ifTrue: [self setStopConditions]. leftMargin := (line leftMarginForAlignment: alignment) + offset x. destX := runX := leftMargin. fillBlt == nil ifFalse: ["Not right" fillBlt destX: line left destY: lineY width: line width left height: lineHeight; copyBits]. lastIndex := line first. leftInRun <= 0 ifTrue: [nowLeftInRun := text runLengthFor: lastIndex] ifFalse: [nowLeftInRun := leftInRun]. baselineY := lineY + line baseline. destY := baselineY - font ascent. runStopIndex := lastIndex + (nowLeftInRun - 1) min: line last. spaceCount := 0. done := false. string := text string. [done] whileFalse:[ startIndex := lastIndex. lastPos := destX@destY. stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: string rightX: rightMargin stopConditions: stopConditions kern: kern. lastIndex >= startIndex ifTrue:[ - underline := (emphasisCode bitAnd: 4) > 0. - strikeout := (emphasisCode bitAnd: 16) > 0. font displayString: string on: bitBlt + from: startIndex + "XXXX: The following is an interesting bug. All stopConditions exept #endOfRun + have lastIndex past the last character displayed. #endOfRun sets it *on* the character. + If we display up until lastIndex then we will also display invisible characters like + CR and tab. This problem should be fixed in the scanner (i.e., position lastIndex + consistently) but I don't want to deal with the fallout right now so we keep the + fix minimally invasive." + to: (stopCondition == #endOfRun ifTrue:[lastIndex] ifFalse:[lastIndex-1]) + at: lastPos kern: kern baselineY: baselineY]. + (emphasisCode allMask: 4) ifTrue:[ + font displayUnderlineOn: bitBlt from: lastPos x@baselineY to: destX@baselineY. + ]. + (emphasisCode allMask: 16) ifTrue:[ + font displayStrikeoutOn: bitBlt from: lastPos x@baselineY to: destX@baselineY. + ]. - from: startIndex to: lastIndex at: lastPos kern: kern baselineY: baselineY. - underline - ifTrue:[font displayUnderlineOn: bitBlt from: lastPos x@baselineY to: destX@baselineY]. - strikeout - ifTrue:[font displayStrikeoutOn: bitBlt from: lastPos x@baselineY to: destX@baselineY ] ]. "see setStopConditions for stopping conditions for displaying." done := self perform: stopCondition. "lastIndex > runStopIndex ifTrue: [done := true]." ]. ^ runStopIndex - lastIndex "Number of characters remaining in the current run"! Item was changed: ----- Method: ShiftJISTextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 character2 value1 value2 char1Value result | aStream isBinary ifTrue: [^ aStream basicNext]. character1 := aStream basicNext. character1 isNil ifTrue: [^ nil]. char1Value := character1 asciiValue. (char1Value < 16r81) ifTrue: [^ character1]. (char1Value > 16rA0 and: [char1Value < 16rE0]) ifTrue: [^ self katakanaValue: char1Value]. character2 := aStream basicNext. character2 = nil ifTrue: [^ nil "self errorMalformedInput"]. value1 := character1 asciiValue. character1 asciiValue >= 224 ifTrue: [value1 := value1 - 64]. value1 := value1 - 129 bitShift: 1. value2 := character2 asciiValue. character2 asciiValue >= 128 ifTrue: [value2 := value2 - 1]. character2 asciiValue >= 158 ifTrue: [ value1 := value1 + 1. value2 := value2 - 158 ] ifFalse: [value2 := value2 - 64]. result := Character leadingChar: self leadingChar code: value1 * 94 + value2. + ^ self toUnicode: ! - ^ self toUnicode: result - ! Item was removed: - ----- Method: ShiftJISTextConverter>>nextPut:toStream: (in category 'conversion') ----- - nextPut: aCharacter toStream: aStream - | value leadingChar aChar | - aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. - aCharacter isTraditionalDomestic ifTrue: [ - aChar := aCharacter. - value := aCharacter charCode. - ] ifFalse: [ - value := aCharacter charCode. - (16rFF61 <= value and: [value <= 16rFF9F]) ifTrue: [ - aStream basicNextPut: (self sjisKatakanaFor: value). - ^ aStream - ]. - aChar := JISX0208 charFromUnicode: value. - aChar ifNil: [^ aStream]. - value := aChar charCode. - ]. - leadin!

1 0

Jump to page: