diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-03-06 00:00:05 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-03-06 00:00:05 -0800 |
commit | dbfbc7d718b186c9ff5b14d139572b98337e7550 (patch) | |
tree | 063a9014abb7a308d5f045dd23256c2663dcb216 /trace.mu | |
parent | a87040a4a2a2467d7b5ffb27e905db449ecb806f (diff) | |
download | mu-dbfbc7d718b186c9ff5b14d139572b98337e7550.tar.gz |
862
Diffstat (limited to 'trace.mu')
-rw-r--r-- | trace.mu | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/trace.mu b/trace.mu index b73148e9..2d92e6ce 100644 --- a/trace.mu +++ b/trace.mu @@ -260,6 +260,30 @@ (reply default-space:space-address) ]) +(function $dump-browser-state [ + (default-space:space-address/names:browser-state <- next-input) + ($print expanded-index:integer) + ($print (("*" literal))) + ($print expanded-children:integer) + ($print ((": " literal))) + ($print first-index-on-page:integer) + ($print (("/" literal))) + ($print first-subindex-on-page:integer) + ($print ((" => " literal))) + ($print last-index-on-page:integer) + ($print (("/" literal))) + ($print last-subindex-on-page:integer) + ($print (("\n" literal))) + ($print cursor-row:integer) + ($print ((" " literal))) + ($print printed-height:integer) + ($print ((" " literal))) + ($print app-height:integer) + ($print ((" " literal))) + ($print screen-height:integer) + ($print (("\n" literal))) +]) + (function down [ (default-space:space-address <- new space:literal 30:literal/capacity) (0:space-address/names:browser-state <- next-input) |