rebol [
    Title: "Dynamic Localization Sample"
]

do %locale.r
set-locale 'french

view/title layout [
	style button button 120x40
	across
	text 60 system/locale/text/file
	rotary "English" "Français" [

  set-locale/show  pick [french english] index? find face/texts face/text 
  system/view/screen-face
	]
	return
	text 250 add-locale sample [
		english "Sample of multi-lingual application"
		french "Exemple d'application multi-langue"
	]
	return

 button add-locale a-request [english "Request" french "Requête"] 
 [

  request add-locale question [english "A question ..." french "Une 
  question ..."]
	]

 button add-locale request-a-date [english "Request a date" french 
 "Demande une date"] [
		request-date
	]

 button add-locale request-a-download [english "Request a download" 
 french "Demande un téléchargement "] [

  request-download http://www.ladybird.org/cgi-bin/easy-soccer.cgi
	]
	return

 button add-locale request-a-pass [english "Request a password" french 
 "Demande un mot de passe"] [
		request-pass
	]

 button add-locale request-a-text [english "Request a text" french 
 "Demande un text"] [
		request-text
	]
] add-locale title [
		english "Sample title"
		french "Exemple de titre"
	]