[DEVELOPMENT ENVIRONMENT]

* NEW: New tool menu entry that sends a source archive of the projet by 
  e-mail. It is based on the Desktop.SendMail() method.


git-svn-id: svn://localhost/gambas/trunk@5001 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-07-30 20:05:38 +00:00
parent 827a44ac8f
commit 7ed09707c0
8 changed files with 5007 additions and 5105 deletions

View file

@ -366,7 +366,7 @@ msgstr ""
msgid "Event loop"
msgstr ""
#: CProjectTree.class:290 FMain.form:992 FSearch.class:98 FSelectIcon.form:31
#: CProjectTree.class:290 FMain.form:1000 FSearch.class:98 FSelectIcon.form:31
#: Project.module:1625
msgid "Project"
msgstr ""
@ -459,7 +459,7 @@ msgstr ""
#: Design.module:414 FColorChooser.form:54 FCommit.form:223
#: FConnectionEditor.class:452 FCreateFile.form:443 FFieldChooser.form:132
#: FFontChooser.form:34 FGotoLine.form:17 FInfo.form:172 FList.form:115
#: FMain.class:1757 FMakeInstall.class:302 FMenu.form:372
#: FMain.class:1759 FMakeInstall.class:302 FMenu.form:372
#: FNewConnection.form:249 FNewTable.form:80 FNewTranslation.form:15
#: FOpenProject.form:171 FPasteSpecial.form:71 FPropertyComponent.form:215
#: FPropertyProject.form:713 FProxy.form:63 FReportBorderChooser.form:54
@ -666,7 +666,7 @@ msgid ""
"You must resolve the conflict in order to use the file."
msgstr ""
#: FConflict.class:25 FMain.form:661
#: FConflict.class:25 FMain.form:669
msgid "&Edit"
msgstr ""
@ -766,7 +766,7 @@ msgstr ""
msgid "Fields"
msgstr ""
#: FConnectionEditor.form:231 FMain.class:1859
#: FConnectionEditor.form:231 FMain.class:1861
msgid "Add"
msgstr ""
@ -959,7 +959,7 @@ msgstr ""
msgid "New file"
msgstr ""
#: FCreateFile.form:79 FMain.form:565
#: FCreateFile.form:79 FMain.form:573
msgid "New"
msgstr ""
@ -1044,7 +1044,7 @@ msgstr ""
msgid "Cannot add file."
msgstr ""
#: FCreateProject.form:66 FMain.form:886
#: FCreateProject.form:66 FMain.form:894
msgid "New project"
msgstr ""
@ -1198,11 +1198,11 @@ msgstr ""
msgid "Symbol"
msgstr ""
#: FDebugInfo.form:44 FMain.form:1327
#: FDebugInfo.form:44 FMain.form:1343
msgid "Debug"
msgstr ""
#: FDebugInfo.form:58 FMain.form:1020 FOption.form:259 FSearch.class:94
#: FDebugInfo.form:58 FMain.form:1028 FOption.form:259 FSearch.class:94
msgid "Console"
msgstr ""
@ -1231,7 +1231,7 @@ msgstr ""
msgid "Remove current expression"
msgstr ""
#: FDebugInfo.form:126 FMain.form:776 FMakeInstall.form:575 FOption.form:721
#: FDebugInfo.form:126 FMain.form:784 FMakeInstall.form:575 FOption.form:721
#: FPropertyComponent.form:190 FPropertyProject.form:463
msgid "&Remove"
msgstr ""
@ -1350,7 +1350,7 @@ msgstr ""
msgid "Open form"
msgstr ""
#: FEditor.form:117 FForm.form:144 FMain.form:728
#: FEditor.form:117 FForm.form:144 FMain.form:736
msgid "&Startup class"
msgstr ""
@ -1739,7 +1739,7 @@ msgid ""
"All your changes will be lost."
msgstr ""
#: FFormStack.form:15 FMain.form:1359
#: FFormStack.form:15 FMain.form:1375
msgid "Hierarchy"
msgstr ""
@ -1767,15 +1767,15 @@ msgstr ""
msgid "Go to line"
msgstr ""
#: FHelpBrowser.form:30 FMain.form:1038
#: FHelpBrowser.form:30 FMain.form:1046
msgid "Help browser"
msgstr ""
#: FHelpBrowser.form:41 FMain.form:492 FProfile.form:48
#: FHelpBrowser.form:41 FMain.form:494 FProfile.form:48
msgid "Go back"
msgstr ""
#: FHelpBrowser.form:47 FMain.form:499 FProfile.form:54
#: FHelpBrowser.form:47 FMain.form:501 FProfile.form:54
msgid "Go forward"
msgstr ""
@ -2117,11 +2117,11 @@ msgstr ""
msgid "Cl&ear"
msgstr ""
#: FList.form:92 FMain.form:688 FSystemInfo.form:75
#: FList.form:92 FMain.form:696 FSystemInfo.form:75
msgid "&Copy"
msgstr ""
#: FList.form:98 FMain.form:695
#: FList.form:98 FMain.form:703
msgid "&Paste"
msgstr ""
@ -2133,407 +2133,415 @@ msgstr ""
msgid "Do you really want to clear the list?"
msgstr ""
#: FMain.form:209
#: FMain.form:211
msgid "&File"
msgstr ""
#: FMain.form:213
#: FMain.form:215
msgid "&New project..."
msgstr ""
#: FMain.form:220
#: FMain.form:222
msgid "&Open project..."
msgstr ""
#: FMain.form:226
#: FMain.form:228
msgid "Open &recent"
msgstr ""
#: FMain.form:233
#: FMain.form:235
msgid "Open &example"
msgstr ""
#: FMain.form:244
#: FMain.form:246
msgid "&Save project"
msgstr ""
#: FMain.form:251
#: FMain.form:253
msgid "Save project &as..."
msgstr ""
#: FMain.form:261
#: FMain.form:263
msgid "&Quit"
msgstr ""
#: FMain.form:268
#: FMain.form:270
msgid "&Project"
msgstr ""
#: FMain.form:272
#: FMain.form:274
msgid "&Compile"
msgstr ""
#: FMain.form:279
#: FMain.form:281
msgid "Compile &All"
msgstr ""
#: FMain.form:289
#: FMain.form:291
msgid "&Translate..."
msgstr ""
#: FMain.form:298
#: FMain.form:300
msgid "Make"
msgstr ""
#: FMain.form:302
#: FMain.form:304
msgid "E&xecutable..."
msgstr ""
#: FMain.form:309
#: FMain.form:311
msgid "&Source archive..."
msgstr ""
#: FMain.form:316
#: FMain.form:318
msgid "&Installation package..."
msgstr ""
#: FMain.form:327
#: FMain.form:329
msgid "&Clean up"
msgstr ""
#: FMain.form:333
#: FMain.form:335
msgid "&Refresh"
msgstr ""
#: FMain.form:339
#: FMain.form:341
msgid "Put on &version control"
msgstr ""
#: FMain.form:349
#: FMain.form:351
msgid "&Properties..."
msgstr ""
#: FMain.form:363
#: FMain.form:365
msgid "&Debug"
msgstr ""
#: FMain.form:367
#: FMain.form:369
msgid "&Run"
msgstr ""
#: FMain.form:374
#: FMain.form:376
msgid "Use &terminal emulator"
msgstr ""
#: FMain.form:380
#: FMain.form:382
msgid "Activate profilin&g"
msgstr ""
#: FMain.form:389
#: FMain.form:391
msgid "&Pause"
msgstr ""
#: FMain.form:396
#: FMain.form:398
msgid "&Stop"
msgstr ""
#: FMain.form:403
#: FMain.form:405
msgid "St&ep"
msgstr ""
#: FMain.form:410
#: FMain.form:412
msgid "&Forward"
msgstr ""
#: FMain.form:417
#: FMain.form:419
msgid "Finis&h"
msgstr ""
#: FMain.form:427
#: FMain.form:429
msgid "&Open profile..."
msgstr ""
#: FMain.form:433
#: FMain.form:435
msgid "Clear &all breakpoints"
msgstr ""
#: FMain.form:438
#: FMain.form:440
msgid "Close all &debug windows"
msgstr ""
#: FMain.form:443
#: FMain.form:445
msgid "&View"
msgstr ""
#: FMain.form:447
#: FMain.form:449
msgid "Pro&ject"
msgstr ""
#: FMain.form:456
#: FMain.form:458
msgid "&Properties"
msgstr ""
#: FMain.form:465
#: FMain.form:467
msgid "&Console"
msgstr ""
#: FMain.form:475
#: FMain.form:477
msgid "Status bar"
msgstr ""
#: FMain.form:483
#: FMain.form:485
msgid "Hide menubar"
msgstr ""
#: FMain.form:506
#: FMain.form:508
msgid "Close &all windows"
msgstr ""
#: FMain.form:512
#: FMain.form:514
msgid "&Tools"
msgstr ""
#: FMain.form:515
#: FMain.form:517
msgid "&Find..."
msgstr ""
#: FMain.form:521
#: FMain.form:523
msgid "&Replace..."
msgstr ""
#: FMain.form:531
#: FMain.form:533
msgid "&Browse project..."
msgstr ""
#: FMain.form:538
#: FMain.form:540
msgid "&Open a terminal..."
msgstr ""
#: FMain.form:548
#: FMain.form:547
msgid "Send project by &mail..."
msgstr ""
#: FMain.form:556
msgid "&Shortcuts..."
msgstr ""
#: FMain.form:554
#: FMain.form:562
msgid "&Preferences..."
msgstr ""
#: FMain.form:569
#: FMain.form:577
msgid "&Directory"
msgstr ""
#: FMain.form:575
#: FMain.form:583
msgid "&Project link..."
msgstr ""
#: FMain.form:586
#: FMain.form:594
msgid "&Module..."
msgstr ""
#: FMain.form:594
#: FMain.form:602
msgid "&Class..."
msgstr ""
#: FMain.form:602
#: FMain.form:610
msgid "&Form..."
msgstr ""
#: FMain.form:610
#: FMain.form:618
msgid "&WebPage..."
msgstr ""
#: FMain.form:618
#: FMain.form:626
msgid "&Report..."
msgstr ""
#: FMain.form:629
#: FMain.form:637
msgid "&Image..."
msgstr ""
#: FMain.form:636
#: FMain.form:644
msgid "&HTML file..."
msgstr ""
#: FMain.form:643
#: FMain.form:651
msgid "&Style sheet..."
msgstr ""
#: FMain.form:651
#: FMain.form:659
msgid "&Other..."
msgstr ""
#: FMain.form:666
#: FMain.form:674
msgid "Edit &code"
msgstr ""
#: FMain.form:670
#: FMain.form:678
msgid "Edit with"
msgstr ""
#: FMain.form:681
#: FMain.form:689
msgid "&Cut"
msgstr ""
#: FMain.form:702
#: FMain.form:710
msgid "&Rename..."
msgstr ""
#: FMain.form:709
#: FMain.form:717
msgid "&Delete..."
msgstr ""
#: FMain.form:719
#: FMain.form:727
msgid "Copy file pat&h"
msgstr ""
#: FMain.form:737
#: FMain.form:745
msgid "&Add to repository"
msgstr ""
#: FMain.form:762
#: FMain.form:770
msgid "&New connection..."
msgstr ""
#: FMain.form:770
#: FMain.form:778
msgid "&Open"
msgstr ""
#: FMain.form:830
#: FMain.form:838
msgid "&?"
msgstr ""
#: FMain.form:839
#: FMain.form:847
msgid "&Help browser"
msgstr ""
#: FMain.form:847
#: FMain.form:855
msgid "&Tips of the day"
msgstr ""
#: FMain.form:855
#: FMain.form:863
msgid "&System informations..."
msgstr ""
#: FMain.form:861
#: FMain.form:869
msgid "&About Gambas..."
msgstr ""
#: FMain.form:893
#: FMain.form:901
msgid "Open project"
msgstr ""
#: FMain.form:902
#: FMain.form:910
msgid "Save project"
msgstr ""
#: FMain.form:909 FSaveProjectAs.form:18
#: FMain.form:917 FSaveProjectAs.form:18
msgid "Save project as"
msgstr ""
#: FMain.form:916 FPropertyProject.form:110
#: FMain.form:924 FPropertyProject.form:110
msgid "Project properties"
msgstr ""
#: FMain.form:930
#: FMain.form:938
msgid "Refresh project"
msgstr ""
#: FMain.form:937 FOption.form:183
#: FMain.form:945 FOption.form:183
msgid "Preferences"
msgstr ""
#: FMain.form:946
#: FMain.form:954
msgid "Shortcuts"
msgstr ""
#: FMain.form:957
#: FMain.form:965
msgid "Translate"
msgstr ""
#: FMain.form:965
#: FMain.form:973
msgid "Make source archive"
msgstr ""
#: FMain.form:972 FMakeExecutable.form:15
#: FMain.form:980 FMakeExecutable.form:15
msgid "Make executable"
msgstr ""
#: FMain.form:980 FMakeInstall.form:103
#: FMain.form:988 FMakeInstall.form:103
msgid "Make installation package"
msgstr ""
#: FMain.form:1002
#: FMain.form:1010
msgid "Properties sheet"
msgstr ""
#: FMain.form:1011
#: FMain.form:1019
msgid "Toolbox"
msgstr ""
#: FMain.form:1029 FSearch.form:62
#: FMain.form:1037 FSearch.form:62
msgid "Search"
msgstr ""
#: FMain.form:1046
#: FMain.form:1054
msgid "Compile"
msgstr ""
#: FMain.form:1053
#: FMain.form:1061
msgid "Compile all"
msgstr ""
#: FMain.form:1060
#: FMain.form:1068
msgid "Run"
msgstr ""
#: FMain.form:1067
#: FMain.form:1075
msgid "Pause"
msgstr ""
#: FMain.form:1074
#: FMain.form:1082
msgid "Stop"
msgstr ""
#: FMain.form:1081
#: FMain.form:1089
msgid "Step"
msgstr ""
#: FMain.form:1088
#: FMain.form:1096
msgid "Forward"
msgstr ""
#: FMain.form:1095
#: FMain.form:1103
msgid "Finish current function"
msgstr ""
#: FMain.form:1103
#: FMain.form:1111
msgid "Run until current line"
msgstr ""
#: FMain.form:1114
#: FMain.form:1122
msgid "Browse project..."
msgstr ""
#: FMain.form:1138
#: FMain.form:1146
msgid "Browse project"
msgstr ""
#: FMain.form:1146
#: FMain.form:1154
msgid "Open a terminal"
msgstr ""
#: FMain.form:1257
#: FMain.form:1162
msgid "Send project by mail"
msgstr ""
#: FMain.form:1273
msgid "Reset filter"
msgstr ""
#: FMain.form:1263
#: FMain.form:1279
msgid "Show exported classes"
msgstr ""
#: FMain.form:1269
#: FMain.form:1285
msgid "Show added files"
msgstr ""
#: FMain.form:1338 FProperty.form:23 MHelp.module:574
#: FMain.form:1354 FProperty.form:23 MHelp.module:574
msgid "Properties"
msgstr ""
@ -2596,32 +2604,32 @@ msgstr ""
msgid "Component properties"
msgstr ""
#: FMain.class:1437
#: FMain.class:1439
msgid "Unable to drop file into the project."
msgstr ""
#: FMain.class:1557
#: FMain.class:1559
msgid ""
"All backup or generated files will be removed from the project directory."
msgstr ""
#: FMain.class:1557
#: FMain.class:1559
msgid "Clean"
msgstr ""
#: FMain.class:1757
#: FMain.class:1759
msgid "To show the menu bar again, hit the following keys:<p><b>&1</b>"
msgstr ""
#: FMain.class:1859
#: FMain.class:1861
msgid "Do you really want to add this file to the repository?"
msgstr ""
#: FMain.class:1983
#: FMain.class:1985
msgid "Choose a profile"
msgstr ""
#: FMain.class:1984
#: FMain.class:1986
msgid "Profile for &1 project"
msgstr ""
@ -2924,7 +2932,7 @@ msgstr ""
msgid "This menu is too deep !"
msgstr ""
#: FMenu.class:947 Project.module:5134
#: FMenu.class:947 Project.module:5141
msgid "modified"
msgstr ""
@ -5813,39 +5821,39 @@ msgid ""
"already exists."
msgstr ""
#: Project.module:4211
#: Project.module:4218
msgid "Create source package"
msgstr ""
#: Project.module:4212
#: Project.module:4219
msgid "Source packages"
msgstr ""
#: Project.module:4503
#: Project.module:4510
msgid "Cannot copy file &1."
msgstr ""
#: Project.module:4552
#: Project.module:4559
msgid "Cannot create link &1."
msgstr ""
#: Project.module:4569
#: Project.module:4576
msgid "Cannot move a directory inside itself."
msgstr ""
#: Project.module:4637
#: Project.module:4644
msgid "Cannot move file &1."
msgstr ""
#: Project.module:5287
#: Project.module:5294
msgid "Project cleanup..."
msgstr ""
#: Project.module:5293
#: Project.module:5300
msgid "Project files conversion..."
msgstr ""
#: Project.module:5323
#: Project.module:5330
msgid "Unable to convert &1"
msgstr ""

