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