Improved hotdocking of joysticks; added JoystickDevice.JoystickAdded and JoystickDevice.JoystickRemoved signals.

modules/mojo/app/app.monkey2

@@ -737,6 +737,8 @@ Class AppInstance
 	Method DispatchEvent( event:SDL_Event Ptr )
 	
 		SdlEventFilter( event )
+		
+		JoystickDevice.SendEvent( event )
 	
 		Keyboard.SendEvent( event )
 		

modules/mojo/input/joystick.monkey2

@@ -31,6 +31,10 @@ End
 #rem monkeydoc The JoystickDevice class.
 #end
 Class JoystickDevice
+	
+	Global JoystickAdded:Void( index:Int )
+	
+	Global JoystickRemoved:Void( index:Int )
 
 	#rem monkeydoc @hidden
 	#end	
@@ -136,6 +140,40 @@ Class JoystickDevice
 		Return joystick
 	End
 	
+	Internal
+	
+	Function SendEvent( event:SDL_Event Ptr )
+	
+		Select event->type
+		Case SDL_JOYDEVICEADDED
+			
+			Local jevent:=Cast<SDL_JoyDeviceEvent Ptr>( event )
+			
+			JoystickAdded( jevent->which )
+			
+		Case SDL_JOYDEVICEREMOVED
+			
+			Local jevent:=Cast<SDL_JoyDeviceEvent Ptr>( event )
+			
+			For Local i:=0 Until 8
+				
+				Local joystick:=_joysticks[i]
+				
+				If Not joystick Or SDL_JoystickInstanceID( joystick._joystick )<>jevent->which Continue
+
+				SDL_JoystickClose( joystick._joystick )
+				
+				_joysticks[i]=Null
+				
+				JoystickRemoved( i )
+				
+				Exit
+			Next
+				
+		End
+	
+	End
+	
 	Private
 	
 	Global _joysticks:=New JoystickDevice[8]