Binary file not shown.

File diff suppressed because it is too large Load diff

View file

@ -22,7 +22,6 @@ Component=gb.qt4.ext
Component=gb.qt4.webkit
Description="Integrated Development Environment for Gambas"
Authors="Benoît Minisini\nFabien Bodard\nCharlie Reinl\nJosé Luis Redrejo\nRobert Rowe"
Environment="GB_STOCK=debug"
TabSize=2
Translate=1
Language=en

View file

@ -1229,6 +1229,8 @@ Public Sub Action_Activate(Key As String) As Boolean
Project.Compile(True)
Case "archive"
Project.MakePackage
Case "send-mail"
Project.SendMail
Case "exec"
Project.MakeExecutable
Case "install"
@ -1739,11 +1741,11 @@ End
Public Sub mnuTerminal_Click()
If Desktop.Type = "KDE4" Then
Exec ["konsole", "--workdir", Project.Dir, "--notransparency"]
Else
Desktop.OpenTerminal(Project.Dir)
Endif
' If Desktop.Type = "KDE4" Then
' Exec ["konsole", "--workdir", Project.Dir, "--notransparency"]
' Else
Desktop.OpenTerminal(Project.Dir)
'Endif
End

View file

@ -279,6 +279,11 @@
Picture = Picture["icon:/16/terminal"]
Shortcut = "Ctrl+Alt+T"
}
{ mnuSendMail Menu
Action = "send-mail"
Text = ("Send project by &mail...")
Picture = Picture["icon:/small/mail"]
}
{ Menu20 Menu
}
{ mnuShortcut Menu
@ -785,6 +790,13 @@
Action = "open-terminal"
Picture = Picture["icon:/small/terminal"]
}
{ ToolButton13 ToolButton
MoveScaled(140,0,4,4)
Visible = False
ToolTip = ("Send project by mail")
Action = "send-mail"
Picture = Picture["icon:/small/mail"]
}
{ btnMnuFile MenuButton
MoveScaled(143,0,8,4)
Visible = False
@ -1295,6 +1307,11 @@
Shortcut = "Ctrl+Shift+Alt+S"
Picture = "icon:/small/save-as"
}
{ Action send-mail
Text = "Send project by &mail..."
Shortcut = ""
Picture = "icon:/small/mail"
}
{ Action shortcut
Text = "&Shortcuts..."
Shortcut = ""
@ -1348,7 +1365,7 @@
{ Toolbars
{ Toolbar main
Text = ""
List = "new-project,open-project,save-project,save-project-as,project-property,component-property,refresh-project,option,shortcut,translate,archive,exec,install,project,property,control,console,find,help,compile,compile-all,start,pause,stop,step,forward,return,until,find-project,go-back,go-forward,browse-project,open-terminal,menu-file,menu-project,menu-debug,menu-view,menu-tool,menu-help"
List = "new-project,open-project,save-project,save-project-as,project-property,component-property,refresh-project,option,shortcut,translate,archive,exec,install,project,property,control,console,find,help,compile,compile-all,start,pause,stop,step,forward,return,until,find-project,go-back,go-forward,browse-project,open-terminal,send-mail,menu-file,menu-project,menu-debug,menu-view,menu-tool,menu-help"
Default = "new-project,open-project,save-project,save-project-as,project-property,component-property,option,|,translate,exec,|,compile,compile-all,start,pause,stop,step,forward,return,until,-,find-project,go-back,go-forward"
}
}

View file

@ -4201,13 +4201,20 @@ Public Sub MakeSourcePackageTo(sPath As String)
End
Private Sub GetDefaultSourceArchiveBaseName() As String
Return Name & "-" & Subst("&1.&2", MajorVersion, MinorVersion) & IIf(ReleaseVersion > 0, "." & ReleaseVersion, "")
End
Public Sub MakePackage()
Dim sDir As String = SourcePath
If Not sDir Then sDir = System.User.Home
Dialog.Path = sDir &/ Name & "-" & Subst("&1.&2", MajorVersion, MinorVersion) & IIf(ReleaseVersion > 0, "." & ReleaseVersion, "") & ".tar.gz"
Dialog.Path = sDir &/ GetDefaultSourceArchiveBaseName() & ".tar.gz"
Dialog.Title = ("Create source package")
Dialog.Filter = ["*.tar.gz", ("Source packages"), "*.tar.bz2", ("Source packages"), "*.tar.xz", ("Source packages")]
Dialog.AutoExt = True
@ -5391,3 +5398,13 @@ Private Function Sources_Read() As Collection
Return $cSourceDir
End
Public Sub SendMail()
Dim sTemp As String = Temp$()
sTemp = File.SetBaseName(Temp, GetDefaultSourceArchiveBaseName()) & ".tar.gz"
Try Kill sTemp
MakeSourcePackageTo(sTemp)
Desktop.SendMail(Null,,, If(Project.Title, Project.Title, Project.Name),, sTemp)
End

View file

@ -347,7 +347,7 @@ Private Sub ImportDependencies(sName As String, sExt As String, sOrig As String,
hIn = Open sForm
hOut = Open Temp$(sExt) For Create
'TODO: Import Image.Load(*) and SvgImage.Load(*)
' TODO: Import Image.Load(*) and SvgImage.Load(*)
While Not Eof(hIn)