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

ui.tools.traceback: make it a tool window so that its size is saved, and workspace shortcuts work

db4
Slava Pestov 2010-06-28 17:10:06 -04:00
parent 8c9c0f05d2
commit 350a6522c7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/ui/tools/traceback/traceback.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors continuations kernel models namespaces arrays USING: accessors continuations kernel models namespaces arrays
fry prettyprint ui ui.commands ui.gadgets ui.gadgets.labeled assocs fry prettyprint sequences inspector models.arrow fonts ui
ui.commands ui.gadgets ui.gadgets.labeled assocs
ui.gadgets.tracks ui.gadgets.buttons ui.gadgets.panes ui.gadgets.tracks ui.gadgets.buttons ui.gadgets.panes
ui.gadgets.status-bar ui.gadgets.scrollers ui.gadgets.borders ui.gadgets.status-bar ui.gadgets.scrollers ui.gadgets.borders
ui.gadgets.tables ui.gestures sequences inspector ui.gadgets.tables ui.gestures ui.tools.common ;
models.arrow fonts ;
QUALIFIED-WITH: ui.tools.inspector i QUALIFIED-WITH: ui.tools.inspector i
IN: ui.tools.traceback IN: ui.tools.traceback
@ -45,7 +45,7 @@ M: stack-entry-renderer row-value drop object>> ;
: <retainstack-display> ( model -- gadget ) : <retainstack-display> ( model -- gadget )
[ retain>> ] "Retain stack" <stack-display> ; [ retain>> ] "Retain stack" <stack-display> ;
TUPLE: traceback-gadget < track ; TUPLE: traceback-gadget < tool ;
: <traceback-gadget> ( model -- gadget ) : <traceback-gadget> ( model -- gadget )
[ [