[Seaside-dev] Re: [Seaside Commits] Seaside 3.0: Seaside-Tools-Web-obi.84.mcz

[Julian Fitzell]

I don't think that can be right... #url will return a full URL if
serverName, etc. are set... why not use WADispatcher>>handlerAt:
combined with #defaultName to get the default dispatcher and compare
for identity? I'm also a bit confused by the use of #defaultDispatcher
here... don't we need to be checking the default name of whatever
dispatcher we're currently viewing?

Also, there's no EntryPoint class anymore so the parameter name is a
bit confusing. :)

Julian

On Sat, Jun 12, 2010 at 8:36 PM,
<squeak-dev-noreply at lists.squeakfoundation.org> wrote:
> Gerhard Obermann uploaded a new version of Seaside-Tools-Web to project Seaside 3.0:
> http://www.squeaksource.com/Seaside30/Seaside-Tools-Web-obi.84.mcz
>
> ==================== Summary ====================
>
> Name: Seaside-Tools-Web-obi.84
> Author: obi
> Time: 12 June 2010, 7:40:06 pm
> UUID: b06710cd-7b0a-4c4f-8c1e-f2243f40df05
> Ancestors: Seaside-Tools-Web-obi.83
>
> - compare urls instead of strings to get the default application
>
> =============== Diff against Seaside-Tools-Web-obi.83 ===============
>
> Item was changed:
>  ----- Method: WAConfigurationBrowser>>renderRowName:named:on: (in category 'rendering-rows') -----
>  renderRowName: anEntryPoint named: aString on: html
>        html anchor
>                class: 'selected' if: anEntryPoint = selection;
>                callback: [ self configure: anEntryPoint ];
>                with: [
>                        anEntryPoint isDispatcher
>                                ifTrue: [        html  text: aString , '/' ]
>                                ifFalse: [
>                                        html text: aString.
> +                                       (WAUrl absolute: self defaultDispatcher defaultName) = anEntryPoint url
> -                                       self defaultDispatcher defaultName = anEntryPoint url greaseString
>                                                 ifTrue: [ html span
>                                                                        title: 'Default application';
>                                                                        with: ' (*)'] ] ]!
>
>
> _______________________________________________
> commits mailing list
> To unsubscribe, email commits-leave at lists.seaside.st
> http://lists.seaside.st/listinfo/commits
>