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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,6 +22,10 @@ M: stack-entry-renderer row-value drop object>> ;
: <stack-table> ( model -- table ) : <stack-table> ( model -- table )
[ [ <stack-entry> ] map ] <filter> stack-entry-renderer <table> [ [ <stack-entry> ] map ] <filter> stack-entry-renderer <table>
10 >>min-rows
10 >>max-rows
40 >>min-cols
40 >>max-cols
monospace-font >>font monospace-font >>font
[ i:inspector ] >>action [ i:inspector ] >>action
t >>single-click? ; t >>single-click? ;
@ -43,8 +47,6 @@ M: stack-entry-renderer row-value drop object>> ;
TUPLE: traceback-gadget < track ; TUPLE: traceback-gadget < track ;
M: traceback-gadget pref-dim* drop { 550 600 } ;
: <traceback-gadget> ( model -- gadget ) : <traceback-gadget> ( model -- gadget )
[ [
vertical traceback-gadget new-track vertical traceback-gadget new-track