luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Disable 'Run with' menu when the debugger is running.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Disable 'Run with' menu when the debugger is running.
* NEW: Change the 'Run' menu into 'Continue' when the debugger is running.
This commit is contained in:
gambas 2020-07-18 12:56:41 +02:00
parent 17ab56cfde
commit b6f17aca00
2 changed files with 22 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
app/src/gambas3/.src/FMain.class
View file

@ -1215,6 +1215,7 @@ Public Sub UpdateMenu()
Dim bVisible As Boolean
Dim bEnabled As Boolean
Dim sAction As String
Dim sText As String
bVisible = Not Project.ReadOnly
bEnabled = Not Project.Running
@ -1226,6 +1227,12 @@ Public Sub UpdateMenu()
Action[sAction].Enabled = bEnabled
Next
Action["run-with"].Enabled = bEnabled
sText = If(Project.Running, ("Continue"), ("Run"))
mnuRun.Text = sText
Action["start"].Tooltip = sText
UpdateProperty
Action["version-control"].Visible = VersionControl.Enabled

30
app/src/gambas3/.src/FMain.form
View file

@ -248,7 +248,7 @@
Visible = False
{ mnuRun Menu
Action = "start"
Text = Shortcut(("Run"), "R")
Text = ("Run")
Picture = Picture["icon:/small/play"]
Shortcut = "F5"
}
@ -1325,13 +1325,6 @@
MoveScaled(86,8,0,9)
Visible = False
}
{ btnWorkspaceProject ToolButton
MoveScaled(22,1,4,4)
Visible = False
ToolTip = ("Show project tree")
Ignore = True
Picture = Picture["icon:/small/view-tree"]
}
{ btnWorkspaceProperty ToolButton
MoveScaled(27,1,4,4)
Visible = False
@ -1339,6 +1332,13 @@
Ignore = True
Picture = Picture["icon:/small/properties"]
}
{ btnWorkspaceProject ToolButton
MoveScaled(22,1,4,4)
Visible = False
ToolTip = ("Show project tree")
Ignore = True
Picture = Picture["icon:/small/view-tree"]
}
}
{ panDebug SidePanel
MoveScaled(3,37,81,14)
@ -1393,13 +1393,6 @@
Text = ("Hierarchy")
Index = 0
}
{ btnPropertyToolbar ToolButton
MoveScaled(0,0,4,4)
Visible = False
ToolTip = ("Show controls")
Ignore = True
Picture = Picture["img/16/control.png"]
}
{ btnPropertyHelp ToolButton
MoveScaled(4,0,4,4)
Visible = False
@ -1407,6 +1400,13 @@
Ignore = True
Picture = Picture["icon:/small/help"]
}
{ btnPropertyToolbar ToolButton
MoveScaled(0,0,4,4)
Visible = False
ToolTip = ("Show controls")
Ignore = True
Picture = Picture["img/16/control.png"]
}
}
{ panTool SidePanel
MoveScaled(5,49,21,37)