- Pharo-dev - lists.pharo.org

aSortedCollection collect: returns OrderedCollection instead of original sorted
by Denis Kudriashov June 19, 2017

June 19, 2017

Hi. I just found that #() asSortedCollection select: [ ] => SortedCollection #() asSortedCollection collect: [ ] => OrderedCollection It feels like a bug to me. But maybe there is a reason why sorted collection collects items as OrderedCollection instead of original kind of sort? My usercase was copy of object with sorted collection inside. For this I just manually collect copy of each item. But at the end my copy became broken because of sort was important for domain logic. Best regards, Denis

4 4

Extra shortcut modifier opposite to #meta
by Denis Kudriashov June 19, 2017

June 19, 2017

Hi. There was long discussion about some Spotter shortcut issue http://forum.world.st/GT-Spotter-dive-in-shortcut-td4899612.html. Problem: for back/forward navigation Spotter uses #meta modifier for shortcut which overrides standard text navigation. Suggested solution: introduce kind of "alternative meta" to get opposite values for Mac and Windows relative to normal meta. It should get platform independent modifier which not overlaps with text navigation. I not found anything implemented. Let's do it in Pharo 7. What name should be used? I like #alternativeMeta Best regards, Denis

4 6

GT questions
by Torsten Bergmann June 19, 2017

June 19, 2017

