From d25cbed6c082ccaf4fa71595565392ecca948f21 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 23 Feb 2013 16:51:10 -0600 Subject: [PATCH] add scrollbars --- collects/gui-debugger/debug-tool.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/gui-debugger/debug-tool.rkt b/collects/gui-debugger/debug-tool.rkt index 8fd850684c..ad73535f14 100644 --- a/collects/gui-debugger/debug-tool.rkt +++ b/collects/gui-debugger/debug-tool.rkt @@ -1341,10 +1341,10 @@ (set! variables-text (new text% [auto-wrap #f])) (let ([stack-frames-panel (make-object vertical-panel% stack-view-panel)]) (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)]) (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 (set! debug-parent-panel (make-object vertical-panel% debug-grandparent-panel))