Removed SYS() function from XSharp.VFP.UI (#1739)

Co-authored-by: Fabrice Foray <[email protected]>

Author: RobertvanderHulst

src/Runtime/XSharp.VFP.UI/VFPFunctions.prg

@@ -58,33 +58,6 @@ FUNCTION WEXIST( windowName AS STRING ) AS LOGIC
 	VAR hwnd := FindWindow(null, (STRING)windowName)
 	RETURN ( hwnd != NULL )
 
-FUNCTION Sys(nSetting, uNewValue) As USUAL CLIPPER
-	LOCAL retVal AS OBJECT
-	retVal := FALSE
-	//
-    SWITCH nSetting
-    CASE 0
-        retVal := __GetEnv("LOGONSERVER") + "#" + __GetEnv("USERNAME")
-	CASE 5 // Default drive or volume.
-        retVal := GetDefaultDir()
-	CASE 16
-        var asm := AppDomain.CurrentDomain.BaseDirectory    //System.Reflection.Assembly.GetExecutingAssembly()
-// 		var path := asm:Location
-		retVal := asm
-	CASE 987
-		RETURN FALSE
-	CASE 2003
-		retVal := Environment.CurrentDirectory
-    case 2023
-        retVal := __GetEnv("TEMP")
-	END SWITCH
-	RETURN retVal
-
-INTERNAL FUNCTION __GetEnv(cVariableName as STRING) AS STRING
-    LOCAL cRetVal AS STRING
-    cRetVal := Environment.GetEnvironmentVariable(cVariableName)
-    RETURN cRetVal
-
 // FUNCTION MessageBox(eMessageText As USUAL, cTitleBarText := "" As STRING, nTimeOut := 0 As INT) As INT
 //     RETURN MessageBox(eMessageText, 0, cTitleBarText, nTimeOut)
 

src/Runtime/XSharp.VFP/NotSupported.prg

@@ -309,9 +309,10 @@ RETURN NIL
 FUNCTION WDOCKABLE( )
 RETURN NIL
 
-[Obsolete( "This function will not be supported" )];
-FUNCTION WEXIST( )
-RETURN NIL
+// Implemented in XSharp.VFP.UI
+// [Obsolete( "This function will not be supported" )];
+// FUNCTION WEXIST( )
+// RETURN NIL
 
 [Obsolete( "This function will not be supported" )];
 FUNCTION WFONT( )
@@ -361,9 +362,10 @@ RETURN NIL
 FUNCTION WTITLE( )
 RETURN NIL
 
-[Obsolete( "This function will not be supported" )];
-FUNCTION WVISIBLE( )
-RETURN NIL
+// Implemented in XSharp.VFP.UI
+// [Obsolete( "This function will not be supported" )];
+// FUNCTION WVISIBLE( )
+// RETURN NIL
 
 
 /*