[Xotcl] two procs (-proc) for Attribute

[Mykhaylo Sorochan]

Stefan,

I was interested in case a). I was a little wrong with the syntax and was not 
able to build the statement right.

Thanks.

> # ad a)
> #
> Class create C -slots {
>    Attribute create a1 -proc assign args {
>      puts "[self]->[self proc] called"
>      next
>    } -proc get args {
>      puts "[self]->[self proc] called"
>      next
>    }
> }
>
> C create c
> c a1 1
> c a1
>