Hi, do we have an example on Glamorous Toolkit on 1. how to have a splitter between a pane (for instance to change size for left and right pane on a #dashboard) 2. how to have vertical tabs in a #tabulator 3. on how to use D&D from GT from a list or tree to the world? Thanks T.

1 0

Doing a pull request
by Rajula Vineet June 18, 2017

June 18, 2017

Hi, I am a GSoC student working on enhancing pharo command line interface. I was wondering if there is a procedure to make a pull request to the Github repo. It would be really helpful if someone can explain the right way of doing a Pull Request. Thanks in advance. Rajula -- View this message in context: http://forum.world.st/Doing-a-pull-request-tp4951443.html Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.

10 17

Why allChildrenMatching: does not match extension?
by Stephane Ducasse June 18, 2017

June 18, 2017

Why allChildrenMatching: does not match extension? allChildrenMatching: aPattern "Return all the files and folders recursively nested in the receiver and matching the pattern, aPattern" ^ self allChildren select: [ :each | aPattern match: each basename ] I would rename allChildrenMatching: aPattern into allChildrenNameMatching: aPattern

1 0

PharoDays17 Slides and some Videos
by Marcus Denker June 16, 2017

June 16, 2017

Hi, I have uploaded the Slides and Videos of PharoDays2017. Slides are complete (minus those talks that were due demos). For the Videos we have right now 8 talks and the âShow Us Your Projectâ session. More might come in the future (I need to check). Slides: - https://www.slideshare.net/pharoproject/presentations - http://files.pharo.org/conferences/2017PharoDays/ PlayList: https://www.youtube.com/playlist?list=PL4actYd6bfnw7ous5We-XnWq0NZquP3gM

3 6

Why don't the Zero Conf examples show how to launch Pharo?
by Tim Mackinnon June 15, 2017

June 15, 2017

Hi - I was wondering why the command line section on the http://pharo.org/web/download <http://pharo.org/web/download> page, doesnât show you how to then launch the app you have just downloaded? Iâm not sure if there is a way to do it all on one line (I tried && ./pharo-ui Pharo.image - but this doesnât work). However I think the website example should at least have: # then run it ./pharo-ui Pharo.image Otherwise we make it harder for people to figure out what to do with the program weâve pointed them to? Tim

2 3

Big Pharo 6 Image (32 bit) crashes while garbage collecting
by Cyrille Delaunay June 14, 2017

June 14, 2017

Hello, I am running a Pharo 6 32 bit image (Pharo 6.0 Latest update: #60499). I saved this image after loading big data in memory (image is 995 MB). After saving, the image became "unstable", and always crashed after doing some random actions. I tries to open the image and perform: Smalltalk garbageCollect. The image systematically crashes. I Join the dump files I have been able to collect. -- Cyrille Delaunay

3 4

I want to get in contact with raphael luque from madrid :)
by Stephane Ducasse June 14, 2017

June 14, 2017

Hi guys. I tried to get in contact with raphael but my emails do not seem to go to destination. Do you have the email of raph/fael luque from madrid? Stef

2 1

Pharo6 deployment issues
by Holger Freyther June 14, 2017

June 14, 2017

Hi! today I started to look at of why my benchmark in the CI stalled/didn't complete and I see three separate issues and wonder how to address them properly? I have a truncated log attached Issues: * In my CI script I disable Deprecation warnings but this has no influence on Deprecation>>#transform. This means that it will try to write the changes?! To scale we start the same image multiple times. * Somehow writing the log fails (and the TCP connection fails the same time?!) with a primitive error. * Errors "recurse". So while we try to exit the image it seems to fail the same way and tries again.. which fails again.. which fails again..at some point no new context will be allocated. Solutions? * Prevent new errors in NonInteractiveUIManager>>#unhandledErrorDefaultAction:? * Check in >>#transform if transformation is disabled and then return early? * ??? No idea.. I will strace to see what happens to the Debug log.. but ideally I would like this file writing to be disabled. :) Should I create tickets? holger dispatch failed on "[ self doExpire. statsdClient flush ]". an OrderedCollection(MultiByteFileStream(Object)>>primitiveFailed: MultiByteFileStream(Object)>>primitiveFailed MultiByteFileStream(StandardFileStream)>>primFlush: MultiByteFileStream(StandardFileStream)>>flush MultiByteFileStream(WriteStream)>>nextChunkPut: SourceFileArray>>writeSource:preamble:onSuccess:onFail: CompiledMethod>>putSource:withPreamble: CompiledMethod>>putSource:class:category:withStamp:priorMethod: VODescriptionBuilder class(ClassDescription)>>logMethodSource:forMethod:inCategory:withStamp: VODescriptionBuilder class(ClassDescription)>>compile:classified:withStamp:notifying:logSource: VODescriptionBuilder class(ClassDescription)>>compile:classified:withStamp:notifying: VODescriptionBuilder class(ClassDescription)>>compile:classified:notifying: VODescriptionBuilder class(ClassDescription)>>compile:classified: [ aMethod origin compile: aMethod ast formattedCode classified: aMethod protocol ] in Deprecation>>transform BlockClosure>>ensure: Author>>useAuthor:during: Author class>>useAuthor:during: Deprecation>>transform Pragma(Object)>>deprecated:transformWith: Pragma>>selector) <snip log about lost TCP connection> PrimitiveFailed: primitive #primClose: in MultiByteFileStream failed MultiByteFileStream(Object)>>primitiveFailed: MultiByteFileStream(Object)>>primitiveFailed MultiByteFileStream(StandardFileStream)>>primClose: MultiByteFileStream(StandardFileStream)>>close SmalltalkImage>>closeLog: [ self closeLog: logStream ] in SmalltalkImage>>logDuring: in Block: [ self closeLog: logStream ] BlockClosure>>ensure: SmalltalkImage>>logDuring: NonInteractiveUIManager(CommandLineUIManager)>>inform: STCommandLineHandler(Object)>>inform: STCommandLineHandler>>handleError:reference: [ :e | self handleError: e reference: aReference ] in STCommandLineHandler>>handleErrorsDuring:reference: in Block: [ :e | self handleError: e reference: aReference ]...etc... BlockClosure>>cull: Context>>evaluateSignal: Context>>handleSignal: Context>>handleSignal: Context>>handleSignal: Context>>handleSignal: Context>>handleSignal: Context>>handleSignal: Context>>handleSignal: Context>>handleSignal: Context>>handleSignal: PrimitiveFailed(Exception)>>signal PrimitiveFailed class(SelectorException class)>>signalFor: MultiByteFileStream(Object)>>primitiveFailed: MultiByteFileStream(Object)>>primitiveFailed MultiByteFileStream(StandardFileStream)>>primClose: MultiByteFileStream(StandardFileStream)>>close SmalltalkImage>>closeLog: FileWriteError: File /build/build/PharoDebug.log write failed MultiByteFileStream(StandardFileStream)>>primWrite:from:startingAt:count: MultiByteFileStream(StandardFileStream)>>nextPut: MultiByteFileStream>>basicNextPut: UTF8TextConverter>>nextPut:toStream: [ :char | self nextPut: char toStream: aStream ] in UTF8TextConverter(TextConverter)>>nextPutAll:toStream: in Block: [ :char | self nextPut: char toStream: aStream ] ByteSymbol(SequenceableCollection)>>do: UTF8TextConverter(TextConverter)>>nextPutAll:toStream: MultiByteFileStream>>nextPutAll: Context>>printOn: MultiByteFileStream(Stream)>>print: Context>>errorReportOn: [ :logger | logger nextPutAll: 'THERE_BE_DRAGONS_HERE'; cr; nextPutAll: errMsg; cr. "just print the error message if no context is given" aContext ifNotNil: [ aContext errorReportOn: logger ]. " write some type of separator" logger nextPutAll: (String new: 79 withAll: $-); cr; cr ] in SmalltalkImage>>logError:inContext: in Block: [ :logger | ... [ logStream := self openLog. aMonadicBlock value: logStream ] in SmalltalkImage>>logDuring: in Block: [ logStream := self openLog.... BlockClosure>>ensure: SmalltalkImage>>logDuring: SmalltalkImage>>logError:inContext: [ Smalltalk logError: aString inContext: aContext. " Print stacks of all current processes " Smalltalk logDuring: [ :logger | logger nextPutAll: 'Processes and their stacks: '; cr. Process allInstances do: [ :each | | ctx | logger nextPutAll: 'Process: '; print: each; cr; nextPutAll: ' stack:'; cr; cr. ctx := each isActiveProcess ifTrue: [ thisContext sender ] ifFalse: [ each suspendedContext ]. ctx ifNotNil: [ (ctx stackOfSize: 20) do: [ :s | logger print: s; cr ] ]. logger nextPutAll: '------------------------------'; cr; cr ] ] ] in NonInteractiveUIManager(CommandLineUIManager)>>quitFrom:withMessage: in Block: [ Smalltalk logError: aString inContext: aContext....etc... BlockClosure>>ensure: NonInteractiveUIManager(CommandLineUIManager)>>quitFrom:withMessage: NonInteractiveUIManager(CommandLineUIManager)>>unhandledErrorDefaultAction: UnhandledError>>defaultAction UndefinedObject>>handleSignal: UnhandledError(Exception)>>signal UnhandledError class>>signalForException: PrimitiveFailed(Error)>>defaultAction UndefinedObject>>handleSignal: PrimitiveFailed(Exception)>>pass [ :ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass ] in WorldMorph(PasteUpMorph)>>becomeActiveDuring: in Block: [ :ex | ... BlockClosure>>cull: Context>>evaluateSignal: FileWriteError: File /build/build/PharoDebug.log write failed MultiByteFileStream(StandardFileStream)>>primWrite:from:startingAt:count: MultiByteFileStream(StandardFileStream)>>next:putAll:startingAt: MultiByteFileStream>>basicNext:putAll:startingAt: UTF8TextConverter(TextConverter)>>next:putByteString:startingAt:toStream: UTF8TextConverter(TextConverter)>>next:putAll:startingAt:toStream: MultiByteFileStream>>next:putAll:startingAt: UTF8TextConverter(TextConverter)>>nextPutByteString:toStream: UTF8TextConverter(TextConverter)>>nextPutAll:toStream: MultiByteFileStream>>nextPutAll: Context>>printDetails: Context>>errorReportOn: [ :logger | logger nextPutAll: 'THERE_BE_DRAGONS_HERE'; cr; nextPutAll: errMsg; cr. "just print the error message if no context is given" aContext ifNotNil: [ aContext errorReportOn: logger ]. " write some type of separator" logger nextPutAll: (String new: 79 withAll: $-); cr; cr ] in SmalltalkImage>>logError:inContext: in Block: [ :logger | ... [ logStream := self openLog. aMonadicBlock value: logStream ] in SmalltalkImage>>logDuring: in Block: [ logStream := self openLog.... BlockClosure>>ensure: SmalltalkImage>>logDuring: SmalltalkImage>>logError:inContext: [ Smalltalk logError: aString inContext: aContext. " Print stacks of all current processes " Smalltalk logDuring: [ :logger | logger nextPutAll: 'Processes and their stacks: '; cr. Process allInstances do: [ :each | | ctx | logger nextPutAll: 'Process: '; print: each; cr; nextPutAll: ' stack:'; cr; cr. ctx := each isActiveProcess ifTrue: [ thisContext sender ] ifFalse: [ each suspendedContext ]. ctx ifNotNil: [ (ctx stackOfSize: 20) do: [ :s | logger print: s; cr ] ]. logger nextPutAll: '------------------------------'; cr; cr ] ] ] in NonInteractiveUIManager(CommandLineUIManager)>>quitFrom:withMessage: in Block: [ Smalltalk logError: aString inContext: aContext....etc... BlockClosure>>ensure: NonInteractiveUIManager(CommandLineUIManager)>>quitFrom:withMessage: NonInteractiveUIManager(CommandLineUIManager)>>unhandledErrorDefaultAction: UnhandledError>>defaultAction UndefinedObject>>handleSignal: UnhandledError(Exception)>>signal UnhandledError class>>signalForException: FileWriteError(Error)>>defaultAction UndefinedObject>>handleSignal: FileWriteError(Exception)>>signal FileWriteError(Exception)>>signal: MultiByteFileStream(StandardFileStream)>>primWrite:from:startingAt:count: MultiByteFileStream(StandardFileStream)>>nextPut: FileWriteError: File /build/build/PharoDebug.log write failed MultiByteFileStream(StandardFileStream)>>primWrite:from:startingAt:count: MultiByteFileStream(StandardFileStream)>>next:putAll:startingAt: MultiByteFileStream>>basicNext:putAll:startingAt: UTF8TextConverter(TextConverter)>>next:putByteString:startingAt:toStream: UTF8TextConverter(TextConverter)>>next:putAll:startingAt:toStream: MultiByteFileStream>>next:putAll:startingAt: UTF8TextConverter(TextConverter)>>nextPutByteString:toStream: UTF8TextConverter(TextConverter)>>nextPutAll:toStream: MultiByteFileStream>>nextPutAll: Context>>printOn: MultiByteFileStream(Stream)>>print: Context>>errorReportOn:

3 4