inheriting any custom property

Dick Kriesel dick.kriesel at mail.com
Sat Sep 24 19:04:02 EDT 2005


On 9/24/05 2:56 PM, "Dan Shafer" <revdan at danshafer.com> wrote:

> Thanks. Useful stuff.


You're more than welcome, Dan.

Incidentally, since sometimes someone needs to know where an effective value
came from, a nearly identical function answers that question:

function effectiveObject pPropertyName,pPropertySetName
  put the long id of the target into tObject
  if pPropertySetName is empty then put "put the" && pPropertyName \
    && "of tObject into tValue" into tStatement
  else put "put the" && pPropertySetName & "[" & quote & pPropertyName \
    & quote & "] of tObject into tValue" into tStatement
  lock messages
  repeat until tObject is empty
    do tStatement
    if tValue is not empty then exit repeat
    if word 1 of tObject is "stack" then delete word 1 to 3 of tObject
    else delete word 1 to 4 of tObject
  end repeat
  unlock messages
  return tObject
end effectiveObject

-- Dick





More information about the use-livecode mailing list