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

.

Browse Source 
original commit: 0cf035e5d266c390f0b447c5fe6ad8112e971415
This commit is contained in:
Matthew Flatt 2004-10-04 01:09:59 +00:00
parent aa2cc5b8bc
commit 9a871766bd
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -5102,11 +5102,7 @@
(get-ds no-v? no-h?)
#f
(append
(if (and (memq 'no-border style)
(or (memq 'no-vscroll style)
(memq 'hide-vscroll style))
(or (memq 'no-hscroll style)
(memq 'hide-hscroll style)))
(if (memq 'no-border style)
null
'(border))
(remq 'no-border style))
@ -6021,7 +6017,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 (make-object editor-canvas% frame))
(define repl-display-canvas (new editor-canvas% [parent frame] [style '(no-border)]))
(define esq-eventspace (wx:current-eventspace))
(define (queue-output proc)