Bwidget Source Code
Check-in [b19b621e2a]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:add support to msgcat -- closed because become invalid
Timelines: family | ancestors | msgcat
Files: files | file ages | folders
SHA3-256:b19b621e2afa04a449a4619aa99f8178abbf7d0743d82940f138a704e4ed0d4c
User & Date: pd 2018-02-07 16:58:58
Original Comment: add support to msgcat
Context
2018-02-07
16:58
add support to msgcat -- closed because become invalid Closed-Leaf check-in: b19b621e2a user: pd tags: msgcat
2010-12-14
17:01
* tree.tcl [Bug 3106208]: Followup. Moved the fixed code of the last entry I did (2010-11-09) into a new command Tree::MergeFlag and call this from both Tree::itemconfigure and Tree::insert. Missing the place in Tree::insert caused another problem, found by Dustin Littau. Leaf check-in: c3b144fc1f user: andreas_kupries tags: trunk, tcllib-1-13, tcllib-1-14
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to demo/demo.tcl.

6
7
8
9
10
11
12
13

14
15
16
17
18
19
20
21
22
23
24
25
26
#  demo.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: demo.tcl,v 1.7 2009/10/25 20:53:58 oberdorfer Exp $
# ----------------------------------------------------------------------------
#

set appDir [file dirname [info script]]
lappend auto_path [file join $appDir ".."]


package require BWidget 1.9.1

::BWidget::use \
    -setoptdb  yes


source [file join $appDir "demo_main.tcl"]

Demo::main
Demo::setTheme

wm geom . [wm geom .]







|
>

|











6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#  demo.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: demo.tcl,v 1.7 2009/10/25 20:53:58 oberdorfer Exp $
# ----------------------------------------------------------------------------
#

set appDir [file dirname [info script]]
#lappend auto_path [file join $appDir ".."]
set auto_path [linsert $auto_path 0 [file join $appDir ".."]]

package require -exact BWidget 1.9.1

::BWidget::use \
    -setoptdb  yes


source [file join $appDir "demo_main.tcl"]

Demo::main
Demo::setTheme

wm geom . [wm geom .]

Changes to demo/tmpldlg.tcl.

19
20
21
22
23
24
25
26

27
28
29
30
31
32
33
34
35















36
37
38
39
40
41
42
43

    set titf1 [TitleFrame $frame.titf1 -text "Resources"]
    set titf2 [TitleFrame $frame.titf2 -text "Template Dialog"]
    set titf3 [TitleFrame $frame.titf3 -text "Message Dialog"]
    set titf4 [TitleFrame $frame.titf4 -text "Other dialog"]

    set subf [$titf1 getframe]
    set cmd  {option read [file join $::BWIDGET::LIBRARY "lang" $DemoDlg::resources.rc]}

    set rad1 [BWidget::wrap radiobutton $subf.rad1 -text "English" \
                  -variable DemoDlg::resources -value en \
                  -command  $cmd]
    set rad2 [BWidget::wrap radiobutton $subf.rad2 -text "French" \
                  -variable DemoDlg::resources -value fr \
                  -command  $cmd]
    set rad3 [BWidget::wrap radiobutton $subf.rad3 -text "German" \
                  -variable DemoDlg::resources -value de \
                  -command  $cmd]















    pack $rad1 $rad2 $rad3 -side left -padx 5

    _tmpldlg [$titf2 getframe]
    _msgdlg  [$titf3 getframe]
    _stddlg  [$titf4 getframe]

    pack $titf1 -fill x -pady 2 -padx 2
    pack $titf4 -side bottom -fill x -pady 2 -padx 2







|
>









>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|







19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

    set titf1 [TitleFrame $frame.titf1 -text "Resources"]
    set titf2 [TitleFrame $frame.titf2 -text "Template Dialog"]
    set titf3 [TitleFrame $frame.titf3 -text "Message Dialog"]
    set titf4 [TitleFrame $frame.titf4 -text "Other dialog"]

    set subf [$titf1 getframe]
