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

about ~=
by Christophe Demarey June 29, 2014

June 29, 2014

Hi, I would like to make a suggestion that may lead to a long debate but let's go: What do you think about deprecating ~= and replace it with != for example? Why? In mathematics the symbol ~ is used for equivalence. To me (and I think any newcomer to Smalltalk) the first guess of the meaning of ~= is equivalent to => missed. The meaning is totally different: "Answer whether the receiver and the argument do not represent the same object." I never used this method because it is too confusing for me. I prefer to use (a = b) not or (a = b) ifFalse:. So, the discussion is open ... Christophe

16 21

Pharo and Amber relationship
by Torsten Bergmann June 29, 2014

June 29, 2014

Hi, as I read somewhere that Amber want to stay compatible with Pharo (at least with the core classes) I wonder how this compatibility is measured/enforced these days. Are there tools to exchange code between the two? I also wonder if what would be necessary to run Amber on Java Nashorn (a JS engine that comes with the JDK 8). Could serve as a horse to also run on JVM... Why I'm asking: I think one of our goals should be to make Pharo more widely usable to not end up as an island. If Pharo and Amber stay compatible to a certain amount Amber could open the door for Pharo to other target platforms (browser, mobile devices, other language runtimes) as JS is available nearly everywhere. Thx T.

6 7

New Cog VMs available
by Eliot Miranda June 29, 2014

June 29, 2014

...in http://www.mirandabanda.org/files/Cog/VM/VM.r3021/. In particular, these fix VM crashes when running the AllocationTest in Spur. CogVM source as per VMMaker.oscog-eem.787/r3021 Fix mixup of old & young spaces in primitiveVMParameter, and comment some new parameters. Fix return types for positive[64/32]BitValueOf:. positive32BitValueOf: must answer a usqInt, positive64BitValueOf: must answer a usqLong. Use positiveMachineIntegerValueOf: to decode arg in primitiveNewWithArg and ensure positiveMachineIntegerValueOf: is inlined there-in. win32: Set the IMAGE_FILE_LARGE_ADDRESS_AWARE flag in the image header of the Windows executables to allow e.g. Spur to allocate more than 2Gb. Spur: Fix sign and overflow issues in instantiating larger objects and determining the size of large instances. Fix some freeChunk accesses that used fetchPointer:ofObject:. Cog ARM: Fix prim return for compileInterpreterPrimitive: on RISCs. On return from interpreter prim, ret pc is in instructionPointer and must return to whence it came, which is the stack on CISC and the LinkReg on RISC. Hence restoring the receiver reg requires different offsets in the two cases. Rework the rotatable quick constant logic a little and clean up users. Fix concretizeMoveRXbrR to do byte not word loads. Fix concretizeConditionalJumpLong: to actually be conditional. Oops. Correct mistaken callersaved reg stuff for ARM Fix concretizedRetN to not over-bump the SP The method abort trampolines shouldn't pop anything, especially now we have the pushLinkreg: arg to manage the LinkReg more easily. Slang: Rip out the UseRightShiftForDivide optimization. It gets unsigned division wrong, and C compilers can and will optimize this correctly themselves. -- best, Eliot

2 1

[pharo-project/pharo-core]
by GitHub June 29, 2014

June 29, 2014

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

1 0

[pharo-project/pharo-core] c66167: 40052
by GitHub June 29, 2014

June 29, 2014

