December 2014 - Pharo-users

command line access to MetaRepoForPharo30
by Torsten Bergmann Dec. 11, 2014

Dec. 11, 2014

If I remember correctly "config" looks up the config within a project repo. Thats why it should work with all repos that contain a SINGLE ConfigurationOfXXX package (or with repos where the name is matching) - like Fuel => ConfigurationOfFuel or others. Just dig into the code. The "MetaRepoForPharo30" is a repository with MANY configurations as this repo is not a project repo. MetaRepoForPharo30 is an assembling repo to drive the configuration browser in Pharo 3.0. There is also a MetaRepoForPharo40 for the config browser in Pharo 4.0 So basically in your example Pharo looks for "ConfigurationOfMetaRepoForPharo30" which it will not find as there is no Pharo project "MetaRepoForPharo30". So "config" option is intended to be used for project repos to easily access the config in them - you should not use it with one of the meta repos (MetaRepoForPharo30, MetaRepoForPharo40). bye T.

1 0

What do you suppose about this ?
by Hans Schueren Dec. 10, 2014

Dec. 10, 2014

What do you suppose about this ? from Hans the Byte Surfer. ViewManager subclass: #GraphicsDemo instanceVariableNames: 'pen graphs selectedGraph pane bitmap ' classVariableNames: 'Count ' poolDictionaries: 'ColorConstants ' ! !GraphicsDemo class methods ! initialize "Private - Set the color count to 0." Count := 0.! ! !GraphicsDemo methods ! animationMenu "Private - Answer the animation menu." ^(Menu labels: 'Big red\Little blue\Spider\Stop\Clear' withCrs lines: #() selectors: #(bigRed littleBlue spider deactivateAnimation clearAnimation)) title: '&Animation'; owner: self; yourself! bigRed "Private - Create a red animated mandala." | mandala | mandala := AnimatedObject mandala: 11 diameter: 72 color: ClrRed. pane addObject: mandala. mandala display! cleanUp "Private - Clean up GraphicsDemo before closing." self clearAnimation. bitmap notNil ifTrue: [bitmap release].! clearAnimation "Private - Clear the animation." | objects | objects := pane contents. pane clear. objects do: [: each | each frames do: [: f | f release]]! close: aPane "Private - Release the bitmaps of the animated objects." Smalltalk isRunTime ifTrue: [ (MessageBox confirm: 'Are you sure you want to exit?') ifTrue: [ self cleanUp. self close. ^Smalltalk exit] ifFalse: [ ^self]] ifFalse: [ self cleanUp. Transcript notNil ifTrue:[ Transcript enableDemo]. ^super close].! copyMetaFile "Copy a metafile to the clipboard." | storedPicture | storedPicture := pen segments at: (graphs at: #mandala). storedPicture isNil ifTrue: [^self]. storedPicture pen width: pen width; height: pen height. Clipboard setMetaFile: storedPicture! deactivateAnimation "Private - Stop the animation." pane stopAll! display: aPane "Private - Display aPane contents." selectedGraph isNil ifTrue: [pen erase] ifFalse: [ selectedGraph = #displayBitmap ifTrue: [^self displayBitmap]. graphs at: selectedGraph ifAbsent: [^self]. pen erase. pen drawSegment: (graphs at: selectedGraph)]! displayBitmap "Private - Paste the bitmap." bitmap notNil ifTrue:[ pen copyBitmap: bitmap from: bitmap boundingBox to: (0 @ 0 extent: pen extent)]! drag: aPane "Private - Track the mouse." | animatedObject | animatedObject := aPane childAt: aPane mouseLocation. animatedObject notNil ifTrue: [animatedObject drag: aPane mouseLocation]. aPane when: #button1Move perform: nil! dragon "Private - Draw a dragon pattern where anInteger is the recursion factor." self drawBlockNow: [ pen home; north; dragon: 11] for: #dragon! drawBlock: aBlock for: symbol "Private - Draw the selected graphics in a segment and make a backup." | intState wasActive | wasActive := pane stop. pen erase. selectedGraph := symbol. (graphs includesKey: symbol) ifFalse: [ graphs at: symbol put: (pen retainPicture: aBlock)]. self display: nil. pane makeBackup. wasActive ifTrue: [pane go]! drawBlockNow: aBlock for: symbol "Private - Draw the selected graphics and make a backup of the receiver." | intState wasActive | wasActive := pane stop. pen erase. selectedGraph := symbol. (graphs includesKey: symbol) ifTrue: [self display: nil] ifFalse: [ graphs at: symbol put: (pen drawRetainPicture: aBlock)]. pane makeBackup. wasActive ifTrue: [pane go]! drawMandalas "Private - Draw 8 mandalas." (Commander pen: 8 forDC: pen handle medium: pane) place: (self mainView rectangle extent) // 2; fanOut; up; go: 90; down; mandala: 12 diameter: 170 initDir: 270! drawSpirals "Private - Draw 4 spirals." | commander | commander := (Commander pen: 4 forDC: pen handle medium: pane). commander place: (self mainView rectangle extent) // 2; fanOut; up; go: 90; down. 1 to: 180 do: [: i | commander go: i; turn: 122]! drawWalkLine "Private - Draw rotating lines." | incrX incrY numberOfLines boundX | numberOfLines := 60. incrX := pen width / numberOfLines. incrY := pen height / numberOfLines. boundX := (incrX * (numberOfLines)). 1 to: numberOfLines + 1 do: [: i | pen foreColor: (GraphicsTool paletteIndex: ( (Count := Count + 1) \\ 7 + 1)); place: (i - 1 * incrX) rounded @ 0; goto: (boundX - (i * incrX) @ (i * incrY)) rounded]! drawWith: graphPane "Private - Assign the receiver's pen." pen := graphPane pen! graphicsMenu: aPane "Private - Set the menu for the graph pane." aPane setMenu: ( (Menu labels: '&Walk Line\&Mandala\M&ulti Mandala\&Dragon\Multi &Spiral\&Paste' withCrs lines: #() selectors: #(walkLine mandala multiMandala dragon multiSpiral paste)) title: '&Graphics'; owner: self; yourself)! initWindowSize "Private - Answer default initial window extent." ^Display extent * 7 // 8! littleBlue "Private - Create a blue animated mandala." | mandala | mandala := AnimatedObject mandala: 9 diameter: 48 color: ClrBlue. pane addObject: mandala. mandala display! mandala "Private - Draw a mandala." pen home. self drawBlockNow: [ pen mandala: 20 diameter: pen height * 7 // 8] for: #mandala! mouseDown: aPane "Private - Process a mouse down event." | aPoint animatedObject | aPoint := aPane mouseLocation. animatedObject := aPane childAt: aPoint. animatedObject notNil ifTrue: [ ^aPane when: #button1Move perform: #drag:]! multiMandala "Private - Draw 8 mandalas." self drawBlockNow: [self drawMandalas] for: #multiMandala! multiSpiral "Private - Draw 4 spirals." self drawBlockNow: [self drawSpirals] for: #multiSpiral! open "Open the graphics demo window." graphs := Dictionary new. self label: 'Graphics Demo'; foreColor: ClrBlack; backColor: ClrWhite; when: #close perform: #close:; owner: self. self addSubpane: (pane := AnimationPane new owner: self; when: #getContents perform: #drawWith:; when: #display perform: #display:; when: #button1Down perform: #mouseDown:; when: #getMenu perform: #graphicsMenu:). self openWindow. self menuWindow addMenu: self animationMenu.! paste "Private - Paste a bitmap from the clipboard to window." selectedGraph := #displayBitmap. bitmap notNil ifTrue: [bitmap release]. (bitmap := Clipboard getBitmap) isNil ifTrue: [^self]. self displayBitmap. pane makeBackup! pasteMetaFile "Paste a metafile from the clipboard." | storedPicture | storedPicture := Clipboard getMetaFile. storedPicture isNil ifTrue: [^self]. pen erase. storedPicture play: pen! setScale "Private - Set the scale for displaying selected graph demo." | scale | scale := (pen width * 2 / pen width) @ (pen height * 2 / pen height). (pen setScale: scale) = 1 ifFalse: [^self error: 'setScale error']. self perform: selectedGraph! spider "Private - Create a spider chaser." | spider | spider := AnimatedObject spider: 100. pane addObject: spider. spider endBlock: [: s | Menu message: 'Gotcha!! !!']. spider display. spider animate! walkLine "Private - Draw rotating lines." self drawBlock: [self drawWalkLine] for: #walkLine! !

