- Pharo-dev - lists.pharo.org

[Pharo-project] SmalltalkImage or SystemDictionary
by StÃ©phane Ducasse March 20, 2010

March 20, 2010

hasSpecialSelector: ifTrueSetByte: is heavily used by SystemNavigation but either invoked via Smalltak or self environment or classEnviroment I would tend to think that this is something that should be part of SmalltalkImage but this is not that clear. What do you think? Stef

3 3

[Pharo-project] Graphics fixes?
by StÃ©phane Ducasse March 20, 2010

March 20, 2010

Hi nicolas last week you pushed some squeak rendering fixes to pharo and I was wondering if the recent ones on squeak should be considered. Stef commits(a)source.squeak.org to squeak-dev, packages show details 6:44 PM (15 hours ago) Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.121.mcz ==================== Summary ==================== Name: Graphics-nice.121 Author: nice Time: 19 March 2010, 6:44:28.896 pm UUID: 62e03b94-65c3-614f-b0f0-76c0476055e7 Ancestors: Graphics-ar.120 1) Add some missing pendingKernX reset. 2) explicit a loop dependency on stopCondition =============== Diff against Graphics-ar.120 =============== Item was changed: ----- Method: CharacterScanner>>plainTab (in category 'scanning') ----- plainTab "This is the basic method of adjusting destX for a tab." destX := (alignment = Justified and: [self leadingTab not]) ifTrue: "embedded tabs in justified text are weird" [destX + (textStyle tabWidth - (line justifiedTabDeltaFor: spaceCount)) max: destX] ifFalse: [textStyle nextTabXFrom: destX leftMargin: leftMargin + rightMargin: rightMargin]. + pendingKernX := 0.! - rightMargin: rightMargin]! Item was changed: ----- Method: DisplayScanner>>paddedSpace (in category 'stop conditions') ----- paddedSpace "Each space is a stop condition when the alignment is right justified. Padding must be added to the base width of the space according to which space in the line this space is and according to the amount of space that remained at the end of the line when it was composed." spaceCount := spaceCount + 1. destX := destX + spaceWidth + (line justifiedPadFor: spaceCount font: font). lastIndex := lastIndex + 1. + pendingKernX := 0. ^ false! Item was changed: ----- Method: CharacterBlockScanner>>characterBlockAtPoint:index:in: (in category 'scanning') ----- characterBlockAtPoint: aPoint index: index in: textLine "This method is the Morphic characterBlock finder. It combines MVC's characterBlockAtPoint:, -ForIndex:, and buildCharcterBlock:in:" + | runLength lineStop stopCondition | - | runLength lineStop done stopCondition | line := textLine. rightMargin := line rightMargin. lastIndex := line first. self setStopConditions. "also sets font" characterIndex := index. " == nil means scanning for point" characterPoint := aPoint. (characterPoint isNil or: [characterPoint y > line bottom]) ifTrue: [characterPoint := line bottomRight]. (text isEmpty or: [(characterPoint y < line top or: [characterPoint x < line left]) or: [characterIndex notNil and: [characterIndex < line first]]]) ifTrue: [^ (CharacterBlock new stringIndex: line first text: text topLeft: line leftMargin@line top extent: 0 @ textStyle lineGrid) textLine: line]. destX := leftMargin := line leftMarginForAlignment: alignment. destY := line top. runLength := text runLengthFor: line first. characterIndex ifNotNil: [lineStop := characterIndex "scanning for index"] ifNil: [lineStop := line last "scanning for point"]. runStopIndex := lastIndex + (runLength - 1) min: lineStop. lastCharacterExtent := 0 @ line lineHeight. spaceCount := 0. + [ + stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex - done := false. - [done] whileFalse: - [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: text string rightX: characterPoint x stopConditions: stopConditions kern: kern. + "see setStopConditions for stopping conditions for character block operations." - "see setStopConditions for stopping conditions for character block operations." self lastCharacterExtentSetX: (specialWidth ifNil: [font widthOf: (text at: lastIndex)] ifNotNil: [specialWidth]). + self perform: stopCondition + ] whileFalse. + characterIndex + ifNil: [ + "Result for characterBlockAtPoint: " + (stopCondition ~~ #cr and: [ lastIndex == line last + and: [ aPoint x > ((characterPoint x) + (lastCharacterExtent x / 2)) ]]) + ifTrue: [ "Correct for right half of last character in line" + ^ (CharacterBlock new stringIndex: lastIndex + 1 + text: text + topLeft: characterPoint + (lastCharacterExtent x @ 0) + (font descentKern @ 0) + extent: 0 @ lastCharacterExtent y) + textLine: line ]. + ^ (CharacterBlock new + stringIndex: lastIndex + text: text topLeft: characterPoint + (font descentKern @ 0) + extent: lastCharacterExtent - (font baseKern @ 0)) + textLine: line] + ifNotNil: ["Result for characterBlockForIndex: " + ^ (CharacterBlock new + stringIndex: characterIndex + text: text topLeft: characterPoint + ((font descentKern) - kern @ 0) + extent: lastCharacterExtent) + textLine: line]! - (self perform: stopCondition) ifTrue: - [characterIndex - ifNil: [ - "Result for characterBlockAtPoint: " - (stopCondition ~~ #cr and: [ lastIndex == line last - and: [ aPoint x > ((characterPoint x) + (lastCharacterExtent x / 2)) ]]) - ifTrue: [ "Correct for right half of last character in line" - ^ (CharacterBlock new stringIndex: lastIndex + 1 - text: text - topLeft: characterPoint + (lastCharacterExtent x @ 0) + (font descentKern @ 0) - extent: 0 @ lastCharacterExtent y) - textLine: line ]. - ^ (CharacterBlock new stringIndex: lastIndex - text: text topLeft: characterPoint + (font descentKern @ 0) - extent: lastCharacterExtent - (font baseKern @ 0)) - textLine: line] - ifNotNil: ["Result for characterBlockForIndex: " - ^ (CharacterBlock new stringIndex: characterIndex - text: text topLeft: characterPoint + ((font descentKern) - kern @ 0) - extent: lastCharacterExtent) - textLine: line]]]!

2 2

[Pharo-project] what is the status of the final clean of Utilities ?
by stephane ducasse March 20, 2010

March 20, 2010

Hi jb you told us that you were turning Utilities -> Updater What is the status? Because removing Utilities is another dream that we can realize (hobbes smiling with large smile). Stef a great site of a coooooool comix http://worldofcalvinandhobbes.blogspot.com/ "if you knew today was your last day on earth, what would you do different? ... especially if, by doing something different, today might not be your last day on earth" Calvin&Hobbes

1 0

[Pharo-project] on the way to smalltalkimage/systemdictionary
by stephane ducasse March 20, 2010

March 20, 2010

Hi guys I think that we should remove all the code that is not about class management from SystemDictionary. this is the easy part. Now what do we do for the class management behavior defined in Smalltalk image (allclasses, allTraits, associationsAt:, at:, at:put:.......) because now this code is in systemDictionary - we could replace Smalltalk by Smalltalk globals - deprecate the Smalltalk associationAt:.at:...and others What do you think? Stef

3 2

[Pharo-project] Pharo party at Annecy
by Hilaire Fernandes March 20, 2010

March 20, 2010

Is it still maintained today at 14:00 ? Hilaire

2 2

[Pharo-project] message for martin :)
by stephane ducasse March 20, 2010

March 20, 2010

Hi martin do you prefer that we do not integrate any changes or we can integrate I know that you said that this is ok to integrate other changes (besides collection hierarchy) But I wanted to check for real :) Stef

1 0

[Pharo-project] [update] 10472
by Adrian Lienhard March 20, 2010

March 20, 2010

Issue 1310: Make all tests green (not complete yet) - Remove class MethodHighlightingTests - ParseNode removeSelector: #addCommentToMorph: - Fix SelfEvaluatingObjectTest>>testArray ({1 + 0 . 1 @ 2 . 3}' prints '{1. 1@2. 3}) - Remove method CompiledMethod>>primitiveNode as it is not used anymore - Fix toolbuilder tests (sort of) - Fix Decompiler>>decompileBlock: (regression of closure fixes). This makes BlockContextTest>>testDecompile pass again - Make BlockContextTest>>testTrace run by commenting out broken part of code simulation Issue 1308: FixedIdentitySet = fails when compared with an integer ___________________ http://www.adrian-lienhard.ch/

6 8

March 20, 2010

HI lukas Gofer new squeaksource: 'Rio'; package: 'Rio-Kernel-razavi_acm_org.89'; package: 'Rio-Grande-kph.45'; load. does not work while the following does and load the same files. Gofer new squeaksource: 'Rio'; package: 'Rio-Kernel'; package: 'Rio-Grande'; load. what is the mistake I'm doing? Stef

3 4

March 19, 2010

2 2

[Pharo-project] OpenGL in pharo?
by Javier PimÃ¡s March 19, 2010

March 19, 2010

Hi, I've been browsing the different ways to use OpenGL in pharo and squeak. Here is a log of the results: 1 - Baloon3D - It looks like a layer on which squeaksource.com/OpenGLstands, so to use opengl you load balloon3d, then opengl and if you have the Balloon3dPlugin available then you can use OpenGL. This seems to include code dated from 2007/before. It loads fine in Squeak but in pharo I get many errors (load balloon3d-all in pharo1.0 rc2). 2 - GLMorphic - It uses FFI, so no plugin is needed, but it seems to be programmed only for windows, and I'm working in linux now. 3 - AlienOpenGL - It uses the new Alien FFI, which is only available in Mac platform. So, the question is: is there any way to play with OpenGL in pharo on linux platform ? Regards, Javier. -- Javier PimÃ¡s Ciudad de Buenos Aires

7 10