project BLF > class BSystem > method XMLNodeValue

Parameters

Internal usage

program code (program1/bsystem.p)

create x-noderef vhText in widget-pool "non-persistent".
vlValidNode = ihNode:get-child (vhText,1) no-error.
if vlValidNode
then if vhText:subtype = "text"
     then if vhText:node-value = ?
          then return "".
          else return vhText:node-value.

finally:
    delete object vhText.
end finally.