How to get a very wide canvas with scroll bars ?

Here is an example:

root [0] TCanvas C("C","C",600,500)
root [1] C.SetCanvasSize(10000,500)

Author: Olivier Couet