Added mojox.RequestInt

modules/mojox/requesters.monkey2

@@ -86,4 +86,79 @@ Function RequestString:String( message:String="Enter a string:",title:String="St
 	Return str
 End
 
-#endif
+Function RequestInt:Long( message:String="Enter an integer:",title:String="Integer requester",init:Long=0,canceled:Long=0,min:Long=-1000000,max:Long=1000000 )
+
+	Assert( Fiber.Current<>Fiber.Main,"RequestInt cannot be used from the main fiber" )
+
+	Local future:=New Future<Long>
+	
+	Local textField:=New TextField
+	textField.Text=String( Clamp( init,min,max ) )
+	
+	Local result:=New Long[]( init )
+	
+	textField.TextChanged+=Lambda()
+
+		Local text:=textField.Text
+		If text="-" And min<0 Return
+		
+		Local value:=Long( text )
+		
+		If String( value )=text 
+			result[0]=value
+			Return
+		Endif
+		
+		'Avoids potential 'TextChanged in TextChanged' recursion. Probably OK in this case but...
+		App.Idle+=Lambda()
+			textField.Text=String( result[0] )
+		End
+	End
+	
+	Local label:=New Label( message )
+	label.AddView( textField )
+	
+	Local dialog:=New Dialog( title )
+	
+	dialog.MaxSize=New Vec2i( 320,0 )
+	
+	dialog.ContentView=label
+	
+	Local okay:=dialog.AddAction( "Okay" )
+	okay.Triggered=Lambda()
+	
+		Local value:=Clamp( result[0],min,max )
+		If value<>result[0]
+			textField.Text=String( value )
+			result[0]=value
+			Return
+		Endif
+	
+		future.Set( value )
+	End
+	
+	Local cancel:=dialog.AddAction( "Cancel" )
+	cancel.Triggered=Lambda()
+	
+		future.Set( canceled )
+	End
+	
+	textField.Entered=okay.Trigger
+	textField.Escaped=cancel.Trigger
+	
+	dialog.Open()
+	
+	textField.MakeKeyView()
+	
+	App.BeginModal( dialog )
+
+	Local r:=future.Get()
+
+	App.EndModal()
+		
+	dialog.Close()
+	
+	Return r
+End
+
+#Endif