#usage "Rename device/symbol/package in library\n" "

" "Author: support@cadsoft.de" // THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED 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); string h; sprintf(h, "Rename

%s

to :", edit); dlgLabel(h); dlgStretch(0); toName = edit; 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 +"'" ); }