Bonjour,

Voici un bout de code qui fonctionne depuis toujours sauf récemment sur Debian, mais pas n'importe laquelle. C'est sur l'installation de Debian de base (gnome) qu'il plante, sur Debian Mate, il fonctionne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
 
my $top = MainWindow->new();
$top->title("essai");
my $l = $top->Label(-text => 'hello');
$l->pack();
my $drawing=$top->Scrolled(
        'Canvas',
        -confine    => 0,
        -background => "white"
      )->pack(
        -side   => "bottom",
        -expand => 1,
        -fill   => "both",
      );
my $dr_reel=$drawing->Subwidget("canvas");
            $drawing->createOval(
                -10,
                10,
                50,
                50,
                -outline => "black",
                -width   => 1,
                -tags    => ["grille"],
            );
$drawing->configure(-scrollregion => [$drawing->bbox("all")]);
MainLoop();
L'erreur est sur la ligne "scrollregion"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Tk::Error: Can't set -scrollregion to `ARRAY(0x56025e9453c0)' for Tk::Frame=HASH(0x56025e945810): bad scrollRegion "" at /usr/lib/x86_64-linux-gnu/perl5/5.28/Tk/Derived.pm line 294.
 Tk callback for .
 Tk callback for .frame
 Tk callback for .frame.ysbslice
 Tk callback for .frame.ysbslice.corner
 Tk callback for .frame.canvas
 Tk::Derived::configure at /usr/lib/x86_64-linux-gnu/perl5/5.28/Tk/Derived.pm line 306
Can't set -scrollregion to `ARRAY(0x56025e9453c0)' for Tk::Frame=HASH(0x56025e945810): bad scrollRegion "" at /usr/lib/x86_64-linux-gnu/perl5/5.28/Tk/Derived.pm line 294.
Une idée ?
une dépendance ? mais je ne fais qu'installer perl-tk sur les deux.
J'ai regardé les versions de paquets, c'est bien les mêmes (j'ai fait le test sur des machine virtuelles installées aujourd'hui).