Implicit instead of explicit size for traceback tool
parent
e093057e80
commit
9990663a85
|
@ -22,6 +22,10 @@ M: stack-entry-renderer row-value drop object>> ;
|
|||
|
||||
: <stack-table> ( model -- table )
|
||||
[ [ <stack-entry> ] map ] <filter> stack-entry-renderer <table>
|
||||
10 >>min-rows
|
||||
10 >>max-rows
|
||||
40 >>min-cols
|
||||
40 >>max-cols
|
||||
monospace-font >>font
|
||||
[ i:inspector ] >>action
|
||||
t >>single-click? ;
|
||||
|
@ -43,8 +47,6 @@ M: stack-entry-renderer row-value drop object>> ;
|
|||
|
||||
TUPLE: traceback-gadget < track ;
|
||||
|
||||
M: traceback-gadget pref-dim* drop { 550 600 } ;
|
||||
|
||||
: <traceback-gadget> ( model -- gadget )
|
||||
[
|
||||
vertical traceback-gadget new-track
|
||||
|
|
Loading…
Reference in New Issue