#    set cmd  {option read [file join $::BWIDGET::LIBRARY "lang" $DemoDlg::resources.rc]}
    set cmd  {BWidget::changeLang $DemoDlg::resources}
    set rad1 [BWidget::wrap radiobutton $subf.rad1 -text "English" \
                  -variable DemoDlg::resources -value en \
                  -command  $cmd]
    set rad2 [BWidget::wrap radiobutton $subf.rad2 -text "French" \
                  -variable DemoDlg::resources -value fr \
                  -command  $cmd]
    set rad3 [BWidget::wrap radiobutton $subf.rad3 -text "German" \
                  -variable DemoDlg::resources -value de \
                  -command  $cmd]
    set rad4 [BWidget::wrap radiobutton $subf.rad4 -text "Spanish" \
                  -variable DemoDlg::resources -value es \
                  -command  $cmd]
    set rad5 [BWidget::wrap radiobutton $subf.rad5 -text "Polish" \
                  -variable DemoDlg::resources -value pl \
                  -command  $cmd]
    set rad6 [BWidget::wrap radiobutton $subf.rad6 -text "Hungarian" \
                  -variable DemoDlg::resources -value hu \
                  -command  $cmd]
    set rad7 [BWidget::wrap radiobutton $subf.rad7 -text "Norwegian" \
                  -variable DemoDlg::resources -value no \
                  -command  $cmd]
    set rad8 [BWidget::wrap radiobutton $subf.rad8 -text "Nederlans" \
                  -variable DemoDlg::resources -value nl \
                  -command  $cmd]
    pack $rad1 $rad2 $rad3 $rad4 $rad5 $rad6 $rad7 $rad8 -side left -padx 5

    _tmpldlg [$titf2 getframe]
    _msgdlg  [$titf3 getframe]
    _stddlg  [$titf4 getframe]

    pack $titf1 -fill x -pady 2 -padx 2
    pack $titf4 -side bottom -fill x -pady 2 -padx 2

Changes to init.tcl.

30
31
32
33
34
35
36



37








38
39
40
41
42
43
44
45
46
47
48
49
	    option add *MainFrame.relief	raised $prio
	    option add *MainFrame.separator	none   $prio
	}
    }
}
Widget::_opt_defaults




option read [file join $::BWIDGET::LIBRARY "lang" "en.rc"]









#  Add a TraverseIn binding to standard Tk widgets to handle some of
#  the BWidget-specific things we do.
bind Entry   <<TraverseIn>> { %W selection range 0 end; %W icursor end }
bind Spinbox <<TraverseIn>> { %W selection range 0 end; %W icursor end }

bind all <Key-Tab>       { Widget::traverseTo [Widget::focusNext %W] }
bind all <<PrevWindow>>  { Widget::traverseTo [Widget::focusPrev %W] }


::BWidget::createSystemFonts
::BWidget::set_themedefaults "default"







>
>
>
|
>
>
>
>
>
>
>
>












30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
	    option add *MainFrame.relief	raised $prio
	    option add *MainFrame.separator	none   $prio
	}
    }
}
Widget::_opt_defaults


if {[catch {package require msgcat}]} {
	# Error thrown - package not found.
	option read [file join $::BWIDGET::LIBRARY "lang" "en.rc"]
} else {
	# package loaded
	namespace import msgcat::*
	msgcat::mcload [file join $::BWIDGET::LIBRARY "lang"]
	source [file join $::BWIDGET::LIBRARY "lang" "xopt.tcl"]

}


#  Add a TraverseIn binding to standard Tk widgets to handle some of
#  the BWidget-specific things we do.
bind Entry   <<TraverseIn>> { %W selection range 0 end; %W icursor end }
bind Spinbox <<TraverseIn>> { %W selection range 0 end; %W icursor end }

bind all <Key-Tab>       { Widget::traverseTo [Widget::focusNext %W] }
bind all <<PrevWindow>>  { Widget::traverseTo [Widget::focusPrev %W] }


::BWidget::createSystemFonts
::BWidget::set_themedefaults "default"

