From f3a29e12b024f50044bc656cbccba82c5e8acbb3 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 29 Nov 2007 00:22:05 +0000
Subject: [PATCH] fixed auto completion in the REPL and improved the tools
 manual a little

svn: r7855

original commit: 600089413bfea3b68b98d68975ab53347b169e1f
---
 collects/framework/framework.scrbl   |  9 +++++++++
 collects/framework/private/color.ss  |  1 +
 collects/framework/private/scheme.ss | 20 +++++++++++++-------
 3 files changed, 23 insertions(+), 7 deletions(-)
 create mode 100644 collects/framework/framework.scrbl

diff --git a/collects/framework/framework.scrbl b/collects/framework/framework.scrbl
new file mode 100644
index 00000000..15763999
--- /dev/null
+++ b/collects/framework/framework.scrbl
@@ -0,0 +1,9 @@
+#lang scribble/doc
+
+@begin[
+(require scribble/manual)
+]
+
+@title{PLT Framework: GUI Application Framework}
+
+Nothing yet.
diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss
index 78d6889e..ab1c4dc6 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -37,6 +37,7 @@
       thaw-colorer
       
       reset-region
+      get-region
       update-region-end
       
       skip-whitespace
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 15b5a506..6e5f6f9f 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -431,7 +431,7 @@
       
       (inherit get-styles-fixed)
       (inherit has-focus? find-snip split-snip
-               position-location get-dc)
+               position-location get-dc get-region)
       
       (define/override (get-word-at current-pos)
         (let ([no-word ""])
@@ -447,12 +447,18 @@
                  [else no-word]))])))
       
       (define/private (look-for-non-symbol start)
-        (let loop ([i start])
-          (cond
-            [(< i 0) 0]
-            [(eq? (classify-position i) 'symbol)
-             (loop (- i 1))]
-            [else (+ i 1)])))
+        (let-values ([(region-start region-end) (get-region)])
+          (let loop ([i start])
+            (cond
+              [(and (number? region-start)
+                    (< i region-start))
+               region-start]
+              [(< i 0) 
+               0]
+              [(eq? (classify-position i) 'symbol)
+               (loop (- i 1))]
+              [else
+               (+ i 1)]))))
 
       (public tabify-on-return? tabify
               tabify-all insert-return calc-last-para