From f0b146448b12b296ad1c04d8cd4fcc3936789b4e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 8 Dec 2005 17:24:50 +0000 Subject: [PATCH] fix external-URL handling and associated preference checkbox svn: r1565 --- collects/browser/private/hyper.ss | 2 +- collects/help/private/main.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/browser/private/hyper.ss b/collects/browser/private/hyper.ss index 7e57745c1c..074093fd76 100644 --- a/collects/browser/private/hyper.ss +++ b/collects/browser/private/hyper.ss @@ -853,7 +853,7 @@ A test case: (lambda (new-url) (loop (- n 1) new-url))] [else (cons html-editor url)])) - (cons #f #f)))))) + #f))))) (define hyper-canvas% (hyper-canvas-mixin canvas:basic%)) diff --git a/collects/help/private/main.ss b/collects/help/private/main.ss index a11a3a25ec..1cde9de977 100644 --- a/collects/help/private/main.ss +++ b/collects/help/private/main.ss @@ -35,7 +35,7 @@ [cb (instantiate check-box% () (label (string-constant plt:hd:use-homebrew-browser)) (parent cbp) - (value (preferences:get 'drscheme:help-desk:separate-browser)) + (value (not (preferences:get 'drscheme:help-desk:separate-browser))) (callback (lambda (cb evt) (preferences:set 'drscheme:help-desk:separate-browser