procedure(YschChangeLabelCB(form @optional cv(geGetEditCellView()) "rd")
prog((labelText newLabelText)
unless(form
warn("Can not get form database id - %A" form)
return()
)
when(form
labelText = form->labelText->value
newLabelText = form->newLabelText->value
YschChangeLabelMain(labelText newLabelText)
)
return(t)
)
)
procedure(YschChangeLabelMain(labelText newLabelText @optional cv(geGetEditCellView()) "ttd")
prog((objList)
when(artBlankString(labelText) || artBlankString(newLabelText)
warn("The argument#1 and argument#2 can not be nil or blank string - %A, %A\n" labelText newLabelText)
return()
)
unless(cv&&cv->mode!="r"
warn("Can not get cellView id or current cellView is readable\n")
return()
)
if(geGetSelSet() then
objList = geGetSelSet()
else
objList = cv->shapes
warn("Not selected any objects in current cellView - %A, then search for all labels in current cellView\n" geGetSelSet())
)
objList = setof(x objList x->objType=="label")
unless(objList
warn("Can not get any labels in current cellview - %A\n" objList)
return()
)
objList = setof(x objList x->theLabel==labelText)
unless(objList
warn("There is not any labels - %A named - %A" objList labelText)
return()
)
foreach(obj objList
obj->theLabel = newLabelText
)
return(t)
)
)