From b0c889f9616ff0ea16f3d6809f835bc7728cb044 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 14 Sep 1999 19:09:08 +0000 Subject: [PATCH] ... original commit: 88d4086a1b82773056ea56a6d404f10e5e37a9ba --- collects/framework/keymap.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss index b54f155d..b63c7670 100644 --- a/collects/framework/keymap.ss +++ b/collects/framework/keymap.ss @@ -200,7 +200,10 @@ (lambda (edit event) (let ([sel-start (send edit get-start-position)] [sel-end (send edit get-end-position)]) - (when (= sel-start sel-end) + (when (and (= sel-start sel-end) + (not (= sel-start 0)) + (not (= sel-start (send edit last-position)))) + (let ([sel-start (if (= sel-start (send edit line-end-position @@ -392,7 +395,7 @@ [else (message-box "Goto Line" - (format "~a is not an integer between 1 and ~a" + (format "~a is not a valid line number. It must be an integer between 1 and ~a" num-str (+ (send edit last-line) 1)))]))))