- Pharo-dev - lists.pharo.org

[pharo-project/pharo-core] 2241c6: 40093
by GitHub July 17, 2014

July 17, 2014

Branch: refs/heads/4.0 Home: https://github.com/pharo-project/pharo-core Commit: 2241c616c17d6aab13d4bab2014d2d448b83c3bb https://github.com/pharo-project/pharo-core/commit/2241c616c17d6aab13d4bab2… Author: Jenkins Build Server <board(a)pharo-project.org> Date: 2014-07-17 (Thu, 17 Jul 2014) Changed paths: A Deprecated40.package/extension/RPackage/instance/correspondingMcPackage.st A Monticello.package/extension/RPackage/instance/mcPackage.st R Morphic-Base.package/SimpleSwitchMorph.class/README.md R Morphic-Base.package/SimpleSwitchMorph.class/definition.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/button/doButtonAction.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/event handling/mouseDown_.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/event handling/mouseMove_.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/event handling/mouseUp_.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/initialization/initialize.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/switching/isOn.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/switching/offColor_.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/switching/setSwitchState_.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/switching/toggleState.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/switching/turnOff.st R Morphic-Base.package/SimpleSwitchMorph.class/instance/switching/turnOn.st M Morphic-Widgets-Basic.package/IconicListItem.class/README.md A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/README.md A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/definition.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/button/doButtonAction.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/event handling/mouseDown_.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/event handling/mouseMove_.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/event handling/mouseUp_.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/initialization/initialize.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/switching/isOn.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/switching/offColor_.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/switching/setSwitchState_.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/switching/toggleState.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/switching/turnOff.st A Morphic-Widgets-Basic.package/SimpleSwitchMorph.class/instance/switching/turnOn.st A Morphic-Widgets-Pluggable.package/PluggableTextEditorMorph.class/README.md A Morphic-Widgets-Pluggable.package/PluggableTextEditorMorph.class/class/as yet unclassified/stylingClass.st A Morphic-Widgets-Pluggable.package/PluggableTextEditorMorph.class/definition.st A Morphic-Widgets-Pluggable.package/PluggableTextEditorMorph.class/instance/as yet unclassified/enabledString.st A Morphic-Widgets-Pluggable.package/PluggableTextEditorMorph.class/instance/as yet unclassified/textMorphClass.st A Morphic-Widgets-Pluggable.package/PluggableTextEditorMorph.class/instance/as yet unclassified/toggleEnabled.st A Morphic-Widgets-Pluggable.package/PluggableTextEditorMorph.class/instance/menu %26 halo/addToggleItemsToHaloMenu_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/README.md A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/definition.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/borderStyleToUse.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/closeChooser.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/converter.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/converter_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/default.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/default_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/entryCompletion_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/fillStyleToUse.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/ghostText.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/ghostText_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/hasUnacceptedEdits_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/maxLength.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/maxLength_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/openChooser.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/textFont.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/textFont_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/accessing/textMarginsWidth.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/actions/accept.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/drawing/drawOn_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/editor access/scrollSelectionIntoView_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/encryption/beDecrypted.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/encryption/beEncrypted.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/encryption/encrypted_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/event handling/handlesMouseWheel_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/event handling/keystrokeFromTextMorph_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/event handling/mouseDownFromTextMorph_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/event handling/scrollByKeyboard_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/event handling/textChanged.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/focus/focusChanged.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/focus/keyboardFocusChange_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/geometry/innerBounds.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/initialization/initialize.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/initialization/layoutChanged.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/initialization/outOfWorld_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/initialization/withDropListButton.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/model access/acceptTextInModel.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/model access/convertTo_.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/model access/getSelection.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/model access/getText.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/private/textMorphClass.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/styling/okToStyle.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/testing/chooserHasFocus.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/testing/hasValidText.st A Morphic-Widgets-Pluggable.package/PluggableTextFieldMorph.class/instance/updating/update_.st M Nautilus.package/AbstractNautilusUI.class/instance/icon/packageIconFor_.st M Nautilus.package/NautilusMonticello.class/class/monticello menus/packagesChangesMenu_.st M Nautilus.package/NautilusMonticello.class/class/monticello menus/packagesCommitsMenu_.st M Nautilus.package/NautilusMonticello.class/class/monticello menus/packagesCreateMenu_.st M Nautilus.package/NautilusMonticello.class/class/monticello menus/packagesOpenMenu_.st R Nautilus.package/PackageTreeGroupSelection.class/instance/accessing/correspondingMcPackage.st R Nautilus.package/PackageTreePackageSelection.class/instance/accessing/correspondingMcPackage.st R Nautilus.package/PackageTreeSelection.class/instance/accessing/correspondingMcPackage.st A Nautilus.package/PackageTreeSelection.class/instance/accessing/mcPackage.st R Polymorph-Widgets.package/PluggableTextEditorMorph.class/README.md R Polymorph-Widgets.package/PluggableTextEditorMorph.class/class/as yet unclassified/stylingClass.st R Polymorph-Widgets.package/PluggableTextEditorMorph.class/definition.st R Polymorph-Widgets.package/PluggableTextEditorMorph.class/instance/as yet unclassified/textMorphClass.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/README.md R Polymorph-Widgets.package/PluggableTextFieldMorph.class/definition.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/borderStyleToUse.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/closeChooser.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/converter.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/converter_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/default.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/default_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/entryCompletion_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/fillStyleToUse.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/ghostText.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/ghostText_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/hasUnacceptedEdits_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/maxLength.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/maxLength_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/openChooser.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/textFont.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/textFont_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/accessing/textMarginsWidth.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/actions/accept.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/drawing/drawOn_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/editor access/scrollSelectionIntoView_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/encryption/beDecrypted.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/encryption/beEncrypted.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/encryption/encrypted_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/event handling/handlesMouseWheel_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/event handling/keystrokeFromTextMorph_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/event handling/mouseDownFromTextMorph_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/event handling/scrollByKeyboard_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/event handling/textChanged.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/focus/focusChanged.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/focus/keyboardFocusChange_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/geometry/innerBounds.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/initialization/initialize.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/initialization/layoutChanged.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/initialization/outOfWorld_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/initialization/withDropListButton.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/model access/acceptTextInModel.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/model access/convertTo_.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/model access/getSelection.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/model access/getText.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/private/textMorphClass.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/styling/okToStyle.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/testing/chooserHasFocus.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/testing/hasValidText.st R Polymorph-Widgets.package/PluggableTextFieldMorph.class/instance/updating/update_.st M Polymorph-Widgets.package/extension/Text/instance/treeRenderOn_bounds_color_font_from_.st M RPackage-Core.package/RPackageOrganizer.class/instance/private registration/basicUnregisterPackage_.st R RPackage-SystemIntegration.package/extension/RPackage/instance/correspondingMcPackage.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - scripts/script93.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - updates/update40093.st M ScriptLoader40.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st M Versionner-Spec-Browser.package/VersionnerProjectBrowser.class/instance/actions/updateRepository.st Log Message: ----------- 40093 13558 PluggableTextFieldMorph should be packaged in PluggableTextMorph https://pharo.fogbugz.com/f/cases/13558 12879 Rename and Recategorize RPackage>>#correspondingMcPackage https://pharo.fogbugz.com/f/cases/12879 13572 little clean of SimpleSwitchMorph and comment https://pharo.fogbugz.com/f/cases/13572 http://files.pharo.org/image/40/40093.zip

