Help for this page

Select Code to Download


  1. or download this
        $self->{bottom} = $self->{frame}->Scrolled("BrowseEdit",
            -height => 6, -font => "times 12", -scrollbars => 'oe', -wrap 
    +=> 'word',
    ...
        $self->OnDestroy([$self, "on_destroy"]);
        $self->{bottom}->focus;
        $self->{rep_id} = $self->repeat(1000, [$self, "update_status"]);
    
  2. or download this
    sub on_key
    {
    ...
        }
        $self->{last_typed} = time;
    }
    
  3. or download this
    sub update_status
    {
    ...
            $self->{typing_status} = 1;
        }
    }