make-searchable

• (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.