If
get-active-canvas returns a canvas, that canvas is also returned by this
method. Otherwise, if
get-canvases returns a non-empty list, the first canvas in the list is returned,
otherwise #f is returned.
(send an-editor get-canvas)->editor-canvas% object or #f