1 0

Left mouse button not working in Pharo 3.0
by dboeren Dec. 10, 2014

Dec. 10, 2014

Sorry to have to introduce myself to the community this way :) I downloaded Pharo 3.0 recently for OSX and have been working on learning it and writing some simple programs to get accustomed to the language and environment. Now it's doing something odd and I don't know what's wrong or how to fix it. When I left-click anywhere in Pharo it brings up the World menu, as if I had right-clicked instead. I'm pretty sure it can't be a problem with my trackpad or O/S because it works fine in other apps. The really odd part is that if I select "System Browser" off the World menu the new browser window response to mouse clicks normally! So, while my old browser, workspace, transcript, and main window all treat left-clicks as right-clicks, the new window is fine. Does anyone know what could be causing this issue and more importantly how to fix it? I've tried rebooting my laptop, and of course restarting Pharo numerous times. Doesn't seem to make a difference. Thanks! -- View this message in context: http://forum.world.st/Left-mouse-button-not-working-in-Pharo-3-0-tp4795107.… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

7 12

modifying the compiler adding an alias for :=
by Erik Itter Dec. 10, 2014

Dec. 10, 2014

Hi, I need to modify the compiler adding ":>" as an alias for ":=" for assignment. I have been reading all over the Compiler package but do not find where a tokenizer parses for the assignement operator or where it is defined. Any hint where to start or do it is appreciated. best regards Erik

