Re: Is there a shorter syntax for calling a method from a method in

[dean]

Hi Alex
That's great...thank you very much.
Best Regards
Dean

On 27 January 2017 at 06:53, Alexander Burger  wrote:

> Hi Dean,
>
> > i.e. I'm calling m1 from m2 using the same syntax as calling methods
> > externallybut just replacing *Obj with This.
>
> Yes, that's fine.
>
> > No problem if not butIs there a shorter way e.g. like (: member)
> > instead of (get This 'member)
>
> Yes, (: member) is the same as (get This 'member) or (; This member).
> 'member'
> doesn't show up in your code though.
>
> > (class +Clss)
> >(dm T ())
> >(dm m1> () (setq Res 4))
> >(dm m2> (Arg2) (+ (send 'm1> This) Arg2))
>
> Instead of (send 'm1> This) you would usually write (m1> This)
>
>
> > (setq *Obj (new '(+Clss)))
> > (prinl (format (send 'm2> *Obj 5)))
>
> and (m2> Obj 5)
>
> ♪♫ Alex
> --
> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
>

Re: Is there a shorter syntax for calling a method from a method in

[Alexander Burger]

Hi Dean,

> i.e. I'm calling m1 from m2 using the same syntax as calling methods
> externallybut just replacing *Obj with This.

Yes, that's fine.

> No problem if not butIs there a shorter way e.g. like (: member)
> instead of (get This 'member)

Yes, (: member) is the same as (get This 'member) or (; This member). 'member'
doesn't show up in your code though.

> (class +Clss)
>(dm T ())
>(dm m1> () (setq Res 4))
>(dm m2> (Arg2) (+ (send 'm1> This) Arg2))

Instead of (send 'm1> This) you would usually write (m1> This)


> (setq *Obj (new '(+Clss)))
> (prinl (format (send 'm2> *Obj 5)))

and (m2> Obj 5)

♪♫ Alex
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Is there a shorter syntax for calling a method from a method in the

[dean]

i.e. I'm calling m1 from m2 using the same syntax as calling methods
externallybut just replacing *Obj with This.
No problem if not butIs there a shorter way e.g. like (: member)
instead of (get This 'member)
(class +Clss)
   (dm T ())
   (dm m1> () (setq Res 4))
   (dm m2> (Arg2) (+ (send 'm1> This) Arg2))

(setq *Obj (new '(+Clss)))
(prinl (format (send 'm2> *Obj 5)))