- Pharo-dev - lists.pharo.org

[Pharo-project] killing a runaway process
by sergio_101 March 21, 2010

March 21, 2010

in order to figure out another process.. i loaded up a project to pull in twitter statuses. it looks as if it's broken, as it just keeps feeding stuff to the transcript, with no end in sight.. the first time i tried this, i realized that i hadn't saved my image for a half hour, so i lost a little bit of changes... once i realized what was happening, i realized that my image was seized up, with info dumping to the transcript.. it would be really nice if i could 'control-c' the workspace and clear it out.. any ideas? thanks! -- ---- peace, sergio photographer, journalist, visionary http://www.coffee-black.com http://www.painlessfrugality.com http://www.twitter.com/sergio_101 http://www.facebook.com/sergio101

2 1

Re: [Pharo-project] [ANN] Gofer Project Loader 1.0 (BETA)
by Dale Henrichs March 21, 2010

March 21, 2010

Miguel, Keep in mind that the conditional load code in Metacello is the moral equivalent of #ifdef in C. The debian package universe has the advantage of pushing the conditional compilaton of _source code_ down a level. With Metacello, I purposely use the version attribute for conditional loading of code (as close to a conditional compile as you can get). In Metacello we do the load and the compile... Where common code can be written it should be, but as versions and platforms diverge in their API, something has to give ... If you can afford to seal off the source code for an older version then that's fine, but in a project that is under active development and is _expected_ to run on multiple versions of multiple platforms one must resort to "conditional loading" - conditional loading is what makes Grease work, BTW. When you look at the universe of #ifdef in C, you see that some of the ifdefs are adhoc and some of the ifdefs are based upon platform constants ... and that is what the metacello attributes give you ... Right now, you can create project-specific attributes and there are a handful of pre-defined attributes ... As I said, I am purposefully avoiding adding new pre-defined attributes willy nilly, but anticipate that some will be needed (GemStone3.0 and GemStone2.4 and even GemStone2.3 need to have difference code compiled/loaded for projects that are in active developement and expect to be run on all three versions of GemStone the low-level apis are different and different code has to be written for each different version). Having the conditional compile/load component in Metacello isn't necessarily an elegant feature, but given that no other part of the Smalltalk system currently provides a conditional compile/load, I added it to Metacello. Since I am maintaining common software on three different versions of gemstone, I consider it a requirement. If and when an elegant conditional compile/load solution becomes available, then this particular feature of Metacello can be allowed to die in peace. I will agree that the MYSQL maintainers don't worry whether their executables load on Ubuntu or Fedora, but I can almost guarantee you that they have conditional code that makes sure that there their code will compile/build on the different OSes. The ifdef world is as ugly as it comes, but it does exists for a pretty good reason. Dale ----- "Miguel Enrique CobÃ¡ Martinez" <miguel.coba(a)gmail.com> wrote: | El sÃ¡b, 20-03-2010 a las 21:54 +0300, George Herolyants escribiÃ³: | > Thanks for the explanation, Dale! | > | > May be it's obvious and I'm asking stupid questions but then I | don't | > understand how can I specify in my configuration the differences | > between the versions of the target platform? | > | > 2010/3/20 Dale Henrichs <dale.henrichs(a)gemstone.com>: | > > George, | > > | > > The mcz files containing the Metacello configurations _are_ | copied, but the configuration itself is not modified in the scheme. | > > | > > The idea of using different repositories is to indicate which of | the many different projects are _expected_ or _known_ to work in | Pharo1.1 or Pharo1.0. | > > | > > For GemStone, I have createed a GemSource MetacelloRepository and | I have copied the metacello configurations that I know have been | ported to GemStone. I've done this so that folks can know what is | supported. I make sure that all of the tests run green and that all of | the configs in the GemSource MetacelloRepository can be loaded. | > > | > > It does not stop someone from loading a configuration into | GemStone that isn't in the GemSource MetacelloRepository, but if you | do and run into trouble, my answer will probably be that it hasn't | been ported yet. | > > | > > The same thing can apply to Squeak, but someone would have to step | up to testing/approving metacello configurations that run with the | various versions. | > > | > > Without this extra step of approval/testing, it's difficult for | someone that doesn't have their finger on the pulse of the latest and | greatest happenings to know what to expect ... | > > | > > Dale | | The problem is, you are thinking in upstream development, and the | idea | of universes is that each package has maintainer for each platform | involved. This maintainer can be the same person that the upstream | developer, but it can also be someone else that make sure that a | given | package load correctly in *a give* fork. | | Making an analogy, what you are saying is that the maintainers of | MySQL | deb package in Debian should be worried about the package not loading | in | Ubuntu or Fedora. That is not the case. The upstream code can run in | all | of three distros, but the packages specific to each one (.deb in | debian | and ubuntu and .rpm in fedora) *must* be build and tested for their | own | maintainers. The upstream developers can rightfully don't give a dime | about where is package is being used and maybe they only release | a .tar.gz and know nothing (but also they don't stop efforts) about | external package for specific distros. | | So, returning to your question, maybe sometime in the future Squeak | (if | interested) will have to build its own repositories with its own | universes and put there the configurations that are proved to work in | Squeak. | | Right now as Pharo and Squeak are very similar the configurations | (and | the #common you mention) works, but this isn't going to scale for | different Smalltalks in the long term. | | Cheers | > | > _______________________________________________ | > Pharo-project mailing list | > Pharo-project(a)lists.gforge.inria.fr | > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project | | -- | Miguel CobÃ¡ | http://miguel.leugim.com.mx

2 2

[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