Cheers,
Doru
On Jul 6, 2013, at 8:05 PM, "jannik.laval" <jannik.laval(a)gmail.com>
wrote:
Thank you Andrei,
I removed the sorted, like that, it works fine:
-----
| browser |
browser := GLMFinder new
variableSizePanes;
title: 'Find your file';
yourself.
browser show: [:a |
a list
when: #isDirectory;
display: [:each | [each children ]
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.
-----
Cheers,
Jannik
On Jul 6, 2013, at 5:48 PM, Andrei Vasile Chis <chisvasileandrei(a)gmail.com> wrote:
> 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(a)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(a)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(a)iam.unibe.ch
>
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
>
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
"Be rather willing to give than demanding to get."
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch