public function setStyleIDFrom(DataObject $object, $suffix = null)
    {
        $this->StyleID = sprintf(
            '%s_%s',
            ClassTools::singleton()->getClassWithoutNamespace(get_class($object)),
            ClassTools::singleton()->getClassWithoutNamespace(get_class($this))
        );
        
        if (!is_null($suffix)) {
            $this->StyleID = sprintf(
                '%s_%s',
                $this->StyleID,
                $suffix
            );
        }
        
        $this->StyleID = $this->cleanStyleID($this->StyleID);
        
        return $this;
    }