--- rxvt-unicode/src/perl/urxvt-popup	2006/01/08 00:41:20	1.9
+++ rxvt-unicode/src/perl/urxvt-popup	2006/01/08 00:48:14	1.10
@@ -111,15 +111,15 @@
 sub on_start {
    my ($self) = @_;
 
+   $self->cmd_parse ("\x1b[?25l\x1b[?7l");
+   $self->refresh;
+
    # might fail, but try anyways
    $self->grab ($self->{data}{event}{time}, 1)
       and $self->allow_events_async;
 
    on_button_press $self, $self->{data}{event} if $self->{data}{event}{button};
 
-   $self->cmd_parse ("\x1b[?25l\x1b[?7l");
-   refresh $self;
-
    ()
 }