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.com> wrote:

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

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev