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

.

Browse Source 
original commit: 4549ae4d09988021127745a5825670765e6b81e7
This commit is contained in:
Matthew Flatt 2003-05-13 21:12:24 +00:00
parent 24fccbc8d7
commit 91ec50f293
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mred/mred.ss
View File

@ -4843,7 +4843,7 @@
(class100*/kw basic-canvas% ()
[(parent [editor #f] [style null] [scrolls-per-page 100] [label #f]
[wheel-step no-val] [line-count no-val]
[horizontal-inset no-val] [vertical-inset no-val])
[horizontal-inset 5] [vertical-inset 5])
canvas%-keywords]
(sequence
(let ([cwho '(constructor editor-canvas)])
@ -4855,7 +4855,11 @@
(unless (eq? wheel-step no-val)
(check-wheel-step cwho wheel-step))
(unless (or (not line-count) (eq? line-count no-val))
((check-bounded-integer 1 1000 #t) cwho line-count))))
((check-bounded-integer 1 1000 #t) cwho line-count))
(unless (eq? horizontal-inset 5)
(check-margin-integer cwho horizontal-inset))
(unless (eq? vertical-inset 5)
(check-margin-integer cwho vertical-inset))))
(inherit set-label)
(private-field
[force-focus? #f]
@ -4964,9 +4968,9 @@
(send parent after-new-child this)
(unless (or (not line-count) (eq? line-count no-val))
(set-line-count line-count))
(unless (eq? vertical-inset no-val)
(unless (or (eq? vertical-inset 5))
(vi vertical-inset))
(unless (eq? horizontal-inset no-val)
(unless (or (eq? horizontal-inset 5))
(hi horizontal-inset)))))
;-------------------- Final panel interfaces and class constructions --------------------