2 # the next line restarts using wish \
3 exec wish85
"$0" ${1+"$@"}
6 # This script demonstrates the various widgets provided by Tk, along with many
7 # of the features of the Tk toolkit. This file only contains code to generate
8 # the main window for the application, which invokes individual
9 # demonstrations. The code for the actual demonstrations is contained in
10 # separate ".tcl" files is this directory, which are sourced by this script as
13 package require Tcl
8.5
14 package require Tk
8.5
15 package require msgcat
18 eval destroy
[winfo child .
]
19 set tk_demoDirectory
[file join [pwd] [file dirname [info
script]]]
20 ::msgcat
::mcload
$tk_demoDirectory
21 namespace import
::msgcat
::mc
22 wm title .
[mc
"Widget Demonstration"]
23 if {[tk windowingsystem
] eq
"x11"} {
24 # This won't work everywhere, but there's no other way in core Tk at the
25 # moment to display a coloured icon.
26 image create photo TclPowered \
27 -file [file join $tk_library images logo64.gif
]
28 wm iconwindow .
[toplevel ._iconWindow
]
29 pack
[label ._iconWindow.i
-image TclPowered
]
30 wm iconname .
[mc
"tkWidgetDemo"]
33 if {"defaultFont" ni
[font names
]} {
34 # TIP #145 defines some standard named fonts
35 if {"TkDefaultFont" in [font names
] && "TkFixedFont" in [font names
]} {
36 # FIX ME: the following technique of cloning the font to copy it works
37 # fine but means that if the system font is changed by Tk
38 # cannot update the copied font. font alias might be useful
39 # here -- or fix the app to use TkDefaultFont etc.
40 font create mainFont
{*}[font configure TkDefaultFont
]
41 font create fixedFont
{*}[font configure TkFixedFont
]
42 font create boldFont
{*}[font configure TkDefaultFont
] -weight bold
43 font create titleFont
{*}[font configure TkDefaultFont
] -weight bold
44 font create statusFont
{*}[font configure TkDefaultFont
]
45 font create varsFont
{*}[font configure TkDefaultFont
]
46 if {[tk windowingsystem
] eq
"aqua"} {
47 font configure titleFont
-size 17
50 font create mainFont
-family Helvetica
-size 12
51 font create fixedFont
-family Courier
-size 10
52 font create boldFont
-family Helvetica
-size 12 -weight bold
53 font create titleFont
-family Helvetica
-size 18 -weight bold
54 font create statusFont
-family Helvetica
-size 10
55 font create varsFont
-family Helvetica
-size 14
62 image create photo
::img
::refresh
-format GIF
-data {
63 R0lGODlhEAAQAJEDAP
///wAAACpnKv
///yH5BAEAAAMALAAAAAAQABAAAAI63IKp
64 xgcPH2ouwgBCw1HIxHCQ4F3hSJKmwZXqWrmWxj7lKJ2dndcon9EBUq
+gz3brVXAR
68 image create photo
::img
::view
-format GIF
-data {
69 R0lGODlhEAAQAKIHAP
///wwMDAAAAMDAwNnZ2SYmJmZmZv
///yH5BAEAAAcALAAA
70 AAAQABAAAANMKLos90
+ASamDRxJCgw9YVnlDOXiQBgRDBRgHKE6sW8QR3doPKK27
71 yg33q
/GIOhdg6OsEJzeZykiBSUcs06e56Xx6np8ScIkFGuhQAgA7
74 image create photo
::img
::delete
-format GIF
-data {
75 R0lGODlhEAAQAIABAIQAAP
///yH5BAEAAAEALAAAAAAQABAAAAIjjI
+pmwAc3HGy
76 PUSvqYpuvWQg40FfSVacBa5nN6JYDI3mzRQAOw
==
79 image create photo
::img
::print
-format GIF
-data {
80 R0lGODlhEAAQALMKAAAAAP
///52VunNkl8C82Yl
+qldBgq
+pyrOzs1fYAP
///wAA
81 AAAAAAAAAAAAAAAAACH5BAEAAAoALAAAAAAQABAAAARGUMlJKwU4AztB
+ODGeUiJ
82 fGLlgeEYmGWQXmx7aXgmAUTv
/74N4EAsGhOJg1DAbDqbwoJ0Sp0KB9isNis0eL
/g
86 # Note that this is run through the message catalog! This is because this is
87 # actually an image of a word.
88 image create photo
::img
::new
-format GIF
-data [mc
{
89 R0lGODlhHgAOALMPALMAANyIiOu7u8dEROaqqvru7sxVVeGZmbgREfXd3b0iItZ3
90 d8IzM9FmZvDMzP
///yH5BAEAAA8ALAAAAAAeAA4AAASa8MlJq7046827WVOCHEkw
91 nANhUgJlEBIABJIwL3K
+4IcUALCHjfbItYZDSgJgkBiYPmBMAUAkkLPKs
/BAyLgM
92 wAQwOAAY2ByCaw4QAFQSoDEePJ6DmU1xInYZTw5nOEFFdgVUelkVDTIMd3AKFGQ1
93 MgI2AwEmQW8APZ0gdRONAks5nhIFVVxdAAkUAS2pAVwFl7ITB4UqHb0XEQA7
96 #----------------------------------------------------------------
97 # The code below create the main window, consisting of a menu bar and a text
98 # widget that explains how to use the program, plus lists all of the demos as
100 #----------------------------------------------------------------
102 menu .menuBar
-tearoff 0
104 if {[tk windowingsystem
] ne
"aqua"} {
105 # This is a tk-internal procedure to make i18n easier
106 ::tk
::AmpMenuArgs .menuBar add cascade
-label [mc
"&File"] \
108 menu .menuBar.
file -tearoff 0
109 ::tk
::AmpMenuArgs .menuBar.
file add
command -label [mc
"&About..."] \
110 -command {tkAboutDialog
} -accelerator [mc
"<F1>"]
111 bind .
<F1
> {tkAboutDialog
}
112 .menuBar.
file add sep
113 if {[string match win
* [tk windowingsystem
]]} {
114 # Windows doesn't usually have a Meta key
115 ::tk
::AmpMenuArgs .menuBar.
file add
command -label [mc
"&Quit"] \
116 -command {exit} -accelerator [mc
"Ctrl+Q"]
117 bind .
<[mc
"Control-q"]> {exit}
119 ::tk
::AmpMenuArgs .menuBar.
file add
command -label [mc
"&Quit"] \
120 -command {exit} -accelerator [mc
"Meta-Q"]
121 bind .
<[mc
"Meta-q"]> {exit}
125 . configure
-menu .menuBar
127 ttk
::frame .statusBar
128 ttk
::label .statusBar.lab
-text " " -anchor w
129 if {[tk windowingsystem
] eq
"aqua"} {
130 ttk
::separator .statusBar.sep
131 pack .statusBar.sep
-side top
-expand yes -fill x
-pady 0
133 pack .statusBar.lab
-side left
-padx 2 -expand yes -fill both
134 if {[tk windowingsystem
] ne
"aqua"} {
135 ttk
::sizegrip .statusBar.foo
136 pack .statusBar.foo
-side left
-padx 2
138 pack .statusBar
-side bottom
-fill x
-pady 2
142 set textheight
[expr {
143 ([winfo screenheight .
] * 0.7) /
144 [font metrics mainFont
-displayof .
-linespace]
148 ttk
::frame .textFrame
149 scrollbar .s
-orient vertical
-command {.t yview
} -takefocus 1
150 pack .s
-in .textFrame
-side right
-fill y
151 text .t
-yscrollcommand {.s
set} -wrap word
-width 70 -height $textheight \
152 -font mainFont
-setgrid 1 -highlightthickness 0 \
153 -padx 4 -pady 2 -takefocus 0
154 pack .t
-in .textFrame
-expand y
-fill both
-padx 1
155 pack .textFrame
-expand yes -fill both
156 if {[tk windowingsystem
] eq
"aqua"} {
157 pack configure .statusBar.lab
-padx {10 18} -pady {4 6}
158 pack configure .statusBar
-pady 0
159 .t configure
-padx 10 -pady 0
162 # Create a bunch of tags to use in the text widget, such as those for section
163 # titles and demo descriptions. Also define the bindings for tags.
165 .t tag configure title
-font titleFont
166 .t tag configure subtitle
-font titleFont
167 .t tag configure bold
-font boldFont
168 if {[tk windowingsystem
] eq
"aqua"} {
169 .t tag configure title
-spacing1 8
170 .t tag configure subtitle
-spacing3 3
173 # We put some "space" characters to the left and right of each demo
174 # description so that the descriptions are highlighted only when the mouse
175 # cursor is right over them (but not when the cursor is to their left or
178 .t tag configure demospace
-lmargin1 1c
-lmargin2 1c
180 if {[winfo depth .
] == 1} {
181 .t tag configure demo
-lmargin1 1c
-lmargin2 1c \
183 .t tag configure visited
-lmargin1 1c
-lmargin2 1c \
185 .t tag configure hot
-background black
-foreground white
187 .t tag configure demo
-lmargin1 1c
-lmargin2 1c \
188 -foreground blue
-underline 1
189 .t tag configure visited
-lmargin1 1c
-lmargin2 1c \
190 -foreground #303080 -underline 1
191 .t tag configure hot
-foreground red
-underline 1
193 .t tag
bind demo
<ButtonRelease-1
> {
194 invoke
[.t index
{@
%x
,%y
}]
197 .t tag
bind demo
<Enter
> {
198 set lastLine
[.t index
{@
%x
,%y linestart
}]
199 .t tag add hot
"$lastLine +1 chars" "$lastLine lineend -1 chars"
200 .t config
-cursor [::ttk
::cursor link
]
201 showStatus
[.t index
{@
%x
,%y
}]
203 .t tag
bind demo
<Leave
> {
204 .t tag remove hot
1.0 end
205 .t config
-cursor [::ttk
::cursor text
]
206 .statusBar.lab config
-text ""
208 .t tag
bind demo
<Motion
> {
209 set newLine
[.t index
{@
%x
,%y linestart
}]
210 if {$newLine ne
$lastLine} {
211 .t tag remove hot
1.0 end
212 set lastLine
$newLine
214 set tags
[.t tag names
{@
%x
,%y
}]
215 set i
[lsearch
-glob $tags demo-
*]
217 .t tag add hot
"$lastLine +1 chars" "$lastLine lineend -1 chars"
220 showStatus
[.t index
{@
%x
,%y
}]
223 ##############################################################################
224 # Create the text for the text widget.
226 # addFormattedText --
228 # Add formatted text (but not hypertext) to the text widget after first
229 # passing it through the message catalog to allow for localization.
230 # Lines starting with @@ are formatting directives (insert title, insert
231 # demo hyperlink, begin newline, or change style) and all other lines
232 # are literal strings to be inserted. Substitutions are performed,
233 # allowing processing pieces through the message catalog. Blank lines
236 proc addFormattedText
{formattedText
} {
241 foreach line
[split $formattedText \n] {
242 set line
[string trim
$line]
246 if {[string match @@
* $line]} {
247 set data
[string range
$line 2 end
]
248 set key
[lindex
$data 0]
249 set values
[lrange
$data 1 end
]
250 switch
-exact -- $key {
252 .t insert end
[mc
$values]\n title
\n normal
255 .t insert end
\n $style
259 .t insert end
"\n" {} [mc
$values] subtitle \
264 set description
[lassign
$values name
]
265 .t insert end
"[incr demoCount]. [mc $description]" \
266 [list demo demo-
$name]
268 .t image create end
-image ::img
::new
-padx 5
271 .t insert end
" \n " demospace
283 .t insert end
" " $style
286 .t insert end
[mc
$line] $style
291 @@title Tk Widget Demonstrations
293 This application provides a front end
for several short scripts
294 that demonstrate what you can
do with Tk widgets. Each of the
295 numbered lines below describes a demonstration
; you can click on
296 it to invoke the demonstration. Once the demonstration window
297 appears
, you can click the
301 button to see the Tcl
/Tk code that created the demonstration. If
302 you wish
, you can edit the code and click the
306 button
in the code window to reinvoke the demonstration with the
310 @@subtitle Labels
, buttons
, checkbuttons
, and radiobuttons
311 @@demo label Labels
(text and bitmaps
)
312 @@demo unicodeout Labels and UNICODE text
313 @@demo button Buttons
314 @@demo check Check-buttons
(select any of a group
)
315 @@demo radio Radio-buttons
(select one of a group
)
316 @@demo puzzle A
15-puzzle game made out of buttons
317 @@demo icon Iconic buttons that use bitmaps
318 @@demo image1 Two labels displaying images
319 @@demo image2 A simple user interface
for viewing images
320 @@demo labelframe Labelled frames
322 @@demo ttkbut The simple Themed Tk widgets
324 @@subtitle Listboxes and Trees
325 @@demo states The
50 states
326 @@demo colors Colors
: change the color scheme
for the application
327 @@demo sayings A collection of famous and infamous sayings
329 @@demo mclist A multi-column list of countries
331 @@demo tree A directory browser tree
333 @@subtitle Entries
, Spin-boxes and Combo-boxes
334 @@demo entry1 Entries without scrollbars
335 @@demo entry2 Entries with scrollbars
336 @@demo entry3 Validated entries and password fields
337 @@demo spin Spin-boxes
339 @@demo combo Combo-boxes
340 @@demo form Simple Rolodex-like form
343 @@demo text Basic editable text
344 @@demo style Text display styles
345 @@demo
bind Hypertext
(tag bindings
)
346 @@demo twind A text widget with embedded windows and other features
347 @@demo search A search tool built with a text widget
349 @@demo textpeer Peering text widgets
352 @@demo items The canvas item types
353 @@demo plot A simple
2-D plot
354 @@demo ctext Text items
in canvases
355 @@demo arrow An editor
for arrowheads on canvas lines
356 @@demo ruler A ruler with adjustable tab stops
357 @@demo floor A building floor plan
358 @@demo cscroll A simple scrollable canvas
360 @@demo knightstour A Knight
's tour of the chess board
362 @@subtitle Scales and Progress Bars
363 @@demo hscale Horizontal scale
364 @@demo vscale Vertical scale
366 @@demo ttkscale Themed scale linked to a label with traces
368 @@demo ttkprogress Progress bar
370 @@subtitle Paned Windows and Notebooks
371 @@demo paned1 Horizontal paned window
372 @@demo paned2 Vertical paned window
374 @@demo ttkpane Themed nested panes
376 @@demo ttknote Notebook widget
378 @@subtitle Menus and Toolbars
379 @@demo menu Menus and cascades (sub-menus)
380 @@demo menubu Menu-buttons
382 @@demo ttkmenu Themed menu buttons
384 @@demo toolbar Themed toolbar
386 @@subtitle Common Dialogs
387 @@demo msgbox Message boxes
388 @@demo filebox File selection dialog
389 @@demo clrpick Color picker
393 @@demo anilabel Animated labels
395 @@demo aniwave Animated wave
397 @@demo pendulum Pendulum simulation
399 @@demo goldberg A celebration of Rube Goldberg
401 @@subtitle Miscellaneous
402 @@demo bitmap The built-in bitmaps
403 @@demo dialog1 A dialog box with a local grab
404 @@demo dialog2 A dialog box with a global grab
407 ##############################################################################
409 .t configure -state disabled
413 # Add "See Code" and "Dismiss" button frame, with optional "See Vars"
416 # w - The name of the frame to use.
418 proc addSeeDismiss {w show {vars {}} {extra {}}} {
419 ## See Code / Dismiss buttons
421 ttk::separator $w.sep
422 #ttk::frame $w.sep -height 2 -relief sunken
423 grid $w.sep -columnspan 4 -row 0 -sticky ew -pady 2
424 ttk::button $w.dismiss -text [mc "Dismiss"] \
425 -image ::img::delete -compound left \
426 -command [list destroy [winfo toplevel $w]]
427 ttk::button $w.code -text [mc "See Code"] \
428 -image ::img::view -compound left \
429 -command [list showCode $show]
430 set buttons [list x $w.code $w.dismiss]
431 if {[llength $vars]} {
432 ttk::button $w.vars -text [mc "See Variables"] \
433 -image ::img::view -compound left \
434 -command [concat [list showVars $w.dialog] $vars]
435 set buttons [linsert $buttons 1 $w.vars]
438 set buttons [linsert $buttons 1 [uplevel 1 $extra]]
440 grid {*}$buttons -padx 4 -pady 4
441 grid columnconfigure $w 0 -weight 1
442 if {[tk windowingsystem] eq "aqua"} {
443 foreach b [lrange $buttons 1 end] {$b configure -takefocus 0}
444 grid configure $w.sep -pady 0
445 grid configure {*}$buttons -pady {10 12}
446 grid configure [lindex $buttons 1] -padx {16 4}
447 grid configure [lindex $buttons end] -padx {4 18}
453 # This procedure is invoked by most of the demos to position a new demo
457 # w - The name of the window to position.
459 proc positionWindow w {
460 wm geometry $w +300+300
464 # Displays the values of one or more variables in a window, and updates the
465 # display whenever any of the variables changes.
468 # w - Name of new window to create for display.
469 # args - Any number of names of variables.
471 proc showVars {w args} {
474 if {[tk windowingsystem] eq "x11"} {wm attributes $w -type dialog}
475 wm title $w [mc "Variable values"]
477 set b [ttk::frame $w.frame]
479 set f [ttk::labelframe $b.title -text [mc "Variable values:"]]
481 ttk::label $f.n$var -text "$var:" -anchor w
482 ttk::label $f.v$var -textvariable $var -anchor w
483 grid $f.n$var $f.v$var -padx 2 -pady 2 -sticky w
485 ttk::button $b.ok -text [mc "OK"] \
486 -command [list destroy $w] -default active
487 bind $w <Return> [list $b.ok invoke]
488 bind $w <Escape> [list $b.ok invoke]
490 grid $f -sticky news -padx 4
491 grid $b.ok -sticky e -padx 4 -pady {6 4}
492 if {[tk windowingsystem] eq "aqua"} {
493 $b.ok configure -takefocus 0
494 grid configure $b.ok -pady {10 12} -padx {16 18}
495 grid configure $f -padx 10 -pady {10 0}
497 grid columnconfig $f 1 -weight 1
498 grid rowconfigure $f 100 -weight 1
499 grid columnconfig $b 0 -weight 1
500 grid rowconfigure $b 0 -weight 1
501 grid columnconfig $w 0 -weight 1
502 grid rowconfigure $w 0 -weight 1
506 # This procedure is called when the user clicks on a demo description. It is
507 # responsible for invoking the demonstration.
510 # index - The index of the character that the user clicked on.
513 global tk_demoDirectory
514 set tags [.t tag names $index]
515 set i [lsearch -glob $tags demo-*]
519 set cursor [.t cget -cursor]
520 .t configure -cursor [::ttk::cursor busy]
522 set demo [string range [lindex $tags $i] 5 end]
523 uplevel 1 [list source [file join $tk_demoDirectory $demo.tcl]]
525 .t configure -cursor $cursor
527 .t tag add visited "$index linestart +1 chars" "$index lineend -1 chars"
532 # Show the name of the demo program in the status bar. This procedure is
533 # called when the user moves the cursor over a demo description.
535 proc showStatus index {
536 set tags [.t tag names $index]
537 set i [lsearch -glob $tags demo-*]
538 set cursor [.t cget -cursor]
540 .statusBar.lab config -text " "
541 set newcursor [::ttk::cursor text]
543 set demo [string range [lindex $tags $i] 5 end]
544 .statusBar.lab config -text [mc "Run the \"%s\" sample program" $demo]
545 set newcursor [::ttk::cursor link]
547 if {$cursor ne $newcursor} {
548 .t config -cursor $newcursor
555 # w - Name of text widget containing code to eval
557 proc evalShowCode {w} {
558 set code [$w get 1.0 end-1c]
563 # This procedure creates a toplevel window that displays the code for a
564 # demonstration and allows it to be edited and reinvoked.
567 # w - The name of the demonstration's window
, which can be used to
568 # derive the name of the file containing its code.
571 global tk_demoDirectory
572 set file [string range
$w 1 end
].tcl
574 if {![winfo exists
$top]} {
576 if {[tk windowingsystem
] eq
"x11"} {wm attributes
$top -type dialog
}
579 set text
[text
$t.text
-font fixedFont
-height 24 -wrap word \
580 -xscrollcommand [list
$t.xscroll
set] \
581 -yscrollcommand [list
$t.yscroll
set] \
582 -setgrid 1 -highlightthickness 0 -pady 2 -padx 3]
583 scrollbar
$t.xscroll
-command [list
$t.text xview
] -orient horizontal
584 scrollbar
$t.yscroll
-command [list
$t.text yview
] -orient vertical
586 grid
$t.text
$t.yscroll
-sticky news
588 grid rowconfigure
$t 0 -weight 1
589 grid columnconfig
$t 0 -weight 1
591 set btns
[ttk
::frame
$top.btns
]
592 ttk
::separator
$btns.sep
593 grid
$btns.sep
-columnspan 4 -row 0 -sticky ew
-pady 2
594 ttk
::button
$btns.dismiss
-text [mc
"Dismiss"] \
595 -default active
-command [list destroy
$top] \
596 -image ::img
::delete
-compound left
597 ttk
::button
$btns.print
-text [mc
"Print Code"] \
598 -command [list printCode
$text $file] \
599 -image ::img
::print
-compound left
600 ttk
::button
$btns.rerun
-text [mc
"Rerun Demo"] \
601 -command [list evalShowCode
$text] \
602 -image ::img
::refresh
-compound left
603 set buttons
[list x
$btns.rerun
$btns.print
$btns.dismiss
]
604 grid
{*}$buttons -padx 4 -pady 4
605 grid columnconfigure
$btns 0 -weight 1
606 if {[tk windowingsystem
] eq
"aqua"} {
607 foreach b
[lrange
$buttons 1 end
] {$b configure
-takefocus 0}
608 grid configure
$btns.sep
-pady 0
609 grid configure
{*}$buttons -pady {10 12}
610 grid configure
[lindex
$buttons 1] -padx {16 4}
611 grid configure
[lindex
$buttons end
] -padx {4 18}
614 grid
$btns -sticky ew
615 grid rowconfigure
$top 0 -weight 1
616 grid columnconfig
$top 0 -weight 1
619 if {[winfo class
%W
] ne
"Text"} { .code.btns.dismiss invoke
}
621 bind $top <Escape
> [bind $top <Return
>]
626 wm title
$top [mc
"Demo code: %s" [file join $tk_demoDirectory $file]]
627 wm iconname
$top $file
628 set id
[open
[file join $tk_demoDirectory $file]]
629 $top.f.text delete
1.0 end
630 $top.f.text insert
1.0 [read $id]
631 $top.f.text mark
set insert
1.0
636 # Prints the source code currently displayed in the See Code dialog. Much
637 # thanks to Arjen Markus for this.
640 # w - Name of text widget containing code to print
641 # file - Name of the original file (implicitly for title)
643 proc printCode
{w
file} {
644 set code
[$w get
1.0 end-1c
]
647 if {[info exists
::env
(HOME
)]} {
648 set dir
"$::env(HOME)"
650 if {[info exists
::env
(TMP
)]} {
653 if {[info exists
::env
(TEMP
)]} {
657 set filename
[file join $dir "tkdemo-$file"]
658 set outfile
[open
$filename "w"]
662 switch
-- $
::tcl_platform
(platform
) {
664 if {[catch
{exec lp -c $filename} msg
]} {
665 tk_messageBox
-title "Print spooling failure" \
666 -message "Print spooling probably failed: $msg"
670 if {[catch
{PrintTextWin32
$filename} msg
]} {
671 tk_messageBox
-title "Print spooling failure" \
672 -message "Print spooling probably failed: $msg"
676 tk_messageBox
-title "Operation not Implemented" \
677 -message "Wow! Unknown platform: $::tcl_platform(platform)"
682 # Be careful to throw away the temporary file in a gentle manner ...
684 if {[file exists
$filename]} {
685 catch
{file delete
$filename}
690 # Print a file under Windows using all the "intelligence" necessary
693 # filename - Name of the file
696 # Taken from the Wiki page by Keith Vetter, "Printing text files under
699 # Do not execute the command in the background: that way we can dispose of the
702 proc PrintTextWin32
{filename
} {
703 package require registry
704 set app
[auto_execok notepad.exe
]
705 set pcmd
"$app /p %1"
707 set app
[registry get
{HKEY_CLASSES_ROOT\.txt
} {}]
708 set pcmd
[registry get \
709 {HKEY_CLASSES_ROOT
\\$app\\shell
\\print
\\command} {}]
712 regsub
-all {%1} $pcmd $filename pcmd
715 regsub
-all {\\} $pcmd {\\\\} pcmd
716 set command "[auto_execok start] /min $pcmd"
722 # Pops up a message box with an "about" message
724 proc tkAboutDialog
{} {
725 tk_messageBox
-icon info
-type ok
-title [mc
"About Widget Demo"] \
726 -message [mc
"Tk widget demonstration application"] -detail \
727 "[mc {Copyright (c) %s} {1996-1997 Sun Microsystems, Inc.}]
728 [mc {Copyright (c) %s} {1997-2000 Ajuba Solutions, Inc.}]
729 [mc {Copyright (c) %s} {2001-2007 Donal K. Fellows}]
730 [mc {Copyright (c) %s} {2002-2007 Daniel A. Steffen}]"