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

View file

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

View file

@ -279,6 +279,11 @@
Picture = Picture["icon:/16/terminal"] Picture = Picture["icon:/16/terminal"]
Shortcut = "Ctrl+Alt+T" Shortcut = "Ctrl+Alt+T"
} }
{ mnuSendMail Menu
Action = "send-mail"
Text = ("Send project by &mail...")
Picture = Picture["icon:/small/mail"]
}
{ Menu20 Menu { Menu20 Menu
} }
{ mnuShortcut Menu { mnuShortcut Menu
@ -785,6 +790,13 @@
Action = "open-terminal" Action = "open-terminal"
Picture = Picture["icon:/small/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 { btnMnuFile MenuButton
MoveScaled(143,0,8,4) MoveScaled(143,0,8,4)
Visible = False Visible = False
@ -1295,6 +1307,11 @@
Shortcut = "Ctrl+Shift+Alt+S" Shortcut = "Ctrl+Shift+Alt+S"
Picture = "icon:/small/save-as" Picture = "icon:/small/save-as"
} }
{ Action send-mail
Text = "Send project by &mail..."
Shortcut = ""
Picture = "icon:/small/mail"
}
{ Action shortcut { Action shortcut
Text = "&Shortcuts..." Text = "&Shortcuts..."
Shortcut = "" Shortcut = ""
@ -1348,7 +1365,7 @@
{ Toolbars { Toolbars
{ Toolbar main { Toolbar main
Text = "" 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" 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 End
Private Sub GetDefaultSourceArchiveBaseName() As String
Return Name & "-" & Subst("&1.&2", MajorVersion, MinorVersion) & IIf(ReleaseVersion > 0, "." & ReleaseVersion, "")
End
Public Sub MakePackage() Public Sub MakePackage()
Dim sDir As String = SourcePath Dim sDir As String = SourcePath
If Not sDir Then sDir = System.User.Home 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.Title = ("Create source package")
Dialog.Filter = ["*.tar.gz", ("Source packages"), "*.tar.bz2", ("Source packages"), "*.tar.xz", ("Source packages")] Dialog.Filter = ["*.tar.gz", ("Source packages"), "*.tar.bz2", ("Source packages"), "*.tar.xz", ("Source packages")]
Dialog.AutoExt = True Dialog.AutoExt = True
@ -5391,3 +5398,13 @@ Private Function Sources_Read() As Collection
Return $cSourceDir Return $cSourceDir
End 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 hIn = Open sForm
hOut = Open Temp$(sExt) For Create hOut = Open Temp$(sExt) For Create
'TODO: Import Image.Load(*) and SvgImage.Load(*) ' TODO: Import Image.Load(*) and SvgImage.Load(*)
While Not Eof(hIn) While Not Eof(hIn)