function res = isShTxtObj( obj )
   res = 1;
   if( isempty( obj ) || ~isa( obj, 'ShText' ) )
     res = 0;
   end
end
