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

made default panel spacing 0 and made all panels use defaults

Browse Source 
original commit: 2bcd727516f3f7617226c3ee4276d07d619f2d77
This commit is contained in:
Robby Findler 1996-11-10 19:30:35 +00:00
parent 76aea5cd6a
commit 8bf88c8781
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/finder.ss
View File

@ -326,10 +326,7 @@
"Show files and directories that begin with a period")
(send period-panel stretchable-in-y #f))
(send* directory-panel
(stretchable-in-y #f)
(border 0)
(spacing 0))
(send directory-panel stretchable-in-y #f)
(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))])
@ -341,7 +338,6 @@
(lambda (button evt) (do-go))
"Go")
(send main-panel spacing 1)
(when multi-mode?
(send add-panel stretchable-in-y #f)
(send remove-panel stretchable-in-y #f)

3
collects/mred/prefs.ss
View File

@ -216,14 +216,11 @@
[h (make-object mred:horizontal-panel% main)]
[c (make-object mred:check-box% h callback title)]
[p (make-object mred:horizontal-panel% h)])
(send* h (spacing 1) (border 1))
(send* p (spacing 1) (border 1))
(send c set-value initial-value)
(add-preference-callback pref
(lambda (p v)
(send c set-value (pref->bool v))))))]
[id (lambda (x) x)])
(send main spacing 1)
(make-check 'mred:highlight-parens "Highlight between matching parens?" id id)
(make-check 'mred:paren-match/fixup-parens
"Flash paren match and correct parens?" id id)