November 2014 - Pharo-dev - lists.pharo.org

MVC/ MVP / DCI Patterns..
by S Krish Nov. 29, 2014

Nov. 29, 2014

In the context of spec / UI / enterprise solutions, I have been mulling over this for some time especially when I play with FXML. To put it in context, I find FXML intriguing and nice. XML metadata that stays completely outside the code and makes it uber flexible to weave in UI to a enterprise solution post facto. The thought trail I have is: Typical Pattern: Model links to Controller that links to a: Customer View ( singleton ? ) Controller links to: Validators / Delegates.. et als.. Model links to in Memory Cache registry { that links to: Persistence Module.. I do not bother about this for now..} In FXML I see nice convention over configuration approach: * XML format.. understood by people/ more importantly editors at large.. * Controller is injectable * all method calls onAction/ events are simple viz #handleSubmitButtonAction or the ilk.. that will thereby call the controller instance methods.. * fxml can also invoke simple ( or complex) javascript action viz: jsSubmitAction( event) Would Spec see that kind of approach.. feasible for extensibility Food for thought more as rethink on fundamental patterns: a) Should view have knowledge explicitly of its Controller.. Or Controller while creating the view injects its instance.. only.. b) Should we push Controller to be a Presenter.. as the case tends to be. And then let Controller be the gateway to all other parts.. as listed above.. c) View actions & callbacks & validators are separated and dealt with a view "controller" , but the gateway to all other parts is handled by a real "observer controller" ... There has to be reliable: * bidirectional update from view -> model ( in cache ) * proper modular segregation of all parts of a standard enterprise app. to enable common and known functions of each part, flexible, scalable but importantly easily maintainable.. in future by developer other than the author.. * Scriptability is one of the desired capabilities with the shrink wrapped app to be extended

1 0

About RBCompiler
by Serge Stinckwich Nov. 29, 2014

Nov. 29, 2014

I'm trying to port QuasiQuote package from Lukas Renggli to Pharo 3.0/4.0. This package use the RBCompiler class from the AST-Compiler package available here: http://source.lukas-renggli.ch/helvetia If I understand RBCompiler, this is a Compiler that use RB parser nodes. I guess this is something that is no more relevant with the new Opal compiler ? -- Serge Stinckwich UCBN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/

5 7

IdentitySet>>collect:
by Eliot Miranda Nov. 29, 2014

Nov. 29, 2014

