шютка 8)

[IN_human]

fn fd obj = (isdeleted obj)
-----------------------------------
rollout usefullRoll "Usefull rollout"
(
pickButton tryToPick "Pick" filter:fd
)
-----------------------------
createDialog usefullRoll

--- 8)))))))))