1 0

[pharo-project/pharo-core]
by GitHub July 16, 2014

July 16, 2014

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

1 0

[pharo-project/pharo-core] bf4d12: 40092
by GitHub July 16, 2014

July 16, 2014

Branch: refs/heads/4.0 Home: https://github.com/pharo-project/pharo-core Commit: bf4d12d670e9885783929f9f43b915924c0a21b3 https://github.com/pharo-project/pharo-core/commit/bf4d12d670e9885783929f9f… Author: Jenkins Build Server <board(a)pharo-project.org> Date: 2014-07-16 (Wed, 16 Jul 2014) Changed paths: A Graphics-Primitives.package/EllipseMidpointTracer.class/README.md A Graphics-Primitives.package/EllipseMidpointTracer.class/definition.st A Graphics-Primitives.package/EllipseMidpointTracer.class/instance/computing/stepInY.st A Graphics-Primitives.package/EllipseMidpointTracer.class/instance/initialize/on_.st A Graphics-Primitives.package/GrafPort.class/README.md A Graphics-Primitives.package/GrafPort.class/definition.st A Graphics-Primitives.package/GrafPort.class/instance/accessing/alphaBits_.st A Graphics-Primitives.package/GrafPort.class/instance/accessing/contentsOfArea_into_.st A Graphics-Primitives.package/GrafPort.class/instance/accessing/fillPattern_.st A Graphics-Primitives.package/GrafPort.class/instance/accessing/lastFontForegroundColor.st A Graphics-Primitives.package/GrafPort.class/instance/copying/clippedBy_.st A Graphics-Primitives.package/GrafPort.class/instance/copying/copyBits.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/fillOval_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/fillRect_offset_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/frameOval_borderWidth_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/frameRectBottom_height_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/frameRectRight_width_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/frameRect_borderWidth_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/image_at_sourceRect_rule_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/image_at_sourceRect_rule_alpha_.st A Graphics-Primitives.package/GrafPort.class/instance/drawing support/stencil_at_sourceRect_.st A Graphics-Primitives.package/GrafPort.class/instance/private/installStrikeFont_.st A Graphics-Primitives.package/GrafPort.class/instance/private/installStrikeFont_foregroundColor_backgroundColor_.st A Graphics-Primitives.package/GrafPort.class/instance/private/lastFont.st R Morphic-Core.package/EllipseMidpointTracer.class/README.md R Morphic-Core.package/EllipseMidpointTracer.class/definition.st R Morphic-Core.package/EllipseMidpointTracer.class/instance/computing/stepInY.st R Morphic-Core.package/EllipseMidpointTracer.class/instance/initialize/on_.st R Morphic-Core.package/GrafPort.class/README.md R Morphic-Core.package/GrafPort.class/definition.st R Morphic-Core.package/GrafPort.class/instance/accessing/alphaBits_.st R Morphic-Core.package/GrafPort.class/instance/accessing/contentsOfArea_into_.st R Morphic-Core.package/GrafPort.class/instance/accessing/fillPattern_.st R Morphic-Core.package/GrafPort.class/instance/accessing/lastFontForegroundColor.st R Morphic-Core.package/GrafPort.class/instance/copying/clippedBy_.st R Morphic-Core.package/GrafPort.class/instance/copying/copyBits.st R Morphic-Core.package/GrafPort.class/instance/drawing support/fillOval_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/fillRect_offset_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/frameOval_borderWidth_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/frameRectBottom_height_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/frameRectRight_width_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/frameRect_borderWidth_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/image_at_sourceRect_rule_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/image_at_sourceRect_rule_alpha_.st R Morphic-Core.package/GrafPort.class/instance/drawing support/stencil_at_sourceRect_.st R Morphic-Core.package/GrafPort.class/instance/private/installStrikeFont_.st R Morphic-Core.package/GrafPort.class/instance/private/installStrikeFont_foregroundColor_backgroundColor_.st R Morphic-Core.package/GrafPort.class/instance/private/lastFont.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - scripts/script92.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - updates/update40092.st M ScriptLoader40.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st M Tools.package/AbstractTool.class/instance/private/renamePackage_.st Log Message: ----------- 40092 13515 GrafPort and EllipseMidpointTracer should not be in Morphic package https://pharo.fogbugz.com/f/cases/13515 13563 Fix sender of deprecated RPackageOrganizer>>#renamePackage:in: method https://pharo.fogbugz.com/f/cases/13563 http://files.pharo.org/image/40/40092.zip

