b@0: function MpushW(hf,typ)
b@0: 
b@0: switch typ
b@0: case '2D'
b@0:    sel=get(hf,'selectiontype');
b@0:    switch sel
b@0:       
b@0:    case 'normal'
b@0:       % create a box
b@0:       dat=get(hf,'userdata');
b@0:       pc=get(hf,'currentpoint');
b@0:       
b@0:       %display box
b@0:       pos=rbbox([pc(1) pc(2) 0 0]);
b@0:       x1=pos(1); x2=pos(3)+x1; y1=pos(2); y2=pos(4)+y1;
b@0:       grp=[];
b@0:       for noIc=1:length(dat.hIcon)
b@0:          posIc=get(dat.hIcon(noIc),'position');
b@0:          xic=posIc(1); yic=posIc(2);
b@0:          if ((xic>x1) & (xic<x2) & (yic>y1) & (yic<y2))
b@0:             grp(end+1)=noIc;
b@0:          end
b@0:       end
b@0:       if ~isempty(grp)
b@0:          dat.group{end+1}=grp;
b@0:          dat.com{end+1}=[];
b@0:          dat.hbox(end+1)=line([x1 x1 x2 x2 x1],[y1 y2 y2 y1 y1]);
b@0:          set(dat.hbox,'color','k');
b@0:          set(dat.hbox,'linestyle','--');
b@0:          set(dat.hbox,'linewidth',1);
b@0:       end   
b@0:       set(hf,'userdata',dat);
b@0:    end
b@0: end