method
vvrbl vi' =
if
vi.vid = vi'.vid
then
(br :=
true
;
SkipChildren
)
else
DoChildren