ui.tools.traceback: make it a tool window so that its size is saved, and workspace shortcuts work
parent
8c9c0f05d2
commit
350a6522c7
|
@ -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.
|
||||
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.status-bar ui.gadgets.scrollers ui.gadgets.borders
|
||||
ui.gadgets.tables ui.gestures sequences inspector
|
||||
models.arrow fonts ;
|
||||
ui.gadgets.tables ui.gestures ui.tools.common ;
|
||||
QUALIFIED-WITH: ui.tools.inspector i
|
||||
IN: ui.tools.traceback
|
||||
|
||||
|
@ -45,7 +45,7 @@ M: stack-entry-renderer row-value drop object>> ;
|
|||
: <retainstack-display> ( model -- gadget )
|
||||
[ retain>> ] "Retain stack" <stack-display> ;
|
||||
|
||||
TUPLE: traceback-gadget < track ;
|
||||
TUPLE: traceback-gadget < tool ;
|
||||
|
||||
: <traceback-gadget> ( model -- gadget )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue