TEXTAREA - Draganddrop( Temps de lecture estimé à Moins d'une minute)
Bonjour,
Aujourd 'hui nous allons expérimenter le Drag and drop (glisser déplacer) de texte entre deux applications, un binaire linux et une application graphique Gambas.
Créons simplement une application avec un Form, une textarea et un bouton Quitter dont voici le code:
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
ME.Center
END
PUBLIC SUB Button1_Click()
ME.Close
END
PUBLIC SUB TextArea1_Drop()
TextArea1.Insert(Drag.Text & Chr$(10))
END
Maintenant, nous allons faire des essais avec Trois applications assez généralistes :
-Gedit editeur de texte
-Firefox
-Nautilus de gnome
A)GEDIT
ouvrons un fichier texte puis séléctionnons le texte entier et faisont le glisser dans notre application comme ci dessous :
Nous pouvons constater deux choses :
- devant notre texte il y a un numero.
- les caracteres speciaux sont remplacés par un codage hexadecimal
B)FIREFOX
ouvrons au hasard un site internet. Par exemple http://gambaslinux.eg2.fr puis faisons glisser un texte dans notre application. Nous remaquons que le lien est ecrit dans notre aire de texte.
C)Nautilus
Faisons glisser une icone de notre bureau sur notre application.On remarque le chemin complet dans le texte copié.
Voila pour aujourd 'hui
);