Discussion :

[pr.software]

Bonjour,

J'utilise Tk (version 804.033) avec PERL (version 5.18.2) sur Linux Mint.

J'ai une erreur lorsque j'exécute le code suivant qui fonctionne parfaitement quand je l'exécute sous Windows 7.

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
#!/usr/bin/perl
use strict;
use Tk;
use Tk::DropSite;
 
my $mw = new MainWindow(-width => 500, -height => 300);
my $label = $mw->Label(-text => "Drop on me", -anchor => 'center')->pack->place(-relwidth => 1.0, -relheight => 1.0);
$label->DropSite(-droptypes => [$^O eq 'MSWin32' ? 'Win32' : 'XDND'], -dropcommand => [\&dropFile, $label]);
 
MainLoop;
 
sub dropFile {
  my ($widget, $selection) = @_;
  my $filename = $widget->SelectionGet(
      -selection => $selection, 
      'STRING'
  );
  print "DROP [$filename]\n";
}

Sous Linux, l'erreur est la suivante et l'application se ferme :

X Error of failed request: BadWindow (invalid Window parameter)
Major opcode of failed request: 25 (X_SendEvent)
Resource id in failed request: 0x2fd00fd
Serial number of failed request: 164
Current serial number in output stream: 165

Les valeurs numériques changent à chaque exécution.

Un utilisateur de Linux pourrait-il essayer ce code et me dire si il fonctionne sur sa distrib ?

Et sinon, quelle peut être mon erreur d'utilisation de Tk ?

Merci d'avance.

[djibril]

Bonjour,

Qu'est-ce que tu cherches concrètement à faire ?
ton code ci-dessous ne fonctionne même pas sous Windows 10. Tu mélanges en plus des gestionnaires d'espace pack et place.
Bref, donne nous ton code qui fonctionne sous Windows 7 et dis nous ce que tu cherches à faire.

[pr.software]

Bonjour Djibril et merci de te pencher sur mon problème.

Le code fourni fonctionne parfaitement sur ma machine sous Windows 7. Mon problème n'est pas dans l'utilisation de pack et place dans Tk.

En fait, je cherche à inclure une fonction de drop d'un fichier dans une application Tk : l'appli est lancée et attend qu'on lui dépose (par drag and drop) un fichier situé sur le bureau de l'utilisateur. On récupère alors le nom du fichier et on le traite. Le code que j'ai fourni est un extrait fonctionnel de mon application qui ne concerne que la partie "drop".

Comme je l'ai indiqué dans mon premier message, ce code fonctionne sous Windows (la fenêtre s'ouvre et je peux y déposer le fichier qui génère l'affichage de "DROP [nom du fichier]" dans la fenêtre DOS) mais génère une erreur qui fait planter l'appli sous Linux (j'ai indiqué le message d'erreur qui s'affiche dans la fenêtre de commande Linux).

Mon objectif est d'avoir une application qui tourne avec le même code sur Windows et Linux (c'est pourquoi je teste le $^O pour déterminer l'OS sur lequel l'appli fonctionne) et qui ait les mêmes fonctionnalités sur les deux environnements.

[djibril]

Je veux bien comprendre que ton code original fonctionne sous Windows mais comment veux-tu que l'on teste ou t'aide si ton programme que tu nous mets sur le forum (extraction) ne fonctionne pas ?
Essaye de nous mettre un programme de drag and drop fonctionnel pour que l'on le teste sous Wndows et Linux pour voir ce qui ne va pas.

[pr.software]

Le code ci-dessous fonctionne sur ma machine sous Windows 7 avec Strawberry PERL 5.22.0.

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
#!/usr/bin/perl
use strict;
use Tk;
use Tk::DropSite;
 
my $mw = new MainWindow(-width => 500, -height => 300);
my $label = $mw->Label(-text => "Drop on me", -anchor => 'center')->pack->place(-relwidth => 1.0, -relheight => 1.0);
$label->DropSite(-droptypes => [$^O eq 'MSWin32' ? 'Win32' : 'XDND'], -dropcommand => [\&dropFile, $label]);
 
MainLoop;
 
sub dropFile {
  my ($widget, $selection) = @_;
  my $filename = $widget->SelectionGet(
      -selection => $selection, 
      'STRING'
  );
  print "DROP [$filename]\n";
}

La preuve de l'exécution :


Et le résultat obtenu dans la fenêtre DOS :


Le même code exécuté sous Linux Mint 17.3 (avec PERL 5.18.2 et Tk 804.033 comme sur WIndows) donne l'erreur suivante :

X Error of failed request: BadWindow (invalid Window parameter)
Major opcode of failed request: 25 (X_SendEvent)
Resource id in failed request: 0x2fd00fd
Serial number of failed request: 164
Current serial number in output stream: 165

[pr.software]

Personne pour m'aider ?

[djibril]

Bonsoir,

Je viens de faire un test sur une machine Debian et j'ai la même erreur.

[djibril]

Je ne trouve pas de solution pour ton problème. Sous Windows, il faut Win32 dans droptypes, sous Linux, il faut Sun ou XDND, mais cela ne fonctionne pas chez moi sous Debian.
Une autre option est Local, mais c'est pour des drag and drop entre fenêtre Tk.

Je te suggère de faire un ticket sur le module CPAN du module Tk. Slaven auteur du module te répondra surement.

[pr.software]

Ok, merci du temps passé.