<pre>on updateActualHandler handlerProc  push cd  put fld "handlerPath" into handlerPath  delete word 1 to 2 of handlerPath  if handlerPath is empty then exit updateActualHandler  ------------------------------------------------------------------------  put pile(stripChars(quote,word 2 of handlerPath)) into theStack  if there is not a stack thestack then exit updateActualHandler  ------------------------------------------------------------------------  put word 3 of handlerPath into layerType  put word 4 of handlerPath into layerName  put word 5 of handlerPath into objectType  put word 6 of handlerPath into objectName  ------------------------------------------------------------------------  go to stack theStack  if layerType is empty or layerName is empty then    put the script of this stack into oldHandlerScript    get putHandler(handlerProc,oldHandlerScript)    if the number of words of it > 1 then set script of this stack to it    pop cd    exit updateActualHandler  end if  ------------------------------------------------------------------------  do "go to" && layerType && layerName  if objectType is empty or objectName is empty then    do "put the script of" && layerType && layerName && "into oldHandlerScript"    do "get putHandler(handlerProc,oldHandlerScript)"    if it is not empty    then do "set script of" && layerType && layerName && "to" && it    pop cd    exit updateActualHandler  end if  ------------------------------------------------------------------------  do "put the script of" && objectType && objectName && "into oldHandlerScript"  do "get putHandler(handlerProc,oldHandlerScript)"  if it is not empty  then do "set script of" && objectType && objectName && "to" && it  pop cd  exit updateActualHandler  ------------------------------------------------------------------------end updateActualHandler</pre>