This is easily fixed by editing the Default format. In FAMS Editing (under Tag Editing), change
! set an expression to display this name and add "+" if there
! are ancestors
sub NameWithDescendants,#chil
cell LinkButton
RecordLink #chil
TextExpression @#chil.NAME
AppendedExpression altview
if @#chil.FAMS.CHIL!=""
Format "+%@"
endif
set font "Hyperlink Text"
set border no alignment left
sizetofit -1
help local("Click to view child's record")
endsub
to
! set an expression to display this name and prepend "+" if there
! are descendants
sub NameWithDescendants,#chil
cell LinkButton
RecordLink #chil
TextExpression @#chil.NAME
AppendedExpression altview
RepeatWith "#famly" from @#chil.FAMS
if @#famly.CHIL!=""
Format "+%@"
endif
EndRepeat
set font "Hyperlink Text"
set border no alignment left
sizetofit -1
help local("Click to view child's record")
endsub
Note there are two changes:
1. Comment changed to refer to descendants, not ancestors, and to use the cool word "prepend".
2. Put test for children inside a loop over families.
=Jim
After a computer crash GedITcomII asks for it's registration key again.
Can this somehow be recovered from a backup, or should I use my innocent
blue eyes to ask John for a new registration key?
Regards,
Ronald Hellenbrand.