function validFontChange
  if fontExists ("geneva",12) then
    set textFont of cd fld 1 to "geneva"
    set textSize of cd fld 1 to 12
    show cd fld 1
  end if
end validFontChange