From 14e7cef7af06815a4e3ba4fdc4e84352f85310ae Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 10 Sep 2007 00:46:31 +0000 Subject: [PATCH] finished auto completion integration svn: r7304 original commit: 6b6f397a64e0c72294cf281fefcac35b5e119d63 --- collects/framework/private/text.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 57142e80..47ecb1e0 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -2173,6 +2173,8 @@ designates the character that triggers autocompletion ;; ============================================================ ;; auto-complete-text (mixin) implementation + (define selected-color (make-object color% 204 153 255)) + (define autocomplete-mixin (mixin ((class->interface text%)) (autocomplete<%>) @@ -2189,7 +2191,7 @@ designates the character that triggers autocompletion ; get-autocomplete-selected-color : -> string ; selected option background color in the autocomplete menu - (define/public (get-autocomplete-selected-color) "orange") + (define/public (get-autocomplete-selected-color) selected-color) (define/public (completion-mode-key-event? key-event) (cond