if ($type eq 'bitmap') {
        my $bg = ($c->itemconfigure(qw/current -background/))[4];
        if (defined $bg) {
            $iinfo->{restore_cmd} = "\$c->itemconfigure('current',
                -background => '$bg');";
        } else {
            $iinfo->{restore_cmd} = "\$c->itemconfigure('current',
                -background => undef);";
        }
        $c->itemconfigure(qw/current -background SteelBlue2/);
        return;
    }

##</code><code>##

my $bg = ($c->itemconfigure(qw/current -background/))[4];