allow horizontal scroll bars

original commit: 95320ee9481fe38d28f1aeedc2b09b2f1b30a338
This commit is contained in:
Robby Findler 2002-05-04 16:13:50 +00:00
parent 9ade87ae69
commit 16503a9c9c

View File

@ -564,7 +564,7 @@
(send list-keymap map-function "return" "toggle-open/closed")
(define hierarchical-list%
(class100 editor-canvas% (parent)
(class100 editor-canvas% (parent [style '(no-hscroll)])
(inherit min-width min-height)
(rename [super-on-char on-char]
[super-on-focus on-focus])
@ -735,7 +735,7 @@
[selected #f]
[selected-item #f])
(sequence
(super-init parent top-buffer '(no-hscroll))
(super-init parent top-buffer style)
(send top-buffer set-cursor arrow-cursor)
(min-width 150)
(min-height 200)))))))