steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

New debugger

db4
nicolas-p 2015-07-21 20:51:28 +02:00 committed by John Benediktsson
parent 52135e2df7
commit 6a528d3978
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/ui/tools/debugger/debugger.factor
View File

@ -3,10 +3,10 @@
USING: accessors arrays hashtables io kernel math models USING: accessors arrays hashtables io kernel math models
colors.constants namespaces sequences words continuations colors.constants namespaces sequences words continuations
debugger prettyprint help editors fonts ui ui.commands debugger prettyprint help editors fonts ui ui.commands
ui.debugger ui.gestures ui.gadgets ui.pens.solid ui.debugger ui.gestures ui.gadgets ui.gadgets.lines ui.pens.solid
ui.gadgets.worlds ui.gadgets.packs ui.gadgets.buttons ui.gadgets.worlds ui.gadgets.packs ui.gadgets.buttons
ui.gadgets.labels ui.gadgets.presentations ui.gadgets.panes ui.gadgets.labels ui.gadgets.presentations ui.gadgets.panes
ui.gadgets.viewports ui.gadgets.tables ui.gadgets.tracks ui.gadgets.viewports ui.gadgets.tables ui.gadgets.tracks ui.gadgets.toolbar
ui.gadgets.scrollers ui.gadgets.borders ui.gadgets.status-bar ui.gadgets.scrollers ui.gadgets.borders ui.gadgets.status-bar
ui.tools.traceback ui.tools.inspector ui.tools.browser ; ui.tools.traceback ui.tools.inspector ui.tools.browser ;
IN: ui.tools.debugger IN: ui.tools.debugger
@ -43,16 +43,14 @@ M: restart-renderer row-columns
PRIVATE> PRIVATE>
: <debugger> ( error continuation restarts restart-hook -- debugger ) : <debugger> ( error continuation restarts restart-hook -- debugger )
vertical debugger new-track vertical debugger new-track with-lines
{ 3 3 } >>gap
swap >>restart-hook swap >>restart-hook
swap >>restarts swap >>restarts
swap >>continuation swap >>continuation
swap >>error swap >>error
add-toolbar
dup <restart-list> >>restart-list dup <restart-list> >>restart-list
dup <error-display> f track-add dup <error-display> margins white-interior f track-add
COLOR: white <solid> >>interior ; add-toolbar ;
M: debugger focusable-child* M: debugger focusable-child*
dup restart-hook>> [ restart-list>> ] [ drop t ] if ; dup restart-hook>> [ restart-list>> ] [ drop t ] if ;

2
basis/ui/tools/listener/listener.factor
View File

@ -334,7 +334,7 @@ M: object accept-completion-hook 2drop ;
parse-lines-interactive ; parse-lines-interactive ;
: <debugger-popup> ( error continuation -- popup ) : <debugger-popup> ( error continuation -- popup )
over compute-restarts [ hide-glass ] <debugger> "Error" <labeled-gadget> ; over compute-restarts [ hide-glass ] <debugger> "Error" <framed-labeled-gadget> ;
: debugger-popup ( interactor error continuation -- ) : debugger-popup ( interactor error continuation -- )
[ one-line-elt ] 2dip <debugger-popup> show-listener-popup ; [ one-line-elt ] 2dip <debugger-popup> show-listener-popup ;