Branch: refs/heads/4.0 Home: https://github.com/pharo-project/pharo-core Commit: c66167dc91c9f456178342805209e02a01010c98 https://github.com/pharo-project/pharo-core/commit/c66167dc91c9f45617834280… Author: Jenkins Build Server <board(a)pharo-project.org> Date: 2014-06-29 (Sun, 29 Jun 2014) Changed paths: A Morphic-Base.package/RowLayout.class/README.md A Morphic-Base.package/RowLayout.class/definition.st A Morphic-Base.package/RowLayout.class/instance/as yet unclassified/flushLayoutCache.st A Morphic-Base.package/RowLayout.class/instance/as yet unclassified/layout_in_.st A Morphic-Base.package/RowLayout.class/instance/as yet unclassified/minExtentOf_in_.st A Morphic-Base.package/StackLayout.class/README.md A Morphic-Base.package/StackLayout.class/definition.st A Morphic-Base.package/StackLayout.class/instance/as yet unclassified/flushLayoutCache.st A Morphic-Base.package/StackLayout.class/instance/as yet unclassified/layout_in_.st A Morphic-Base.package/StackLayout.class/instance/as yet unclassified/minExtentOf_in_.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/README.md A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/definition.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/adjustHeight.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/adjustWidth.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/display_atRow_on_.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/drawBoundsForRow_.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/drawSubmorphsOn_.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/hUnadjustedScrollRange.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/listChanged.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/rowAtLocation_.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/selectRow_.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/selectionFrameForRow_.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/as yet unclassified/userString.st A Morphic-Widgets-Basic.package/LazyMorphListMorph.class/instance/initialization/initialize.st A Morphic-Widgets-Pluggable.package/PluggablePanelMorph.class/README.md A Morphic-Widgets-Pluggable.package/PluggablePanelMorph.class/definition.st A Morphic-Widgets-Pluggable.package/PluggablePanelMorph.class/instance/accessing/getChildrenSelector.st A Morphic-Widgets-Pluggable.package/PluggablePanelMorph.class/instance/accessing/getChildrenSelector_.st A Morphic-Widgets-Pluggable.package/PluggablePanelMorph.class/instance/accessing/model.st A Morphic-Widgets-Pluggable.package/PluggablePanelMorph.class/instance/accessing/model_.st A Morphic-Widgets-Pluggable.package/PluggablePanelMorph.class/instance/update/update_.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/README.md A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/definition.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/acceptDroppingObject_.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/asString.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/balloonText.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/canBeDragged.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/contents.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/hasContents.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/icon.st A Morphic-Widgets-Pluggable.package/PluggableTreeItemNode.class/instance/accessing/wantsDroppedObject_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/README.md A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/definition.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/dragItemSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/dragItemSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/dropItemSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/dropItemSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getChildrenSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getChildrenSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getHelpSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getHelpSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getIconSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getIconSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getLabelSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getLabelSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getRootsSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getRootsSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getSelectedPathSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/getSelectedPathSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/hasChildrenSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/hasChildrenSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/keystrokeActionSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/keystrokeActionSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/roots.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/roots_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/setSelectedSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/setSelectedSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/wantsDropSelector.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/accessing/wantsDropSelector_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/morphic/acceptDroppingMorph_event_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/morphic/startDrag_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/morphic/wantsDroppedMorph_event_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/balloonTextForNode_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/contentsOfNode_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/dropNode_on_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/hasNodeContents_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/iconOfNode_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/isDraggableNode_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/printNode_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/node access/wantsDroppedNode_on_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/selection/setSelectedMorph_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/updating/selectPath_in_.st A Morphic-Widgets-Pluggable.package/PluggableTreeMorph.class/instance/updating/update_.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/README.md A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/definition.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/addPaneMorph_.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/closeWindowSelector.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/closeWindowSelector_.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/getChildrenSelector.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/getChildrenSelector_.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/getLabelSelector.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/getLabelSelector_.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/label.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/accessing/label_.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/initialization/delete.st A Morphic-Widgets-Windows.package/PluggableSystemWindow.class/instance/updating/update_.st M Nautilus.package/CodeRewritingAcceptor.class/instance/protocol/accept_notifying_.st R NautilusRefactoring.package/CodeRewritingRule.class/README.md R NautilusRefactoring.package/CodeRewritingRule.class/definition.st R NautilusRefactoring.package/CodeRewritingRule.class/instance/accessing/name.st R NautilusRefactoring.package/CodeRewritingRule.class/instance/accessing/rewriteRule_.st R NautilusRefactoring.package/RBAccessorClassRefactoring.class/README.md R NautilusRefactoring.package/RBAccessorClassRefactoring.class/definition.st R NautilusRefactoring.package/RBAccessorClassRefactoring.class/instance/accessing/refactorings.st R NautilusRefactoring.package/RBAccessorClassRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBAccessorClassRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBCategoryRegexRefactoring.class/README.md R NautilusRefactoring.package/RBCategoryRegexRefactoring.class/definition.st R NautilusRefactoring.package/RBCategoryRegexRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/README.md R NautilusRefactoring.package/RBClassRegexRefactoring.class/definition.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/accessing/rootClass.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/actions/copyClasses.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/actions/createClasses.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/actions/renameClasses.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/initialization/initialize.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/initialization/rootClass_.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/private/copyFrom_to_.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/private/duplicate_name_deep_.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/transforming/copy_name_.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/transforming/create_name_.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/transforming/rename_name_.st R NautilusRefactoring.package/RBClassRegexRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/README.md R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/class/instance-creation/combine_from_in_.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/class/instance-creation/model_combine_from_in_.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/definition.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/accessing/parseTree.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/accessing/selectedSource.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/initialization/combine_from_in_.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/preconditions/addStatementNode_.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/preconditions/findReceiverNode.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/preconditions/findSequenceNode.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/preconditions/findStatementNodes.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/transforming/combineMessages.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/transforming/compileCode.st R NautilusRefactoring.package/RBCreateCascadeRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/README.md R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/class/instance-creation/className_variables_.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/class/instance-creation/model_className_variables_.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/definition.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/instance/accessing/theClass.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/instance/accessing/variables_.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/instance/transforming/accessorForVariable_.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/instance/transforming/compileEqual.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/instance/transforming/compileHash.st R NautilusRefactoring.package/RBGenerateEqualHashRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/README.md R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/class/instance-creation/className_variables_.st R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/class/instance-creation/model_className_variables_.st R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/definition.st R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/instance/accessing/theClass.st R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/instance/accessing/variables_.st R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBGeneratePrintStringRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBPrettyPrintCodeRefactoring.class/README.md R NautilusRefactoring.package/RBPrettyPrintCodeRefactoring.class/definition.st R NautilusRefactoring.package/RBPrettyPrintCodeRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBPrettyPrintCodeRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBProtocolRegexRefactoring.class/README.md R NautilusRefactoring.package/RBProtocolRegexRefactoring.class/definition.st R NautilusRefactoring.package/RBProtocolRegexRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBRealizeClassRefactoring.class/README.md R NautilusRefactoring.package/RBRealizeClassRefactoring.class/definition.st R NautilusRefactoring.package/RBRealizeClassRefactoring.class/instance/accessing/theClass.st R NautilusRefactoring.package/RBRealizeClassRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBRealizeClassRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBRealizeClassRefactoring.class/instance/transforming/transform_.st R NautilusRefactoring.package/RBRegexRefactoring.class/README.md R NautilusRefactoring.package/RBRegexRefactoring.class/definition.st R NautilusRefactoring.package/RBRegexRefactoring.class/instance/initialization/initialize.st R NautilusRefactoring.package/RBRegexRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBRegexRefactoring.class/instance/private/execute_.st R NautilusRefactoring.package/RBRegexRefactoring.class/instance/private/execute_replace_with_.st R NautilusRefactoring.package/RBRegexRefactoring.class/instance/searching/replace_with_.st R NautilusRefactoring.package/RBRegexRefactoring.class/instance/searching/replace_with_ignoreCase_.st R NautilusRefactoring.package/RBSourceRegexRefactoring.class/README.md R NautilusRefactoring.package/RBSourceRegexRefactoring.class/definition.st R NautilusRefactoring.package/RBSourceRegexRefactoring.class/instance/private/parseMethod_.st R NautilusRefactoring.package/RBSourceRegexRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/README.md R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/class/instance-creation/model_split_from_in_.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/class/instance-creation/split_from_in_.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/definition.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/accessing/parseTree.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/initialization/split_from_in_.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/preconditions/findAncestorNode.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/preconditions/findCascadeNode.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/preconditions/findMessageNodes.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/transforming/extractReceiver.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/transforming/splitCascade.st R NautilusRefactoring.package/RBSplitCascadeRefactoring.class/instance/transforming/transform.st R NautilusRefactoring.package/RBSwapMethodRefactoring.class/README.md R NautilusRefactoring.package/RBSwapMethodRefactoring.class/class/instance-creation/model_swapMethod_in_.st R NautilusRefactoring.package/RBSwapMethodRefactoring.class/class/instance-creation/swapMethod_in_.st R NautilusRefactoring.package/RBSwapMethodRefactoring.class/definition.st R NautilusRefactoring.package/RBSwapMethodRefactoring.class/instance/initialization/swapMethod_in_.st R NautilusRefactoring.package/RBSwapMethodRefactoring.class/instance/preconditions/checkInstVars.st R NautilusRefactoring.package/RBSwapMethodRefactoring.class/instance/preconditions/preconditions.st R NautilusRefactoring.package/RBSwapMethodRefactoring.class/instance/transforming/transform.st R Polymorph-Widgets.package/LazyMorphListMorph.class/README.md R Polymorph-Widgets.package/LazyMorphListMorph.class/definition.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/adjustHeight.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/adjustWidth.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/display_atRow_on_.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/drawBoundsForRow_.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/drawSubmorphsOn_.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/hUnadjustedScrollRange.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/listChanged.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/rowAtLocation_.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/selectRow_.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/selectionFrameForRow_.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/as yet unclassified/userString.st R Polymorph-Widgets.package/LazyMorphListMorph.class/instance/initialization/initialize.st A Polymorph-Widgets.package/PanelMorph.class/instance/initialization/initialColorInSystemWindow_.st R Polymorph-Widgets.package/PluggablePanelMorph.class/README.md R Polymorph-Widgets.package/PluggablePanelMorph.class/definition.st R Polymorph-Widgets.package/PluggablePanelMorph.class/instance/accessing/getChildrenSelector.st R Polymorph-Widgets.package/PluggablePanelMorph.class/instance/accessing/getChildrenSelector_.st R Polymorph-Widgets.package/PluggablePanelMorph.class/instance/accessing/model.st R Polymorph-Widgets.package/PluggablePanelMorph.class/instance/accessing/model_.st R Polymorph-Widgets.package/PluggablePanelMorph.class/instance/update/update_.st R Polymorph-Widgets.package/PluggableSystemWindow.class/README.md R Polymorph-Widgets.package/PluggableSystemWindow.class/definition.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/addPaneMorph_.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/closeWindowSelector.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/closeWindowSelector_.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/getChildrenSelector.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/getChildrenSelector_.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/getLabelSelector.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/getLabelSelector_.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/label.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/accessing/label_.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/initialization/delete.st R Polymorph-Widgets.package/PluggableSystemWindow.class/instance/updating/update_.st A Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/event handling/handlesMouseWheel_.st A Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/focus/focusChanged.st A Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/focus/keyboardFocusChange_.st A Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/testing/hasValidText.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/README.md R Polymorph-Widgets.package/PluggableTreeItemNode.class/definition.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/acceptDroppingObject_.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/asString.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/balloonText.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/canBeDragged.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/contents.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/hasContents.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/icon.st R Polymorph-Widgets.package/PluggableTreeItemNode.class/instance/accessing/wantsDroppedObject_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/README.md R Polymorph-Widgets.package/PluggableTreeMorph.class/definition.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/dragItemSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/dragItemSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/dropItemSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/dropItemSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getChildrenSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getChildrenSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getHelpSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getHelpSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getIconSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getIconSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getLabelSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getLabelSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getRootsSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getRootsSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getSelectedPathSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/getSelectedPathSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/hasChildrenSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/hasChildrenSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/keystrokeActionSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/keystrokeActionSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/roots.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/roots_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/setSelectedSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/setSelectedSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/wantsDropSelector.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/accessing/wantsDropSelector_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/morphic/acceptDroppingMorph_event_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/morphic/startDrag_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/morphic/wantsDroppedMorph_event_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/balloonTextForNode_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/contentsOfNode_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/dropNode_on_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/hasNodeContents_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/iconOfNode_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/isDraggableNode_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/printNode_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/node access/wantsDroppedNode_on_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/selection/setSelectedMorph_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/updating/selectPath_in_.st R Polymorph-Widgets.package/PluggableTreeMorph.class/instance/updating/update_.st R Polymorph-Widgets.package/RowLayout.class/README.md R Polymorph-Widgets.package/RowLayout.class/definition.st R Polymorph-Widgets.package/RowLayout.class/instance/as yet unclassified/flushLayoutCache.st R Polymorph-Widgets.package/RowLayout.class/instance/as yet unclassified/layout_in_.st R Polymorph-Widgets.package/RowLayout.class/instance/as yet unclassified/minExtentOf_in_.st R Polymorph-Widgets.package/StackLayout.class/README.md R Polymorph-Widgets.package/StackLayout.class/definition.st R Polymorph-Widgets.package/StackLayout.class/instance/as yet unclassified/flushLayoutCache.st R Polymorph-Widgets.package/StackLayout.class/instance/as yet unclassified/layout_in_.st R Polymorph-Widgets.package/StackLayout.class/instance/as yet unclassified/minExtentOf_in_.st A Refactoring-Core.package/RBAccessorClassRefactoring.class/README.md A Refactoring-Core.package/RBAccessorClassRefactoring.class/definition.st A Refactoring-Core.package/RBAccessorClassRefactoring.class/instance/accessing/refactorings.st A Refactoring-Core.package/RBAccessorClassRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBAccessorClassRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBCategoryRegexRefactoring.class/README.md A Refactoring-Core.package/RBCategoryRegexRefactoring.class/definition.st A Refactoring-Core.package/RBCategoryRegexRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBClassRegexRefactoring.class/README.md A Refactoring-Core.package/RBClassRegexRefactoring.class/definition.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/accessing/rootClass.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/actions/copyClasses.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/actions/createClasses.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/actions/renameClasses.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/initialization/initialize.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/initialization/rootClass_.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/private/copyFrom_to_.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/private/duplicate_name_deep_.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/transforming/copy_name_.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/transforming/create_name_.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/transforming/rename_name_.st A Refactoring-Core.package/RBClassRegexRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/README.md A Refactoring-Core.package/RBCreateCascadeRefactoring.class/class/instance-creation/combine_from_in_.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/class/instance-creation/model_combine_from_in_.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/definition.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/accessing/parseTree.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/accessing/selectedSource.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/initialization/combine_from_in_.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/preconditions/addStatementNode_.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/preconditions/findReceiverNode.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/preconditions/findSequenceNode.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/preconditions/findStatementNodes.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/transforming/combineMessages.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/transforming/compileCode.st A Refactoring-Core.package/RBCreateCascadeRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/README.md A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/class/instance-creation/className_variables_.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/class/instance-creation/model_className_variables_.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/definition.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/instance/accessing/theClass.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/instance/accessing/variables_.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/instance/transforming/accessorForVariable_.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/instance/transforming/compileEqual.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/instance/transforming/compileHash.st A Refactoring-Core.package/RBGenerateEqualHashRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/README.md A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/class/instance-creation/className_variables_.st A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/class/instance-creation/model_className_variables_.st A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/definition.st A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/instance/accessing/theClass.st A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/instance/accessing/variables_.st A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBGeneratePrintStringRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBPrettyPrintCodeRefactoring.class/README.md A Refactoring-Core.package/RBPrettyPrintCodeRefactoring.class/definition.st A Refactoring-Core.package/RBPrettyPrintCodeRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBPrettyPrintCodeRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBProtocolRegexRefactoring.class/README.md A Refactoring-Core.package/RBProtocolRegexRefactoring.class/definition.st A Refactoring-Core.package/RBProtocolRegexRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBRealizeClassRefactoring.class/README.md A Refactoring-Core.package/RBRealizeClassRefactoring.class/definition.st A Refactoring-Core.package/RBRealizeClassRefactoring.class/instance/accessing/theClass.st A Refactoring-Core.package/RBRealizeClassRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBRealizeClassRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBRealizeClassRefactoring.class/instance/transforming/transform_.st A Refactoring-Core.package/RBRegexRefactoring.class/README.md A Refactoring-Core.package/RBRegexRefactoring.class/definition.st A Refactoring-Core.package/RBRegexRefactoring.class/instance/initialization/initialize.st A Refactoring-Core.package/RBRegexRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBRegexRefactoring.class/instance/private/execute_.st A Refactoring-Core.package/RBRegexRefactoring.class/instance/private/execute_replace_with_.st A Refactoring-Core.package/RBRegexRefactoring.class/instance/searching/replace_with_.st A Refactoring-Core.package/RBRegexRefactoring.class/instance/searching/replace_with_ignoreCase_.st A Refactoring-Core.package/RBSourceRegexRefactoring.class/README.md A Refactoring-Core.package/RBSourceRegexRefactoring.class/definition.st A Refactoring-Core.package/RBSourceRegexRefactoring.class/instance/private/parseMethod_.st A Refactoring-Core.package/RBSourceRegexRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/README.md A Refactoring-Core.package/RBSplitCascadeRefactoring.class/class/instance-creation/model_split_from_in_.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/class/instance-creation/split_from_in_.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/definition.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/accessing/parseTree.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/initialization/split_from_in_.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/preconditions/findAncestorNode.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/preconditions/findCascadeNode.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/preconditions/findMessageNodes.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/transforming/extractReceiver.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/transforming/splitCascade.st A Refactoring-Core.package/RBSplitCascadeRefactoring.class/instance/transforming/transform.st A Refactoring-Core.package/RBSwapMethodRefactoring.class/README.md A Refactoring-Core.package/RBSwapMethodRefactoring.class/class/instance-creation/model_swapMethod_in_.st A Refactoring-Core.package/RBSwapMethodRefactoring.class/class/instance-creation/swapMethod_in_.st A Refactoring-Core.package/RBSwapMethodRefactoring.class/definition.st A Refactoring-Core.package/RBSwapMethodRefactoring.class/instance/initialization/swapMethod_in_.st A Refactoring-Core.package/RBSwapMethodRefactoring.class/instance/preconditions/checkInstVars.st A Refactoring-Core.package/RBSwapMethodRefactoring.class/instance/preconditions/preconditions.st A Refactoring-Core.package/RBSwapMethodRefactoring.class/instance/transforming/transform.st A Refactoring-Critics.package/RBTransformationRule.class/instance/accessing/name.st A Refactoring-Critics.package/RBTransformationRule.class/instance/accessing/rewriteRule_.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - scripts/script52.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - updates/update40052.st M ScriptLoader40.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st Log Message: ----------- 40052 13369 Move NautilusRefactoring-Refactorings to Refactorings package https://pharo.fogbugz.com/f/cases/13369 13430 CodeRewritingRule can be folded in its superclass https://pharo.fogbugz.com/f/cases/13430 13374 Move row and Stack Layout close to their superclass https://pharo.fogbugz.com/f/cases/13374 13373 Polymorph Pluggable class should be investigated and move to Morphic-Widgets-Pluggable https://pharo.fogbugz.com/f/cases/13373 http://files.pharo.org/image/40/40052.zip

