demo-overriding.monkey2

Namespace jentos.locale.demo.overriding

#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"
#Import "Localization"

#Import "assets/"

Using std..
Using mojo..
Using mojox..
Using jentos.locale..


Function Main()
	
	' we can load single file format
	Locale.Load( "asset::translation.json","en" )
	
	' or directory format
	'Locale.Load( "asset::locale/","en" )
	
	New AppInstance
	
	New MyWindow
	
	App.Run()
End


Class MyWindow Extends Window

	Method New()
		
		Super.New( "",640,480,WindowFlags.Resizable )
		
		' let's override hint text for english lang
		Locale.AddOverrided( "en","hint","HINT: press Enter bla-bla..." )
		
		' update window title via lambda-binding
		Localized( "app-title",Lambda( t:String )
			Title=t
		End )
		
		_hint=New LocString( "hint" )
		
		' all binded keys will be refreshed if 4th param is True (by default)
		Locale.AddOverrided( "en","app-title","Overriding demo",True )
		
	End
	
	Method OnRender( canvas:Canvas ) Override
		
		' use LocString as a plain string here
		canvas.DrawText( _hint,20,120 )
		
		If Keyboard.KeyHit( Key.Enter )
			Local lang:=Locale.Lang="en" ? "ru" Else "en"
			Locale.SetLang( lang )
		Endif
		
		RequestRender()
	End
	
	Private
	
	Field _hint:LocString
	
End