fixed auto completion in the REPL and improved the tools manual a little

svn: r7855

original commit: 600089413bfea3b68b98d68975ab53347b169e1f

collects/framework/framework.scrbl

@@ -0,0 +1,9 @@
+#lang scribble/doc
+
+@begin[
+(require scribble/manual)
+]
+
+@title{PLT Framework: GUI Application Framework}
+
+Nothing yet.

collects/framework/private/color.ss

@@ -37,6 +37,7 @@
       thaw-colorer
       
       reset-region
+      get-region
       update-region-end
       
       skip-whitespace

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])
+        (let-values ([(region-start region-end) (get-region)])
-          (cond
+          (let loop ([i start])
-            [(< i 0) 0]
+            (cond
-            [(eq? (classify-position i) 'symbol)
+              [(and (number? region-start)
-             (loop (- i 1))]
+                    (< i region-start))
-            [else (+ i 1)])))
+               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