|
Revision 111, 0.5 kB
(checked in by ashley, 10 months ago)
|
|
Split requestors off into %rebgui-requestors.r
Requestors and functions now appear in their respective parent objects
Added new on-resize handler
tab-panel.r and chat.r fixes
RebDOC.r enhancements
|
| Line | |
|---|
| 1 | set-locale: make function! [
|
|---|
| 2 | "Dynamically set/change locale."
|
|---|
| 3 | language [string! none!]
|
|---|
| 4 | /local dat-file
|
|---|
| 5 | ] [
|
|---|
| 6 | clear system/locale/words
|
|---|
| 7 | system/locale/dict: none
|
|---|
| 8 | all [
|
|---|
| 9 | exists? dat-file: join what-dir either language [rejoin [%language/ language %.dat]] [%locale.dat]
|
|---|
| 10 | system/locale: construct/with load dat-file system/locale
|
|---|
| 11 | ]
|
|---|
| 12 | all [
|
|---|
| 13 | exists? system/locale/dictionary: rejoin [what-dir %dictionary/ system/locale/language %.dat]
|
|---|
| 14 | system/locale/dict: make hash! parse read system/locale/dictionary " "
|
|---|
| 15 | ]
|
|---|
| 16 | locale*: system/locale
|
|---|
| 17 | ] |
|---|
