I would have encapsulated class + selector from the intTabulator in a dedicated port. Like
that you would be able to reason about one value.
So, the script could look like:
|extTabulator finder intTabulator|
intTabulator := GLMTabulator new row: #classes; row: #selectors; yourself.
intTabulator transmit to: #classes; andShow: [:a | a list title: 'classes';
display: [:class | class allSuperclasses]].
intTabulator transmit from: #classes; to: #selectors; andShow: [:a | a list title:
'selectors'; display: [:class | class selectors]].
"Makes the finder add an new pane when selecting a class"
intTabulator transmit from: #classes; toOutsidePort: #selection.
"Makes the internet tabulator exports the currently selected class and
selector"
intTabulator transmit from: #classes; from: #selectors; toOutsidePort: #classSelector;
transformed: [:class :selector | class -> selector ].
finder := GLMFinder new.
finder custom: intTabulator.
extTabulator := GLMTabulator new row: #finder; row: #source; yourself.
extTabulator transmit to: #finder; andShow: [:a | a custom: finder].
extTabulator transmit
from: #finder port: #classSelector;
to: #source;
andShow: [:a |
a text display: [:classSelector | classSelector key name, '>>',
classSelector value asString ]].
extTabulator openOn: IdentitySet.
Cheers,
Doru
On 21 Jul 2011, at 09:37, Damien Cassou wrote:
On Thu, Jul 21, 2011 at 9:03 AM, Tudor Girba
<tudor(a)tudorgirba.com> wrote:
I am not sure I like the whole setup of the browser
Your solution worked perfectly. What setup would you propose to have similar browsing
interactions?
--
Damien Cassou
http://damiencassou.seasidehosting.st
"Lambdas are relegated to relative obscurity until Java makes them popular by not
having them." James Iry
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Beauty is where we see it."