added feature to disable mouse emulation

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7910 8c9fc860-2736-0410-a75d-ab315db34111

source/Unix.KbdMouse.Mod

@@ -252,6 +252,12 @@ VAR
 	BEGIN
 		RETURN X11.StringToKeysym( ADDRESSOF( str ) )
 	END Keysym;
+	
+	PROCEDURE DisableMouseEmulation*;
+	BEGIN
+		MMseen := TRUE; MRseen := TRUE;
+	END DisableMouseEmulation;
+	
 
 	PROCEDURE Init*;
 	VAR FK: ARRAY 8 OF CHAR;