… | … | ||
---|---|---|---|
116 | } | 116 | } |
117 | 117 | ||
118 | sub _size_allocate { | 118 | sub _size_allocate { |
119 | my ($self, $x, $y, $w, $h) = @_; | 119 | my ($self, $x, $y, $w, $h) = @_; |
120 | 120 | ||
121 | $self->{x} = int $x; | 121 | $self->{x} = $x; |
122 | $self->{y} = int $y; | 122 | $self->{y} = $y; |
123 | 123 | ||
124 | return unless $self->{w} != $w || $self->{h} != $h; | 124 | return unless $self->{w} != $w || $self->{h} != $h; |
125 | 125 | ||
126 | $self->{w} = int $w; | 126 | $self->{w} = $w; |
127 | $self->{h} = int $h; | 127 | $self->{h} = $h; |
128 | 128 | ||
129 | 1 | 129 | 1 |
130 | } | 130 | } |
131 | 131 | ||
132 | sub size_allocate { | 132 | sub size_allocate { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |