%
% uniquify layer/state report of current object
%
!Cton.Image
!Cton.Layer
!Cton.Stater
!Cton.Object
%
% add the state to the lookup for this object
%
_Cton.Layer "@@" left$ "__" right$ !Cton.AltText
*ctonaltr

"Cton.obj#" &_Cton.Object
dup _ _Cton.Stater <?>
{
 "Cton.Image" sval
 "Cton.Layer" sval
 second !
} if
pop
%
% any state should set the summarizing flag
%
true !Cton.Ready