Ctedit Redraw

[kuehne@pi.informatik.th-darmstadt.de (Thomas Kuehne)]

I implemented an undo function that restores the contents of two ctedits.
It worked without trouble when it was evoked via popup from a third ctedit.
When i call the same function via popup from one of the ctedits, whichs
contents changes the ctedit with the popup will not redisplay/redraw
the change of it's content.
I use the following lines to propagate a change to a ctedit:
  ({variable}:change (send 'variable ctedit) (send 'tree ctedit) tree)
  (send 'redraw ctedit)
; tree is the new content

I tried to redefine the mouse behaviour with the following lines:

(de :mouse-down (ctedit event)
  ({ctedit}:popup:mouse-down ctedit event)
)

(de :mouse-drag (ctedit event)
  ({ctedit}:popup:mouse-drag ctedit event)
)

(de :mouse-up (ctedit event)
  ({ctedit}:popup:mouse-up ctedit event)
  (send 'redraw ctedit)
)

This will not work either.
If i do the redraw from the menu of the ctedit or by typing the
(send 'redraw ctedit) in the console the ctedit correctly redraws.
How can i force redrawing from a function called via popup ?

	- Thomas -