| … | |
… | |
| 2927 | glEnd (); |
2927 | glEnd (); |
| 2928 | glDisable (GL_BLEND); |
2928 | glDisable (GL_BLEND); |
| 2929 | } |
2929 | } |
| 2930 | } |
2930 | } |
| 2931 | #if 0 |
2931 | #if 0 |
| 2932 | if ($ENV{CFPLUS_DEBUG} & 1) { |
2932 | // draw borders, for debugging |
| 2933 | glPushMatrix; |
2933 | glPushMatrix (); |
| 2934 | glColor 1, 1, 0, 1; |
2934 | glColor4f (1., 1., 0., 1.); |
| 2935 | glTranslate 0.375, 0.375; |
2935 | glTranslatef (.5, .5, 0.); |
| 2936 | glBegin GL_LINE_LOOP; |
2936 | glBegin (GL_LINE_LOOP); |
| 2937 | glVertex 0 , 0; |
2937 | glVertex2f (0 , 0); |
| 2938 | glVertex $self->{w} - 1, 0; |
2938 | glVertex2f (w - 1, 0); |
| 2939 | glVertex $self->{w} - 1, $self->{h} - 1; |
2939 | glVertex2f (w - 1, h - 1); |
| 2940 | glVertex 0 , $self->{h} - 1; |
2940 | glVertex2f (0 , h - 1); |
| 2941 | glEnd; |
2941 | glEnd (); |
| 2942 | glPopMatrix; |
2942 | glPopMatrix (); |
| 2943 | #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw; |
|
|
| 2944 | } |
|
|
| 2945 | #endif |
2943 | #endif |
| 2946 | PUSHMARK (SP); |
2944 | PUSHMARK (SP); |
| 2947 | XPUSHs (self); |
2945 | XPUSHs (self); |
| 2948 | PUTBACK; |
2946 | PUTBACK; |
| 2949 | call_method ("_draw", G_VOID | G_DISCARD); |
2947 | call_method ("_draw", G_VOID | G_DISCARD); |
