[Seaside] discovering an application's path

[Nick Ager]

Hi,

I've come up with the following code to identify an application's dispatcher
path:

| requestContext appPath dispatcher |
requestContext := self requestContext.
dispatcher := requestContext handlers detect: [ :each | each isDispatcher ]
ifNone: [ nil ].
appPath := dispatcher isNil
ifTrue: [ '' ]
ifFalse: [ dispatcher handlers keyAtValue: requestContext application ].

is there an easier/better way?

Thanks

Nick
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/seaside/attachments/20110901/5a846eff/attachment.htm