[GB.FORM]

* NEW: Add a copy menu entry to the FileChooser and DirChooser controls.

[GB.GTK]
* BUG: Clipboard.Copy() now works for all text formats.

[GB.GTK3]
* BUG: Clipboard.Copy() now works for all text formats.


git-svn-id: svn://localhost/gambas/trunk@6562 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-10-18 20:04:22 +00:00
parent 1ee8120382
commit 892fa0be41
6 changed files with 116 additions and 82 deletions

Binary file not shown.

View File

@ -26,10 +26,9 @@
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: gb.form 3.5.90\n"
"PO-Revision-Date: 2014-09-22 23:16 UTC\n"
"Project-Id-Version: gb.form 3.6.0\n"
"PO-Revision-Date: 2014-10-18 19:41 UTC\n"
"Last-Translator: benoit <benoit@black-tower>\n"
"Language-Team: fr <>\n"
"Language: fr\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
@ -63,19 +62,19 @@ msgstr "Nouveau répertoire"
msgid "Cannot create directory."
msgstr "Impossible de créer le répertoire."
#: FCalendar.form:47
#: FCalendar.form:48
msgid "Today"
msgstr "Aujourd'hui"
#: FCalendar.form:53
#: FCalendar.form:54
msgid "Previous month"
msgstr "Mois précédent"
#: FCalendar.form:87
#: FCalendar.form:88
msgid "Next month"
msgstr "Mois suivant"
#: FCalendar.form:146
#: FCalendar.form:151
msgid "Apply"
msgstr "Appliquer"
@ -127,99 +126,103 @@ msgstr "-"
msgid "A"
msgstr "-"
#: FDirChooser.class:406
#: FDirChooser.class:407
msgid "File not found."
msgstr "Fichier introuvable."
#: FDirChooser.class:409
#: FDirChooser.class:410
msgid "Directory not found."
msgstr "Répertoire introuvable."
#: FDirChooser.class:513
#: FDirChooser.class:514
msgid "All files (*)"
msgstr "Tous les fichiers (*)"
#: FDirChooser.class:944
#: FDirChooser.class:945
msgid "&Bookmark current directory"
msgstr "&Marquer le répertoire courant"
#: FDirChooser.class:952
#: FDirChooser.class:953
msgid "&Edit bookmarks..."
msgstr "&Editer les signets..."
#: FDirChooser.class:961
#: FDirChooser.class:962
msgid "Show &details"
msgstr "Vue &détaillée"
#: FDirChooser.class:967
#: FDirChooser.class:968
msgid "Show &hidden files"
msgstr "Afficher les fichiers &cachés"
#: FDirChooser.class:973
#: FDirChooser.class:974
msgid "Show &image preview"
msgstr "Prévisualisation des &images"
#: FDirChooser.class:981
#: FDirChooser.class:982
msgid "&Rename"
msgstr "&Renommer"
#: FDirChooser.class:986
#: FDirChooser.class:987
msgid "Copy"
msgstr "Copier"
#: FDirChooser.class:992
msgid "&Delete"
msgstr "&Supprimer"
#: FDirChooser.class:993
#: FDirChooser.class:999
msgid "&Uncompress file"
msgstr "&Décompresser le fichier"
#: FDirChooser.class:998
#: FDirChooser.class:1004
msgid "&Create directory"
msgstr "&Créer un répertoire"
#: FDirChooser.class:1003
#: FDirChooser.class:1009
msgid "Open in &file manager..."
msgstr "Ouvrir dans le gestionnaire de &fichiers..."
#: FDirChooser.class:1008
#: FDirChooser.class:1014
msgid "&Refresh"
msgstr "&Actualiser"
#: FDirChooser.class:1016
#: FDirChooser.class:1022
msgid "&Properties"
msgstr "&Propriétés"
#: FDirChooser.class:1186
#: FDirChooser.class:1236
msgid "Overwrite"
msgstr "Ecraser"
#: FDirChooser.class:1186
#: FDirChooser.class:1236
msgid "Overwrite all"
msgstr "Tout écraser"
#: FDirChooser.class:1186
#: FDirChooser.class:1236
msgid "This file or directory already exists."
msgstr "Ce fichier ou ce répertoire existe déjà."
#: FDirChooser.class:1205
#: FDirChooser.class:1255
msgid "Cannot list archive contents"
msgstr "Impossible de lister le contenu de l'archive"
#: FDirChooser.class:1239
#: FDirChooser.class:1289
msgid "Cannot uncompress file."
msgstr "Impossible de décompresser le fichier."
#: FDirChooser.class:1239
#: FDirChooser.class:1289
msgid "Unknown archive."
msgstr "Archive inconnue."
#: FDirChooser.class:1298
#: FDirChooser.class:1348
msgid "Delete file"
msgstr "Supprimer le fichier"
#: FDirChooser.class:1299
#: FDirChooser.class:1349
msgid "Do you really want to delete that file?"
msgstr "Désirez-vous réellement supprimer ce fichier ?"
#: FDirChooser.class:1306
#: FDirChooser.class:1356
msgid "Unable to delete file."
msgstr "Impossible de supprimer le fichier."
@ -271,25 +274,21 @@ msgstr "Emplacement"
msgid "Do you really want to remove this bookmark?"
msgstr "Désirez-vous réellement supprimer ce signet ?"
#: FEditBookmark.class:109
msgid "Remove"
msgstr "Supprimer"
#: FEditBookmark.form:14
msgid "Edit bookmarks"
msgstr "Edition des signets"
#: FEditBookmark.form:33
msgid "&Up"
msgstr "&Monter"
msgid "Up"
msgstr "Haut"
#: FEditBookmark.form:39
msgid "&Down"
msgstr "&Descendre"
msgid "Down"
msgstr "Bas"
#: FEditBookmark.form:45
msgid "&Remove"
msgstr "&Supprimer"
msgid "Remove"
msgstr "Supprimer"
#: FEditBookmark.form:56 FFileProperties.form:245
msgid "Close"
@ -375,31 +374,31 @@ msgstr "Aperçu"
msgid "Errors"
msgstr "Erreurs"
#: FFontChooser.form:53
msgid "Bold"
msgstr "Gras"
#: FFontChooser.form:60
msgid "Italic"
msgstr "Italique"
#: FFontChooser.form:67
msgid "Underline"
msgstr "Souligné"
#: FFontChooser.form:74
msgid "Strikeout"
msgstr "Barré"
#: FFontChooser.form:83
msgid "Relative"
msgstr "Relatif"
#: FFontChooser.form:125
#: FFontChooser.class:183
msgid "How quickly daft jumping zebras vex"
msgstr "Portez ce vieux whisky au juge blond qui fume"
#: FFontChooser.form:152
#: FFontChooser.form:49
msgid "Bold"
msgstr "Gras"
#: FFontChooser.form:56
msgid "Italic"
msgstr "Italique"
#: FFontChooser.form:63
msgid "Underline"
msgstr "Souligné"
#: FFontChooser.form:70
msgid "Strikeout"
msgstr "Barré"
#: FFontChooser.form:79
msgid "Relative"
msgstr "Relatif"
#: FFontChooser.form:123
msgid "ComboBox1"
msgstr ""
@ -435,18 +434,6 @@ msgstr "-"
msgid "Label1"
msgstr ""
#: FTabPanel.form:41
msgid "&TabStrip1"
msgstr "-"
#: FTabPanel.form:43
msgid "&Bonbon"
msgstr "-"
#: FTabPanel.form:45
msgid "&Charles"
msgstr "-"
#: FWizard.class:67
msgid "&Next"
msgstr "&Suivant"
@ -479,19 +466,19 @@ msgstr "-"
msgid "1"
msgstr "-"
#: Form5.form:19
#: Form5.form:18
msgid "Menu2"
msgstr ""
#: Form5.form:23
#: Form5.form:22
msgid "Menu3"
msgstr ""
#: Form5.form:27
#: Form5.form:26
msgid "Menu4"
msgstr ""
#: Form5.form:31
#: Form5.form:30
msgid "Menu5"
msgstr ""

