Okay ... I have it working now :) Although, I am not sure if I did the
right thing - I was able to access the Task using (: home obj)
I'll clean up all this and consolidate a few outstanding questions that I
have and revert on this thread!
(menu "Tasks"
(idForm ,"Tasks" '(choTsk) 'nr '+Tsk T '(may Delete) '((: nr))
(--)
(<grid> 2
"Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) "Name" 40)
"Desc" (gui '(+E/R +TextField) '(dsc : home obj) 40)
"Update" (gui '(+TextField) 30)
*(gui '(+Button) "Update"*
* '(put!> (: home obj) 'upds (cons (new! '(+Update) 'dsc (val>
(field -1)) ) (get (: home obj) 'upds))) ) )*
(--)
(gui '(+Set +E/R +Chart) '((L) (filter bool L)) '(upds : home obj) 1
'( (U I) (with U (list (: dsc) )) )
'( (L U) (cond
(U (put!> U 'dsc (car L)) (and (; U dsc) U) )
(L (new! '(+Update) 'dsc (car L))))))
(<table> NIL NIL
'((NIL "Updates"))
(do 8
(<row> NIL
(gui 1 '(+View +TextField) 100)
)))))
On Tue, Oct 29, 2019 at 11:12 AM C K Kashyap <ckkash...@gmail.com> wrote:
> Thanks Alex,
> The complete app is here - https://github.com/ckkashyap/todo/tree/fromapp
>
> About the 'upds relation - my concern is more about 'upds being a +List
> and not a direct string. I believe that we would need some extra steps to
> add the new value to the list - no?
>
> Regards,
> Kashyap
>
>
>
>
> On Tue, Oct 29, 2019 at 10:58 AM Alexander Burger <a...@software-lab.de>
> wrote:
>
>> On Tue, Oct 29, 2019 at 10:06:53AM -0700, C K Kashyap wrote:
>> > Wouldn't we need to link the update to the 'upds relation of Task?
>>
>> Perhaps. I provided just a general solution, not necessarily matching
>> your data
>> model, as I don't have it running here.
>>
>>
>> > This does not quite work :(
>>
>> Not sure, it doesn't really look wrong :)
>>
>> ☺/ A!ex
>>
>> --
>> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
>>
>
