Strange issue with subroutine being called too late

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Strange issue with subroutine being called too late

Gtk+ - Perl mailing list
Hi
I have a procedure which should be called on error (if a directory doesn't exist a window pops up as follows;

foreach my $filesg (keys %{$changes}){
                my ($filename,$dirname,$ext)=fileparse($changes->{$filesg}->{newname},qr/\.[^.]*/);
                        unless (-d $dirname){
                        $err{$dirname}=$errkey if not exists $err{$errkey};
                        $errkey++;
                        }
                    if (-e $changes->{$filesg}->{newname}){
                        $changes->{$filesg}->{newname}=$dirname.'/'.$filename.'_dup'.$ext;
                    }
                    }

                    if (scalar keys %err >0){
                        print '3045 ', keys %err,"\n";
                    &nodir(\%err);;
                                        }

sub nodir {
    my $err=shift;
                        my %error=reverse %{$err};
                        my $win =Gtk3::Window->new();
                        my $grid=Gtk3::Grid->new;
                        my $errtitle=Gtk3::Label->new;
                        my %newdirs;
                        $errtitle->set_text('The following Directories do not exist, please check Details');
                        my $rownum=1;
                        foreach my $dir (keys %error){
                            my $dirlabel=Gtk3::Label->new($error{$dir});
                            my $diropt=Gtk3::CheckButton->new_with_label('add');
                            $grid->attach($dirlabel,0,$rownum,1,1);
                            $grid->attach($diropt,1,$rownum,1,1);
                            $diropt->signal_connect('toggled'=>sub{
                                if ($diropt->get_active==1){   
                                    $newdirs{$dir}=$error{$dir};
                                }
                                    else {
                                        delete $newdirs{$dir};
                                }   
                                foreach my $keys (keys %newdirs){
                            };
                            }
                            );   
                        $rownum++;
                        }
                       
                       
                           
                        my $close=Gtk3::Button->new('Close');
                        my $add=Gtk3::Button->new('Add Dir');
                        $add->set_halign('start');
                        $grid->attach($errtitle,0,0,3,1);   
                        $grid->attach($close,1,$rownum+1,1,1);   
                        $grid->attach($add,0,$rownum+1,1,1);   
                        $add->signal_connect('clicked'=>sub{
                            use File::Path;
                            foreach my $dirs (keys %newdirs){
                            mkpath($newdirs{$dirs});
                        }
                        $win->close;
                        }
                        );
                        $close->signal_connect('clicked',sub{
                            $win->close;

                        }
                        );
                        $win->add($grid);   
                        $win->show;
                        $win->show_all;
                        return 1
}

However the subroutine runs too late, so that code that depends on it fails.

If I put exactly the same code directly as follows, it runs as expected.
          if (scalar keys %err >0){
                        print '3045 ', keys %err,"\n";
                  <code in her>
                                        }

Any ideas appreciated

Mike

_______________________________________________
gtk-perl-list mailing list
[hidden email]
https://mail.gnome.org/mailman/listinfo/gtk-perl-list
Reply | Threaded
Open this post in threaded view
|

Re: Strange issue with subroutine being called too late

Gtk+ - Perl mailing list
Ignore message, found issue, needed a return value of 0 to the sub-routine

On Fri, 18 Jan 2019 at 10:47, Mike Martin <[hidden email]> wrote:
Hi
I have a procedure which should be called on error (if a directory doesn't exist a window pops up as follows;

foreach my $filesg (keys %{$changes}){
                my ($filename,$dirname,$ext)=fileparse($changes->{$filesg}->{newname},qr/\.[^.]*/);
                        unless (-d $dirname){
                        $err{$dirname}=$errkey if not exists $err{$errkey};
                        $errkey++;
                        }
                    if (-e $changes->{$filesg}->{newname}){
                        $changes->{$filesg}->{newname}=$dirname.'/'.$filename.'_dup'.$ext;
                    }
                    }

                    if (scalar keys %err >0){
                        print '3045 ', keys %err,"\n";
                    &nodir(\%err);;
                                        }

sub nodir {
    my $err=shift;
                        my %error=reverse %{$err};
                        my $win =Gtk3::Window->new();
                        my $grid=Gtk3::Grid->new;
                        my $errtitle=Gtk3::Label->new;
                        my %newdirs;
                        $errtitle->set_text('The following Directories do not exist, please check Details');
                        my $rownum=1;
                        foreach my $dir (keys %error){
                            my $dirlabel=Gtk3::Label->new($error{$dir});
                            my $diropt=Gtk3::CheckButton->new_with_label('add');
                            $grid->attach($dirlabel,0,$rownum,1,1);
                            $grid->attach($diropt,1,$rownum,1,1);
                            $diropt->signal_connect('toggled'=>sub{
                                if ($diropt->get_active==1){   
                                    $newdirs{$dir}=$error{$dir};
                                }
                                    else {
                                        delete $newdirs{$dir};
                                }   
                                foreach my $keys (keys %newdirs){
                            };
                            }
                            );   
                        $rownum++;
                        }
                       
                       
                           
                        my $close=Gtk3::Button->new('Close');
                        my $add=Gtk3::Button->new('Add Dir');
                        $add->set_halign('start');
                        $grid->attach($errtitle,0,0,3,1);   
                        $grid->attach($close,1,$rownum+1,1,1);   
                        $grid->attach($add,0,$rownum+1,1,1);   
                        $add->signal_connect('clicked'=>sub{
                            use File::Path;
                            foreach my $dirs (keys %newdirs){
                            mkpath($newdirs{$dirs});
                        }
                        $win->close;
                        }
                        );
                        $close->signal_connect('clicked',sub{
                            $win->close;

                        }
                        );
                        $win->add($grid);   
                        $win->show;
                        $win->show_all;
                        return 1
}

However the subroutine runs too late, so that code that depends on it fails.

If I put exactly the same code directly as follows, it runs as expected.
          if (scalar keys %err >0){
                        print '3045 ', keys %err,"\n";
                  <code in her>
                                        }

Any ideas appreciated

Mike

_______________________________________________
gtk-perl-list mailing list
[hidden email]
https://mail.gnome.org/mailman/listinfo/gtk-perl-list