fixed pr 7784
svn: r1715
This commit is contained in:
parent
9dfcc8a918
commit
1c64c2949b
|
@ -212,8 +212,12 @@
|
||||||
(let* ([text (new (editor:standard-style-list-mixin
|
(let* ([text (new (editor:standard-style-list-mixin
|
||||||
(editor:keymap-mixin
|
(editor:keymap-mixin
|
||||||
text:basic%)))]
|
text:basic%)))]
|
||||||
[canvas (make-object canvas:basic% panel text)])
|
[canvas (new canvas:basic%
|
||||||
|
(style '(hide-hscroll))
|
||||||
|
(parent panel)
|
||||||
|
(editor text))])
|
||||||
(send text set-paste-text-only #t)
|
(send text set-paste-text-only #t)
|
||||||
|
(send text auto-wrap #t)
|
||||||
(send text set-styles-fixed #t)
|
(send text set-styles-fixed #t)
|
||||||
canvas))
|
canvas))
|
||||||
#t
|
#t
|
||||||
|
|
Loading…
Reference in New Issue
Block a user