#! ../mofe --f
# this script sets the selection to the label of the widget l.
# each time, the selection is used, "... selection transfered" is
# printed. when the selection is lost, a message is printed as well.
# Gustaf Neumann

XmLabel l topLevel labelString "I am the current Selection!"
realize

ownSelection l [gV l labelString] \
    {puts stderr "...lost selection."} \
    {puts stderr "...selection transfered."}

