- Pharo-users - lists.pharo.org

New Pharo user, some questions
by dboeren Dec. 12, 2014

Dec. 12, 2014

Now that my image is working properly again and the fires have been put out, I wanted to introduce myself a bit better... My name is David Boeren. I first learned Smalltalk back in college many years ago, we used Smalltalk V in an object oriented programming class I took which was first-half Smalltalk, second-half C++. This would be about 1992 I think? In recent years I've mainly been using Java, with occasional Python dabblings. I remember installing Squeak once or twice over the years, but to be honest it felt a bit clunky, perhaps this was just an early primitive version or whatever. Recently, I've been getting the itch to try out some different languages. I was kind of looking at Scala or Clojure, one co-worker suggested Erlang, and so forth. But after doing a brief review I ended up coming back to Smalltalk which even after all these years still stands right up with the cutting edge I think. Sure, there are a few things that I think would be a little different if it were designed today like tuple support or whatever, but it feels like the right choice for something I'm going to use mainly for "fun" projects and the interactive environment is awesome. One thing I wanted to ask about is the status of getting Pharo running on iOS (or at least iPad). I found some old posts but nothing much within the last couple of years. I know there were app store policy issues in the past but I think that Apple has opened things up a bit since then, you can now get Pythonista in the app store, or Codea. Is there still an obstacle or is it just something that hasn't been gotten around to yet? I'd love to get it running on my iPad Mini and be able to transmit code back and forth between there and my laptop to work on it wherever I'm at. Second, I'm running into an oddity and I'm not sure what I'm doing wrong or whether this is a bug of some sort, this has to do with trying to replace unicode characters in a string which seems like it should be a straightforward operation. Here is my code: "Fetch the raw JSON data from dtdb.co" response := 'http://dtdb.co/api/cards/' asUrl retrieveContents asString. "Clean up the data a bit to make it a little more regular" response := response copyReplaceAll: 'null' with: '""'. response := response copyReplaceAll: '\u2022' with: ','. response := response copyReplaceAll: '\u009e' with: 'e'. Basically I'm just pulling some JSON data and then doing a few string replacements to make the data suit my needs. The first one works. The second one works. Since the third one ALSO uses a \uXXXX code I would expect it to work too, but it does not - the accented characters are still there. To get a bit more visibility into this, I copied the CopyReplaceAll code from SequenceableCollection into a scratch class method and adding some Transcript output: copyReplaceIn: aString All: oldSubCollection with: newCollection "Answer a copy of the receiver in which all occurrences of oldSubCollection have been replaced by newCollection " | startSearch currentIndex endIndex | Transcript show: 'start' ; cr. startSearch := 1. [(currentIndex := aString indexOfSubCollection: oldSubCollection startingAt: startSearch) > 0] whileTrue: [ Transcript show: 'Found at index ' ; show: currentIndex ; cr. endIndex := currentIndex + oldSubCollection size - 1. aString := aString copyReplaceFrom: currentIndex to: endIndex with: newCollection. startSearch := currentIndex + newCollection size]. Transcript show: 'done' ; cr. ^ aString A minimal test seemed to work: HelloWorld copyReplaceIn: 'R\u00e9my Lapointe' All: '\u00e9' with: 'e'. start Found at index 2 done Testing this with the real data worked too: HelloWorld copyReplaceIn: ('http://dtdb.co/api/cards/' asUrl retrieveContents asString) All: '\u00e9' with: 'e'. start Found at index 22379 Found at index 22500 done However, when I went back to using the regular copyReplaceAll:With: method it does not work and I'm not sure why. When it executes this: aString indexOfSubCollection: oldSubCollection startingAt: startSearch The value comes back as 0 even though it's the same data from 'http://dtdb.co/api/cards/' asUrl retrieveContents asString (I added a "self halt" to be able to step into the method and view the variable values), and I'm not sure what the difference is. There shouldn't be a limit on the size of the collection, should there? The whole thing is around 116k which is big but not ridiculously so. It is however big enough that the debugger can't show the whole value, or at least I haven't found a way to do so. And last, is there a good video tutorial for the Pharo beginner on how to use the various browsers, debugger, tools, etc... that come with Pharo? I would like to start learning more about the best ways to use these in my development processes. I'm also having a lot of trouble finding the correct classes and message for what I want to do, searching online w/ Google often seem to turn up outdated information (or for a different smalltalk flavor) and it can take a while to figure out the correct way to do things. Is there a good central reference for the APIs somewhere? I know that you can search in the browser but I usually don't know the name to search for. It would be good to have a handy reference detailing how to do all the commonplace stuff. Thanks! -- View this message in context: http://forum.world.st/New-Pharo-user-some-questions-tp4795325.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

