| … | |
… | |
| 593 | |
593 | |
| 594 | # using global variables seems a bit hacky, but passing through all drawing |
594 | # using global variables seems a bit hacky, but passing through all drawing |
| 595 | # functions seems pointless. |
595 | # functions seems pointless. |
| 596 | our ($draw_x, $draw_y, $draw_w, $draw_h); # screen rectangle being drawn |
596 | our ($draw_x, $draw_y, $draw_w, $draw_h); # screen rectangle being drawn |
| 597 | |
597 | |
| 598 | sub draw { |
598 | #sub draw { |
| 599 | my ($self) = @_; |
599 | #CFPlus.xs |
| 600 | |
|
|
| 601 | return unless $self->{h} && $self->{w}; |
|
|
| 602 | |
|
|
| 603 | # update screen rectangle |
|
|
| 604 | local $draw_x = $draw_x + $self->{x}; |
|
|
| 605 | local $draw_y = $draw_y + $self->{y}; |
|
|
| 606 | |
|
|
| 607 | # skip widgets that are entirely outside the drawing area |
|
|
| 608 | return if ($draw_x + $self->{w} < 0) || ($draw_x >= $draw_w) |
|
|
| 609 | || ($draw_y + $self->{h} < 0) || ($draw_y >= $draw_h); |
|
|
| 610 | |
|
|
| 611 | glPushMatrix; |
|
|
| 612 | glTranslate $self->{x}, $self->{y}, 0; |
|
|
| 613 | |
|
|
| 614 | if ($self == $HOVER && $self->{can_hover}) { |
|
|
| 615 | glColor 1*0.2, 0.8*0.2, 0.5*0.2, 0.2; |
|
|
| 616 | glEnable GL_BLEND; |
|
|
| 617 | glBlendFunc GL_ONE, GL_ONE_MINUS_SRC_ALPHA; |
|
|
| 618 | glBegin GL_QUADS; |
|
|
| 619 | glVertex 0 , 0; |
|
|
| 620 | glVertex $self->{w}, 0; |
|
|
| 621 | glVertex $self->{w}, $self->{h}; |
|
|
| 622 | glVertex 0 , $self->{h}; |
|
|
| 623 | glEnd; |
|
|
| 624 | glDisable GL_BLEND; |
|
|
| 625 | } |
|
|
| 626 | |
|
|
| 627 | if ($ENV{CFPLUS_DEBUG} & 1) { |
|
|
| 628 | glPushMatrix; |
|
|
| 629 | glColor 1, 1, 0, 1; |
|
|
| 630 | glTranslate 0.375, 0.375; |
|
|
| 631 | glBegin GL_LINE_LOOP; |
|
|
| 632 | glVertex 0 , 0; |
|
|
| 633 | glVertex $self->{w} - 1, 0; |
|
|
| 634 | glVertex $self->{w} - 1, $self->{h} - 1; |
|
|
| 635 | glVertex 0 , $self->{h} - 1; |
|
|
| 636 | glEnd; |
|
|
| 637 | glPopMatrix; |
|
|
| 638 | #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw; |
|
|
| 639 | } |
|
|
| 640 | |
|
|
| 641 | $self->_draw; |
|
|
| 642 | glPopMatrix; |
|
|
| 643 | } |
|
|
| 644 | |
600 | |
| 645 | sub _draw { |
601 | sub _draw { |
| 646 | my ($self) = @_; |
602 | my ($self) = @_; |
| 647 | |
603 | |
| 648 | warn "no draw defined for $self\n"; |
604 | warn "no draw defined for $self\n"; |
