diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | library/demos/en.msg | 3 | ||||
| -rw-r--r-- | library/demos/nl.msg | 145 | ||||
| -rw-r--r-- | library/demos/widget | 4 |
4 files changed, 155 insertions, 3 deletions
@@ -1,3 +1,9 @@ +2003-11-05 Donal K. Fellows <donal.k.fellows@man.ac.uk> + + * library/demos/nl.msg: Dutch messages from Arjen Markus [Patch 836368] + * library/demos/widget: Added mechanism to support some l10n of + the actual hotkeys used. + 2003-11-04 Vince Darley <vincentdarley@users.sourceforge.net> * tests/textDisp.test: diff --git a/library/demos/en.msg b/library/demos/en.msg index fc7f1a7..e3914c5 100644 --- a/library/demos/en.msg +++ b/library/demos/en.msg @@ -5,7 +5,8 @@ ::msgcat::mcset en "&About..." ::msgcat::mcset en "<F1>" ::msgcat::mcset en "&Quit" -::msgcat::mcset en "Meta-Q" +::msgcat::mcset en "Meta-Q" ;# Displayed hotkey +::msgcat::mcset en "Meta-q" ;# Actual binding sequence ::msgcat::mcset en "Variable values" ::msgcat::mcset en "Variable values:" ::msgcat::mcset en "OK" diff --git a/library/demos/nl.msg b/library/demos/nl.msg new file mode 100644 index 0000000..cf89099 --- /dev/null +++ b/library/demos/nl.msg @@ -0,0 +1,145 @@ +mcset nl "Widget Demonstration" "Demonstratie van widgets" +mcset nl "tkWidgetDemo" "tkWidgetDemo" +mcset nl "&File" "&Bestand" +mcset nl "About..." "Info..." +mcset nl "&About..." "&Info..." +mcset nl "<F1>" "<F1>" +mcset nl "&Quit" "&Einde" +mcset nl "Meta-Q" "Meta-E" ;# Displayed hotkey +mcset nl "Meta-q" "Meta-e" ;# Actual binding sequence +mcset nl "Dismiss" "Sluiten" +mcset nl "See Code" "Bekijk Code" +mcset nl "See Variables" "Bekijk Variabelen" +mcset nl "Variable Values" "Waarden Variabelen" +mcset nl "OK" "OK" +mcset nl "Run the \"%s\" sample program" "Start voorbeeld \"%s\"" +mcset nl "Rerun Demo" "Herstart Demo" +mcset nl "Print Code" "Code Afdrukken" +mcset nl "Demo code: %s" "Code van Demo %s" +mcset nl "About Widget Demo" "Over deze demonstratie" +mcset nl "Tk widget demonstration" "Demonstratie van Tk widgets" +mcset nl "Copyright (c) %s" "Copyright (c) %s" + +mcset nl { + @@title + Tk Widget Demonstrations + @@newline + @@normal + @@newline + + This application provides a front end for several short scripts + that demonstrate what you can do with Tk widgets. Each of the + numbered lines below describes a demonstration; you can click on + it to invoke the demonstration. Once the demonstration window + appears, you can click the + @@bold + See Code + @@normal + button to see the Tcl/Tk code that created the demonstration. If + you wish, you can edit the code and click the + @@bold + Rerun Demo + @@normal + button in the code window to reinvoke the demonstration with the + modified code. + @@newline +} { + @@title + Demostratie van Tk widgets + @@newline + @@normal + @@newline + + Dit programma is een schil rond enkele korte scripts waarmee + gedemonstreerd wordt wat je kunt doen met Tk widgets. Elk van de + genummerde regels hieronder omschrijft een demonstratie; je kunt de + demonstratie starten door op de regel te klikken. + Zodra het nieuwe venster verschijnt, kun je op de knop + @@bold + Bekijk Code + @@normal + drukken om de achterliggende Tcl/Tk code te zien. Als je dat wilt, + kun je de code wijzigen en op de knop + @@bold + Herstart Demo + @@normal + drukken in het codevenster om de demonstratie uit te voeren met de + nieuwe code. + @@newline +} + +mcset nl "Labels, buttons, checkbuttons, and radiobuttons" \ + "Labels, knoppen, vinkjes/aankruishokjes en radioknoppen" + +mcset nl "Labels (text and bitmaps)" "Labels (tekst en plaatjes)" +mcset nl "Labels and UNICODE text" "Labels en tekst in UNICODE" +mcset nl "Buttons" "Buttons (drukknoppen)" +mcset nl "Check-buttons (select any of a group)" "Check-buttons (een of meer uit een groep)" +mcset nl "Radio-buttons (select one of a group)" "Radio-buttons (een van een groep)" +mcset nl "A 15-puzzle game made out of buttons" "Een schuifpuzzel van buttons" +mcset nl "Iconic buttons that use bitmaps" "Buttons met pictogrammen" +mcset nl "Two labels displaying images" "Twee labels met plaatjes in plaats van tekst" +mcset nl "A simple user interface for viewing images" \ + "Een eenvoudige user-interface voor het bekijken van plaatjes" +mcset nl "Labelled frames" "Kaders met bijschrift" + +mcset nl "Listboxes" "Keuzelijsten" +mcset nl "The 50 states" "De 50 staten van de VS" +mcset nl "Colors: change the color scheme for the application" \ + "Kleuren: verander het kleurenschema voor het programma" +mcset nl "A collection of famous and infamous sayings" \ + "Beroemde en beruchte citaten en gezegden" + +mcset nl "Entries and Spin-boxes" "Invulvelden en Spinboxen" +mcset nl "Entries without scrollbars" "Invulvelden zonder schuifbalk" +mcset nl "Entries with scrollbars" "Invulvelden met schuifbalk" +mcset nl "Validated entries and password fields" \ + "Invulvelden met controle of wachtwoorden" +mcset nl "Spin-boxes" "Spinboxen" +mcset nl "Simple Rolodex-like form" "Simpel kaartsysteem" + +mcset nl "Text" "Tekst" +mcset nl "Basic editable text" "Voorbeeld met te wijzigen tekst" +mcset nl "Text display styles" "Tekst met verschillende stijlen" +mcset nl "Hypertext (tag bindings)" "Hypertext (verwijzingen via \"tags\")" +mcset nl "A text widget with embedded windows" \ + "Tekstwidget met windows erin" +mcset nl "A search tool built with a text widget" \ + "Zoeken in tekst met behulp van een tekstwidget" + +mcset nl "Canvases" "Canvaswidgets" +mcset nl "The canvas item types" "Objecten in een canvas" +mcset nl "A simple 2-D plot" "Eenvoudige 2D-grafiek" +mcset nl "Text items in canvases" "Tekstobjecten in een canvas" +mcset nl "An editor for arrowheads on canvas lines" \ + "Editor voor de vorm van de pijl (begin/eind van een lijn)" +mcset nl "A ruler with adjustable tab stops" \ + "Een meetlat met aanpasbare ruiters" +mcset nl "A building floor plan" "Plattegrond van een gebouw" +mcset nl "A simple scrollable canvas" "Een schuifbaar canvas" + +mcset nl "Scales" "Schaalverdelingen" +mcset nl "Horizontal scale" "Horizontale schaal" +mcset nl "Vertical scale" "Verticale schaal" + +mcset nl "Paned Windows" "Vensters opgedeeld in stukken" +mcset nl "Horizontal paned window" "Horizontaal gedeeld venster" +mcset nl "Vertical paned window" "Verticaal gedeeld venster" + +mcset nl "Menus" "Menu's" +mcset nl "Menus and cascades (sub-menus)" \ + "Menu's en cascades (submenu's)" +mcset nl "Menu-buttons" "Menu-buttons" + +mcset nl "Common Dialogs" "Veel voorkomende dialoogvensters" +mcset nl "Message boxes" "Mededeling (message box)" +mcset nl "File selection dialog" "Selectie van bestanden" +mcset nl "Color picker" "Kleurenpalet" + +mcset nl "Miscellaneous" "Diversen" +mcset nl "The built-in bitmaps" "Ingebouwde plaatjes" +mcset nl "A dialog box with a local grab" \ + "Een dialoogvenster met een locale \"grab\"" +mcset nl "A dialog box with a global grab" \ + "Een dialoogvenster met een globale \"grab\"" + diff --git a/library/demos/widget b/library/demos/widget index da680d1..4a1c3c5 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -11,7 +11,7 @@ exec wish "$0" "$@" # ".tcl" files is this directory, which are sourced by this script # as needed. # -# RCS: @(#) $Id: widget,v 1.19 2003/11/04 13:26:33 dkf Exp $ +# RCS: @(#) $Id: widget,v 1.20 2003/11/05 13:31:12 dkf Exp $ package require Tcl 8.4 package require Tk 8.4 @@ -118,7 +118,7 @@ if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq "aqua"} { -command {exit} -accelerator [mc "Meta-Q"] . configure -menu .menuBar bind . <F1> {aboutBox} -bind . <Meta-q> {exit} +bind . <[mc "Meta-q"]> {exit} frame .statusBar label .statusBar.lab -text " " -relief sunken -bd 1 \ |