… | |
… | |
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; |