Also I'd change the example as bellow, as now you should only call show: once on a finder.
| browser | browser := GLMFinder new variableSizePanes; title: 'Find your file'; yourself.
browser show: [:a | a list when: #isDirectory; display: [:each | [each children sorted] on: Exception do: [Array new]]; format: #basenameWithIndicator. a text when: #isFile; display: [:entry | [entry readStream contents] on: Exception do:['Can''t display the content of this file'] ] ].
browser openOn: FileSystem disk root.
Andrei
On Sat, Jul 6, 2013 at 5:43 PM, Andrei Vasile Chis < chisvasileandrei@gmail.com> wrote:
Hi Jannik,
The example fails because of this error: FileReference(Object)>>doesNotUnderstand: #other
It seems there is a bug when comparing FileReferences. For example 'FileSystem disk root children sorted' fails both in Pharo 2 and Pharo 3.
I'd send an email to pharo-dev.
Cheers, Andrei
On Sat, Jul 6, 2013 at 4:30 PM, jannik.laval jannik.laval@gmail.comwrote:
Hi guys,
I am testing the source code of the Glamour chapter. I have 2 problems:
- This configuration doesn't load:
Gofer new smalltalkhubUser: 'Moose' project: 'Glamour'; package: 'ConfigurationOfGlamour'; load. (Smalltalk at: #ConfigurationOfGlamour) perform: #loadDefault.
- The following example source code doesn't work in Moose4.8 but works on
Moose 4.7:
| browser | browser := GLMFinder new variableSizePanes; title: 'Find your file'; yourself.
browser show: [:a | a list when: #isDirectory; display: [:each | [each children sorted] on: Exception do: [Array new]]; format: #basenameWithIndicator].
browser show: [:a | a text when: #isFile; display: [:entry | [entry readStream contents] on: Exception do:['Can''t display the content of this file']]].
browser openOn: FileSystem disk root.
Can anyone help me to fix that ? Cheers, Jannik _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev