source: trunk/lib/macros/demo__open_windows.amc

#!/usr/bin/perl -w
use lib "$ENV{'ARBHOME'}/lib/";
use ARB;

$gb_main = ARB::open(":","r");
if (! $gb_main ) {
    $error = ARB::await_error();
    print ("Error: $error\n");
    exit 0;
}

# example macro: open a bunch of windows
my $start_weblinks = 0;

BIO::remote_action($gb_main,"ARB_NT","save_all_as");
BIO::remote_action($gb_main,"ARB_NT","optimize_db");
BIO::remote_action($gb_main,"ARB_NT","import_seq");
BIO::remote_action($gb_main,'ARB_NT','Import sequences using Readseq (slow) ...');
BIO::remote_action($gb_main,"ARB_NT","export_to_ARB");
BIO::remote_action($gb_main,"ARB_NT","export_seqs");
BIO::remote_action($gb_main,"ARB_NT","export_nds");
BIO::remote_action($gb_main,'ARB_NT','Export sequences to foreign format (Readseq) ...');
BIO::remote_action($gb_main,"ARB_NT","print_tree");
if ($start_weblinks!=0) {
  BIO::remote_action($gb_main,'ARB_NT','mailing_list');
  BIO::remote_action($gb_main,"ARB_NT","bug_report");
}
BIO::remote_action($gb_main,"ARB_NT","version_info");
BIO::remote_action($gb_main,"ARB_NT","HELP/CLOSE");
ARB::close($gb_main);