Added lang/da.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  da.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of da translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons -----------------------------------------------

::msgcat::mcset da {&Abort} {&Annullér}
::msgcat::mcset da {&Retry} {P&røv igen}
::msgcat::mcset da {&Ignore} {&Ignorer}
::msgcat::mcset da {&OK} {&OK}
::msgcat::mcset da {&Cancel} {&Cancel}
::msgcat::mcset da {&Yes} {&Ja}
::msgcat::mcset da {&No} {&Nej}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset da {Bold} {Fed}
::msgcat::mcset da {Italic} {Kursiv}
::msgcat::mcset da {Underline} {Understreg}
::msgcat::mcset da {Overstrike} {Overstreg}
::msgcat::mcset da {&Font} {&Font}
::msgcat::mcset da {&Size} {&Størrelse}
::msgcat::mcset da {St&yle} {St&il}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset da {&Login} {&Brugernavn}
::msgcat::mcset da {&Password} {&Password}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset da {Font selection} {Font-valg}
::msgcat::mcset da {Sample text} {Eksempeltekst æøå}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset da {Message} {Besked}
::msgcat::mcset da {Information} {Information}
::msgcat::mcset da {Question} {Spørgsmål}
::msgcat::mcset da {Warning} {Advarsel}
::msgcat::mcset da {Error} {Fejl}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset da {Enter login and password} {Indtast brugernavn og password}

Added lang/de.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  de.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of de translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset de {&Abort} {&Abbrechen}
::msgcat::mcset de {&Retry} {&Wiederholen}
::msgcat::mcset de {&Ignore} {&Ignorieren}
::msgcat::mcset de {&OK} {&OK}
::msgcat::mcset de {&Cancel} {&Abbrechen}
::msgcat::mcset de {&Yes} {&Ja}
::msgcat::mcset de {&No} {&Nein}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset de {Bold} {Fett}
::msgcat::mcset de {Italic} {Kursiv}
::msgcat::mcset de {Underline} {Unterstrichen}
::msgcat::mcset de {Overstrike} {Durchgestrichen}
::msgcat::mcset de {&Font} {&Schriftart}
::msgcat::mcset de {&Size} {S&chriftgrad}
::msgcat::mcset de {St&yle} {Sc&hriftschnitt}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset de {&Login} {&Login}
::msgcat::mcset de {&Password} {&Password}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset de {Font selection} {Schrift Auswahl}
::msgcat::mcset de {Sample text} {Beispieltext}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset de {Message} {Meldung}
::msgcat::mcset de {Information} {Hinweis}
::msgcat::mcset de {Question} {Frage}
::msgcat::mcset de {Warning} {Warnung}
::msgcat::mcset de {Error} {Fehler}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset de {Enter login and password} {Enter login and password}

Added lang/en.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  en.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of en translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset en {&Abort} {&Abort}
::msgcat::mcset en {&Retry} {&Retry}
::msgcat::mcset en {&Ignore} {&Ignore}
::msgcat::mcset en {&OK} {&OK}
::msgcat::mcset en {&Cancel} {&Cancel}
::msgcat::mcset en {&Yes} {&Yes}
::msgcat::mcset en {&No} {&No}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset en {Bold} {Bold}
::msgcat::mcset en {Italic} {Italic}
::msgcat::mcset en {Underline} {Underline}
::msgcat::mcset en {Overstrike} {Overstrike}
::msgcat::mcset en {&Font} {&Font}
::msgcat::mcset en {&Size} {&Size}
::msgcat::mcset en {St&yle} {St&yle}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset en {&Login} {&Login}
::msgcat::mcset en {&Password} {&Password}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset en {Font selection} {Font selection}
::msgcat::mcset en {Sample text} {Sample text}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset en {Message} {Message}
::msgcat::mcset en {Information} {Information}
::msgcat::mcset en {Question} {Question}
::msgcat::mcset en {Warning} {Warning}
::msgcat::mcset en {Error} {Error}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset en {Enter login and password} {Enter login and password}

