Browse Source

Ted2 kills app being debugged before building.

Mark Sibly 8 years ago
parent
commit
925a1cdf2b
2 changed files with 9 additions and 6 deletions
  1. 4 6
      src/ted2/buildactions.monkey2
  2. 5 0
      src/ted2/debugview.monkey2

+ 4 - 6
src/ted2/buildactions.monkey2

@@ -429,6 +429,10 @@ Class BuildActions
 	End
 	
 	Method BuildApp:Bool( config:String,target:String,action:String )
+
+		If _console.Running Return False
+
+		_debugView.KillApp()
 	
 		Local buildDoc:=BuildDoc()
 		If Not buildDoc Return False
@@ -472,22 +476,16 @@ Class BuildActions
 	
 	Method OnBuildAndRun()
 
-		If _console.Running Return
-	
 		BuildApp( _buildConfig,_buildTarget,"run" )
 	End
 	
 	Method OnBuild()
 	
-		If _console.Running Return
-	
 		BuildApp( _buildConfig,_buildTarget,"build" )
 	End
 	
 	Method OnSemant()
 	
-		If _console.Running Return
-	
 		BuildApp( _buildConfig,_buildTarget,"semant" )
 	End
 	

+ 5 - 0
src/ted2/debugview.monkey2

@@ -176,6 +176,11 @@ Class DebugView Extends DockingView
 		
 		MainWindow.UpdateKeyView()
 	End
+	
+	Method KillApp()
+		
+		_kill.Trigger()
+	End
 
 	Private