[perl-win32-gui-users] RichEdit update

[Jonathan Southwick]

I have a routine that updates my richedit control but while it is getting 
updated the control does not refresh properly.  Here is my code:

sub UpdateResults {
   my ($text,$format) = @_;
   $MainWindow->Results->SetCharFormat(@{$ResultsTextFormat{$format}});
   $MainWindow->Results->Select(999999,999999);  # this puts the cursor at 
the end of the text
   $MainWindow->Results->ReplaceSel($text, 1);  # this replaces what's 
there with what I want
   $MainWindow->Results->Update();
   $MainWindow->Update();
   return;
}

Shouldn't this work?

Jonathan