putprop error

[SS]

I have the following callback function called everytime something
changes in a toggle field.
I am getting the following error


*Error* putprop: first arg must be either symbol, list, defstruct or
user type - nil

Here is my callback procedure


procedure( toggleCB(form field)
let((fieldValue toggleValue lastValue)
;; get the current value of the field
fieldValue = getq(get(form field) value)
;; obtain the toggle value, which is the last value in the list
toggleValue = car(last(getq(get(form field) value)))
;; store a custom property on this field to mark the last value
lastValue = putpropq(get(form field) !toggleValue storedValue)
printf("I'm breaking in ToggleAll\n")
;; when the current toggle value is not the same as the stored
value
;; set the values all on if the toggle is on, or all off otherwise
when(toggleValue != lastValue
if(toggleValue
putpropq(get(form field) mapcar(lambda((x) x t) fieldValue)
value)
putpropq(get(form field) mapcar(lambda((x) x nil) fieldValue)
value)
); if
); when
); let
)

It is erroring out in the putprop statements.

Could you tell me what is that Iam doing is wrong

 

[Andrew Beckett]

SS wrote, on 03/12/08 13:31:

I have the following callback function called everytime something
changes in a toggle field.
I am getting the following error


*Error* putprop: first arg must be either symbol, list, defstruct or
user type - nil

Here is my callback procedure


procedure( toggleCB(form field)
let((fieldValue toggleValue lastValue)
;; get the current value of the field
fieldValue = getq(get(form field) value)
;; obtain the toggle value, which is the last value in the list
toggleValue = car(last(getq(get(form field) value)))
;; store a custom property on this field to mark the last value
lastValue = putpropq(get(form field) !toggleValue storedValue)
printf("I'm breaking in ToggleAll\n")
;; when the current toggle value is not the same as the stored
value
;; set the values all on if the toggle is on, or all off otherwise
when(toggleValue != lastValue
if(toggleValue
putpropq(get(form field) mapcar(lambda((x) x t) fieldValue)
value)
putpropq(get(form field) mapcar(lambda((x) x nil) fieldValue)
value)
); if
); when
); let
)

It is erroring out in the putprop statements.

Could you tell me what is that Iam doing is wrong

Well, the error suggests that it's the putpropq statement. So most likely it's
the get(form field) is returning nil, so it's likely to be related to what
you're passing into the toggleCB function - without knowing that, it's hard to
tell what's wrong!

You've only given part of the code, and so if form is a variable containing the
form data structure, and field is a symbol representing the field name, all
should be OK, I think (from a quick read through the code - I didn't check it
thoroughly).

Regards,

Andrew.

 

[SS]

Thanks Andrew ,
Fixed the issue.

Sriram