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

.

Browse Source 
original commit: be3384eeae3fce3700322b1de96620385ad27993
This commit is contained in:
Matthew Flatt 2004-11-01 17:20:41 +00:00
parent 6136db6a8c
commit 5888081a06
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/mred.ss
View File

@ -4897,7 +4897,8 @@
(sequence
(let ([cwho '(constructor canvas)])
(check-container-parent cwho parent)
(check-style cwho #f '(border hscroll vscroll gl deleted control-border no-autoclear transparent) style)
(check-style cwho #f '(border hscroll vscroll gl deleted control-border no-autoclear transparent resize-corner)
style)
(check-callback cwho paint-callback)
(check-label-string/false cwho label)))
(public
@ -5017,7 +5018,7 @@
(check-container-parent cwho parent)
(check-instance cwho internal-editor<%> "text% or pasteboard%" #t editor)
(check-style cwho #f '(hide-vscroll hide-hscroll no-vscroll no-hscroll auto-vscroll auto-hscroll
deleted control-border transparent no-border)
deleted control-border transparent no-border resize-corner)
style)
(check-gauge-integer cwho scrolls-per-page)
(check-label-string/false cwho label)
@ -6042,7 +6043,7 @@
(apply super-init args) (accept-drop-files #t)))
"MrEd REPL" #f 500 400))
(define repl-buffer (make-object esq:text%))
(define repl-display-canvas (new editor-canvas% [parent frame] [style '(no-border auto-hscroll)]))
(define repl-display-canvas (new editor-canvas% [parent frame] [style '(no-border auto-hscroll resize-corner)]))
(define esq-eventspace (wx:current-eventspace))
(define (queue-output proc)