make-searchable in drscheme:unit:frame

• (send a-drscheme:unit:frame make-searchable canvas) -> void
     canvas : a drscheme:unit:interactions-canvas% object

  stores the canvas, until get-text-to-search is called.