December 2010 - Pharo-dev - lists.pharo.org

[Pharo-project] FastCGI support in Pharo
by Dario Trussardi June 1, 2011

June 1, 2011

Hi, i have a Lighttpd server with FastCGI support for deployment system ( based on GLASS ). Now i'm interested to work with the same web server for development system based on Pharo. For now in Pharo i use the WAKom interface. I can load the FastCGI support into Pharo ? Thank for any consideration, Dario

2 2

[Pharo-project] Issue 3387 in pharo: Package name should not contain crptic characters
by pharo＠googlecode.com April 16, 2011

April 16, 2011

Status: Accepted Owner: stephane.ducasse Labels: Milestone-1.3 Difficulty-Easy New issue 3387 by stephane.ducasse: Package name should not contain crptic characters http://code.google.com/p/pharo/issues/detail?id=3387 We should make sure that we cannot write package with cryptic characters.

1 9

[Pharo-project] Issue 3341 in pharo: use #= for integer comparison instead of #==
by pharo＠googlecode.com April 16, 2011

April 16, 2011

Status: Accepted Owner: stephane.ducasse Labels: Milestone-1.3 Type-Squeak New issue 3341 by stephane.ducasse: use #= for integer comparison instead of #== http://code.google.com/p/pharo/issues/detail?id=3341 Please read the original statement of dan. http://bugs.squeak.org/view.php?id=2788 I think that this bunch of fixes are important. ==================== Summary ==================== Name: Collections-ul.406 Author: ul Time: 15 November 2010, 10:30:39.825 am UUID: 9cd8fc97-4673-3340-9ea2-2f3dbd5f38e3 Ancestors: Collections-cmm.405 - use #= for integer comparison instead of #== (http://bugs.squeak.org/view.php?id=2788 ) =============== Diff against Collections-cmm.405 =============== Item was changed: ----- Method: SequenceableCollection>>after:ifAbsent: (in category 'accessing') ----- after: target ifAbsent: exceptionBlock "Answer the element after target. Answer the result of evaluation the exceptionBlock if target is not in the receiver, or if there are no elements after it." | index | index := self indexOf: target. + ^ (index = 0 or: [index = self size]) - ^ (index == 0 or: [index = self size]) ifTrue: [exceptionBlock value] ifFalse: [self at: index + 1]! Item was changed: ----- Method: SequenceableCollection>>before:ifAbsent: (in category 'accessing') ----- before: target ifAbsent: exceptionBlock "Answer the receiver's element immediately before target. Answer the result of evaluating the exceptionBlock if target is not an element of the receiver, or if there are no elements before it." | index | index := self indexOf: target. + ^ (index = 0 or: [index = 1]) - ^ (index == 0 or: [index == 1]) ifTrue: [exceptionBlock value] ifFalse: [self at: index - 1]! Item was changed: ----- Method: String>>asIdentifier: (in category 'converting') ----- asIdentifier: shouldBeCapitalized "Return a legal identifier, with first character in upper case if shouldBeCapitalized is true, else lower case. This will always return a legal identifier, even for an empty string" | aString firstChar firstLetterPosition | aString := self select: [:el | el isAlphaNumeric]. firstLetterPosition := aString findFirst: [:ch | ch isLetter]. + aString := firstLetterPosition = 0 - aString := firstLetterPosition == 0 ifFalse: [aString copyFrom: firstLetterPosition to: aString size] ifTrue: ['a', aString]. firstChar := shouldBeCapitalized ifTrue: [aString first asUppercase] ifFalse: [aString first asLowercase]. ^ firstChar asString, (aString copyFrom: 2 to: aString size) " '234Fred987' asIdentifier: false '235Fred987' asIdentifier: true '' asIdentifier: true '()87234' asIdentifier: false '())z>=PPve889 U >' asIdentifier: false "! Item was changed: ----- Method: String>>initialIntegerOrNil (in category 'converting') ----- initialIntegerOrNil "Answer the integer represented by the leading digits of the receiver, or nil if the receiver does not begin with a digit" | firstNonDigit | + (self size = 0 or: [self first isDigit not]) ifTrue: [^ nil]. - (self size == 0 or: [self first isDigit not]) ifTrue: [^ nil]. firstNonDigit := (self findFirst: [:m | m isDigit not]). firstNonDigit = 0 ifTrue: [firstNonDigit := self size + 1]. ^ (self copyFrom: 1 to: (firstNonDigit - 1)) asNumber " '234Whoopie' initialIntegerOrNil 'wimpy' initialIntegerOrNil '234' initialIntegerOrNil '2N' initialIntegerOrNil '2' initialIntegerOrNil ' 89Ten ' initialIntegerOrNil '78 92' initialIntegerOrNil " ! Item was changed: ----- Method: String>>sansPeriodSuffix (in category 'converting') ----- sansPeriodSuffix "Return a copy of the receiver up to, but not including, the first period. If the receiver's *first* character is a period, then just return the entire receiver. " | likely | likely := self copyUpTo: $.. + ^ likely size = 0 - ^ likely size == 0 ifTrue: [self] ifFalse: [likely]! Item was changed: ----- Method: String>>utf8ToIso (in category 'internet') ----- utf8ToIso "Only UTF-8 characters that maps to 8-bit ISO-8559-1 values are converted. Others raises an error" | s i c v c2 v2 | s := WriteStream on: (String new: self size). i := 1. [i <= self size] whileTrue: [ c := self at: i. i:=i+1. v := c asciiValue. (v > 128) ifFalse: [ s nextPut: c ] + ifTrue: [((v bitAnd: 252) = 192) - ifTrue: [((v bitAnd: 252) == 192) ifFalse: [self error: 'illegal UTF-8 ISO character'] ifTrue: [ (i > self size) ifTrue: [ self error: 'illegal end-of-string, expected 2nd byte of UTF-8']. c2 := self at: i. i:=i+1. v2 := c2 asciiValue. ((v2 bitAnd: 192) = 128) ifFalse: [self error: 'illegal 2nd UTF-8 char']. s nextPut: ((v2 bitAnd: 63) bitOr: ((v << 6) bitAnd: 192)) asCharacter]]]. ^s contents. ! Item was changed: ----- Method: Symbol class>>selectorsContaining: (in category 'access') ----- selectorsContaining: aString "Answer a list of selectors that contain aString within them. Case-insensitive. Does return symbols that begin with a capital letter." | size selectorList ascii | selectorList := OrderedCollection new. (size := aString size) = 0 ifTrue: [^selectorList]. aString size = 1 ifTrue: [ ascii := aString first asciiValue. ascii < 128 ifTrue: [selectorList add: (OneCharacterSymbols at: ascii+1)] ]. (aString first isLetter or: [aString first isDigit]) ifFalse: [ + aString size = 2 ifTrue: - aString size == 2 ifTrue: [Symbol hasInterned: aString ifTrue: [:s | selectorList add: s]]. ^selectorList ]. selectorList := selectorList copyFrom: 2 to: selectorList size. self allSymbolTablesDo: [:each | each size >= size ifTrue: [(each findSubstring: aString in: each startingAt: 1 matchTable: CaseInsensitiveOrder) > 0 ifTrue: [selectorList add: each]]]. ^selectorList reject: [:each | "reject non-selectors, but keep ones that begin with an uppercase" each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]]. "Symbol selectorsContaining: 'scon'"! Item was changed: ----- Method: Symbol>>isInfix (in category 'testing') ----- isInfix "Answer whether the receiver is an infix message selector." + ^ self precedence = 2! - ^ self precedence == 2! Item was changed: ----- Method: Symbol>>isKeyword (in category 'testing') ----- isKeyword "Answer whether the receiver is a message keyword." + ^ self precedence = 3! - ^ self precedence == 3! Item was changed: ----- Method: Symbol>>isUnary (in category 'testing') ----- isUnary "Answer whether the receiver is an unary message selector." + ^ self precedence = 1! - ^ self precedence == 1!

