allow horizontal scroll bars
original commit: 95320ee9481fe38d28f1aeedc2b09b2f1b30a338
This commit is contained in:
parent
9ade87ae69
commit
16503a9c9c
|
@ -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)))))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user