Added lang/es.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  es.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of es translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset es {&Abort} {A&bortar}
::msgcat::mcset es {&Retry} {&Reintentar}
::msgcat::mcset es {&Ignore} {&Ignorar}
::msgcat::mcset es {&OK} {&OK}
::msgcat::mcset es {&Cancel} {&Anular}
::msgcat::mcset es {&Yes} {&Sí}
::msgcat::mcset es {&No} {&No}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset es {Bold} {&Negrita}
::msgcat::mcset es {Italic} {&Cursiva}
::msgcat::mcset es {Underline} {&Subrayado}
::msgcat::mcset es {Overstrike} {&Tachado}
::msgcat::mcset es {&Font} {&Fuente}
::msgcat::mcset es {&Size} {&Tamaño}
::msgcat::mcset es {St&yle} {&Estilo}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset es {&Login} {Nombre de &usuario}
::msgcat::mcset es {&Password} {&Contraseña}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset es {Font selection} {Selección de fuente}
::msgcat::mcset es {Sample text} {Texto de Ejemplo}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset es {Message} {Indicación}
::msgcat::mcset es {Information} {Información}
::msgcat::mcset es {Question} {Pregunta}
::msgcat::mcset es {Warning} {Atención}
::msgcat::mcset es {Error} {Error}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset es {Enter login and password} {Introduzca su nombre de usuario y contraseña}

