Is there a way to decrease the size of roofs in tikz-qtree? I want the roofs not to stick out but match the strings below them.
\documentclass{scrbook}
\usepackage{tikz}
\usepackage{tikz-qtree}
\begin{document}
\begin{tikzpicture}
\tikzset{level 1+/.style={level distance=4\baselineskip}}
\tikzset{frontier/.style={distance from root=16\baselineskip}}
\Tree[.{V[\begin{tabular}[t]{@{}l}
{\sc comps} { },\\
{\sc cont} {4}]\\
\end{tabular}}
[.{{1} NP{5}} man ]
[.{V[\begin{tabular}[t]{@{}l}
{\sc comps} { 1 },\\
{\sc cont} {4}]\\
\end{tabular}}
[.{{2} NP{6}} \edge[roof]; ketābāro ]
[.{V[\begin{tabular}[t]{@{}l}
{\sc comps} { {1}, {2} },\\
{\sc cont} {4}]\\
\end{tabular}}
[.{{3} PP{7}} \edge[roof]; {be Sepide} ]
[.{V[\begin{tabular}[t]{@{}l}
{\sc comps} { {1} NP{5}, {2} NP{6}, {3} PP{7}},\\
{\sc cont} {4} give({5}, {6}, {7})]\\
\end{tabular}} dādam ]
]
]
]
\end{tikzpicture}
\end{document}

