#usage "<b>Edit next device</b><p>\n"
       "<author>Author: alf@cadsoft.de</author>"

string cmd = "";
string dev[];
string edit = "";
int    count = 0;
int    n = 0;

if (library) library(L) {
  L.devicesets(D) {
    count++;
    dev[count] = D.name;
    cmd += D.name + "\n";
    }
  }

if (deviceset) deviceset(D) {
     edit = D.name;
     }

for (n = 1; n < count; n++) {
    if (edit == dev[n]) {
      break;
      }
    }

if (n < count) {
  cmd = "EDIT " + dev[n + 1] + ".dev;\n" ;
  // **************************************************
  //  a ";" must not follow DESCRIPT
  //  otherwise the description is overwritten
  //  with an empty string
  // **************************************************

  //  dlgMessageBox(cmd, "+Ok", "-Cancel");
  }
else
  cmd = "EDIT " + dev[1] + ".dev;\n" ;

  exit(cmd);