| … | … | ||
|---|---|---|---|
| 125 | } | 125 | } |
| 126 | 126 | ||
| 127 | sub new_from_opengl { | 127 | sub new_from_opengl { |
| 128 | my ($class, $w, $h, $cb) = @_; | 128 | my ($class, $w, $h, $cb) = @_; |
| 129 | 129 | ||
| 130 | $class->_new (width => $w, height => $h, render => $cb) | 130 | $class->_new (width => $w, height => $h, rendercb => $cb) |
| 131 | } | 131 | } |
| 132 | 132 | ||
| 133 | sub upload { | 133 | sub upload { |
| 134 | my ($self) = @_; | 134 | my ($self) = @_; |
| 135 | 135 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |