Implicit instead of explicit size for traceback tool

db4
Slava Pestov 2009-02-17 08:23:23 -06:00
parent e093057e80
commit 9990663a85
1 changed files with 4 additions and 2 deletions

View File

@ -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