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