- Pharo-dev - lists.pharo.org

[ANN] Basic GitHub-API for Pharo
by Torsten Bergmann Sept. 23, 2016

Sept. 23, 2016

Hi, to get warm with Git, GitFileTree and Iceberg last week I was in need of something quick I could implement to try these new tools out. While being on my GitHub webpage I've seen at the bottom a link to "API" and was happily surprised that GitHub could be accessed also with a REST API. So I wrapped a few of these calls within Pharo and now you can also query GitHub infos easily from inside of the image: (GitHub userNamed: 'astares') avatar inspect "Returns the avatar form" (GitHub userNamed: 'pharo-project') isOrganization (GitHubUser named: 'pharo-project') repositories Code could be improved and extended further, possible also be used for accessing/controlling GitHub from Iceberg later. If you want to play with it just load it from Catalog in Pharo 6.0. Code and docu is available on https://github.com/astares/GitHub-API Have fun T.

3 2

[pharo-project/pharo-core] d87de4: 60237
by GitHub Sept. 23, 2016

Sept. 23, 2016

Branch: refs/heads/6.0 Home: https://github.com/pharo-project/pharo-core Commit: d87de481a22f9fdc663f44726cd6e9f2fede217a https://github.com/pharo-project/pharo-core/commit/d87de481a22f9fdc663f4472… Author: Jenkins Build Server <board(a)pharo-project.org> Date: 2016-09-23 (Fri, 23 Sep 2016) Changed paths: M ConfigurationOfGTDebugger.package/ConfigurationOfGTDebugger.class/instance/symbolic versions/stable_.st A ConfigurationOfGTDebugger.package/ConfigurationOfGTDebugger.class/instance/versions/version32_.st M ConfigurationOfGTInspectorCore.package/ConfigurationOfGTInspectorCore.class/instance/symbolic versions/stable_.st A ConfigurationOfGTInspectorCore.package/ConfigurationOfGTInspectorCore.class/instance/versions/version320_.st M ConfigurationOfGTPlaygroundCore.package/ConfigurationOfGTPlaygroundCore.class/instance/symbolic versions/stable_.st A ConfigurationOfGTPlaygroundCore.package/ConfigurationOfGTPlaygroundCore.class/instance/versions/version316_.st M ConfigurationOfGTSpotter.package/ConfigurationOfGTSpotter.class/instance/symbolic versions/stable_.st A ConfigurationOfGTSpotter.package/ConfigurationOfGTSpotter.class/instance/versions/version217_.st M ConfigurationOfGToolkitCore.package/ConfigurationOfGToolkitCore.class/instance/symbolic versions/stable_.st A ConfigurationOfGToolkitCore.package/ConfigurationOfGToolkitCore.class/instance/versions/version328_.st M ConfigurationOfGlamourCore.package/ConfigurationOfGlamourCore.class/instance/symbolic versions/stable_.st A ConfigurationOfGlamourCore.package/ConfigurationOfGlamourCore.class/instance/versions/version422_.st A GT-Debugger.package/ManifestGTDebugger.class/README.md A GT-Debugger.package/ManifestGTDebugger.class/class/unloading/preUnload.st A GT-Debugger.package/ManifestGTDebugger.class/definition.st M GT-Playground.package/GTPlayground.class/instance/building/compose.st R Glamour-Morphic-Brick.package/GLMBrick.class/instance/brick-structure-testing/isLastInOwner.st R ScriptLoader60.package/ScriptLoader.class/instance/pharo - scripts/script60236.st A ScriptLoader60.package/ScriptLoader.class/instance/pharo - scripts/script60237.st R ScriptLoader60.package/ScriptLoader.class/instance/pharo - updates/update60236.st A ScriptLoader60.package/ScriptLoader.class/instance/pharo - updates/update60237.st M ScriptLoader60.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st Log Message: ----------- 60237 Moose http://files.pharo.org/image/60/60237.zip

2 2

[pharo-project/pharo-core]
by GitHub Sept. 23, 2016

