[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.431 by root, Tue Aug 21 02:41:52 2007 UTC vs.
Revision 1.432 by root, Tue Aug 21 23:42:02 2007 UTC

 #############################################################################
 package CFPlus::UI::Notebook;
+use CFPlus::OpenGL;
 our @ISA = CFPlus::UI::VBox::;
 sub new {
    my $class = shift;
    my $self = $class->SUPER::new (
-      buttonbar   => (new CFPlus::UI::Buttonbar),
+      buttonbar      => (new CFPlus::UI::Buttonbar),
-      multiplexer => (new CFPlus::UI::Multiplexer expand => 1),
+      multiplexer    => (new CFPlus::UI::Multiplexer expand => 1),
+      active_outline => [1, 1, 0],
       # filter => # will be put between multiplexer and $self
       @_,
    );
    $self->{filter}->add ($self->{multiplexer}) if $self->{filter};
 sub set_current_page {
    my ($self, $page) = @_;
    $self->{multiplexer}->set_current_page ($page);
    $self->emit (page_changed => $self->{multiplexer}{current});
+}
+sub _draw {
+   my ($self) = @_;
+   $self->SUPER::_draw ();
+   if (my $cur = $self->{multiplexer}{current}) {
+      if ($cur = $cur->{c_tab_}) {
+         glTranslate $cur->{x}, $cur->{y};
+         glLineWidth 3;
+         glColor @{$self->{active_outline}};
+         glRect_lineloop 1, 1, $cur->{w} - 2, $cur->{h} - 2;
+         glLineWidth 1;
+      }
+   }
 }
 #############################################################################
 package CFPlus::UI::Selector;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines