Another AppleScript question

[Jan Erik Moström]

I'm making some attempts to make a few scriptsfor helping me keeping track of
some software development notes, and to do that I would like to be able add a
new row as a sub-item to a top level item. In other words, if I have this
outline

AAAAAA
    aaaaa
    aaaaa
    aaaaa
BBBBBB
    bbbbb
    bbbbb
    bbbbb
CCCCCC
    ccccc
    ccccc
    ccccc

If I now want to add a sub item to the "BBBBB" item, how do I do that? 

In other words how do I write

make new child to item "BBBBB"

I could of course loop over all items to find "BBBBB" and do something like
this

tell application "OmniOutliner Professional"
    tell document 1
        set tli to the count of child
        repeat with i from 1 to tli
            if topic of child i = "BBBBB" then
                make new child after row (row of child i)
                return
            end if
        end repeat
    end tell
end tell

But I suspect there is a better way of doing this and most importent of all
"make new child after row (row of child i)" doesn't work at all.

What is the best way of doing this?

            jem
-- 
Jan Erik Moström   www.mostrom.pp.se