From mboxrd@z Thu Jan  1 00:00:00 1970
From: Keith Seitz <keiths@cygnus.com>
To: Jim Ingham <jingham@apple.com>
Cc: Fernando Nasser <fnasser@redhat.com>, Insight Maling List <insight@sources.redhat.com>
Subject: Re: [RFA] New Event Model Prototype
Date: Wed, 18 Apr 2001 11:46:00 -0000
Message-id: <Pine.SOL.3.91.1010418114211.28157L-100000@ryobi.cygnus.com>
References: <200104181838.LAA27326@scv3.apple.com>
X-SW-Source: 2001-q2/msg00116.html

On Wed, 18 Apr 2001, Jim Ingham wrote:

> I think that the second type is more likely to be what you want. 

I came to the same conclusion. (So I'm not losing my mind.)

> > class MyObject {
> >   inherit GdbEventListener
> >
> >   public method foo {fooEvent} {
> >     puts "varA = [$fooEvent cget -varA]"
> >     puts "varB = [$fooEvent cget -varB]"
> >     puts "varC = [$fooEvent cget -varC]"
> >   }
> > }

I have decided NOT to go this route. Instead, I'm going to use arrays. 
When an event is constructed, it builds an array of all data pertinent to 
itself. Then we ask for this data:

proc handle_foo_event {foo_event} {
  array set fooData [$foo_event get]

  puts "varA = $fooData(varA)"
  puts "varB = $fooData(varB)"
}

Ugh. I thought breakpoints would be easy. Guess again. Can anyone guess 
the difference between clear_command and delete_command (other than 
argument)? I'll give you a hint: using clear_command is EVIL.

Keith