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

.

Browse Source 
original commit: 2ba76315e938a856d9b4b576e88149074e1b5163
This commit is contained in:
Matthew Flatt 2002-01-10 22:26:17 +00:00
parent 8f9bea1c26
commit b9e7ec0ea7
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/mred.ss
View File

@ -2805,7 +2805,7 @@
(string->symbol (format "initialization for ~a%" who)))
(define (iconstructor-name who)
(string->symbol (format "initialization for a ~a<%> class" who)))
(string->symbol (format "initialization for a class that implements ~a<%>" who)))
(define (check-container-parent who p)
(unless (is-a? p internal-container<%>)
@ -3882,7 +3882,7 @@
(define editor-canvas%
(class100 basic-canvas% (parent [editor #f] [style null] [scrolls-per-page 100] [label #f]
[wheel-step no-val])
[wheel-step no-val] [line-count no-val])
(sequence
(let ([cwho '(constructor editor-canvas)])
(check-container-parent cwho parent)
@ -3892,6 +3892,8 @@
(check-label-string/false cwho label)
(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-container-ready cwho parent)))
(inherit set-label)
(private-field
@ -3977,7 +3979,9 @@
(set-label label))
(when editor
(set-editor editor))
(send parent after-new-child this))))
(send parent after-new-child this)
(unless (or (not line-count) (eq? line-count no-val))
(set-line-count line-count)))))
;-------------------- Final panel interfaces and class constructions --------------------