1 fn newwindow {
2 	winctl=`{9p read acme/new/ctl}
3 	winid=$winctl(1)
4 	winctl noscroll
5 }
6 
7 fn winctl {	
8 	echo $* | 9p write acme/$winid/ctl
9 }
10 
11 fn winread {
12 	9p read acme/$winid/$1
13 }
14 
15 fn winwrite {
16 	9p write acme/$winid/$1
17 }
18 
19 fn windump {
20 	if(! ~ $1 - '')
21 		winctl dumpdir $1
22 	if(! ~ $2 - '')
23 		winctl dump $2
24 }
25 
26 fn winname {
27 	winctl name $1
28 }
29 
30 fn winwriteevent {
31 	echo $1$2$3 $4 | winwrite event
32 }
33 
34 fn windel {
35 	if(~ $1 sure)
36 		winctl delete
37 	if not
38 		winctl del
39 }
40 
41 fn wineventloop {
42 	. <{winread event >[2]/dev/null | acmeevent}
43 }