+if (defined $gfile) {
+ foreach my $cho (values %choices) {
+ my $chn = $choices[$cho->{Index}];
+ my $label = "$chn\n$cho->{Desc}";
+ if ($cho->{Dropped}) {
+ $label .= "\nDropped: $cho->{Dropped}";
+ }
+ if ($schwartz->has_vertex($chn)) {
+ $label .= "\n$winxlabel";
+ }
+ $showg->set_vertex_attribute($chn, 'label', $label);
+ }
+
+ my $gwriter = new Graph::Writer::GraphViz -format => 'ps';
+ $gwriter->write_graph($showg, $gfile);
+}
+