#include <CtrlLib/CtrlLib.h>
using namespace Upp;

struct TestBug : public TopWindow {
  Upp::RichTextCtrl rt;

  TestBug(const char *szTitle) {
    Title(szTitle);
    SetRect(0, 0, 200, 50);
    rt.Transparent();
    rt = "Normal [@R Red ][@G Green ][@B Blue ]";
    Add(rt.SizePos());
  }
};

GUI_APP_MAIN {
  {
    TestBug tb("Before Paper Color Change");
    tb.Run();
  }

  SColorPaper_Write(Black());

  {
    TestBug tb("After Paper Color Change");
    tb.Run();
  }
}