Discussion :

[magicshark]

Bonjour, j'ai fais un petit programme en deux parties, ou l'une des deux permet d'avoir une liste de fichier sélectionner (via parcourir et drag and drop).

- PROBLEME 1

Lorsqu'avec parcourir je sélectionne un raccourcis, y a pas de soucis par contre je le glisse il me glisse le .lnk non pas le .XXX associer.
Comment puis je changer cela ?

- PROBLEME 2

J'aimerai pouvoir supprimer certains fichiers mis par erreur et pour cela j'aimerai qu'il soit sélectionnable (un peu comme dans l'explorateur de fichier). Hors je sais qu'avec bind je peut vers de l’évènementielle mais par contre j'ai aucune idée de comment changer mes -background avec bind.

Merci

screen de l'appli :

[djibril]

Problème 1 : Comment as tu écrit ton drag and drop ?
Problème 2 : As-tu lu la documentation de Tk::Bind sur le CPAN ?

[magicshark]

pour le frame

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
$framIn -> DropSite(
  -dropcommand => [ \&drop, $framIn ],
  -droptypes   => 'Win32',);

la fonciton drop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
sub  drop{
    my ( $widgetDragDrop ) = @_;
    my $sel = $widgetDragDrop->SelectionGet( -selection => 'CLIPBOARD' );
    foreach my $fichier_rep ( split( /\n/, $sel ) ) {
        if ( -f $fichier_rep ) {
            my @fileName = split(/\\/,$fichier_rep);
            $files[scalar(@files)] = $fichier_rep;
            makeFileFrame(validaFileName($fileName[-1]),$fileName[-1]);
        }
    }
return;
}

probleme 2 => Oui je l'ai lu mais j'ai pas forcement tout compris

[djibril]

Pour le drag an d drop, je pense pas qu'il y ait d'autre façon de faire. Et qu'il te fournisse le fichier .lnk au lieu du fichier associé, c'est normal. Il t'a fournit le chemin du fichier . Je ne vois pas d'autres solutions que de le gérer toi même. C'est-à-dire, si tu rencontres un fichier nommé .lnk, c'est à toi de trouver le fichier pointé (d'étudier ce lien symbolique).

Voici une petite procédure (que je devrais rajouter dans la FAQ) qui permet de trouver le fichier cible depuis un lien symbolique Windows :

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 warnings;
use Win32::OLE;
 
my $fichier = 'XXXXXX.lnk';
 
# Si mon fichier est un fichier .lnk => trouver la cible
if ( $fichier =~ m{\.lnk} ) {
	$fichier = lire_lien_symbolique_windows($fichier);
}
 
sub lire_lien_symbolique_windows {
	my ($lien_symbolique) = @_;
 
	my $WinOLE = new Win32::OLE 'WScript.Shell';
	my $lien = $WinOLE->CreateShortcut($lien_symbolique) or die;
	return $lien->TargetPath;
}

[magicshark]

merci je vais y regarder et pour le probleme (2) la doc sur le CPAN résoudrai mon problème alors ?
(oui pour la FAQ ça peut être bien le script du drop est honteusement pompé dessus)

[djibril]

(oui pour la FAQ ça peut être bien le script du drop est honteusement pompé dessus)

Il n'y a pas de honte, si je mets du code dans la FAQ, c'est pour que cela puisse vous aider, donc faites vous plaisir, c'est gratuit .

[djibril]

Pour ton problème 2 :

Voici ton bind qui appellera une procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  # Simulation d'une sélection
  $frameFile->bind( '<ButtonPress-1>', [\&simuler_selection, $frameFile, $label_text, $Label ] );  
  $Label->bind( '<ButtonPress-1>', [\&simuler_selection, $frameFile, $label_text, $Label ] );  
  $label_text->bind( '<ButtonPress-1>', [\&simuler_selection, $frameFile, $label_text, $Label ] );

Cet appel sera effectué après un clic sur l'image, le texte ou cadre

Voici la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
sub simuler_selection {
	my ($widget, $frameFile, $label_text, $label_image) = @_;
 
	$frameFile->configure( qw/ -background blue / );
	$label_image->configure( qw/ -background blue / );
	$label_text->configure( qw/ -background blue -foreground  white / );
	print "Click sur : ", $label_text->cget('-text'),"\n";
 
	return;
}

Son rôle est de mettre un fond bleu derrière chaque widget. Voilà, pas compliqué. Juste une piste pour te faire bosser , faudra penser à compléter cette procédure pour du coup agir sur tous les autres éléments afin de remettre le fond blanc et le text en noir. En fait, à chaque sélection, tout reste bleu j'allais pas tout faire non plus !

[magicshark]

merci beaucoup oui en effet je pensait refaire un peu le code en virant mon tableau @file (qui contient tout les fichiers de l'appli) et le remplacer par une hash histoire de vérifier les doublons de plus ça sera plus simple à supprimer je rentrerai également ses coordonnées de grid afin de décaler le dernier à la place du fichier supprimer