cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue Widget.pm

[spadkins]

cvsuser     02/03/12 09:00:01

  Modified:    P5EEx/Blue/P5EEx/Blue Widget.pm
  Log:
  cleaned up some debug stmts
  
  Revision  Changes    Path
  1.10      +9 -4      p5ee/P5EEx/Blue/P5EEx/Blue/Widget.pm
  
  Index: Widget.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -w -r1.9 -r1.10
  --- Widget.pm 6 Mar 2002 23:03:24 -0000       1.9
  +++ Widget.pm 12 Mar 2002 17:00:01 -0000      1.10
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Widget.pm,v 1.9 2002/03/06 23:03:24 spadkins Exp $
  +## $Id: Widget.pm,v 1.10 2002/03/12 17:00:01 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Widget;
  @@ -233,7 +233,7 @@
       $name = $self->{name};
   
       $self->{context}->dbgprint("Widget($name)->handle_event(@_)")
  -        if ($P5EEx::Blue::DEBUG >= 1 && $self->{context}->dbg(1));
  +        if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(1));
   
       if ($_[0] eq "noop") {   # handle all known events
           return 1;
  @@ -313,6 +313,11 @@
       $self->{context}->wget($self->{name}, $var, $default, $setdefault);
   }
   
  +sub delete {
  +    my ($self, $var) = @_;
  +    $self->{context}->wdelete($self->{name}, $var);
  +}
  +
   sub set_default {
       my ($self, $var, $default) = @_;
       $self->{context}->wget($self->{name}, $var, $default, 1);
  @@ -388,7 +393,7 @@
       my ($domain, $values, $labels);
   
       $self->{context}->dbgprint("Widget->values_labels()")
  -        if ($P5EEx::Blue::DEBUG >= 1 && $self->{context}->dbg(1));
  +        if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(1));
   
       $domain = $self->get("domain");
       $values = $self->get("values");
  @@ -398,7 +403,7 @@
       elsif (defined $domain && $domain ne "") {
   
           $self->{context}->dbgprint("Widget->values_labels(): domain=$domain")
  -            if ($P5EEx::Blue::DEBUG >= 1 && $self->{context}->dbg(1));
  +            if ($P5EEx::Blue::DEBUG && $self->{context}->dbg(1));
   
           ($values, $labels) = $self->{context}->domain($domain);
       }