property pTitle : "Remaining task counts for contexts"
property pVer : "0.03"
property pPrefix : "@"
property pDelim : "  "
property pIndent : tab

property pblnToClipboard : true
property pblnSubTreeCounts : true

on run
	tell application id "OFOC" to set {str, lngTotal} to my ListContexts(contexts of default document, "")
	set str to str & linefeed & "TOTAL: " & lngTotal as string
	
	if pblnToClipboard then set the clipboard to str
	display dialog str buttons {"OK"} default button "OK" with title pTitle & "  ver. " & pVer
end run

on ListContexts(lstContexts, strIndent)
	set {str, lngCount, lngTotal} to {"", 0, 0}
	tell application id "OFOC"
		repeat with oContext in lstContexts
			tell oContext
				set lngCount to remaining task count
				set lngTotal to lngTotal + lngCount
				set {strSub, lngSub} to my ListContexts(contexts, strIndent & pIndent)
				set lngThisLevel to lngCount - lngSub
				if pblnSubTreeCounts then
					if lngSub > 0 then
						set strSubTotal to "  (+" & (lngSub as string) & " in sub contexts)"
					else
						set strSubTotal to ""
					end if
				else
					set strSubTotal to ""
				end if
				set str to (str & strIndent & pPrefix & its name & pDelim & lngThisLevel as string) & strSubTotal & linefeed & strSub
			end tell
		end repeat
		return {str, lngTotal}
	end tell
end ListContexts