\name {monitorBar}
\children {monitorBar.socket}
\class {field}
\script {
	switch (arg[0]) {
	case "graph":
		y = arg[1] / 100.0 * hh;
		drawLine(1, y, 1, hh);
		copyArea(0, 0, ww, hh, 1, 0);
		return;
	break;
	case "config":
		usual();
		clearWindow();
		ww = get("width");
		hh = get("height");
		return;
	break;
	}
	usual();
}
\gapV {2}
\gapH {2}
\width {100}
\height {50}
\BGColor {blue}
\FGColor {white}
\border {6}
\
\name {monitorBar.socket}
\parent {monitorBar}
\class {socket}
\host {pebble.ebay.gnn.com}
\port {7777}
\script {
	/* sym share price
	 */
	switch (arg[0]) {
	case "input":
		data = input();
		send(parent(), "graph", int(nthWord(data, 3)));
		return;
	break;
	case "init":
		usual();
		set("outDelimStr", "\r\n");
		set("inDelimStr1", '\n');
		startClient();
		return;
	break;
	}
	usual();
}
\