1 0

About Cocoa delegate
by stepharo July 16, 2014

July 16, 2014

Hi In the quest for a better UI framework :), I was re rereading about delegate in Cocoa. A delegating object will delegate certain operations to a delegate object (check the attachment). Now I was wondering why this is not a simple delegation they wrote: The delegating object sends a message only if the delegate implements the method. It makes this discovery by invoking the NSObject method respondsToSelector: in the delegate first. Cocoa Fundamentals Guide (TP40002974 6.0.0)

4 9

Pharo Not For The Enterprise
by Stephan Eggermont July 16, 2014

July 16, 2014

Can we have another book? LaserGame would fit in fine too. I've started writing a chapter explaining PhlappyBird !PhlappyBird PhlappyBird is a smalltalk clone of the well-known little game. It is a nice example of building a small Morphic application and well suited for a tutorial. +file://figures/PhlappyBird.png+ !! The top level window The top level window is a SystemWindow containing a game scene and a button to restart the game. The scene will be recreated when the button is pressed, and it is easiest to just have an instance variable refering to it. [[[ SystemWindow subclass: #PhlappyBirdGame instanceVariableNames: 'scene' classVariableNames: '' category: 'PhlappyBird' ]]] The game can be started by typing ==PhlappyBirdGame play <DoIt>==. That creates a new game, opens it window in te world and sets its width and height. [[[ PhlappyBirdGame class>>play PhlappyBirdGame new openInWorld; extent: 298@510. ]]] In Pharo, ==new== calls ==initialize==. In the initialization, the scene is created, the window is given a title and made unresizable, the scene is told that when the space key is pressed the bird should flap its wings and the restart button is added. [[[ PhlappyBirdGame>>initialize super initialize. scene := self newScene. self setLabel: 'Phlappy Bird'; beUnresizeable; on: Character space do: [ scene flapTheBird ]; addMorph: self createRestartButton frame: (0(a)0.92 corner: 1@1) ]]]. The ==addMorph:frame:== message is the morphic implementation of the composite pattern. All Morphs can be composites. Most Morphs use ==addMorph:fullFrame:== where the frame provides a layout object, but a SystemWindow adds a simpler variant where a proportional layout can be used with a rectangle with values between 0 and 1 for the relative size. The button takes the 8% of the bottom part of the user-draw area of the window. The scene takes the rest. [[[ PhlappyBirdGame>>newScene | newScene | newScene := Scene new. self addMorph: newScene frame: (0@0 corner: 1(a)0.92) ^ newScene ]]] !!! The restart button The button is a ==PluggableButtonMorph==. A PluggableButtonMorph is a themeable button, that takes colors, borders and corner radius from the currently selected theme. ;SystemWindow is also a theme-aware object. [[[ PhlappyBirdGame>>createRestartButton ^ PluggableButtonMorph on: self getState: nil action: #restartPressed label: #restartButtonLabel ]]] The PluggableButtonMorph will react to being clicked by performing the ==restartPressed== action method on its model (self), and gets its label from the ==restartButtonLabel== method. The label is just a string. A PluggableButtonMorph can show a binary value, and by ==setState: nil== it is indicated that this is just a plain button. [[[ PhlappyBirdGame>>restartButtonLabel ^ 'New Game' ]]] When the button is pressed, the current scene is removed as submorph from the window and a new one is created and added. [[[ PhlappyBirdGame>>restartPressed scene delete. scene := self newScene. ]]]