1 0

[Pharo4] Slots: Code Generation and an Example
by Marcus Denker June 28, 2014

June 28, 2014

Hi, So now Opal delegates code generation for read and write to the Slot meta objects. The methods called are #emitValue: and #emitStore:, the parameter is an IRBuilder. With this the implementor of a Slot is free to generate whatever bytecode needed, it will be inlined at the read or assignment site in the method. For the ivar Slot this is e.g. just emitStore: methodBuilder methodBuilder storeInstVar: index emitValue: methodBuilder methodBuilder pushInstVar: index. Now the implementors of Slots should not need to be bothered about bytecode, therefore we have in the superclass of all Slots defaults emit methods that implement a *reflective* read and write using the MOP of the Slot itself (slower than code generation, but often enough): emitValue: aMethodBuilder aMethodBuilder pushLiteral: self; pushReceiver; send: #read: emitStore: aMethodBuilder aMethodBuilder pushLiteral: self; pushReceiver; send: #writeToSlot:of: What this means is that for someone who wants to implement a slot, you do not have to deal with bytecode at all. Here is a simple Slot: Slot subclass: #TestSlot instanceVariableNames: 'value' classVariableNames: '' category: 'Slot-Scopeâ read: anObject ^ value write: aValue to: anObject value := aValue So this is a strange kind of Slot that stores the value in itself, which means it is shared between all objects as there is only one Slot meta object per class per slot. (not something you want to do in real world, but a nice demo) Now we can create a class (not yet easily as we have not yet enabled a class template, so lets use the ClassBuilder directly): PharoClassInstaller make: [ :builder | builder name: #A; slots: { TestSlot named: #iv }; category: #Playground ]. In class A we can implement accessors: iv ^iv iv: anObject iv := anObject They look like normal ivar accesses, but in the background, the compiler delegated to the Slot the code generation, calling emit*, which leads to the bytecode e.g. for the read: 21 <20> pushConstant: iv => TestSlot 22 <70> self 23 <E1> send: read: 24 <7C> returnTop you could override the emit* methods to generate faster code, but to get something running it is not needed. To test, e.g. you can set the slot from one object and read it from another: A new iv: 6 A new iv Then inspect the slot: (A slotNamed: #iv) inspect (this should all Work in 4.0 048, the example is there as TestSlot for now) ...next steps: 1) Class Definition template for classes with Slots 2) How do we save these classes in Monticello? 3) Virtual Slots (Boolean and PropertySlots) Marcus

