
package require BLT

proc GotText { text } {
    puts stderr "text is $text"
}

set text \
"Four score and seven years ago our fathers brought forth on this
continent, a new nation, conceived in Liberty, and dedicated to the
proposition that all men are created equal.

Now we are engaged in a great civil war, testing whether that nation, or
any nation so conceived and so dedicated, can long endure. We are met on a
great battle-field of that war. We have come to dedicate a portion of that
field, as a final resting place for those who here gave their lives that
that nation might live. It is altogether fitting and proper that we should
do this. 
"
blt::comboeditor .e -exportselection yes \
    -xscrollbar .e.xs \
    -yscrollbar .e.ys \
    -height 1i \
    -insertofftime 0 \
    -width 2i \
    -justify left 

blt::tk::scrollbar .e.xs
blt::tk::scrollbar .e.ys
text .t
pack .t
set n [string length "Four score and seven years ago our fathers brought forth on this"]
.e select range 1 96
.e icursor [expr $n + 1]
#.e insert 4 "\nextra\ncharacters\n"
focus .e
after 500 {
    set rootx [expr [winfo rootx .] + 100]
    set rooty [expr [winfo rooty .] + 100]
    .e post -popup [list $rootx $rooty] -text $text -command GotText
    update
    grab .e 
    focus -force .e
}
