Added fonttest banana.

bananas/fonttest/fonttest.monkey2

@@ -0,0 +1,68 @@
+
+Namespace myapp
+
+#Import "<std>"
+#Import "<mojo>"
+
+Using std..
+Using mojo..
+
+Const Test:="
+
+Test of extended chars:
+
+æ = &aelig;
+ø = &oslash;
+Ã¥ = &aring;
+Æ = &AElig;
+Ø = &Oslash;
+Ã… = &Aring;
+
+élégant
+
+"
+
+Class MyWindow Extends Window
+
+	Field page:Int
+
+	Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )
+
+		Super.New( title,width,height,flags )
+	End
+
+	Method OnRender( canvas:Canvas ) Override
+	
+		App.RequestRender()
+		
+		If Keyboard.KeyHit( Key.Right )
+			page=Min( page+1,255 )
+		Else If Keyboard.KeyHit( Key.Left )
+			page=Max( page-1,0 )
+		End
+		
+		canvas.DrawText( "page="+page+" (arrows to change)",32,8 )
+		
+		For Local y:=0 Until 16
+			For Local x:=0 Until 16
+				canvas.DrawText( String.FromChar( y*16+x+page*256 ),x*16+32,y*16+32 )
+			Next
+		Next
+		
+		Local y:=0
+		For Local line:=Eachin Test.Split( "~n" )
+			canvas.DrawText( line,Width/2,y )
+			y+=16
+		Next
+	End
+	
+End
+
+Function Main()
+
+	New AppInstance
+	
+	New MyWindow
+	
+	App.Run()
+End