4 3

Spec TreeModel
by Yuriy Tymchuk June 28, 2014

June 28, 2014

Hi, Iâd like to improve the TreeModel of Spec, but I need some help. Fist of all UI breaks when different theme is used: When you deselect checkbox and at that moment item is not highlighted. This happens when checkbox is clicked, the item is not highlighted and so itâs original color is not stored, but when you uncheck item it IS unhighlighted for some reason, and as default color is not stored, black one is used. First of all we can replace black color by theme color, and also I think that we should handle checkbox and list clicks in a separate manner. Now the other thing is related. I can turn on checkbox, but can I turn off the list selection? Are the selected items distinguished is any way, or all items with checked checkboxes and highlights merged into one list? Uko

2 2

GUI question
by Goubier Thierry June 28, 2014

June 28, 2014

Hi all, is there a rationale for the world menu on left mouse button only in Pharo 4? (and world contents on the right mouse button) Mine would be: - if I press a pull down menu (press a menu bar item or a pull down menu), it's the left mouse button. - If I look for a menu on a non-button thing, it's the right mouse button, i.e. contextual menu. Now, should I consider that the Pharo background is a huge pull-down menu button to understand the rationale behind having the world menu on the left-mouse button? Thierry -- Thierry Goubier CEA list Laboratoire des Fondations des SystÃ¨mes Temps RÃ©el EmbarquÃ©s 91191 Gif sur Yvette Cedex France Phone/Fax: +33 (0) 1 69 08 32 92 / 83 95

