Browse Source

Added 'check app' to Ted2; dealt with requesters now in std.

Mark Sibly 9 years ago
parent
commit
91bae8e335

+ 1 - 1
src/ted2/assets/about.html

@@ -49,7 +49,7 @@ a:hover{
 
 <body>
 
-<h1>Monkey2 v1.0.5</h1>
+<h1>Monkey2 v1.0.8</h1>
 
 <p>Welcome to monkey2, a new, open source, user friendly, multi target programming language by Mark Sibly.
 

+ 17 - 4
src/ted2/buildactions.monkey2

@@ -26,6 +26,7 @@ Class BuildActions
 
 	Field buildAndRun:Action
 	Field build:Action
+	Field semant:Action
 	Field buildSettings:Action
 	Field nextError:Action
 	Field lockBuildFile:Action
@@ -55,6 +56,10 @@ Class BuildActions
 		build.Triggered=OnBuild
 		build.HotKey=Key.F6
 		
+		semant=New Action( "Check app" )
+		semant.Triggered=OnSemant
+		semant.HotKey=Key.F7
+		
 		buildSettings=New Action( "Target settings" )
 		buildSettings.Triggered=OnBuildFileSettings
 		
@@ -424,7 +429,7 @@ Class BuildActions
 		Return BuildMx2( MainWindow.Mx2ccPath+" makedocs","Rebuilding documentation..." )
 	End
 	
-	Method BuildApp:Bool( config:String,target:String,run:bool )
+	Method BuildApp:Bool( config:String,target:String,action:String )
 	
 		Local buildDoc:=BuildDoc()
 		If Not buildDoc Return False
@@ -439,8 +444,11 @@ Class BuildActions
 			appType="console"
 			target="desktop"
 		End
+		
+		Local run:=(action="run")
+		If run action="build"
 
-		Local cmd:=MainWindow.Mx2ccPath+" makeapp -build "+opts
+		Local cmd:=MainWindow.Mx2ccPath+" makeapp -"+action+" "+opts
 		cmd+=" -apptype="+appType+" "
 		cmd+=" -config="+config
 		cmd+=" -target="+target
@@ -472,12 +480,17 @@ Class BuildActions
 	
 	Method OnBuildAndRun()
 
-		BuildApp( _buildConfig,_buildTarget,True )
+		BuildApp( _buildConfig,_buildTarget,"run" )
 	End
 	
 	Method OnBuild()
 	
-		BuildApp( _buildConfig,_buildTarget,False )
+		BuildApp( _buildConfig,_buildTarget,"build" )
+	End
+	
+	Method OnSemant()
+	
+		BuildApp( _buildConfig,_buildTarget,"semant" )
 	End
 	
 	Method OnNextError()

+ 1 - 0
src/ted2/mainwindow.monkey2

@@ -172,6 +172,7 @@ Class MainWindowInstance Extends Window
 		_buildMenu=New Menu( "Build" )
 		_buildMenu.AddAction( _buildActions.buildAndRun )
 		_buildMenu.AddAction( _buildActions.build )
+		_buildMenu.AddAction( _buildActions.semant )
 		_buildMenu.AddSubMenu( _buildActions.targetMenu )
 		_buildMenu.AddSeparator()
 		_buildMenu.AddAction( _buildActions.nextError )

+ 1 - 1
src/ted2/projectview.monkey2

@@ -119,7 +119,7 @@ Class ProjectView Extends ScrollView
 			
 				menu.AddAction( "Open On Desktop" ).Triggered=Lambda()
 				
-					mojo.requesters.OpenUrl( path )
+					requesters.OpenUrl( path )
 				End
 				
 				menu.AddSeparator()