#usage "<b>Rename device/symbol/package in library</b><p>\n"
       "<author>Author: alf@cadsoft.de</author>"

string edit = "";
string toName = edit;

if (library) library(L) {

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

   if (symbol) symbol(S) {
      edit = S.name;
      }
   if (package) package(P) {
      edit = P.name;
      }

int Result = dlgDialog("RENAME") {
  dlgStretch(0);
  dlgLabel("&Current Name");
  dlgStringEdit(edit);
  dlgStretch(0);
  toName = edit;
  dlgLabel("&New Name");
  dlgStringEdit(toName);
  dlgStretch(0);
  dlgHBoxLayout {
     dlgStretch(1);
     dlgPushButton("+OK") dlgAccept();
     dlgStretch(1);
     dlgPushButton("-Cancel") dlgReject();
     dlgStretch(0);
     };
  dlgStretch(1);
  };
  if (Result == 0) exit (0);
  exit("RENAME " + edit + " " + toName );
}