#!/bin/sh
#\
exec tclsh "$0" "$@"

cd [file dirname [info script]]
source ../ooxml.tcl
source ../ooxml-docx.tcl
source strings.tcl
namespace import ::ooxml::docx::docx
set docx [docx new]

featuresCovered "Comment ranges."

$docx paragraph "Some text "
$docx commentrangestart mycommentid
$docx append "read more"
$docx commentrangestart mycommentid2
$docx append " about this"
$docx commentrangeend $mycommentid -author foo {
    $docx paragraph "What do you mean?"
}
$docx append " even more text"
$docx commentrangeend $mycommentid2 -author bar {
    $docx paragraph "Two "
    $docx append "overlapping" -italic on
    $docx append " comments"
}
$docx append " and again even more text "
$docx commentrangestart mycommentid3
$docx append "and again even more text"
$docx simplecommentrangeend $mycommentid3 "A bit repititive?" -bold on -author bar -initials b -date "2025-11-15T03:00:00"
$docx append " and again even more text "



$docx write docx-example11
$docx destroy