3 2

Contact of HwaJong Oh
by stepharo June 28, 2014

June 28, 2014

Hi guys I'm looking for the email of HwaJong Oh. Does anybody of you have it? Stef

3 2

Do we remove infiniteForm support?
by stepharo June 27, 2014

June 27, 2014

because when I see code like that, it makes me sick! I wonder also when we migrate to Athens if we will not rewrite all that anyway. fillRectangle: aRectangle basicFillStyle: aFillStyle "Fill the given rectangle with the given, non-composite, fill style." | pattern | (aFillStyle isKindOf: InfiniteForm) ifTrue: [ ^self infiniteFillRectangle: aRectangle fillStyle: aFillStyle ]. (aFillStyle isSolidFill) ifTrue:[^self fillRectangle: aRectangle color: aFillStyle asColor]. "We have a very special case for filling with infinite forms" (aFillStyle isBitmapFill and:[aFillStyle origin = (0@0)]) ifTrue:[ pattern := aFillStyle form. (aFillStyle direction = (pattern width @ 0) and:[aFillStyle normal = (0@pattern height)]) ifTrue:[ "Can use an InfiniteForm" ^self fillRectangle: aRectangle color: (InfiniteForm with: pattern)]. ]. "Use a BalloonCanvas instead" self balloonFillRectangle: aRectangle fillStyle: aFillStyle.

5 7