Sept. 23, 2016

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

1 0

error: cannot find OpenSSL or Libgcrypt when creating the VM on OSX
by Alexandre Bergel Sept. 22, 2016

Sept. 22, 2016

Here is the trace of the build.sh -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= checking for _FILE_OFFSET_BITS value needed for large files... no checking for ld used by GCC... /Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ld checking if the linker (/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/ld) is GNU ld... no checking for shared library run path origin... done checking for libssl... no checking for libgcrypt... no configure: error: cannot find OpenSSL or Libgcrypt, try --with-libssl-prefix=PATH or --with-libgcrypt-prefix=PATH make[2]: *** [thirdParty/libssh2/src/libssh2-stamp/libssh2-configure] Error 1 make[1]: *** [thirdParty/libssh2/CMakeFiles/libssh2.dir/all] Error 2 make: *** [all] Error 2 ~/Desktop/VM_TMP/pharo-vm/build> brew install OpenSSL Warning: openssl-1.0.2a-1 already installed ~/Desktop/VM_TMP/pharo-vm/build> brew install Libgcrypt ==> Downloading ftp://ftp.gnupg.org/gcrypt/libgcrypt/libgcrypt-1.6.3.tar.bz2 Already downloaded: /Library/Caches/Homebrew/libgcrypt-1.6.3.tar.bz2 ==> ./configure --disable-silent-rules --prefix=/usr/local/Cellar/libgcrypt/1.6. ==> make ==> make check Please report to http://bugs.gnupg.org ====================================== make[2]: *** [check-TESTS] Error 1 make[1]: *** [check-am] Error 2 make: *** [check-recursive] Error 1 READ THIS: https://git.io/brew-troubleshooting ~/Desktop/VM_TMP/pharo-vm/build> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ~/Desktop/VM_TMP/pharo-vm/build> gcc --version Configured with: --prefix=/Applications/Xcode.app/Contents/Developer/usr --with-gxx-include-dir=/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.11.sdk/usr/include/c++/4.2.1 Apple LLVM version 7.0.2 (clang-700.1.81) Target: x86_64-apple-darwin15.2.0 Thread model: posix ~/Desktop/VM_TMP/pharo-vm/build> No idea whatâs going onâ¦ Help :-) Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

3 2

ZnPortNotANumber exception when loading from local clone dir (following Metacello Guide)
by Torsten Bergmann Sept. 22, 2016

Sept. 22, 2016

Hi, according to the Metacello quide on [1] in section "Prime Metacello registry" one can write | pathToPackageDirectory | "edit to match the path to your chosen package directory" pathToPackageDirectory := '/opt/git/Sample/packages'. Metacello new baseline: 'Sample'; repository: 'filetree://', pathToPackageDirectory; load. Adopting this for a Windows path I have: | pathToPackageDirectory | pathToPackageDirectory := 'C:\ClonedRepo\packages'. Metacello new baseline: 'MyProject'; repository: 'filetree://', pathToPackageDirectory; load. But I get a ZnPortNotANumber exception, even when I use a diffent protocol like "client://". Tried this in Pharo 6.0 Latest update: #60233 What I want to do (on Windows) is to load all project packages from a local cloned git directory (not a remote GitHub) using the dependencies given in the Baseline. Did I miss something, is it just broken or the docu not up to date? If so is this a parsing issue on the Zinc URLs or an issue of Metacello API? Thanks T. [1] https://github.com/dalehenrich/metacello-work/blob/master/docs/GettingStart…

4 5

[pharo-project/pharo-core]
by GitHub Sept. 22, 2016

Sept. 22, 2016

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

1 0

Iceberg and other repos
by Norbert Hartl Sept. 22, 2016

Sept. 22, 2016

I loaded my project with gitfiletree and tried to use it with iceberg. But I get It seems that Iceberg assumes that packages are loaded with Iceberg itself. Meaning if the repository is not an iceberg repository #loadedVersion returns nil. So where to report bugs for iceberg? Norbert

