syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

On-screen display of active window ID.

This commit is contained in:
Tony Garnock-Jones 2015-08-18 20:14:59 -04:00
parent 35e966cb13
commit 44b6b5dcfa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
prospect/examples/big-bang.rkt
View File

@ -58,8 +58,8 @@
(patch-project/set/single p (patch-project/set/single p
(compile-projection (compile-projection
(at-meta (?! (active-window ?)))))) (at-meta (?! (active-window ?))))))
(log-info "~v" in) (transition s (update-window 'active-window-label 300 0
#f] (text (format "~v" in) 22 "black")))]
[_ #f])) [_ #f]))
(void) (void)
(sub (active-window ?) #:meta-level 1)) (sub (active-window ?) #:meta-level 1))