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
 5 8a9c112a 2005-01-04 devnull }
 6 8a9c112a 2005-01-04 devnull 
 7 8a9c112a 2005-01-04 devnull fn winctl {	
 8 06217430 2006-06-30 devnull 	echo $* | 9p write acme/$winid/ctl
 9 8a9c112a 2005-01-04 devnull }
10 8a9c112a 2005-01-04 devnull 
11 8a9c112a 2005-01-04 devnull fn winread {
12 06217430 2006-06-30 devnull 	9p read acme/$winid/$1
13 8a9c112a 2005-01-04 devnull }
14 8a9c112a 2005-01-04 devnull 
15 8a9c112a 2005-01-04 devnull fn winwrite {
16 06217430 2006-06-30 devnull 	9p write acme/$winid/$1
17 8a9c112a 2005-01-04 devnull }
18 8a9c112a 2005-01-04 devnull 
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
24 8a9c112a 2005-01-04 devnull }
25 8a9c112a 2005-01-04 devnull 
26 8a9c112a 2005-01-04 devnull fn winname {
27 8a9c112a 2005-01-04 devnull 	winctl name $1
28 8a9c112a 2005-01-04 devnull }
29 8a9c112a 2005-01-04 devnull 
30 8a9c112a 2005-01-04 devnull fn winwriteevent {
31 8a9c112a 2005-01-04 devnull 	echo $1$2$3 $4 | winwrite event
32 8a9c112a 2005-01-04 devnull }
33 8a9c112a 2005-01-04 devnull 
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
37 8a9c112a 2005-01-04 devnull 	if not
38 8a9c112a 2005-01-04 devnull 		winctl del
39 8a9c112a 2005-01-04 devnull }
40 8a9c112a 2005-01-04 devnull 
41 8a9c112a 2005-01-04 devnull fn wineventloop {
42 8a9c112a 2005-01-04 devnull 	. <{winread event >[2]/dev/null | acmeevent}
43 8a9c112a 2005-01-04 devnull }