fixed pr 7784

svn: r1715
This commit is contained in:
Robby Findler 2005-12-30 14:58:20 +00:00
parent 9dfcc8a918
commit 1c64c2949b

View File

@ -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