hedgewars/uGears.pas
changeset 7517 f287f00063e8
parent 7477 26706bf32ecf
child 7519 14261378d074
equal deleted inserted replaced
7515:8957b05d368a 7517:f287f00063e8
   205 while t <> nil do
   205 while t <> nil do
   206     begin
   206     begin
   207     curHandledGear:= t;
   207     curHandledGear:= t;
   208     t:= curHandledGear^.NextGear;
   208     t:= curHandledGear^.NextGear;
   209 
   209 
       
   210     if curHandledGear^.Message and gmDelete <> 0 then
       
   211         DeleteGear(curHandledGear);
   210     if curHandledGear^.Message and gmRemoveFromList <> 0 then 
   212     if curHandledGear^.Message and gmRemoveFromList <> 0 then 
   211         begin
   213         begin
   212         RemoveGearFromList(curHandledGear);
   214         RemoveGearFromList(curHandledGear);
   213         // since I can't think of any good reason this would ever be separate from a remove from list, going to keep it inside this block
   215         // since I can't think of any good reason this would ever be separate from a remove from list, going to keep it inside this block
   214         if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear);
   216         if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear);