Farm client: Compile the project before publishing it, so that the project version is accurate in the case it is read from a VERSION file.
[DEVELOPMENT ENVIRONMENT] * BUG: Farm client: Compile the project before publishing it, so that the project version is accurate in the case it is read from a VERSION file. * BUG: Property sheet button icon is now different from project properties button icon.
This commit is contained in:
parent
7239cbe35e
commit
a9f852d5c5
3 changed files with 4 additions and 3 deletions
|
@ -1091,7 +1091,6 @@ End
|
|||
Public Sub RemoveAllBreakpoints()
|
||||
|
||||
Dim aBreakPoint As String[]
|
||||
Dim I As Integer
|
||||
|
||||
aBreakpoint = Design.GetBreakpoints()
|
||||
While aBreakpoint.Count
|
||||
|
|
|
@ -920,7 +920,7 @@
|
|||
Visible = False
|
||||
ToolTip = ("Properties sheet")
|
||||
Action = "property"
|
||||
Picture = Picture["icon:/small/edit"]
|
||||
Picture = Picture["icon:/small/properties"]
|
||||
Toggle = True
|
||||
}
|
||||
{ ToolButton10 ToolButton
|
||||
|
@ -1586,7 +1586,7 @@
|
|||
{ Action property
|
||||
Text = "Properties"
|
||||
Shortcut = "F4"
|
||||
Picture = "icon:/small/edit"
|
||||
Picture = "icon:/small/properties"
|
||||
}
|
||||
{ Action publish
|
||||
Text = "Publish"
|
||||
|
|
|
@ -235,6 +235,8 @@ Public Sub PublishSoftware(sVendor As String, sScreenshot As String, sGambasVers
|
|||
Dim sLang As String
|
||||
Dim sSave As String
|
||||
|
||||
If Project.Compile(True) Then Return
|
||||
|
||||
$sTitle = ("Publish project")
|
||||
$iProgress = PROGRESS_UPLOAD
|
||||
|
||||
|
|
Loading…
Reference in a new issue