procedure(label_lower() prog(() cv= geGetEditCellView() objs=geGetSelSet() shapes= objs~>shapes foreach(shapeshapes if(shape~>objType=="label" then print(shape~>theLabel) shape~>theLabel= lowerCase (shape~>theLabel) ) ) ) )
hiSetBindKey("Layout""<Key>5" "label_lower()")
|