3 7

Better diffs
by Nicolas Passerini Sept. 22, 2016

Sept. 22, 2016

I am not happy with Iceberg diffs so I wonder if there is a better diff morphs around. Currently I am using a GLMDiffPresentation, which gives an easy way to show a diff, but is not much flexible. Some requirements I have are: a. Configure coloring (currently changes are always shown in red for the left version and in green for the right version). b. Provide a title for each side of the diff c. (more difficult) Show three way diffs. Also highlighting is just not right in current version, several times it does not highlight correctly the changed code. So, do you know if there is a better way to show diffs? Thank you. Nico

2 1

ExternalSemaphoreTable curious garbageCollect
by Ben Coman Sept. 22, 2016

Sept. 22, 2016

A curiosity I can't work out and maybe I can learn something... ExternalSemaphoreTable unprotectedExternalObjects class ==> Array so in #freedSlotsIn:ratherThanIncreaseSizeTo: how does the garbageCollect manage to free slots given that the Array holds strongly to its elements? cheers -ben

2 2

PrimitiveFailed: primitive #elementsForwardIdentityTo: in Array failed
by HernÃ¡n Morales Durand Sept. 21, 2016

Sept. 21, 2016

Hi I don't know if this was reported. Apparently there is a problem when migrating a large number of instances, I have aprox. 270,000 instances from which I simply pulled up an ivar in their class to a higher superclass, and a PrimitiveFailed raised. It can be reproduced by installing Territorial in Pharo 5.0 with Spur VM 5.0 from 4 May 2016 in Windows 8.1 (this is the standard image installed using wget command line in msys). Gofer it smalltalkhubUser: 'hernan' project: 'Territorial'; configuration; loadDevelopment. TCityOrganization addOpenGeoCode Then manually install Territorial-HernanMoralesDurand.163 from Monticello. Backwards (installing .163, populating, then .166) also reproduces the issue. Is there a fix for this? --- The full stack --- Array(Object)>>primitiveFailed: Array(Object)>>primitiveFailed Array>>elementsForwardIdentityTo: TerritorialCity class(ClassDescription)>>updateInstances:from:isMeta: TerritorialCity class(ClassDescription)>>updateInstancesFrom: PharoClassInstaller>>updateClass:to: [ 1 to: old size do: [ :index | self updateClass: (old at: index) to: (new at: index) ]. old elementsForwardIdentityTo: new. " Garbage collect away the zombie instances left behind in garbage memory in #updateInstancesFrom: " " If we don't clean up this garbage, a second update would revive them with a wrong layout! " " (newClass rather than oldClass, since they are now both newClass) " Smalltalk garbageCollect ] in PharoClassInstaller>>migrateClasses:to:using: BlockClosure>>ensure: BlockClosure>>valueUnpreemptively PharoClassInstaller>>migrateClasses:to:using: SlotClassBuilder>>migrateClasses: SlotClassBuilder>>apply: SlotClassBuilder>>build PharoClassInstaller class(AbstractClassInstaller class)>>make: [ PharoClassInstaller make: [ :builder | builder superclass: superClass; name: name; layoutClass: (ObjectLayout layoutForType: type); slots: self instanceVariables; sharedVariables: self classVariables; sharedPools: self sharedPoolsString; classSlots: self classInstanceVariables; traitComposition: self traitCompositionCompiled; classTraitComposition: self classTraitCompositionCompiled; comment: comment stamp: commentStamp; category: category; environment: superClass environment ] ] in MCClassDefinition>>createClass BlockClosure>>on:do: MCClassDefinition>>createClass MCClassDefinition>>load MCClassDefinition(MCDefinition)>>addMethodAdditionTo: [ :each | each addMethodAdditionTo: methodAdditions ] in MCPackageLoader>> basicLoadDefinitions [ :each | | newLabel | "Special handling for first and last element" (count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ]) ifTrue: [ bar current: count. oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ]) ifFalse: [ bar label: newLabel. oldLabel := newLabel ]. lastUpdate := Time millisecondClockValue ]. aBlock value: each. count := count + 1 ] in [ :bar | labelBlock := aStringOrBlock isString ifTrue: [ bar label: aStringOrBlock. [ :dummyItem | aStringOrBlock ] ] ifFalse: [ aStringOrBlock ]. self do: [ :each | | newLabel | "Special handling for first and last element" (count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ]) ifTrue: [ bar current: count. oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ]) ifFalse: [ bar label: newLabel. oldLabel := newLabel ]. lastUpdate := Time millisecondClockValue ]. aBlock value: each. count := count + 1 ] ] in OrderedCollection(Collection)> >do:displayingProgress:every: OrderedCollection>>do: [ :bar | labelBlock := aStringOrBlock isString ifTrue: [ bar label: aStringOrBlock. [ :dummyItem | aStringOrBlock ] ] ifFalse: [ aStringOrBlock ]. self do: [ :each | | newLabel | "Special handling for first and last element" (count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ]) ifTrue: [ bar current: count. oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ]) ifFalse: [ bar label: newLabel. oldLabel := newLabel ]. lastUpdate := Time millisecondClockValue ]. aBlock value: each. count := count + 1 ] ] in OrderedCollection(Collection)> >do:displayingProgress:every: BlockClosure>>cull: [ ^ block cull: self ] in [ self prepareForRunning. CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run [ p psValueAt: index put: anObject. aBlock value ] in CurrentJob(DynamicVariable)>>value:during: BlockClosure>>ensure: CurrentJob(DynamicVariable)>>value:during: CurrentJob class(DynamicVariable class)>>value:during: [ self prepareForRunning. CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run BlockClosure>>ensure: Job>>run MorphicUIManager(UIManager)>>displayProgress:from:to:during: ByteString(String)>>displayProgressFrom:to:during: OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection(Collection)>>do:displayingProgress: MCPackageLoader>>basicLoadDefinitions [ self basicLoadDefinitions ] in [ self handleLoadErrorsDuring: [ self basicLoadDefinitions ] ] in MCPackageLoader>>basicLoad BlockClosure>>on:do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ aBlock on: InMidstOfFileinNotification do: [ :notification | notification resume: true ] ] in MCPackageLoader>> handleLoadErrorsDuring: BlockClosure>>on:do: MCPackageLoader>>handleLoadErrorsDuring: [ self handleLoadErrorsDuring: [ self basicLoadDefinitions ] ] in MCPackageLoader>>basicLoad BlockClosure>>ensure: MCPackageLoader>>basicLoad [ self basicLoad ] in MCPackageLoader>>loadWithNameLike: BlockClosure>>ensure: MCPackageLoader>>useChangeSetNamed:during: MCPackageLoader>>useNewChangeSetNamedLike:during: MCPackageLoader>>loadWithNameLike: MCThreeWayMerger(MCMerger)>>loadWithNameLike: MCVersionMerger>>mergeWithNameLike: MCVersionMerger class>>mergeVersion: MCVersion>>merge MCFileRepositoryInspector(MCVersionInspector)>>merge MCFileRepositoryInspector>>merge MCFileRepositoryInspector(MCTool)>>performButtonAction:enabled: PluggableButtonMorph>>performAction: [ :m | (m containsPoint: evt cursorPoint) ifTrue: [ m enabled ifTrue: [ m performAction: evt ] ] ] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self)) ] in HandMorph>>sendFocusEvent:to:clear: BlockClosure>>on:do: WorldMorph(PasteUpMorph)>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [ :h | ActiveHand := h. h processEvents. ActiveHand := nil ] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: WorldMorph>>doOneCycle [ [ World doOneCycle. Processor yield. false ] whileFalse: [ ] ] in MorphicUIManager>>spawnNewProcess [ self value. Processor terminateActive ] in BlockClosure>>newProcess ------------------------------------------------------------ ------------------- HernÃ¡n

2 2