639003_en-US

liliconcom

Passing messages to "this" within class definition

Is it possible to pass a message to the instance of a class from within a method?

 

Here is an example of what I am trying to do:

 

Define Class(
 "example",
 x=1;
 test = Method( {name, method},
  << Insert(name, method);
 );
 
);

t = New Object( example());
// This fails to insert the blah method
t:test("blah", Method({y}, show("Blah " || char(x) || char(y))));
t:blah(6);

//This succeeds in inserting and calling the blah method
t << Insert("blah", Method({y}, show("Blah " || char(x) || char(y))));
t:blah(6);

 I suspected that I might need to explicitly write "this << Insert", but that yields a different error:

Define Class(
 "example",
 x=1;
 test = Method( {name, method},
  <STRONG>this << Insert(name, method);</STRONG>
 );
 
);

t = New Object( example());

// This fails because "send expects scriptable object"
t:test("blah", Method({y}, show("Blah " || char(x) || char(y));));
t:blah(6);

I also considered explicitly calling Send (fails to add the method) and this:Send (fails to resolve the name Send).

I also considered directly calling this:Insert (fails to resolve the name Insert) and Insert (successfully adds the blah method, but fails to correctly plumb the calling mechanism, so no arguments get passed into the method).

 

Motivation:

I am doing this because I am trying to automatically create getter- and setter- methods for a list of class properties.  Ideally, I will be able to do the following:

Define Class(
 "example",
 _init_ = Method( {assocArray},
  For Each({property, updateMethod}, assocArray,
   Insert(key, Eval Expr(Method({value}, TrySetProperty(Expr(property), value, Expr(updateMethod)))));
  );
 );
 
 TrySetProperty=Method({parameter, value, expressionIfChanged},
        match(value,
            .,                                  .,  //Do nothing if missing value
            this << Get Value(parameter),       .,  //Do nothing if unchanged value
            this << Insert(parameter, value);       //Otherwise update the value 
            Eval(expressionIfChanged);    //and eval the expression
        );
    );
 
);

properties = Associative Array({{"prop1", Expr(ThingToDoOnUpdate1)},{"prop2", Expr(ThingToDoOnUpdate2)}});
t = New Object( example(properties));

 

Automation and ScriptingScripting