broke.rkt

    (define ec (new editor-canvas%
		    [parent this] [line-count 1]
		    [style  '(hide-hscroll no-vscroll control-border)]
		    [stretchable-height #f]))

    (define te (new (class text%
		      (super-new)
		      (inherit get-text)
		      (define/override (on-char key-event)
		      	(case (send key-event get-key-code)
		      	  ['#\space
		      	   (send completion-list select 0) ;; <---- This works.
			   (send completion-list focus)]   ;; <---- This does not.
		      	  [else
		      	   (super on-char key-event)
		      	   (filter-suggestions (get-text))])))))
    (send ec set-editor te)