1 8a9c112a 2005-01-04 devnull fn newwindow {
2 8a9c112a 2005-01-04 devnull winctl=`{9p read acme/new/ctl}
3 8a9c112a 2005-01-04 devnull winid=$winctl(1)
4 8a9c112a 2005-01-04 devnull winctl noscroll
7 8a9c112a 2005-01-04 devnull fn winctl {
8 06217430 2006-06-30 devnull echo $* | 9p write acme/$winid/ctl
11 8a9c112a 2005-01-04 devnull fn winread {
12 06217430 2006-06-30 devnull 9p read acme/$winid/$1
15 8a9c112a 2005-01-04 devnull fn winwrite {
16 06217430 2006-06-30 devnull 9p write acme/$winid/$1
19 8a9c112a 2005-01-04 devnull fn windump {
20 8a9c112a 2005-01-04 devnull if(! ~ $1 - '')
21 8a9c112a 2005-01-04 devnull winctl dumpdir $1
22 8a9c112a 2005-01-04 devnull if(! ~ $2 - '')
23 8a9c112a 2005-01-04 devnull winctl dump $2
26 8a9c112a 2005-01-04 devnull fn winname {
27 8a9c112a 2005-01-04 devnull winctl name $1
30 8a9c112a 2005-01-04 devnull fn winwriteevent {
31 8a9c112a 2005-01-04 devnull echo $1$2$3 $4 | winwrite event
34 8a9c112a 2005-01-04 devnull fn windel {
35 8a9c112a 2005-01-04 devnull if(~ $1 sure)
36 8a9c112a 2005-01-04 devnull winctl delete
38 8a9c112a 2005-01-04 devnull winctl del
41 8a9c112a 2005-01-04 devnull fn wineventloop {
42 8a9c112a 2005-01-04 devnull . <{winread event >[2]/dev/null | acmeevent}