suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added one-line canvases and fixed up searching

Browse Source 
original commit: 709324ff1d602a646a9abaca1f921ca35b4b9a34
This commit is contained in:
Robby Findler 1996-10-21 22:09:25 +00:00
parent d1e68f6473
commit 6c858c0e6e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/finder.ss
View File

@ -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