Hi All, IdentitySet>>collect: answers a Set, not an IdentitySet. Anyone else agree this is a serious bug? Anyone else disagree? WTF?? (IdentitySet withAll: #(1 2 3 1.0 2.0 3.0)) collect: [:e| e] a Set(1.0 2 3) -- best, Eliot

5 7

Fix wikipedia article
by Sebastian Sastre Nov. 28, 2014

Nov. 28, 2014

Hi guys, Just a heads upâ¦ This is asking for a fix: http://en.wikipedia.org/wiki/Pure_(programming_language) <http://en.wikipedia.org/wiki/Pure_(programming_language)> LISP and Self and Smalltalk people should add their voice there Unleash your nerd :)

2 2

[pharo-project/pharo-core]
by GitHub Nov. 28, 2014

Nov. 28, 2014

Branch: refs/tags/40390 Home: https://github.com/pharo-project/pharo-core

1 0

[pharo-project/pharo-core] b0326f: 40390
by GitHub Nov. 28, 2014

Nov. 28, 2014

Branch: refs/heads/4.0 Home: https://github.com/pharo-project/pharo-core Commit: b0326f5e79a6040644317b02654b5d1a5991261e https://github.com/pharo-project/pharo-core/commit/b0326f5e79a6040644317b02… Author: Jenkins Build Server <board(a)pharo-project.org> Date: 2014-11-28 (Fri, 28 Nov 2014) Changed paths: M Growl.package/GrowlMorph.class/class/settings/growlSettingsOn_.st R NautilusRefactoring.package/CodeCriticBrowser.class/README.md R NautilusRefactoring.package/CodeCriticBrowser.class/class/specs/defaultSpec.st R NautilusRefactoring.package/CodeCriticBrowser.class/class/specs/title.st R NautilusRefactoring.package/CodeCriticBrowser.class/class/specs/topSpec.st R NautilusRefactoring.package/CodeCriticBrowser.class/definition.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/environment.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/environment_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/listModel1.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/listModel1_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/listModel2.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/listModel2_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/listModel3.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/listModel3_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/process.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/process_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/status.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/status_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/textModel.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/accessing/textModel_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/initialization/initializePresenter.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/initialization/initializeWidgets.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/processing/basicSearch_.st R NautilusRefactoring.package/CodeCriticBrowser.class/instance/protocol/rules_.st M NautilusRefactoring.package/NautilusRefactoring.class/instance/class/removeClasses_.st M NautilusRefactoring.package/NautilusRefactoring.class/instance/option/selectVariableToMoveMethodTo_class_.st M NautilusRefactoring.package/NautilusRefactoring.class/instance/private-method/privateDeprecateMethodFor_.st R NautilusRefactoring.package/extension/TClassDescription/instance/renameMethodAllItem_.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - scripts/script390.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - updates/update40390.st M ScriptLoader40.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st A Traits.package/TClassDescription.class/instance/as yet unclassified/renameMethodAllItem_.st Log Message: ----------- 40390 14544 tiny code critique cleanup of NautilusRefactoring https://pharo.fogbugz.com/f/cases/14544 14543 Pharo4.0 settings do have Appearance and appearance (twice the entries that is) https://pharo.fogbugz.com/f/cases/14543 http://files.pharo.org/image/40/40390.zip

1 0

7350 window drag ghosting while progress bar is moving
by Ben Coman Nov. 28, 2014

Nov. 28, 2014

A while ago I logged an issue "window drag ghosting while progress bar is moving" [1] - but I haven't noticed this for a long time. Before I close it, has anyone had any similar problems with Pharo 4 ? [1] https://pharo.fogbugz.com/default.asp?7350 cheers -ben

2 1

Problem with input of localized characters by Michal
by lb Nov. 28, 2014

Nov. 28, 2014

Hiï¼Michal I used Pharo 3 or 4 and happened to the similar problem, l found: (Pls notice the Bold Part) HandMorph>>generateKeyboardEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer" | buttons modifiers type pressType stamp charCode keyValue keyEvent | stamp := evtBuf second. stamp = 0 ifTrue: [stamp := Time millisecondClockValue]. pressType := evtBuf fourth. pressType = EventKeyDown ifTrue: [ type := #keyDown. lastKeyScanCode := evtBuf third]. pressType = EventKeyUp ifTrue: [type := #keyUp]. pressType = EventKeyChar ifTrue: [ type := #keystroke]. modifiers := evtBuf fifth. buttons := modifiers bitShift: 3. keyValue := evtBuf third. charCode := evtBuf sixth. "Adjustments to provide consistent key value data for different VM's : - charCode always contains unicode code point. - keyValue contains 0 if input is outside legacy range " "If there is no unicode data in the event, assume keyValue contains a correct (<256) Unicode codepoint, and use that" (charCode isNil or: [charCode = 0]) ifTrue: [charCode := keyValue]. "If charCode is not single-byte, we definately have Unicode input. Nil keyValue to avoid garbage values from some VMs." charCode > 255 ifTrue: [keyValue := 0]. type = #keystroke ifTrue: [combinedChar ifNil: [ | peekedEvent | peekedEvent := Sensor peekEvent. (peekedEvent notNil and: [peekedEvent fourth = EventKeyDown]) ifTrue: [ (CombinedChar isCompositionCharacter: charCode) ifTrue: [ combinedChar := CombinedChar new. combinedChar simpleAdd: charCode asCharacter. (combinedChar combinesWith: peekedEvent third asCharacter) ifTrue: [^nil]. ]]] ifNotNil: [ (combinedChar simpleAdd: charCode asCharacter) ifTrue: [charCode := combinedChar combined charCode]. combinedChar := nil]]. self flag: #fixme. "This piece of code handles the creation of scrolling events. When a scroll is done by the user, the VM forwards a keystroke event with the up/down key. So we reconvert it to a MouseWheelEvent in that case." (type = #keystroke and: [(buttons anyMask: 16) and: [charCode = 30 or: [charCode = 31]]]) ifTrue: [^MouseWheelEvent new setType: #mouseWheel position: lastMouseEvent cursorPoint direction: (charCode = 30 ifTrue: [#up] ifFalse: [#down]) buttons: buttons hand: self stamp: stamp]. keyEvent := KeyboardEvent new setType: type buttons: buttons position: self position keyValue: keyValue charCode: charCode hand: self stamp: stamp. keyEvent scanCode: lastKeyScanCode. ^keyEvent MayBe it works. Have a fun! BingLiang

2 1

Nov. 28, 2014

Hello, I would like for specific objects to change the default window size of the glamour inspector (Basically a bigger window will be opened by default for these objects). This is because I extended my inspectors to provide roassal visualization that are quite large. How can I do it ? For example I would like something like that: MyObject>>#gtInitialWindowExtent < gtInitialWindowExtent > ^ 800@1000 Clement

5 9

Re: [Pharo-dev] Problem with input of localized characters by Michal
by lb Nov. 28, 2014

Nov. 28, 2014

Hiï¼Michal I used Pharo 3 or 4 in Windows and happened to the similar problem, l found: (Notice the Bold Part) HandMorph>>generateKeyboardEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer" | buttons modifiers type pressType stamp charCode keyValue keyEvent | stamp := evtBuf second. stamp = 0 ifTrue: [stamp := Time millisecondClockValue]. pressType := evtBuf fourth. pressType = EventKeyDown ifTrue: [ type := #keyDown. lastKeyScanCode := evtBuf third]. pressType = EventKeyUp ifTrue: [type := #keyUp]. pressType = EventKeyChar ifTrue: [ type := #keystroke]. modifiers := evtBuf fifth. buttons := modifiers bitShift: 3. keyValue := evtBuf third. charCode := evtBuf sixth. "Adjustments to provide consistent key value data for different VM's : - charCode always contains unicode code point. - keyValue contains 0 if input is outside legacy range " "If there is no unicode data in the event, assume keyValue contains a correct (<256) Unicode codepoint, and use that" (charCode isNil or: [charCode = 0]) ifTrue: [charCode := keyValue]. "If charCode is not single-byte, we definately have Unicode input. Nil keyValue to avoid garbage values from some VMs." charCode > 255 ifTrue: [keyValue := 0]. type = #keystroke ifTrue: [combinedChar ifNil: [ | peekedEvent | peekedEvent := Sensor peekEvent. (peekedEvent notNil and: [peekedEvent fourth = EventKeyDown]) ifTrue: [ (CombinedChar isCompositionCharacter: charCode) ifTrue: [ combinedChar := CombinedChar new. combinedChar simpleAdd: charCode asCharacter. (combinedChar combinesWith: peekedEvent third asCharacter) ifTrue: [^nil]. ]]] ifNotNil: [ (combinedChar simpleAdd: charCode asCharacter) ifTrue: [charCode := combinedChar combined charCode]. combinedChar := nil]]. self flag: #fixme. "This piece of code handles the creation of scrolling events. When a scroll is done by the user, the VM forwards a keystroke event with the up/down key. So we reconvert it to a MouseWheelEvent in that case." (type = #keystroke and: [(buttons anyMask: 16) and: [charCode = 30 or: [charCode = 31]]]) ifTrue: [^MouseWheelEvent new setType: #mouseWheel position: lastMouseEvent cursorPoint direction: (charCode = 30 ifTrue: [#up] ifFalse: [#down]) buttons: buttons hand: self stamp: stamp]. keyEvent := KeyboardEvent new setType: type buttons: buttons position: self position keyValue: keyValue charCode: charCode hand: self stamp: stamp. keyEvent scanCode: lastKeyScanCode. ^keyEvent MayBe it works. Have a fun! BingLiang

1 0