Added lang/fr.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  fr.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of fr translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset fr {&Abort} {A&bandonner}
::msgcat::mcset fr {&Retry} {&Réessayer}
::msgcat::mcset fr {&Ignore} {&Ignorer}
::msgcat::mcset fr {&OK} {&OK}
::msgcat::mcset fr {&Cancel} {&Annuler}
::msgcat::mcset fr {&Yes} {&Oui}
::msgcat::mcset fr {&No} {&Non}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset fr {Bold} {&Gras}
::msgcat::mcset fr {Italic} {&Italique}
::msgcat::mcset fr {Underline} {&Souligné}
::msgcat::mcset fr {Overstrike} {&Barré}
::msgcat::mcset fr {&Font} {&Police}
::msgcat::mcset fr {&Size} {&Taille}
::msgcat::mcset fr {St&yle} {St&yle}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset fr {&Login} {Nom de l'&utilisateur}
::msgcat::mcset fr {&Password} {Mot de &passe}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset fr {Font selection} {Sélection d'une police}
::msgcat::mcset fr {Sample text} {Texte d'exemple}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset fr {Message} {Message}
::msgcat::mcset fr {Information} {Information}
::msgcat::mcset fr {Question} {Question}
::msgcat::mcset fr {Warning} {Attention}
::msgcat::mcset fr {Error} {Erreur}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset fr {Enter login and password} {Entrez le login et le mot de passe}

Added lang/hu.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  hu.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of hu translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset hu {&Abort} {&Megszakítás}
::msgcat::mcset hu {&Retry} {Új&ra}
::msgcat::mcset hu {&Ignore} {&Kihagyás}
::msgcat::mcset hu {&OK} {&OK}
::msgcat::mcset hu {&Cancel} {Még&sem}
::msgcat::mcset hu {&Yes} {&Igen}
::msgcat::mcset hu {&No} {&Nem}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset hu {Bold} {Félkövér}
::msgcat::mcset hu {Italic} {Dőlt}
::msgcat::mcset hu {Underline} {Aláhúzott}
::msgcat::mcset hu {Overstrike} {Felülírás}
::msgcat::mcset hu {&Font} {&Betűtípus}
::msgcat::mcset hu {&Size} {&Méret}
::msgcat::mcset hu {St&yle} {S&tílus}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset hu {&Login} {&Felhasználónév}
::msgcat::mcset hu {&Password} {&Jelszó}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset hu {Font selection} {Betűtípus kiválasztása}
::msgcat::mcset hu {Sample text} {Példaszöveg}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset hu {Message} {Üzenet}
::msgcat::mcset hu {Information} {Információ}
::msgcat::mcset hu {Question} {Kérdés}
::msgcat::mcset hu {Warning} {Figyelmeztetés}
::msgcat::mcset hu {Error} {Hiba}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset hu {Enter login and password} {Add meg a felhasználónevet és a jelszót}

Added lang/nl.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  nl.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of nl translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset nl {&Abort} {Af&breken}
::msgcat::mcset nl {&Retry} {Opnie&uw proberen}
::msgcat::mcset nl {&Ignore} {N&egeren}
::msgcat::mcset nl {&OK} {&OK}
::msgcat::mcset nl {&Cancel} {&Annuleren}
::msgcat::mcset nl {&Yes} {&Ja}
::msgcat::mcset nl {&No} {&Nee}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset nl {Bold} {Vet}
::msgcat::mcset nl {Italic} {Cursief}
::msgcat::mcset nl {Underline} {Onderstrepen}
::msgcat::mcset nl {Overstrike} {Doorhalen}
::msgcat::mcset nl {&Font} {&Lettertype}
::msgcat::mcset nl {&Size} {&Grootte}
::msgcat::mcset nl {St&yle} {&Stijl}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset nl {&Login} {&Inlognaam}
::msgcat::mcset nl {&Password} {&Wachtwoord}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset nl {Font selection} {Lettertypeselectie}
::msgcat::mcset nl {Sample text} {Voorbeeldtekst}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset nl {Message} {Bericht}
::msgcat::mcset nl {Information} {Informatie}
::msgcat::mcset nl {Question} {Vraag}
::msgcat::mcset nl {Warning} {Waarschuwing}
::msgcat::mcset nl {Error} {Fout}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset nl {Enter login and password} {Voer inlognaam en wachtwoord in}

Added lang/no.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  no.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of no translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset no {&Abort} {&Om}
::msgcat::mcset no {&Retry} {&Prøv igjen}
::msgcat::mcset no {&Ignore} {&Ignore}
::msgcat::mcset no {&OK} {&OK}
::msgcat::mcset no {&Cancel} {&Avbryt}
::msgcat::mcset no {&Yes} {&Ja}
::msgcat::mcset no {&No} {&Nei}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset no {Bold} {Halvfet}
::msgcat::mcset no {Italic} {Kursiv}
::msgcat::mcset no {Underline} {Understreking}
::msgcat::mcset no {Overstrike} {Overstryke}
::msgcat::mcset no {&Font} {&Skrift}
::msgcat::mcset no {&Size} {&Størrelse}
::msgcat::mcset no {St&yle} {St&il}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset no {&Login} {&Logg inn}
::msgcat::mcset no {&Password} {&Passord}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset no {Font selection} {Skriftvalg}
::msgcat::mcset no {Sample text} {Prøve tekst}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset no {Message} {Melding}
::msgcat::mcset no {Information} {Informasjon}
::msgcat::mcset no {Question} {Spørsmål}
::msgcat::mcset no {Warning} {Advarsel}
::msgcat::mcset no {Error} {Feil}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset no {Enter login and password} {Skriv inn logginn og passord}

Added lang/pl.msg.































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# ------------------------------------------------------------------------------
#  pl.msg
#  This file is part of Unifix BWidget Toolkit
#  Definition of pl translation
# ------------------------------------------------------------------------------

# --- symbolic names of buttons ------------------------------------------------

::msgcat::mcset pl {&Abort} {&Porzuć}
::msgcat::mcset pl {&Retry} {P&onów}
::msgcat::mcset pl {&Ignore} {&Ignoruj}
::msgcat::mcset pl {&OK} {&OK}
::msgcat::mcset pl {&Cancel} {&Anyluj}
::msgcat::mcset pl {&Yes} {&Tak}
::msgcat::mcset pl {&No} {&Nie}

# --- symbolic names of label of SelectFont dialog ----------------------------

::msgcat::mcset pl {Bold} {Pogrubiona}
::msgcat::mcset pl {Italic} {Kursywa}
::msgcat::mcset pl {Underline} {Podkreślenie}
::msgcat::mcset pl {Overstrike} {Przekreślenie}
::msgcat::mcset pl {&Font} {&Czcionka:}
::msgcat::mcset pl {&Size} {&Rozmiar:}
::msgcat::mcset pl {St&yle} {St&yl czcionki:}

# --- symbolic names of label of PasswdDlg dialog -----------------------------

::msgcat::mcset pl {&Login} {&Login}
::msgcat::mcset pl {&Password} {&Hasło}

# --- resource for SelectFont dialog ------------------------------------------

::msgcat::mcset pl {Font selection} {Wybór czcionki}
::msgcat::mcset pl {Sample text} {Przykładowy tekst}

# --- resource for MessageDlg dialog ------------------------------------------

::msgcat::mcset pl {Message} {Wiadomość}
::msgcat::mcset pl {Information} {Informacja}
::msgcat::mcset pl {Question} {Pytanie}
::msgcat::mcset pl {Warning} {Ostrzeżenie}
::msgcat::mcset pl {Error} {Błąd}

# --- resource for PasswdDlg dialog -------------------------------------------

::msgcat::mcset pl {Enter login and password} {Wpisz login i hasło}

Added lang/xopt.tcl.









































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
# ------------------------------------------------------------------------------
# xopt.tcl
# This file is part of Unifix BWidget Toolkit
# Definition of resources
# ------------------------------------------------------------------------------


# --- symbolic names of buttons ------------------------------------------------

option add *abortName [::msgcat::mc {&Abort}]
option add *retryName [::msgcat::mc {&Retry}]
option add *ignoreName [::msgcat::mc {&Ignore}]
option add *okName [::msgcat::mc {&OK}]
option add *cancelName [::msgcat::mc {&Cancel}]
option add *yesName [::msgcat::mc {&Yes}]
option add *noName [::msgcat::mc {&No}]


# --- symbolic names of label of SelectFont dialog ----------------------------

option add *boldName [::msgcat::mc {Bold}]
option add *italicName [::msgcat::mc {Italic}]
option add *underlineName [::msgcat::mc {Underline}]
option add *overstrikeName [::msgcat::mc {Overstrike}]
option add *fontName [::msgcat::mc {&Font}]
option add *sizeName [::msgcat::mc {&Size}]
option add *styleName [::msgcat::mc {St&yle}]


# --- symbolic names of label of PasswdDlg dialog -----------------------------

option add *loginName [::msgcat::mc {&Login}]
option add *passwordName [::msgcat::mc {&Password}]


# --- resource for SelectFont dialog ------------------------------------------

option add *SelectFont.title [::msgcat::mc {Font selection}]
option add *SelectFont.sampletext [::msgcat::mc {Sample text}]


# --- resource for MessageDlg dialog ------------------------------------------

option add *MessageDlg.noneTitle [::msgcat::mc {Message}]
option add *MessageDlg.infoTitle [::msgcat::mc {Information}]
option add *MessageDlg.questionTitle [::msgcat::mc {Question}]
option add *MessageDlg.warningTitle [::msgcat::mc {Warning}]
option add *MessageDlg.errorTitle [::msgcat::mc {Error}]

# --- resource for PasswdDlg dialog -------------------------------------------

option add *PasswdDlg.title [::msgcat::mc {Enter login and password}]

Changes to utils.tcl.

800
801
802
803
804
805
806















	          font configure $fname -size $fp(tooltipsize)
	      }	      
	    }
        }
    }
}























>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
	          font configure $fname -size $fp(tooltipsize)
	      }	      
	    }
        }
    }
}


# ----------------------------------------------------------------------------
# utility function for language (locale) support
# ----------------------------------------------------------------------------

proc BWidget::changeLang { lang } {

	if {[catch {package present Tk}]} {
		option read [file join $::BWIDGET::LIBRARY "lang" $lang.rc]
	} else {
		::msgcat::mclocale $lang
		source [file join $::BWIDGET::LIBRARY "lang" "xopt.tcl"]
	}

}