3 5

Working with zipped files
by Markus Fritsche Dec. 10, 2014

Dec. 10, 2014

Hi, by peeking around in "Deep into Pharo" I thought that | zf fr | fr := 'I:\SAS_Projekte\project.egp' asFileReference. zf := FileSystem zip: fr. zf store open. should be used to open a zip file programmatically. That fails with "ZnInvalidUTF8: Invalid utf8 input detected" Looking at MCMczReader, it skips the FileSystem API completely. In FileSystem-Tests-* I find DiskFileSystemTest and MemoryFileSystemTest, no ZipFileSystemTest to see how it's supposed to be done. Did I do it wrong? Or is FileSystem not yet "finalized" in that area? Best regards, Markus

3 6

[ Article ] LampSort, a non-recursive QuickSort implementation
by Sven Van Caekenberghe Dec. 10, 2014

Dec. 10, 2014

Hi, Here is another article I just published LampSort, a non-recursive QuickSort implementation The divide and conquer partitioning is at the heart of QuickSort https://medium.com/@svenvc/lampsort-a-non-recursive-quicksort-implementatio… Pharo makes it easy to implement this non-recursive version of QuickSort - and beautiful as well. Sven

5 8

[ann] gtspotter: a moldable interface for spotting objects
by Tudor Girba Dec. 9, 2014

Dec. 9, 2014

Hi, Alex Syrel, Andrei Chis and I are happy to announce a new addition to the Glamorous Toolkit: GTSpotter, a novel interface for spotting objects. GTSpotter has two goals: - Provide a uniform yet moldable interface that can work on any object, and - Handle searching through arbitrary levels of object nesting. We think this will have a significant impact on the development workflow in Pharo. Here is a couple of screenshots: [image: Inline image 2] [image: Inline image 1] [image: Inline image 3] A trailer is available here: https://www.youtube.com/watch?v=PhSmjR3NOlU A detailed description is available here: http://www.humane-assessment.com/blog/introducing-gtspotter It works already in Pharo 3.0 and can be played with by following the instructions from: http://gt.moosetechnology.org Please let us know what you think. Enjoy, The Glamorous Team

8 36

STON - new release?
by Usman Bhatti Dec. 8, 2014

Dec. 8, 2014

Hi Sven, I have used STON to serialize some of my objects and it is really simple and cool to work with STON. For my project, I loaded the stable version. When I tried to customize the names of my classes for serialization using stonName, I got errors of MetaClass DNU. I saw that you already fixed this problem a few months back. I loaded recent changes and the problem was resolved. I would like to load a newer version of STON with this bug fix. Do you plan to update ConfigOf with a latest release because I would like to avoid loading a baseline? thanks. usman

2 1

ShoreLine Reporter is in Pharo 4
by Tommaso Dal Sasso Dec. 8, 2014

Dec. 8, 2014

Hello everybody, I am excited to announce that ShoreLine Reporter is now part of Pharo 4. ShoreLine Reporter is a tool to detect and report errors in Pharo: whenever a user encounters an exception, she can select the "Report" option from the Pre Debug Window and send a stack trace to the ShoreLine server. We are using the collected data to identify bugs in the system faster. We are also building a set of tools that the community can use to visualize the information from Pharo exceptions. More on that soon ;-) If you want to help the Pharo development just press the "Report" button to submit your exceptions. You can also decide to submit every exception without being bothered by selecting the "always submit" checkbox. We do not want to intrude your privacy: this option is opt-in and does not send any data without your explicit consensus. Also, we are working to introduce the possibility to filter the stack trace data that involves proprietary code, and include only information regarding the core system. Any question or suggestion to improve the tool is more than welcome. Stay tuned and have fun! Tommaso

4 6

Emergency evaluator and GTGenericStackDebugger
by Edward Povazan Dec. 8, 2014

Dec. 8, 2014

Hello, Iâve been using Pharo for a while as my playground for trying things out, itâs a very soothing place to code and figure out algorithms (except that when I return to my âreal worldâ, the friction with modern tools is amplified). Iâm still a newb when it comes to knowing how things work deeper down. Iâm a little stuck. I did something (canât remember) and not realizing that I had a problem, saved my image too. Now when I try open a Workspace, I get a *** System error handling failed *** with a huge amount of text. Iâve uploaded a screen grab here: http://imgur.com/4ZwsF6e Is this worth debugging? My plan is to install the origin tools, and remove GToolkit. And then reinstall GToolkit. Would this help? And, how? I realize I donât know what tools are in the default Pharo3 image! Can someone tell me what they are called? Thanks! Canât wait to get back to the happy place! -Ed

3 9