From 6c858c0e6ef8694c3c102f8e7afbb21cbe693032 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 21 Oct 1996 22:09:25 +0000 Subject: [PATCH] added one-line canvases and fixed up searching original commit: 709324ff1d602a646a9abaca1f921ca35b4b9a34 --- collects/mred/finder.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss index 4a8943a1..9ec550b5 100644 --- a/collects/mred/finder.ss +++ b/collects/mred/finder.ss @@ -1,3 +1,4 @@ + (define mred:finder@ (unit/sig mred:finder^ (import [mred:debug : mred:debug^] @@ -301,8 +302,11 @@ do-period-in/exclusion "Show files and directories that begin with a period")) - (send directory-panel stretchable-in-y #f) - (let ([canvas (make-object mred:canvas:editor-canvas% directory-panel -1 -1 -1 20 "" + (send* directory-panel + (stretchable-in-y #f) + (border 0) + (spacing 0)) + (let ([canvas (make-object mred:canvas:one-line-canvas% directory-panel -1 -1 -1 20 "" (+ wx:const-mcanvas-hide-h-scroll wx:const-mcanvas-hide-v-scroll))]) (send* canvas