8 20

Open that fucking thing.
by Hans Schueren Dec. 11, 2014

Dec. 11, 2014

Who says that programming in smalltalk is different from others ? You can write smalltalk with a simple Texteditor. However. I have written a simple program here , with smalltalk V 2.0 , 16bit 1. The programs name is : Prozentrechnung Only one class is the programm. Only one method is the program. ok. there could be more interdependencies such like "subroutines" not important for understanding 2. The method "startUpApplication" from the class "Notification" is responsible for opening the own programm. ( itself a class uhhhhhhhhh ) So the only thing you have to do is to tell the strartUpApplication method the program Name. here Prozentrechnung new open. thats all 3. Now you have to type a Method named open. for Notification to READ. 4. In most cases is is self and then the startmethod of your own program. Here in my program the Promter is asking first with a simple window to INPUT DATA ! Very simple and easy. I dont care about the endless procedures in other smalltalk implementations but one thing is shure . " i have opened that fucking thing here in smalltalk ! " _______________________________________________________________ Object subclass: #Prozentrechnung instanceVariableNames: 'Berechnung ' classVariableNames: '' poolDictionaries: '' ! !Prozentrechnung class methods ! ! !Prozentrechnung methods ! calculate "Simple Percentage Calculation" | x y ergebnis | x := Prompter prompt: 'Input a sum' default: ' '. x := x asInteger. y := Prompter prompt: 'Input percentage % : ' default: ' '. y := y asInteger. ergebnis := x * (y/100). MessageBox message: 'Ergebnis ist: ' , ergebnis printString! open "Open that fucking thing" self calculate! ! startUpApplication: oldWindows "Opens up the the run-time application window. oldWindows are the windows that were opened when the image was saved." "Replace the below code with the startup code for you application. For example: Puzzle15 new open." Prozentrechnung new open.

3 2

Help needed -- Pharo 2.0 or 3.0 RFB-able image
by jhwoods Dec. 11, 2014

Dec. 11, 2014

Hi Guys, Not used Pharo for a while but getting back into it. I usually like to run images headless and VNC into them - means I can port them to any machines I choose. Having a real problem getting RFB working again. I tried loading various versions of from smalltalkhub: Gofer new smalltalkhubUser: 'PharoExtras' project: 'RFB'; package: 'ConfigurationOfRFB'; load. (ConfigurationOfRFB project version: '0.63') load. But no real success. Ok, I can cope with the fact the main VNC Server menu doesn't work (uses a presumably deprecated method) by invoking thus: RFBServer current stop; initializePreferences; configureForMemoryConservation; allowEmptyPasswords: false; setFullPassword: 'doer'; setViewPassword: 'viewer'; enableLogging: true; enableDebugging: true; allowZRLE: true; start: 0. I can *almost* get to this. TightVNC displays and crashes due to 'pseudo encoding -240' not being supported. UltraVNC will work, on some settings, but dragging a window will crash Pharo. Some socket error or other. I'm prepared to run Pharo 2.0 or 3.0, any VNC viewer at all, and any version of RFB that works ... anybody who can tell me a working configuration will be a lifesaver. Thanks ... ... John -- View this message in context: http://forum.world.st/Help-needed-Pharo-2-0-or-3-0-RFB-able-image-tp4795507… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

2 1

Fastest way to do case insensitive search and replace?
by Markus Fritsche Dec. 11, 2014

Dec. 11, 2014

Hi, is there a way to search case insensitively and replace in Strings in one shot? If MethodFinder methodFor: #(('HaLLol' 'll' 'tt') 'Hattol') doesn't find anything, does that mean "no" right away? Kind regards Markus

3 3

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