View File

@ -1,7 +1,7 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.6.0
Title=More controls for graphical components
Startup=FFont
Startup=Form1
Version=3.6.0
VersionFile=1
Component=gb.image

View File

@ -18,6 +18,7 @@ Private mnuShowDetailed As Menu
Private mnuShowPreview As Menu
Private mnuUncompress As Menu
Private mnuRename As Menu
Private mnuCopy As Menu
Private mnuDelete As Menu
Private mnuProperty As Menu
@ -982,6 +983,11 @@ Private Sub FillMenu()
'hMenu.Picture = Picture["icon:/small/archive"]
mnuRename = hMenu
hMenu = New Menu(mnuPopup) As "mnuCopy"
hMenu.Text = ("Copy")
hMenu.Picture = Picture["icon:/small/copy"]
mnuCopy = hMenu
hMenu = New Menu(mnuPopup) As "mnuDelete"
hMenu.Text = ("&Delete")
hMenu.Picture = Picture["icon:/small/delete"]
@ -1152,6 +1158,48 @@ Public Sub mnuRename_Click()
End
Private Sub URLQuote(Path As String) As String
Dim iInd As Integer
Dim sRes As String
Dim sCar As String
For iInd = 1 To Len(Path)
sCar = Mid$(Path, iInd, 1)
If sCar = " " Then
sCar = "+"
Else If IsLetter(sCar) Or If IsDigit(sCar) Or If InStr("-._~,$!/", sCar) Then
Else
sCar = "%" & Hex$(Asc(sCar), 2)
Endif
sRes &= sCar
Next
Return sRes
End
Public Sub mnuCopy_Click()
Dim aPath As String[]
Dim I As Integer
If dvwChoose.HasFocus Then
aPath = [dvwChoose.Current]
Else
aPath = GetPaths()
Endif
If aPath.Count = 0 Then Return
For I = 0 To aPath.Max
aPath[I] = "file://" & URLQuote(aPath[I])
Next
Clipboard.Copy(aPath.Join(gb.CrLf) & gb.CrLf, "text/uri-list")
End
Public Sub mnuUncompress_Click()

View File

@ -143,4 +143,3 @@ Public Sub UnsetQuery(URL As String, Field As String) As String
End

View File

@ -145,7 +145,7 @@ static void cb_clear_text(GtkClipboard *clipboard, gpointer text)
static void cb_get_text(GtkClipboard *clipboard, GtkSelectionData *selection, guint info, gpointer text)
{
gtk_selection_data_set_text(selection, (const char *)text, -1);
gtk_selection_data_set(selection, selection->target, 8, (guchar *)text, strlen((char *)text));
}
int gClipboard::getType()