| … | |
… | |
| 170 | } |
170 | } |
| 171 | |
171 | |
| 172 | sub upload { |
172 | sub upload { |
| 173 | my ($self) = @_; |
173 | my ($self) = @_; |
| 174 | |
174 | |
| 175 | return unless $SDL::App::USING_OPENGL; |
175 | return unless $GL_VERSION; |
| 176 | |
176 | |
| 177 | my $data; |
177 | my $data; |
| 178 | |
178 | |
| 179 | if (exists $self->{data}) { |
179 | if (exists $self->{data}) { |
| 180 | $data = $self->{data}; |
180 | $data = $self->{data}; |
| … | |
… | |
| 188 | glLoadIdentity; |
188 | glLoadIdentity; |
| 189 | glClear GL_COLOR_BUFFER_BIT; |
189 | glClear GL_COLOR_BUFFER_BIT; |
| 190 | $self->{render_cb}->($self, $self->{w}, $self->{h}); |
190 | $self->{render_cb}->($self, $self->{w}, $self->{h}); |
| 191 | |
191 | |
| 192 | } else { |
192 | } else { |
|
|
193 | use Gtk2;#d# TODO kill |
| 193 | my $pb = new Gtk2::Gdk::PixbufLoader; |
194 | my $pb = new Gtk2::Gdk::PixbufLoader; |
| 194 | $pb->write ($self->{image}); |
195 | $pb->write ($self->{image}); |
| 195 | $pb->close; |
196 | $pb->close; |
| 196 | |
197 | |
| 197 | $pb = $pb->get_pixbuf; |
198 | $pb = $pb->get_pixbuf; |
