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.
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
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();
Une idée ?
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 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).
Partager