1 13

Re: [Pharo-project] Issue 1915 in pharo: Making ToolSet more flexible
by pharo＠googlecode.com April 16, 2011

April 16, 2011

Comment #2 on issue 1915 by marianopeck: Making ToolSet more flexible http://code.google.com/p/pharo/issues/detail?id=1915 Here was the discussion http://forum.world.st/Questions-about-ToolSet-td1460544.html

1 11

[Pharo-project] Issue 3488 in pharo: Find and replace dialog behavior
by pharo＠googlecode.com April 15, 2011

April 15, 2011

Status: Accepted Owner: aplantec Labels: Milestone-1.2 New issue 3488 by aplantec: Find and replace dialog behavior http://code.google.com/p/pharo/issues/detail?id=3488 I wonder if this is a feature or a bug. When I open a system windows AND a find & replace popup, even if the system window is in front, when I click in the code pane of a method, the find replace popup comes to front :( I mean, it gets the focus. Thanks Mariano It was supposed to be a feature, I mean for the find & replace window to always stay on top. A setting can be easily introduced to allow/forbid this. But, it should not take the keyboard focus: if you click on a code pane, for example, the find & replace window comes to top but the clicked code pane should keep the keyboard focus. It is the case here. Did you noticed something different ? Cheers Alain Igor answer: i think that the problem here (as i understood), that search window capturing a global focus, while in reality it should prevent interaction only with window, where you activated search/replace function, so you should not be able to interact with that window, while still should be able to interact with another ones.

1 3

[Pharo-project] Issue 3497 in pharo: Monticello Browser, +slice doesn't validate for not selecting any package
by pharo＠googlecode.com April 15, 2011

