anchor.diff:  uses
     StrUtils, SysUtils, Math, Classes, Controls,
     KM_Controls, KM_CommonClasses, KM_CommonTypes, KM_Defaults, KM_Pics,
  -  KM_InterfaceGame, KM_Houses, KM_HouseMarket;
  -
  -  const LineAdv = 25; //Each new Line is placed ## pixels after previous
  +  KM_InterfaceGame, KM_Houses, KM_HouseMarket, KM_ResWares;
  +
  +const LINE_HEIGHT = 25; //Each new Line is placed ## pixels after previous
  +const WORKSHOP_WARE: array [1..2] of TWareType = (wt_Wood, wt_Leather);
   
   type
     TKMGUIGameHouse = class
  
positive.code:       ResRow_Common_Resource_WS[I] := TKMWaresRow.Create(Panel_HouseArmorWorkshop, 0, 0, TB_WIDTH, True);
        ResRow_Common_Resource_WS[I].RX := rxGui;
        ResRow_Common_Resource_WS[I].OnClick := House_ArmorWSDeliveryToggle;
        Image_ArmorWS_Accept[I] := TKMImage.Create(Panel_HouseArmorWorkshop, TB_WIDTH - 12, 2+I*25, 12, 12, 49);
        Image_ArmorWS_Accept[I].Hitable := False;
      end;
  end;
  
negative.code:   if gRes.HouseDat[aHouse.HouseType].AcceptsWares then
    begin
      Label_Common_Demand.Show;
      Label_Common_Demand.Top := Base+Line*LINE_HEIGHT+6;
      inc(Line);
  
      for I := 1 to 4 do
  