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

add scrollbars

Browse Source
This commit is contained in:
Robby Findler 2013-02-23 16:51:10 -06:00
parent 5e2cc344c8
commit d25cbed6c0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/gui-debugger/debug-tool.rkt
View File

@ -1341,10 +1341,10 @@
(set! variables-text (new text% [auto-wrap #f])) (set! variables-text (new text% [auto-wrap #f]))
(let ([stack-frames-panel (make-object vertical-panel% stack-view-panel)]) (let ([stack-frames-panel (make-object vertical-panel% stack-view-panel)])
(new message% [parent stack-frames-panel] [label "Stack"]) (new message% [parent stack-frames-panel] [label "Stack"])
(new editor-canvas% [parent stack-frames-panel] [editor stack-frames] [style '(no-hscroll)])) (new editor-canvas% [parent stack-frames-panel] [editor stack-frames] [style '(auto-hscroll)]))
(let ([variables-panel (make-object vertical-panel% stack-view-panel)]) (let ([variables-panel (make-object vertical-panel% stack-view-panel)])
(new message% [parent variables-panel] [label "Variables"]) (new message% [parent variables-panel] [label "Variables"])
(new editor-canvas% [parent variables-panel] [editor variables-text] [style '(no-hscroll)])) (new editor-canvas% [parent variables-panel] [editor variables-text] [style '(auto-hscroll)]))
;; parent of panel with debug buttons ;; parent of panel with debug buttons
(set! debug-parent-panel (set! debug-parent-panel
(make-object vertical-panel% debug-grandparent-panel)) (make-object vertical-panel% debug-grandparent-panel))