5 6

New Cog VMs available
by Eliot Miranda July 16, 2014

July 16, 2014

...at http://www.mirandabanda.org/files/Cog/VM/VM.r3041/. The principal changes are fixing a performance regression in the 3040 VMs, fixing some Spur bugs in primitiveClone/shallowCopy, and radically simplifying the Spur become implementation, trading the elimination of lots of post-become class table scanning for adding read barriers to class hierarchy method lookup. CogVM source as per VMMaker.oscog-eem.820/r3041 Put the handling of the cloning of cogged methods in the clone: implementations, removing it from the primitive. Add it to the pinning clone too. Specialize the store check trampoline generation. Move it down to the relevant object representations. Move setting of isRemembered flag to true into SpurGenerationScavenger>> remember:. Inline possibleRootStoreInto: (given that remember: is /not/ inlined. Call remember directly from the ceStoreCheckTrampoline, and hence have remember: answer its argument. Fix localization bug. Variables in initialize methods were not considered references (cuz there are excluded). This caused VMMaker.oscog-eem.816's extraction of zero/false vars to StackInterpreter>>#initialize to cause nextPollUsecs to be localized to checkForEventsMayContextSwitch:. Spur: Fix bug in scanClassPostBecome:effects: with new lazy selector following policy by... throwing it all away. The read barriers on method lookup (of the methodClass association in super sends, of the superclass link, of method dictionaries, method dictionary arrays, selectors and methods is cheap. So replace scanning classes and method dictionaries in the class table post become with read marriewrs on methodClass, superclass and method dictionary etc on lookup. The read barrier on an object from which we are going to fetch state (such as a class or method dictionary) is essentially free on modern machines because the class index and the state very likely share a cache line, and the register code for testing is so cheap compared to memory access. Further the read barrier on selectors is cheap because the method lookup cache is effective in reducing the number of message lookups and because nil entries need no check. So nuke all the followNecessaryForwardingInMethod: machinery including the cmUsesMethodClass hack. Nuke scanClassPostBecome:effects:. Rip out the forwardingCount: measurement code. It causes bad performance regressions (due to failing inlines?) Clean up, e.g. replace followNonImmediateField:ofObject: uses with followObjField:ofObject:. canPinObjects can be inlined. -- best, Eliot

