Les Contrôles › TextArea

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

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.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