proc action_xgraph { field_num selection } {
global PGB
	set out " "
	set count 1
	Working
	foreach i $selection {
		# lose the monitor spacer lines
			set g [ split $i | ]
		if { ([llength $g] > 1) } { 
			set instance [lindex $g $field_num]
			set out "$out $count $instance\n" 
			incr count 
		}
	}
	echo $out | xgraph 
	Waiting
}