April 15, 2011

Status: Accepted Owner: marianopeck Labels: Milestone-1.2 New issue 3497 by marianopeck: Monticello Browser, +slice doesn't validate for not selecting any package http://code.google.com/p/pharo/issues/detail?id=3497 When creating a new slice in the Monticello browser, this tool automatically shows up all the dirty packages. For me (stupid) it was not obvious that I have to click on it and select them. This is why I upload an empty slice (without depedencies). I suggest a validation that in case of not having selectd any package, raise a warning/error saying "You did not select any package. Are you sure you want to proceed and create an empty slice?" or an error: "You did not select any package. Please select at least one." Pharo core version: 12288

1 8

Re: [Pharo-project] Issue 3240 in pharo: be more explicit about attribute changes to gain another 5-10x speedup
by pharo＠googlecode.com April 15, 2011

April 15, 2011

Updates: Labels: -Milestone-1.2 Milestone-1.3 Comment #4 on issue 3240 by siguctua: be more explicit about attribute changes to gain another 5-10x speedup http://code.google.com/p/pharo/issues/detail?id=3240 (No comment was entered for this change.)

1 1

[Pharo-project] Issue 3393 in pharo: Better support of configuration dependencies in Monticello Browser
by pharo＠googlecode.com April 12, 2011

April 12, 2011

Status: Accepted Owner: alexandre.bergel CC: da...(a)teleport.com, stephane.ducasse Labels: Difficulty-Easy New issue 3393 by alexandre.bergel: Better support of configuration dependencies in Monticello Browser http://code.google.com/p/pharo/issues/detail?id=3393 Configurations are better handled now. If the configuration you're editing depends on another configuration, then it is correctly defined in the baseline. MonticelloGUI-AlexandreBergel.83 in the inbox

1 2

[Pharo-project] Help (perfect for newcomers) migrating a technical FAQ
by Mariano Martinez Peck April 10, 2011

April 10, 2011

Hi folks. I had a good idea and and it perfect for someone that wants to help and don't know how. It is not the most entertained task, but I promise you will learn a lot. Mostly, if you are newcomer. The idea is basically to migrate the FAQ that is here: http://scg.unibe.ch/wiki/faq/pharofaq to a new section in the collaborative Pharo book: http://book.pharo-project.org/ So....any takers ? Let us know so that we generate a new user in the Book The idea is also to check whether what is says is still correct for pharo or if it needs an update. Or even how to improve it (from the view of a newcomer). Thanks Mariano

2 4

[Pharo-project] Issue 3430 in pharo: SystemProgressMorph possible enh
by pharo＠googlecode.com April 7, 2011

April 7, 2011

Status: FixedWaitingToBePharoed Owner: stephane.ducasse Labels: Milestone-1.3 New issue 3430 by stephane.ducasse: SystemProgressMorph possible enh http://code.google.com/p/pharo/issues/detail?id=3430 Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.488.mcz ==================== Summary ==================== Name: Morphic-laza.488 Author: laza Time: 8 December 2010, 1:24:52.251 pm UUID: 51a452ef-b931-4d4a-9d66-b8bc829fad99 Ancestors: Morphic-laza.487 Try to prevent empty progress morphs after updates when SystemProgressMorph reset is used in a Postscript =============== Diff against Morphic-mha.486 =============== Item was changed: ----- Method: SystemProgressMorph class>>close: (in category 'instance creation') ----- close: aBlock + | slot | + slot := aBlock value: SmallInteger maxVal. "This should prevent a redraw" + aBlock receiver freeSlot: slot. + + ! - UniqueInstance ifNotNil: [UniqueInstance close: aBlock]! Item was removed: - ----- Method: SystemProgressMorph>>close: (in category 'initialization') ----- - close: aBlock - | slot | - slot := aBlock value: SmallInteger maxVal. "This should prevent a redraw" - self freeSlot: slot - - ! Item was changed: ----- Method: SystemProgressMorph>>freeSlot: (in category 'private') ----- freeSlot: number + number > 0 ifFalse: [^self]. + lock critical: [| label | + label := labels at: number. + (label isNil or: [label owner isNil]) ifTrue: [^self]. "Has been freed before" + label delete. + (bars at: number) delete. + activeSlots := activeSlots - 1. + activeSlots = 0 + ifTrue: [self delete] + ifFalse: [self recenter]]! - number > 0 ifTrue: [ - lock critical: [ - (bars at: number) delete. - (labels at: number) delete. - activeSlots := activeSlots - 1. - activeSlots = 0 - ifTrue: [self delete] - ifFalse: [self recenter]]]! Item was changed: (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false. + "Force SystemProgressMorph to be reset" SystemProgressMorph initialize; reset. TextEditor initialize. SmalltalkEditor initialize. TheWorldMainDockingBar updateInstances'!

1 1