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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.318 by elmex, Sun Jul 2 19:32:55 2006 UTC vs.
Revision 1.319 by root, Sun Jul 2 21:07:26 2006 UTC

    my ($self) = @_;
    (6) x 2
 }
+sub toggle {
+   my ($self) = @_;
+   $self->{state} = !$self->{state};
+   $self->emit (changed => $self->{state});
+   $self->update;
+}
 sub invoke_button_down {
    my ($self, $ev, $x, $y) = @_;
    if ($x >= $self->{padding_x} && $x < $self->{w} - $self->{padding_x}
        && $y >= $self->{padding_y} && $y < $self->{h} - $self->{padding_y}) {
-      $self->{state} = !$self->{state};
+      $self->toggle;
-      $self->emit (changed => $self->{state});
    } else {
       return 0
    }
    1
    $self->{current} = $self->{children}[0]
       if @{ $self->{children} };
 }
+sub get_current_page {
+   my ($self) = @_;
+   $self->{current}
+}
 sub set_current_page {
    my ($self, $page_or_widget) = @_;
    my $widget = ref $page_or_widget
                    ? $page_or_widget
       tooltip     => $tooltip,
       on_activate => sub { $self->set_current_page ($widget) },
    );
    $self->{multiplexer}->add ($widget);
+}
+sub get_current_page {
+   my ($self) = @_;
+   $self->{multiplexer}->get_current_page
 }
 sub set_current_page {
    my ($self, $page) = @_;

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