3 3

A great quote from the creator of C programming language
by kilon alios July 16, 2014

July 16, 2014

*At least for the people who send me mail about a new language that they're designing, the general advice is: do it to learn about how to write a compiler. Don't have any expectations that anyone will use it, unless you hook up with some sort of organization in a position to push it hard. It's a lottery, and some can buy a lot of the tickets. There are plenty of beautiful languages (more beautiful than C) that didn't catch on. But someone does win the lottery, and doing a language at least teaches you something.* Dennis Ritchie <http://en.wikipedia.org/wiki/Dennis_Ritchie> (1941-2011) Creator of the C <http://en.wikipedia.org/wiki/C_language> programming language and of Unix <http://en.wikipedia.org/wiki/Unix> But then being non popular does not mean that you are not very useful.

1 0

consideration of Smalltalk "DoIt"
by Ben Coman July 16, 2014

July 16, 2014

Mostly I take for granted that "DoIt" has always been the way to evaluate things with Smalltalk, however I find it awkward to use in writing a tutorial. Some examples... * After saving, select "Grid new" and "DoIt" -- this sounds awkward, and even that you might need select the latter as well. * After saving, "Grid new" DoIt. -- doesn't read nice * After saving, DoIt to "Grid new." -- worst of all I'd feel better writing something like this... * After saving, evaluate "Grid new". but "evaluate" is not an item in the menus. I think actually many people talk this way with the implicit convention that "evaluate" means "DoIt". So first, does anyone have a good way to compose sentences using "DoIt". Second, how evil would it be to change the menus from "DoIt" to "Evaluate" and so avoid the implicit convention. cheers -ben

10 15

Athens and AntiAliasing
by Thierry Goubier July 16, 2014

July 16, 2014

Hi, I'm trying to see if I can switch on antialiasing when using Athens (for Roassal in particular) but it seems partially implemented? i.e. AthensCairoCanvas>>setAA: is a nop (just comments) even if the Cairo AA constants are initialized. Can I just write the NB cairo_set_alias call myself or is there a reason for having it disabled? Thanks, Thierry

1 0

Debugger variable display - poor wrapping of collections
by Ben Coman July 16, 2014

July 16, 2014

I have a minor irritation that when displaying a variable in the debugger, collections wrap like this... an OrderedCollection(a MyObject a MyObject a MyObject a.... I'd like to see something like this... an-OrderedCollection( a-MyObject a-MyObject a-MyObject .... Using the dash has the lowest impact code-wise, but maybe the visual-semantics is too great a change? The required code change is shown below in comments... Object>>printOn: aStream | title | title := self class name. aStream nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']); " nextPutAll: (title first isVowel ifTrue: ['an-'] ifFalse: ['a-']); " nextPutAll: title Collection>>printElementsOn: aStream aStream nextPut: $( " ; space " . self do: [:element | aStream print: element] separatedBy: [aStream space]. aStream " space ; " nextPut: $) cheers -ben

1 0