From 8c0926f3d05ae68bb11f3d61a7fc88824bd6a0e4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 29 Mar 1999 22:32:51 +0000 Subject: [PATCH] ... original commit: 18f58aa92ea478fb1d19e07c8c886a258caecb38 --- collects/framework/frame.ss | 2 +- collects/framework/guiutils.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss index c7d2af05..32d1357e 100644 --- a/collects/framework/frame.ss +++ b/collects/framework/frame.ss @@ -556,7 +556,7 @@ [set-search-direction (lambda (x) (set! searching-direction x) - (send dir-radio set-selection (if (= x 1) 0 1)))] + (send dir-radio set-selection (if (eq? x 'forward) 0 1)))] [replace&search (lambda () (when (replace) diff --git a/collects/framework/guiutils.ss b/collects/framework/guiutils.ss index f2863039..64fdb1c6 100644 --- a/collects/framework/guiutils.ss +++ b/collects/framework/guiutils.ss @@ -130,7 +130,7 @@ (send vp set-alignment 'left 'center) (send hp set-alignment 'right 'top) - (send (make-object button% true-choice hp on-true) focus) + (send (make-object button% true-choice hp on-true '(border)) focus) (make-object button% false-choice hp on-false) (send dialog center 'both) (send dialog show #t)