[C2hs] patch applied (c2hs): Control: add getNameSupply and setNameSupply