Commit 33a20f3e authored by bp's avatar bp

Internationalized titles

git-svn-id: https://forth-ev.de/repos/bigforth@1276 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent de4123f6
......@@ -16,7 +16,7 @@ public:
text-label ptr game-state
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Four Wins" ;
: params DF[ 0 ]DF X" Four Wins" ;
class;
include 4wins.fs
......
......@@ -19,7 +19,7 @@ cell var v8 cell var i8
cell var v9 cell var i9
method re-calc ( [varend] )
how:
: params DF[ 0 ]DF s" Abacus" ;
: params DF[ 0 ]DF X" Abacus" ;
class;
component class abacus-comp
......@@ -28,7 +28,7 @@ public:
cell var *i
abacus ptr outer ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
abacus-comp implements
......
......@@ -11,7 +11,7 @@ public:
button ptr path-ok
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Adjust Configuration" ;
: params DF[ 0 ]DF X" Adjust Configuration" ;
class;
include adjust-path.fs
......
#! /usr/local/bin/xbigforth
#! xbigforth
\ automatic generated code
\ do not edit
......@@ -12,7 +12,7 @@ public:
1 var y#
1 var o# ( [varend] )
how:
: params DF[ 0 ]DF s" Ampel Einstellung" ;
: params DF[ 0 ]DF X" Ampel Einstellung" ;
class;
ampel implements
......
......@@ -8,7 +8,7 @@ component class brownean
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Brownean move" ;
: params DF[ 0 ]DF X" Brownean move" ;
class;
brownean implements
......
#! /usr/local/bin/xbigforth
#! xbigforth
\ automatic generated code
\ do not edit
......@@ -11,7 +11,7 @@ public:
tableinfotextfield ptr c#
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Calculator" ;
: params DF[ 0 ]DF X" Calculator" ;
class;
calc implements
......
......@@ -12,7 +12,7 @@ public:
button ptr gl2
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
comp0000 implements
......
......@@ -12,7 +12,7 @@ public:
button ptr gl2
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
comp0000 implements
......
......@@ -8,7 +8,7 @@ component class canvas1
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Canvas-Test" ;
: params DF[ 0 ]DF X" Canvas-Test" ;
class;
canvas1 implements
......
......@@ -9,7 +9,7 @@ public:
text-label ptr click#
( [varstart] ) cell var clicks ( [varend] )
how:
: params DF[ 0 ]DF s" Click counter" ;
: params DF[ 0 ]DF X" Click counter" ;
class;
ccount implements
......
......@@ -8,7 +8,7 @@ component class comp0000
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
comp0000 implements
......
......@@ -9,7 +9,7 @@ public:
button ptr color-ok
( [varstart] ) cell var color ( [varend] )
how:
: params DF[ 0 ]DF s" Color" ;
: params DF[ 0 ]DF X" Color" ;
class;
component class result
......@@ -18,7 +18,7 @@ public:
button ptr choice-ok
( [varstart] ) cell var color ( [varend] )
how:
: params DF[ 0 ]DF s" Your Choice" ;
: params DF[ 0 ]DF X" Your Choice" ;
class;
result implements
......
......@@ -8,7 +8,7 @@ component class set-colors
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Set Colors" ;
: params DF[ 0 ]DF X" Set Colors" ;
class;
set-colors implements
......
......@@ -10,7 +10,7 @@ public:
icon-but ptr play-it
( [varstart] ) cell var playing ( [varend] )
how:
: params DF[ 0 ]DF s" DVD Player" ;
: params DF[ 0 ]DF X" DVD Player" ;
class;
dvd-play implements
......
......@@ -9,7 +9,7 @@ public:
canvas ptr cv
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Draw Mouse" ;
: params DF[ 0 ]DF X" Draw Mouse" ;
class;
dxy implements
......
......@@ -29,7 +29,7 @@ cell var head-texture
cell var wing-texture
cell var claw-texture ( [varend] )
how:
: params DF[ 0 ]DF s" Swap Dragon" ;
: params DF[ 0 ]DF X" Swap Dragon" ;
class;
component class dragon-help
......@@ -37,7 +37,7 @@ public:
button ptr help-close
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Dragon Help" ;
: params DF[ 0 ]DF X" Dragon Help" ;
class;
dragon-help implements
......
......@@ -30,7 +30,7 @@ cell var head-texture
cell var wing-texture
cell var claw-texture ( [varend] )
how:
: params DF[ 0 ]DF s" Swap Dragon" ;
: params DF[ 0 ]DF X" Swap Dragon" ;
class;
component class dragon-help
......@@ -38,7 +38,7 @@ public:
button ptr help-close
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Dragon Help" ;
: params DF[ 0 ]DF X" Dragon Help" ;
class;
dragon-help implements
......
......@@ -11,7 +11,7 @@ public:
infotextfield ptr r#
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
component class thermometer
......@@ -20,7 +20,7 @@ public:
vscaler ptr pos
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
thermometer implements
......
......@@ -12,7 +12,7 @@ public:
( [varstart] ) 0 var 'do-op
defer do-op ( [varend] )
how:
: params DF[ 0 ]DF s" Calculator" ;
: params DF[ 0 ]DF X" Calculator" ;
class;
component class thermometer
......@@ -21,7 +21,7 @@ public:
vscaler ptr pos
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Thermometer" ;
: params DF[ 0 ]DF X" Thermometer" ;
class;
thermometer implements
......
......@@ -11,7 +11,7 @@ public:
infotextfield ptr r#
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Calculator" ;
: params DF[ 0 ]DF X" Calculator" ;
class;
component class thermometer
......@@ -20,7 +20,7 @@ public:
vscaler ptr pos
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Thermometer" ;
: params DF[ 0 ]DF X" Thermometer" ;
class;
thermometer implements
......
......@@ -8,21 +8,21 @@ component class foo
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" hrtsizer" ;
: params DF[ 0 ]DF X" hrtsizer" ;
class;
component class bar
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" hxrtsizer" ;
: params DF[ 0 ]DF X" hxrtsizer" ;
class;
component class zap
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" hsizer" ;
: params DF[ 0 ]DF X" hsizer" ;
class;
zap implements
......
......@@ -36,7 +36,7 @@ cell var don't
3 cells var galaxy-lock
method redraw-galaxy ( [varend] )
how:
: params DF[ 0 ]DF s" Galaxy" ;
: params DF[ 0 ]DF X" Galaxy" ;
class;
component class about
......@@ -44,14 +44,14 @@ public:
button ptr ok-button
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" About" ;
: params DF[ 0 ]DF X" About" ;
class;
component class measure-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Measure" ;
: params DF[ 0 ]DF X" Measure" ;
class;
measure-menu implements
......
#! /usr/local/bin/xbigforth
#! xbigforth
\ automatic generated code
\ do not edit
......@@ -25,7 +25,7 @@ cell var scale-y
cell var scale-z
3 cells var textures ( [varend] )
how:
: params DF[ 0 ]DF s" Gears" ;
: params DF[ 0 ]DF X" Gears" ;
class;
include gears.fs
......
......@@ -9,7 +9,7 @@ public:
glcanvas ptr glw
( [varstart] ) 2 cells var glxy ( [varend] )
how:
: params DF[ 0 ]DF s" GL mouse" ;
: params DF[ 0 ]DF X" GL mouse" ;
class;
glmouse implements
......
......@@ -24,28 +24,28 @@ method new-game
method close-game
method go-write ( [varend] )
how:
: params DF[ 0 ]DF s" Go" ;
: params DF[ 0 ]DF X" Go" ;
class;
component class file-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
component class help-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
component class go-game-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
go-game-menu implements
......
......@@ -13,14 +13,14 @@ public:
vabox ptr floater
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" About gpl program" ;
: params DF[ 0 ]DF X" About gpl program" ;
class;
component class minos-splash
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Minos Splash Screen" ;
: params DF[ 0 ]DF X" Minos Splash Screen" ;
class;
component class bigforth-about
......@@ -28,7 +28,7 @@ public:
button ptr gpl-ok
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" About bigFORTH+MINOS" ;
: params DF[ 0 ]DF X" About bigFORTH+MINOS" ;
class;
bigforth-about implements
......
......@@ -15,7 +15,7 @@ public:
| topindex ptr (topindex-06)
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Hello World" ;
: params DF[ 0 ]DF X" Hello World" ;
class;
hello implements
......
......@@ -8,7 +8,7 @@ component class hello
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Hello World!" ;
: params DF[ 0 ]DF X" Hello World!" ;
class;
hello implements
......
......@@ -13,7 +13,7 @@ cell var green
cell var blue
64 var lamps ( [varend] )
how:
: params DF[ 0 ]DF s" Lamp Field" ;
: params DF[ 0 ]DF X" Lamp Field" ;
class;
lamp-field implements
......
......@@ -12,14 +12,14 @@ public:
button ptr cancel
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Einloggen" ;
: params DF[ 0 ]DF X" Einloggen" ;
class;
component class main-1
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Main" ;
: params DF[ 0 ]DF X" Main" ;
class;
main-1 implements
......
......@@ -15,7 +15,7 @@ public:
( [varstart] ) midi-player ptr player
cell var midi-path ( [varend] )
how:
: params DF[ 0 ]DF s" Midi Player" ;
: params DF[ 0 ]DF X" Midi Player" ;
class;
include midi.fs
......
......@@ -32,7 +32,7 @@ public:
cell var midi-path
cell var scheduled ( [varend] )
how:
: params DF[ 0 ]DF s" Midi Player" ;
: params DF[ 0 ]DF X" Midi Player" ;
class;
include midi.fs
......
......@@ -15,7 +15,7 @@ public:
( [varstart] ) midi-player ptr player
cell var midi-path ( [varend] )
how:
: params DF[ 0 ]DF s" Midi Player" ;
: params DF[ 0 ]DF X" Midi Player" ;
class;
include midi.fs
......
......@@ -9,28 +9,28 @@ public:
stredit ptr notes
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Notepad" ;
: params DF[ 0 ]DF X" Notepad" ;
class;
component class file-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" File Menu" ;
: params DF[ 0 ]DF X" File Menu" ;
class;
component class edit-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Edit Menu" ;
: params DF[ 0 ]DF X" Edit Menu" ;
class;
component class help-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Help Menu" ;
: params DF[ 0 ]DF X" Help Menu" ;
class;
help-menu implements
......
......@@ -24,42 +24,42 @@ method list-jobs
method print
method load-sched ( [varend] )
how:
: params DF[ 0 ]DF s" Open Schedule GUI" ;
: params DF[ 0 ]DF X" Open Schedule GUI" ;
class;
component class file-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" File Menu" ;
: params DF[ 0 ]DF X" File Menu" ;
class;
component class help-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Help Menu" ;
: params DF[ 0 ]DF X" Help Menu" ;
class;
component class resource-title
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Resource Title" ;
: params DF[ 0 ]DF X" Resource Title" ;
class;
component class job-title
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Job Title" ;
: params DF[ 0 ]DF X" Job Title" ;
class;
component class edit-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Edit Menu" ;
: params DF[ 0 ]DF X" Edit Menu" ;
class;
component class project
......@@ -82,14 +82,14 @@ public:
tbutton ptr vacs
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Project Properties" ;
: params DF[ 0 ]DF X" Project Properties" ;
class;
component class process-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Process Menu" ;
: params DF[ 0 ]DF X" Process Menu" ;
class;
component class graphs
......@@ -100,7 +100,7 @@ public:
infotextfield ptr day
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Graph Properties" ;
: params DF[ 0 ]DF X" Graph Properties" ;
class;
graphs implements
......
......@@ -10,7 +10,7 @@ public:
button ptr ende
( [varstart] ) cell var samples ( [varend] )
how:
: params DF[ 0 ]DF s" Saw Tooth" ;
: params DF[ 0 ]DF X" Saw Tooth" ;
class;
osci implements
......
......@@ -9,7 +9,7 @@ public:
button ptr ende
( [varstart] ) cell var samples ( [varend] )
how:
: params DF[ 0 ]DF s" Saw Tooth" ;
: params DF[ 0 ]DF X" Saw Tooth" ;
class;
osci implements
......
......@@ -10,7 +10,7 @@ public:
button ptr no-button
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Quit?" ;
: params DF[ 0 ]DF X" Quit?" ;
class;
quit implements
......
......@@ -8,7 +8,7 @@ component class comp0000
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
comp0000 implements
......
......@@ -25,7 +25,7 @@ public:
database ptr sql-db
cell var db-name ( [varend] )
how:
: params DF[ query self ]DF s" SQL query" ;
: params DF[ query self ]DF X" SQL query" ;
class;
include sql.fs
......
......@@ -18,7 +18,7 @@ public:
database ptr sql-db
cell var db-name ( [varend] )
how:
: params DF[ query self ]DF s" SQL query" ;
: params DF[ query self ]DF X" SQL query" ;
class;
include sql.fs
......
......@@ -16,7 +16,7 @@ public:
database ptr sql-db
cell var db-name ( [varend] )
how:
: params DF[ 0 ]DF s" SQL insert" ;
: params DF[ 0 ]DF X" SQL insert" ;
class;
include sql.fs
......
......@@ -18,7 +18,7 @@ public:
database ptr sql-db
cell var db-name ( [varend] )
how:
: params DF[ 0 ]DF s" SQL insert" ;
: params DF[ 0 ]DF X" SQL insert" ;
class;
include sql.fs
......
......@@ -8,7 +8,7 @@ component class foo
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Table test" ;
: params DF[ 0 ]DF X" Table test" ;
class;
foo implements
......
#! /usr/local/bin/xbigforth
#! xbigforth
\ automatic generated code
\ do not edit
......
......@@ -8,7 +8,7 @@ component class comp0000
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
comp0000 implements
......
......@@ -8,7 +8,7 @@ component class comp0000
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
comp0000 implements
......
......@@ -10,7 +10,7 @@ public:
vscaler ptr pos
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" No Title" ;
: params DF[ 0 ]DF X" No Title" ;
class;
thermometer implements
......
......@@ -9,7 +9,7 @@ public:
button ptr theseus-ok
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Minos Help" ;
: params DF[ 0 ]DF X" Minos Help" ;
class;
minos-about implements
......
......@@ -19,35 +19,35 @@ public:
topindex ptr (topindex-0A)
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Theseus" ;
: params DF[ 0 ]DF X" Theseus" ;
class;
component class file-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" File menu" ;
: params DF[ 0 ]DF X" File menu" ;
class;
component class edit-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Edit menu" ;
: params DF[ 0 ]DF X" Edit menu" ;
class;
component class help-menu
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Help Menu" ;
: params DF[ 0 ]DF X" Help Menu" ;
class;
component class minos-about
public:
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" About Theseus" ;
: params DF[ 0 ]DF X" About Theseus" ;
class;
minos-about implements
......
......@@ -10,7 +10,7 @@ public:
button ptr i-know
( [varstart] ) cell var tip-file ( [varend] )
how:
: params DF[ 0 ]DF s" Tip 1" ;
: params DF[ 0 ]DF X" Tip 1" ;
class;
tip1 implements
......
......@@ -12,7 +12,7 @@ public:
| topindex ptr (topindex-03)
( [varstart] ) ( [varend] )
how:
: params DF[ 0 ]DF s" Toggle Actors" ;
: params DF[ 0 ]DF X" Toggle Actors" ;
class;
toggle-actor implements
......
......@@ -8,7 +8,7 @@ component class toggle-test
public:
( [varstart] ) cell var xx ( [varend] )
how:
: params DF[ 0 ]DF s" Toggle Test" ;
: params DF[ 0 ]DF X" Toggle Test" ;
class;
toggle-test implements
......
......@@ -21,7 +21,7 @@ cell var gear-task
cell var shade
3 cells var textures ( [varend] )
how:
: params DF[ 0 ]DF s" Tree" ;
: params DF[ 0 ]DF X" Tree" ;
class;