Artifact
e69fb6a25fbb39fdb238c027c67954c3d610f740:
- File
jni/sdl2tk/library/demos/widget
— part of check-in
[3ba628a7f9]
at
2014-07-15 15:41:19
on branch trunk
— initial check-in
(user:
chw
size: 23288)
0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 20 74 68 65 20 #!/bin/sh.# the
0010: 6e 65 78 74 20 6c 69 6e 65 20 72 65 73 74 61 72 next line restar
0020: 74 73 20 75 73 69 6e 67 20 77 69 73 68 20 5c 0a ts using wish \.
0030: 65 78 65 63 20 77 69 73 68 20 22 24 30 22 20 24 exec wish "$0" $
0040: 7b 31 2b 22 24 40 22 7d 0a 0a 23 20 77 69 64 67 {1+"$@"}..# widg
0050: 65 74 20 2d 2d 0a 23 20 54 68 69 73 20 73 63 72 et --.# This scr
0060: 69 70 74 20 64 65 6d 6f 6e 73 74 72 61 74 65 73 ipt demonstrates
0070: 20 74 68 65 20 76 61 72 69 6f 75 73 20 77 69 64 the various wid
0080: 67 65 74 73 20 70 72 6f 76 69 64 65 64 20 62 79 gets provided by
0090: 20 54 6b 2c 20 61 6c 6f 6e 67 20 77 69 74 68 20 Tk, along with
00a0: 6d 61 6e 79 0a 23 20 6f 66 20 74 68 65 20 66 65 many.# of the fe
00b0: 61 74 75 72 65 73 20 6f 66 20 74 68 65 20 54 6b atures of the Tk
00c0: 20 74 6f 6f 6c 6b 69 74 2e 20 54 68 69 73 20 66 toolkit. This f
00d0: 69 6c 65 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e ile only contain
00e0: 73 20 63 6f 64 65 20 74 6f 20 67 65 6e 65 72 61 s code to genera
00f0: 74 65 0a 23 20 74 68 65 20 6d 61 69 6e 20 77 69 te.# the main wi
0100: 6e 64 6f 77 20 66 6f 72 20 74 68 65 20 61 70 70 ndow for the app
0110: 6c 69 63 61 74 69 6f 6e 2c 20 77 68 69 63 68 20 lication, which
0120: 69 6e 76 6f 6b 65 73 20 69 6e 64 69 76 69 64 75 invokes individu
0130: 61 6c 0a 23 20 64 65 6d 6f 6e 73 74 72 61 74 69 al.# demonstrati
0140: 6f 6e 73 2e 20 54 68 65 20 63 6f 64 65 20 66 6f ons. The code fo
0150: 72 20 74 68 65 20 61 63 74 75 61 6c 20 64 65 6d r the actual dem
0160: 6f 6e 73 74 72 61 74 69 6f 6e 73 20 69 73 20 63 onstrations is c
0170: 6f 6e 74 61 69 6e 65 64 20 69 6e 0a 23 20 73 65 ontained in.# se
0180: 70 61 72 61 74 65 20 22 2e 74 63 6c 22 20 66 69 parate ".tcl" fi
0190: 6c 65 73 20 69 73 20 74 68 69 73 20 64 69 72 65 les is this dire
01a0: 63 74 6f 72 79 2c 20 77 68 69 63 68 20 61 72 65 ctory, which are
01b0: 20 73 6f 75 72 63 65 64 20 62 79 20 74 68 69 73 sourced by this
01c0: 20 73 63 72 69 70 74 20 61 73 0a 23 20 6e 65 65 script as.# nee
01d0: 64 65 64 2e 0a 0a 70 61 63 6b 61 67 65 20 72 65 ded...package re
01e0: 71 75 69 72 65 20 54 63 6c 09 38 2e 35 0a 70 61 quire Tcl.8.5.pa
01f0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 54 6b ckage require Tk
0200: 09 38 2e 35 0a 70 61 63 6b 61 67 65 20 72 65 71 .8.5.package req
0210: 75 69 72 65 20 6d 73 67 63 61 74 0a 0a 65 76 61 uire msgcat..eva
0220: 6c 20 64 65 73 74 72 6f 79 20 5b 77 69 6e 66 6f l destroy [winfo
0230: 20 63 68 69 6c 64 20 2e 5d 0a 73 65 74 20 74 6b child .].set tk
0240: 5f 64 65 6d 6f 44 69 72 65 63 74 6f 72 79 20 5b _demoDirectory [
0250: 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 file join [pwd]
0260: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 [file dirname [i
0270: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 0a 3a 3a nfo script]]].::
0280: 6d 73 67 63 61 74 3a 3a 6d 63 6c 6f 61 64 20 24 msgcat::mcload $
0290: 74 6b 5f 64 65 6d 6f 44 69 72 65 63 74 6f 72 79 tk_demoDirectory
02a0: 0a 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
02b0: 74 20 3a 3a 6d 73 67 63 61 74 3a 3a 6d 63 0a 77 t ::msgcat::mc.w
02c0: 6d 20 74 69 74 6c 65 20 2e 20 5b 6d 63 20 22 57 m title . [mc "W
02d0: 69 64 67 65 74 20 44 65 6d 6f 6e 73 74 72 61 74 idget Demonstrat
02e0: 69 6f 6e 22 5d 0a 69 66 20 7b 5b 74 6b 20 77 69 ion"].if {[tk wi
02f0: 6e 64 6f 77 69 6e 67 73 79 73 74 65 6d 5d 20 65 ndowingsystem] e
0300: 71 20 22 78 31 31 22 7d 20 7b 0a 20 20 20 20 23 q "x11"} {. #
0310: 20 54 68 69 73 20 77 6f 6e 27 74 20 77 6f 72 6b This won't work
0320: 20 65 76 65 72 79 77 68 65 72 65 2c 20 62 75 74 everywhere, but
0330: 20 74 68 65 72 65 27 73 20 6e 6f 20 6f 74 68 65 there's no othe
0340: 72 20 77 61 79 20 69 6e 20 63 6f 72 65 20 54 6b r way in core Tk
0350: 20 61 74 20 74 68 65 0a 20 20 20 20 23 20 6d 6f at the. # mo
0360: 6d 65 6e 74 20 74 6f 20 64 69 73 70 6c 61 79 20 ment to display
0370: 61 20 63 6f 6c 6f 75 72 65 64 20 69 63 6f 6e 2e a coloured icon.
0380: 0a 20 20 20 20 69 6d 61 67 65 20 63 72 65 61 74 . image creat
0390: 65 20 70 68 6f 74 6f 20 54 63 6c 50 6f 77 65 72 e photo TclPower
03a0: 65 64 20 5c 0a 09 20 20 20 20 2d 66 69 6c 65 20 ed \.. -file
03b0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 74 6b 5f 6c [file join $tk_l
03c0: 69 62 72 61 72 79 20 69 6d 61 67 65 73 20 6c 6f ibrary images lo
03d0: 67 6f 36 34 2e 67 69 66 5d 0a 20 20 20 20 77 6d go64.gif]. wm
03e0: 20 69 63 6f 6e 77 69 6e 64 6f 77 20 2e 20 5b 74 iconwindow . [t
03f0: 6f 70 6c 65 76 65 6c 20 2e 5f 69 63 6f 6e 57 69 oplevel ._iconWi
0400: 6e 64 6f 77 5d 0a 20 20 20 20 70 61 63 6b 20 5b ndow]. pack [
0410: 6c 61 62 65 6c 20 2e 5f 69 63 6f 6e 57 69 6e 64 label ._iconWind
0420: 6f 77 2e 69 20 2d 69 6d 61 67 65 20 54 63 6c 50 ow.i -image TclP
0430: 6f 77 65 72 65 64 5d 0a 20 20 20 20 77 6d 20 69 owered]. wm i
0440: 63 6f 6e 6e 61 6d 65 20 2e 20 5b 6d 63 20 22 74 conname . [mc "t
0450: 6b 57 69 64 67 65 74 44 65 6d 6f 22 5d 0a 7d 0a kWidgetDemo"].}.
0460: 0a 69 66 20 7b 22 64 65 66 61 75 6c 74 46 6f 6e .if {"defaultFon
0470: 74 22 20 6e 69 20 5b 66 6f 6e 74 20 6e 61 6d 65 t" ni [font name
0480: 73 5d 7d 20 7b 0a 20 20 20 20 23 20 54 49 50 20 s]} {. # TIP
0490: 23 31 34 35 20 64 65 66 69 6e 65 73 20 73 6f 6d #145 defines som
04a0: 65 20 73 74 61 6e 64 61 72 64 20 6e 61 6d 65 64 e standard named
04b0: 20 66 6f 6e 74 73 0a 20 20 20 20 69 66 20 7b 22 fonts. if {"
04c0: 54 6b 44 65 66 61 75 6c 74 46 6f 6e 74 22 20 69 TkDefaultFont" i
04d0: 6e 20 5b 66 6f 6e 74 20 6e 61 6d 65 73 5d 20 26 n [font names] &
04e0: 26 20 22 54 6b 46 69 78 65 64 46 6f 6e 74 22 20 & "TkFixedFont"
04f0: 69 6e 20 5b 66 6f 6e 74 20 6e 61 6d 65 73 5d 7d in [font names]}
0500: 20 7b 0a 20 20 20 20 20 20 20 20 23 20 46 49 58 {. # FIX
0510: 20 4d 45 3a 20 74 68 65 20 66 6f 6c 6c 6f 77 69 ME: the followi
0520: 6e 67 20 74 65 63 68 6e 69 71 75 65 20 6f 66 20 ng technique of
0530: 63 6c 6f 6e 69 6e 67 20 74 68 65 20 66 6f 6e 74 cloning the font
0540: 20 74 6f 20 63 6f 70 79 20 69 74 20 77 6f 72 6b to copy it work
0550: 73 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 s. #
0560: 20 20 20 20 66 69 6e 65 20 62 75 74 20 6d 65 61 fine but mea
0570: 6e 73 20 74 68 61 74 20 69 66 20 74 68 65 20 73 ns that if the s
0580: 79 73 74 65 6d 20 66 6f 6e 74 20 69 73 20 63 68 ystem font is ch
0590: 61 6e 67 65 64 20 62 79 20 54 6b 0a 20 20 20 20 anged by Tk.
05a0: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 63 61 # ca
05b0: 6e 6e 6f 74 20 75 70 64 61 74 65 20 74 68 65 20 nnot update the
05c0: 63 6f 70 69 65 64 20 66 6f 6e 74 2e 20 66 6f 6e copied font. fon
05d0: 74 20 61 6c 69 61 73 20 6d 69 67 68 74 20 62 65 t alias might be
05e0: 20 75 73 65 66 75 6c 0a 20 20 20 20 20 20 20 20 useful.
05f0: 23 20 20 20 20 20 20 20 20 20 68 65 72 65 20 2d # here -
0600: 2d 20 6f 72 20 66 69 78 20 74 68 65 20 61 70 70 - or fix the app
0610: 20 74 6f 20 75 73 65 20 54 6b 44 65 66 61 75 6c to use TkDefaul
0620: 74 46 6f 6e 74 20 65 74 63 2e 0a 20 20 20 20 20 tFont etc..
0630: 20 20 20 66 6f 6e 74 20 63 72 65 61 74 65 20 6d font create m
0640: 61 69 6e 46 6f 6e 74 20 20 20 7b 2a 7d 5b 66 6f ainFont {*}[fo
0650: 6e 74 20 63 6f 6e 66 69 67 75 72 65 20 54 6b 44 nt configure TkD
0660: 65 66 61 75 6c 74 46 6f 6e 74 5d 0a 20 20 20 20 efaultFont].
0670: 20 20 20 20 66 6f 6e 74 20 63 72 65 61 74 65 20 font create
0680: 66 69 78 65 64 46 6f 6e 74 20 20 7b 2a 7d 5b 66 fixedFont {*}[f
0690: 6f 6e 74 20 63 6f 6e 66 69 67 75 72 65 20 54 6b ont configure Tk
06a0: 46 69 78 65 64 46 6f 6e 74 5d 0a 20 20 20 20 20 FixedFont].
06b0: 20 20 20 66 6f 6e 74 20 63 72 65 61 74 65 20 62 font create b
06c0: 6f 6c 64 46 6f 6e 74 20 20 20 7b 2a 7d 5b 66 6f oldFont {*}[fo
06d0: 6e 74 20 63 6f 6e 66 69 67 75 72 65 20 54 6b 44 nt configure TkD
06e0: 65 66 61 75 6c 74 46 6f 6e 74 5d 20 2d 77 65 69 efaultFont] -wei
06f0: 67 68 74 20 62 6f 6c 64 0a 20 20 20 20 20 20 20 ght bold.
0700: 20 66 6f 6e 74 20 63 72 65 61 74 65 20 74 69 74 font create tit
0710: 6c 65 46 6f 6e 74 20 20 7b 2a 7d 5b 66 6f 6e 74 leFont {*}[font
0720: 20 63 6f 6e 66 69 67 75 72 65 20 54 6b 44 65 66 configure TkDef
0730: 61 75 6c 74 46 6f 6e 74 5d 20 2d 77 65 69 67 68 aultFont] -weigh
0740: 74 20 62 6f 6c 64 0a 20 20 20 20 20 20 20 20 66 t bold. f
0750: 6f 6e 74 20 63 72 65 61 74 65 20 73 74 61 74 75 ont create statu
0760: 73 46 6f 6e 74 20 7b 2a 7d 5b 66 6f 6e 74 20 63 sFont {*}[font c
0770: 6f 6e 66 69 67 75 72 65 20 54 6b 44 65 66 61 75 onfigure TkDefau
0780: 6c 74 46 6f 6e 74 5d 0a 20 20 20 20 20 20 20 20 ltFont].
0790: 66 6f 6e 74 20 63 72 65 61 74 65 20 76 61 72 73 font create vars
07a0: 46 6f 6e 74 20 20 20 7b 2a 7d 5b 66 6f 6e 74 20 Font {*}[font
07b0: 63 6f 6e 66 69 67 75 72 65 20 54 6b 44 65 66 61 configure TkDefa
07c0: 75 6c 74 46 6f 6e 74 5d 0a 09 69 66 20 7b 5b 74 ultFont]..if {[t
07d0: 6b 20 77 69 6e 64 6f 77 69 6e 67 73 79 73 74 65 k windowingsyste
07e0: 6d 5d 20 65 71 20 22 61 71 75 61 22 7d 20 7b 0a m] eq "aqua"} {.
07f0: 09 20 20 20 20 66 6f 6e 74 20 63 6f 6e 66 69 67 . font config
0800: 75 72 65 20 74 69 74 6c 65 46 6f 6e 74 20 2d 73 ure titleFont -s
0810: 69 7a 65 20 31 37 0a 09 7d 0a 20 20 20 20 7d 20 ize 17..}. }
0820: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 66 else {. f
0830: 6f 6e 74 20 63 72 65 61 74 65 20 6d 61 69 6e 46 ont create mainF
0840: 6f 6e 74 20 20 20 2d 66 61 6d 69 6c 79 20 48 65 ont -family He
0850: 6c 76 65 74 69 63 61 20 2d 73 69 7a 65 20 31 32 lvetica -size 12
0860: 0a 20 20 20 20 20 20 20 20 66 6f 6e 74 20 63 72 . font cr
0870: 65 61 74 65 20 66 69 78 65 64 46 6f 6e 74 20 20 eate fixedFont
0880: 2d 66 61 6d 69 6c 79 20 43 6f 75 72 69 65 72 20 -family Courier
0890: 20 20 2d 73 69 7a 65 20 31 30 0a 20 20 20 20 20 -size 10.
08a0: 20 20 20 66 6f 6e 74 20 63 72 65 61 74 65 20 62 font create b
08b0: 6f 6c 64 46 6f 6e 74 20 20 20 2d 66 61 6d 69 6c oldFont -famil
08c0: 79 20 48 65 6c 76 65 74 69 63 61 20 2d 73 69 7a y Helvetica -siz
08d0: 65 20 31 32 20 2d 77 65 69 67 68 74 20 62 6f 6c e 12 -weight bol
08e0: 64 0a 20 20 20 20 20 20 20 20 66 6f 6e 74 20 63 d. font c
08f0: 72 65 61 74 65 20 74 69 74 6c 65 46 6f 6e 74 20 reate titleFont
0900: 20 2d 66 61 6d 69 6c 79 20 48 65 6c 76 65 74 69 -family Helveti
0910: 63 61 20 2d 73 69 7a 65 20 31 38 20 2d 77 65 69 ca -size 18 -wei
0920: 67 68 74 20 62 6f 6c 64 0a 20 20 20 20 20 20 20 ght bold.
0930: 20 66 6f 6e 74 20 63 72 65 61 74 65 20 73 74 61 font create sta
0940: 74 75 73 46 6f 6e 74 20 2d 66 61 6d 69 6c 79 20 tusFont -family
0950: 48 65 6c 76 65 74 69 63 61 20 2d 73 69 7a 65 20 Helvetica -size
0960: 31 30 0a 20 20 20 20 20 20 20 20 66 6f 6e 74 20 10. font
0970: 63 72 65 61 74 65 20 76 61 72 73 46 6f 6e 74 20 create varsFont
0980: 20 20 2d 66 61 6d 69 6c 79 20 48 65 6c 76 65 74 -family Helvet
0990: 69 63 61 20 2d 73 69 7a 65 20 31 34 0a 20 20 20 ica -size 14.
09a0: 20 7d 0a 7d 0a 0a 73 65 74 20 77 69 64 67 65 74 }.}..set widget
09b0: 44 65 6d 6f 20 31 0a 73 65 74 20 66 6f 6e 74 20 Demo 1.set font
09c0: 6d 61 69 6e 46 6f 6e 74 0a 0a 69 6d 61 67 65 20 mainFont..image
09d0: 63 72 65 61 74 65 20 70 68 6f 74 6f 20 3a 3a 69 create photo ::i
09e0: 6d 67 3a 3a 72 65 66 72 65 73 68 20 2d 66 6f 72 mg::refresh -for
09f0: 6d 61 74 20 47 49 46 20 2d 64 61 74 61 20 7b 0a mat GIF -data {.
0a00: 20 20 20 20 52 30 6c 47 4f 44 6c 68 45 41 41 51 R0lGODlhEAAQ
0a10: 41 4a 45 44 41 50 2f 2f 2f 77 41 41 41 43 70 6e AJEDAP///wAAACpn
0a20: 4b 76 2f 2f 2f 79 48 35 42 41 45 41 41 41 4d 41 Kv///yH5BAEAAAMA
0a30: 4c 41 41 41 41 41 41 51 41 42 41 41 41 41 49 36 LAAAAAAQABAAAAI6
0a40: 33 49 4b 70 0a 20 20 20 20 78 67 63 50 48 32 6f 3IKp. xgcPH2o
0a50: 75 77 67 42 43 77 31 48 49 78 48 43 51 34 46 33 uwgBCw1HIxHCQ4F3
0a60: 68 53 4a 4b 6d 77 5a 58 71 57 72 6d 57 78 6a 37 hSJKmwZXqWrmWxj7
0a70: 6c 4b 4a 32 64 6e 64 63 6f 6e 39 45 42 55 71 2b lKJ2dndcon9EBUq+
0a80: 67 7a 33 62 72 56 58 41 52 0a 20 20 20 20 32 74 gz3brVXAR. 2t
0a90: 49 43 55 30 67 58 42 51 41 37 0a 7d 0a 0a 69 6d ICU0gXBQA7.}..im
0aa0: 61 67 65 20 63 72 65 61 74 65 20 70 68 6f 74 6f age create photo
0ab0: 20 3a 3a 69 6d 67 3a 3a 76 69 65 77 20 2d 66 6f ::img::view -fo
0ac0: 72 6d 61 74 20 47 49 46 20 2d 64 61 74 61 20 7b rmat GIF -data {
0ad0: 0a 20 20 20 20 52 30 6c 47 4f 44 6c 68 45 41 41 . R0lGODlhEAA
0ae0: 51 41 4b 49 48 41 50 2f 2f 2f 77 77 4d 44 41 41 QAKIHAP///wwMDAA
0af0: 41 41 4d 44 41 77 4e 6e 5a 32 53 59 6d 4a 6d 5a AAMDAwNnZ2SYmJmZ
0b00: 6d 5a 76 2f 2f 2f 79 48 35 42 41 45 41 41 41 63 mZv///yH5BAEAAAc
0b10: 41 4c 41 41 41 0a 20 20 20 20 41 41 41 51 41 42 ALAAA. AAAQAB
0b20: 41 41 41 41 4e 4d 4b 4c 6f 73 39 30 2b 41 53 61 AAAANMKLos90+ASa
0b30: 6d 44 52 78 4a 43 67 77 39 59 56 6e 6c 44 4f 58 mDRxJCgw9YVnlDOX
0b40: 69 51 42 67 52 44 42 52 67 48 4b 45 36 73 57 38 iQBgRDBRgHKE6sW8
0b50: 51 52 33 64 6f 50 4b 4b 32 37 0a 20 20 20 20 79 QR3doPKK27. y
0b60: 67 33 33 71 2f 47 49 4f 68 64 67 36 4f 73 45 4a g33q/GIOhdg6OsEJ
0b70: 7a 65 5a 79 6b 69 42 53 55 63 73 30 36 65 35 36 zeZykiBSUcs06e56
0b80: 58 78 36 6e 70 38 53 63 49 6b 46 47 75 68 51 41 Xx6np8ScIkFGuhQA
0b90: 67 41 37 0a 7d 0a 0a 69 6d 61 67 65 20 63 72 65 gA7.}..image cre
0ba0: 61 74 65 20 70 68 6f 74 6f 20 3a 3a 69 6d 67 3a ate photo ::img:
0bb0: 3a 64 65 6c 65 74 65 20 2d 66 6f 72 6d 61 74 20 :delete -format
0bc0: 47 49 46 20 2d 64 61 74 61 20 7b 0a 20 20 20 20 GIF -data {.
0bd0: 52 30 6c 47 4f 44 6c 68 45 41 41 51 41 49 41 42 R0lGODlhEAAQAIAB
0be0: 41 49 51 41 41 50 2f 2f 2f 79 48 35 42 41 45 41 AIQAAP///yH5BAEA
0bf0: 41 41 45 41 4c 41 41 41 41 41 41 51 41 42 41 41 AAEALAAAAAAQABAA
0c00: 41 41 49 6a 6a 49 2b 70 6d 77 41 63 33 48 47 79 AAIjjI+pmwAc3HGy
0c10: 0a 20 20 20 20 50 55 53 76 71 59 70 75 76 57 51 . PUSvqYpuvWQ
0c20: 67 34 30 46 66 53 56 61 63 42 61 35 6e 4e 36 4a g40FfSVacBa5nN6J
0c30: 59 44 49 33 6d 7a 52 51 41 4f 77 3d 3d 0a 7d 0a YDI3mzRQAOw==.}.
0c40: 0a 69 6d 61 67 65 20 63 72 65 61 74 65 20 70 68 .image create ph
0c50: 6f 74 6f 20 3a 3a 69 6d 67 3a 3a 70 72 69 6e 74 oto ::img::print
0c60: 20 2d 66 6f 72 6d 61 74 20 47 49 46 20 2d 64 61 -format GIF -da
0c70: 74 61 20 7b 0a 20 20 20 20 52 30 6c 47 4f 44 6c ta {. R0lGODl
0c80: 68 45 41 41 51 41 4c 4d 4b 41 41 41 41 41 50 2f hEAAQALMKAAAAAP/
0c90: 2f 2f 35 32 56 75 6e 4e 6b 6c 38 43 38 32 59 6c //52VunNkl8C82Yl
0ca0: 2b 71 6c 64 42 67 71 2b 70 79 72 4f 7a 73 31 66 +qldBgq+pyrOzs1f
0cb0: 59 41 50 2f 2f 2f 77 41 41 0a 20 20 20 20 41 41 YAP///wAA. AA
0cc0: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 43 AAAAAAAAAAAAAAAC
0cd0: 48 35 42 41 45 41 41 41 6f 41 4c 41 41 41 41 41 H5BAEAAAoALAAAAA
0ce0: 41 51 41 42 41 41 41 41 52 47 55 4d 6c 4a 4b 77 AQABAAAARGUMlJKw
0cf0: 55 34 41 7a 74 42 2b 4f 44 47 65 55 69 4a 0a 20 U4AztB+ODGeUiJ.
0d00: 20 20 20 66 47 4c 6c 67 65 45 59 6d 47 57 51 58 fGLlgeEYmGWQX
0d10: 6d 78 37 61 58 67 6d 41 55 54 76 2f 37 34 4e 34 mx7aXgmAUTv/74N4
0d20: 45 41 73 47 68 4f 4a 67 31 44 41 62 44 71 62 77 EAsGhOJg1DAbDqbw
0d30: 6f 4a 30 53 70 30 4b 42 39 69 73 4e 69 73 30 65 oJ0Sp0KB9isNis0e
0d40: 4c 2f 67 0a 20 20 20 20 72 79 68 48 35 70 67 6e L/g. ryhH5pgn
0d50: 45 51 41 37 0a 7d 0a 0a 23 20 4e 6f 74 65 20 74 EQA7.}..# Note t
0d60: 68 61 74 20 74 68 69 73 20 69 73 20 72 75 6e 20 hat this is run
0d70: 74 68 72 6f 75 67 68 20 74 68 65 20 6d 65 73 73 through the mess
0d80: 61 67 65 20 63 61 74 61 6c 6f 67 21 20 54 68 69 age catalog! Thi
0d90: 73 20 69 73 20 62 65 63 61 75 73 65 20 74 68 69 s is because thi
0da0: 73 20 69 73 0a 23 20 61 63 74 75 61 6c 6c 79 20 s is.# actually
0db0: 61 6e 20 69 6d 61 67 65 20 6f 66 20 61 20 77 6f an image of a wo
0dc0: 72 64 2e 0a 69 6d 61 67 65 20 63 72 65 61 74 65 rd..image create
0dd0: 20 70 68 6f 74 6f 20 3a 3a 69 6d 67 3a 3a 6e 65 photo ::img::ne
0de0: 77 20 2d 66 6f 72 6d 61 74 20 47 49 46 20 2d 64 w -format GIF -d
0df0: 61 74 61 20 5b 6d 63 20 7b 0a 20 20 20 20 52 30 ata [mc {. R0
0e00: 6c 47 4f 44 6c 68 48 67 41 4f 41 4c 4d 50 41 4c lGODlhHgAOALMPAL
0e10: 4d 41 41 4e 79 49 69 4f 75 37 75 38 64 45 52 4f MAANyIiOu7u8dERO
0e20: 61 71 71 76 72 75 37 73 78 56 56 65 47 5a 6d 62 aqqvru7sxVVeGZmb
0e30: 67 52 45 66 58 64 33 62 30 69 49 74 5a 33 0a 20 gREfXd3b0iItZ3.
0e40: 20 20 20 64 38 49 7a 4d 39 46 6d 5a 76 44 4d 7a d8IzM9FmZvDMz
0e50: 50 2f 2f 2f 79 48 35 42 41 45 41 41 41 38 41 4c P///yH5BAEAAA8AL
0e60: 41 41 41 41 41 41 65 41 41 34 41 41 41 53 61 38 AAAAAAeAA4AAASa8
0e70: 4d 6c 4a 71 37 30 34 36 38 32 37 57 56 4f 43 48 MlJq7046827WVOCH
0e80: 45 6b 77 0a 20 20 20 20 6e 41 4e 68 55 67 4a 6c Ekw. nANhUgJl
0e90: 45 42 49 41 42 4a 49 77 4c 33 4b 2b 34 49 63 55 EBIABJIwL3K+4IcU
0ea0: 41 4c 43 48 6a 66 62 49 74 59 5a 44 53 67 4a 67 ALCHjfbItYZDSgJg
0eb0: 6b 42 69 59 50 6d 42 4d 41 55 41 6b 6b 4c 50 4b kBiYPmBMAUAkkLPK
0ec0: 73 2f 42 41 79 4c 67 4d 0a 20 20 20 20 77 41 51 s/BAyLgM. wAQ
0ed0: 77 4f 41 41 59 32 42 79 43 61 77 34 51 41 46 51 wOAAY2ByCaw4QAFQ
0ee0: 53 6f 44 45 65 50 4a 36 44 6d 55 31 78 49 6e 59 SoDEePJ6DmU1xInY
0ef0: 5a 54 77 35 6e 4f 45 46 46 64 67 56 55 65 6c 6b ZTw5nOEFFdgVUelk
0f00: 56 44 54 49 4d 64 33 41 4b 46 47 51 31 0a 20 20 VDTIMd3AKFGQ1.
0f10: 20 20 4d 67 49 32 41 77 45 6d 51 57 38 41 50 5a MgI2AwEmQW8APZ
0f20: 30 67 64 52 4f 4e 41 6b 73 35 6e 68 49 46 56 56 0gdRONAks5nhIFVV
0f30: 78 64 41 41 6b 55 41 53 32 70 41 56 77 46 6c 37 xdAAkUAS2pAVwFl7
0f40: 49 54 42 34 55 71 48 62 30 58 45 51 41 37 0a 7d ITB4UqHb0XEQA7.}
0f50: 5d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ]..#------------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f90: 2d 2d 2d 2d 0a 23 20 54 68 65 20 63 6f 64 65 20 ----.# The code
0fa0: 62 65 6c 6f 77 20 63 72 65 61 74 65 20 74 68 65 below create the
0fb0: 20 6d 61 69 6e 20 77 69 6e 64 6f 77 2c 20 63 6f main window, co
0fc0: 6e 73 69 73 74 69 6e 67 20 6f 66 20 61 20 6d 65 nsisting of a me
0fd0: 6e 75 20 62 61 72 20 61 6e 64 20 61 20 74 65 78 nu bar and a tex
0fe0: 74 0a 23 20 77 69 64 67 65 74 20 74 68 61 74 20 t.# widget that
0ff0: 65 78 70 6c 61 69 6e 73 20 68 6f 77 20 74 6f 20 explains how to
1000: 75 73 65 20 74 68 65 20 70 72 6f 67 72 61 6d 2c use the program,
1010: 20 70 6c 75 73 20 6c 69 73 74 73 20 61 6c 6c 20 plus lists all
1020: 6f 66 20 74 68 65 20 64 65 6d 6f 73 20 61 73 0a of the demos as.
1030: 23 20 68 79 70 65 72 74 65 78 74 20 69 74 65 6d # hypertext item
1040: 73 2e 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d s..#------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1080: 2d 2d 2d 2d 0a 0a 6d 65 6e 75 20 2e 6d 65 6e 75 ----..menu .menu
1090: 42 61 72 20 2d 74 65 61 72 6f 66 66 20 30 0a 0a Bar -tearoff 0..
10a0: 69 66 20 7b 5b 74 6b 20 77 69 6e 64 6f 77 69 6e if {[tk windowin
10b0: 67 73 79 73 74 65 6d 5d 20 6e 65 20 22 61 71 75 gsystem] ne "aqu
10c0: 61 22 7d 20 7b 0a 20 20 20 20 23 20 54 68 69 73 a"} {. # This
10d0: 20 69 73 20 61 20 74 6b 2d 69 6e 74 65 72 6e 61 is a tk-interna
10e0: 6c 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 6d l procedure to m
10f0: 61 6b 65 20 69 31 38 6e 20 65 61 73 69 65 72 0a ake i18n easier.
1100: 20 20 20 20 3a 3a 74 6b 3a 3a 41 6d 70 4d 65 6e ::tk::AmpMen
1110: 75 41 72 67 73 20 2e 6d 65 6e 75 42 61 72 20 61 uArgs .menuBar a
1120: 64 64 20 63 61 73 63 61 64 65 20 2d 6c 61 62 65 dd cascade -labe
1130: 6c 20 5b 6d 63 20 22 26 46 69 6c 65 22 5d 20 5c l [mc "&File"] \
1140: 0a 09 20 20 20 20 2d 6d 65 6e 75 20 2e 6d 65 6e .. -menu .men
1150: 75 42 61 72 2e 66 69 6c 65 0a 20 20 20 20 6d 65 uBar.file. me
1160: 6e 75 20 2e 6d 65 6e 75 42 61 72 2e 66 69 6c 65 nu .menuBar.file
1170: 20 2d 74 65 61 72 6f 66 66 20 30 0a 20 20 20 20 -tearoff 0.
1180: 3a 3a 74 6b 3a 3a 41 6d 70 4d 65 6e 75 41 72 67 ::tk::AmpMenuArg
1190: 73 20 2e 6d 65 6e 75 42 61 72 2e 66 69 6c 65 20 s .menuBar.file
11a0: 61 64 64 20 63 6f 6d 6d 61 6e 64 20 2d 6c 61 62 add command -lab
11b0: 65 6c 20 5b 6d 63 20 22 26 41 62 6f 75 74 2e 2e el [mc "&About..
11c0: 2e 22 5d 20 5c 0a 09 20 20 20 20 2d 63 6f 6d 6d ."] \.. -comm
11d0: 61 6e 64 20 7b 74 6b 41 62 6f 75 74 44 69 61 6c and {tkAboutDial
11e0: 6f 67 7d 20 2d 61 63 63 65 6c 65 72 61 74 6f 72 og} -accelerator
11f0: 20 5b 6d 63 20 22 3c 46 31 3e 22 5d 0a 20 20 20 [mc "<F1>"].
1200: 20 62 69 6e 64 20 2e 20 3c 46 31 3e 20 7b 74 6b bind . <F1> {tk
1210: 41 62 6f 75 74 44 69 61 6c 6f 67 7d 0a 20 20 20 AboutDialog}.
1220: 20 2e 6d 65 6e 75 42 61 72 2e 66 69 6c 65 20 61 .menuBar.file a
1230: 64 64 20 73 65 70 0a 20 20 20 20 69 66 20 7b 5b dd sep. if {[
1240: 73 74 72 69 6e 67 20 6d 61 74 63 68 20 77 69 6e string match win
1250: 2a 20 5b 74 6b 20 77 69 6e 64 6f 77 69 6e 67 73 * [tk windowings
1260: 79 73 74 65 6d 5d 5d 7d 20 7b 0a 09 23 20 57 69 ystem]]} {..# Wi
1270: 6e 64 6f 77 73 20 64 6f 65 73 6e 27 74 20 75 73 ndows doesn't us
1280: 75 61 6c 6c 79 20 68 61 76 65 20 61 20 4d 65 74 ually have a Met
1290: 61 20 6b 65 79 0a 09 3a 3a 74 6b 3a 3a 41 6d 70 a key..::tk::Amp
12a0: 4d 65 6e 75 41 72 67 73 20 2e 6d 65 6e 75 42 61 MenuArgs .menuBa
12b0: 72 2e 66 69 6c 65 20 61 64 64 20 63 6f 6d 6d 61 r.file add comma
12c0: 6e 64 20 2d 6c 61 62 65 6c 20 5b 6d 63 20 22 26 nd -label [mc "&
12d0: 51 75 69 74 22 5d 20 5c 0a 09 09 2d 63 6f 6d 6d Quit"] \...-comm
12e0: 61 6e 64 20 7b 65 78 69 74 7d 20 2d 61 63 63 65 and {exit} -acce
12f0: 6c 65 72 61 74 6f 72 20 5b 6d 63 20 22 43 74 72 lerator [mc "Ctr
1300: 6c 2b 51 22 5d 0a 09 62 69 6e 64 20 2e 20 3c 5b l+Q"]..bind . <[
1310: 6d 63 20 22 43 6f 6e 74 72 6f 6c 2d 71 22 5d 3e mc "Control-q"]>
1320: 20 7b 65 78 69 74 7d 0a 20 20 20 20 7d 20 65 6c {exit}. } el
1330: 73 65 20 7b 0a 09 3a 3a 74 6b 3a 3a 41 6d 70 4d se {..::tk::AmpM
1340: 65 6e 75 41 72 67 73 20 2e 6d 65 6e 75 42 61 72 enuArgs .menuBar
1350: 2e 66 69 6c 65 20 61 64 64 20 63 6f 6d 6d 61 6e .file add comman
1360: 64 20 2d 6c 61 62 65 6c 20 5b 6d 63 20 22 26 51 d -label [mc "&Q
1370: 75 69 74 22 5d 20 5c 0a 09 09 2d 63 6f 6d 6d 61 uit"] \...-comma
1380: 6e 64 20 7b 65 78 69 74 7d 20 2d 61 63 63 65 6c nd {exit} -accel
1390: 65 72 61 74 6f 72 20 5b 6d 63 20 22 4d 65 74 61 erator [mc "Meta
13a0: 2d 51 22 5d 0a 09 62 69 6e 64 20 2e 20 3c 5b 6d -Q"]..bind . <[m
13b0: 63 20 22 4d 65 74 61 2d 71 22 5d 3e 20 7b 65 78 c "Meta-q"]> {ex
13c0: 69 74 7d 0a 20 20 20 20 7d 0a 7d 0a 0a 2e 20 63 it}. }.}... c
13d0: 6f 6e 66 69 67 75 72 65 20 2d 6d 65 6e 75 20 2e onfigure -menu .
13e0: 6d 65 6e 75 42 61 72 0a 0a 74 74 6b 3a 3a 66 72 menuBar..ttk::fr
13f0: 61 6d 65 20 2e 73 74 61 74 75 73 42 61 72 0a 74 ame .statusBar.t
1400: 74 6b 3a 3a 6c 61 62 65 6c 20 2e 73 74 61 74 75 tk::label .statu
1410: 73 42 61 72 2e 6c 61 62 20 2d 74 65 78 74 20 22 sBar.lab -text "
1420: 20 20 20 22 20 2d 61 6e 63 68 6f 72 20 77 0a 69 " -anchor w.i
1430: 66 20 7b 5b 74 6b 20 77 69 6e 64 6f 77 69 6e 67 f {[tk windowing
1440: 73 79 73 74 65 6d 5d 20 65 71 20 22 61 71 75 61 system] eq "aqua
1450: 22 7d 20 7b 0a 20 20 20 20 74 74 6b 3a 3a 73 65 "} {. ttk::se
1460: 70 61 72 61 74 6f 72 20 2e 73 74 61 74 75 73 42 parator .statusB
1470: 61 72 2e 73 65 70 0a 20 20 20 20 70 61 63 6b 20 ar.sep. pack
1480: 2e 73 74 61 74 75 73 42 61 72 2e 73 65 70 20 2d .statusBar.sep -
1490: 73 69 64 65 20 74 6f 70 20 2d 65 78 70 61 6e 64 side top -expand
14a0: 20 79 65 73 20 2d 66 69 6c 6c 20 78 20 2d 70 61 yes -fill x -pa
14b0: 64 79 20 30 0a 7d 0a 70 61 63 6b 20 2e 73 74 61 dy 0.}.pack .sta
14c0: 74 75 73 42 61 72 2e 6c 61 62 20 2d 73 69 64 65 tusBar.lab -side
14d0: 20 6c 65 66 74 20 2d 70 61 64 78 20 32 20 2d 65 left -padx 2 -e
14e0: 78 70 61 6e 64 20 79 65 73 20 2d 66 69 6c 6c 20 xpand yes -fill
14f0: 62 6f 74 68 0a 69 66 20 7b 5b 74 6b 20 77 69 6e both.if {[tk win
1500: 64 6f 77 69 6e 67 73 79 73 74 65 6d 5d 20 6e 65 dowingsystem] ne
1510: 20 22 61 71 75 61 22 7d 20 7b 0a 20 20 20 20 74 "aqua"} {. t
1520: 74 6b 3a 3a 73 69 7a 65 67 72 69 70 20 2e 73 74 tk::sizegrip .st
1530: 61 74 75 73 42 61 72 2e 66 6f 6f 0a 20 20 20 20 atusBar.foo.
1540: 70 61 63 6b 20 2e 73 74 61 74 75 73 42 61 72 2e pack .statusBar.
1550: 66 6f 6f 20 2d 73 69 64 65 20 6c 65 66 74 20 2d foo -side left -
1560: 70 61 64 78 20 32 0a 7d 0a 70 61 63 6b 20 2e 73 padx 2.}.pack .s
1570: 74 61 74 75 73 42 61 72 20 2d 73 69 64 65 20 62 tatusBar -side b
1580: 6f 74 74 6f 6d 20 2d 66 69 6c 6c 20 78 20 2d 70 ottom -fill x -p
1590: 61 64 79 20 32 0a 0a 73 65 74 20 74 65 78 74 68 ady 2..set texth
15a0: 65 69 67 68 74 20 33 30 0a 63 61 74 63 68 20 7b eight 30.catch {
15b0: 0a 20 20 20 20 73 65 74 20 74 65 78 74 68 65 69 . set texthei
15c0: 67 68 74 20 5b 65 78 70 72 20 7b 0a 09 28 5b 77 ght [expr {..([w
15d0: 69 6e 66 6f 20 73 63 72 65 65 6e 68 65 69 67 68 info screenheigh
15e0: 74 20 2e 5d 20 2a 20 30 2e 37 29 20 2f 0a 09 5b t .] * 0.7) /..[
15f0: 66 6f 6e 74 20 6d 65 74 72 69 63 73 20 6d 61 69 font metrics mai
1600: 6e 46 6f 6e 74 20 2d 64 69 73 70 6c 61 79 6f 66 nFont -displayof
1610: 20 2e 20 2d 6c 69 6e 65 73 70 61 63 65 5d 0a 20 . -linespace].
1620: 20 20 20 7d 5d 0a 7d 0a 0a 74 74 6b 3a 3a 66 72 }].}..ttk::fr
1630: 61 6d 65 20 2e 74 65 78 74 46 72 61 6d 65 0a 74 ame .textFrame.t
1640: 74 6b 3a 3a 73 63 72 6f 6c 6c 62 61 72 20 2e 73 tk::scrollbar .s
1650: 20 2d 6f 72 69 65 6e 74 20 76 65 72 74 69 63 61 -orient vertica
1660: 6c 20 2d 63 6f 6d 6d 61 6e 64 20 7b 2e 74 20 79 l -command {.t y
1670: 76 69 65 77 7d 20 2d 74 61 6b 65 66 6f 63 75 73 view} -takefocus
1680: 20 31 0a 70 61 63 6b 20 2e 73 20 2d 69 6e 20 2e 1.pack .s -in .
1690: 74 65 78 74 46 72 61 6d 65 20 2d 73 69 64 65 20 textFrame -side
16a0: 72 69 67 68 74 20 2d 66 69 6c 6c 20 79 0a 74 65 right -fill y.te
16b0: 78 74 20 2e 74 20 2d 79 73 63 72 6f 6c 6c 63 6f xt .t -yscrollco
16c0: 6d 6d 61 6e 64 20 7b 2e 73 20 73 65 74 7d 20 2d mmand {.s set} -
16d0: 77 72 61 70 20 77 6f 72 64 20 2d 77 69 64 74 68 wrap word -width
16e0: 20 37 30 20 2d 68 65 69 67 68 74 20 24 74 65 78 70 -height $tex
16f0: 74 68 65 69 67 68 74 20 5c 0a 09 2d 66 6f 6e 74 theight \..-font
1700: 20 6d 61 69 6e 46 6f 6e 74 20 2d 73 65 74 67 72 mainFont -setgr
1710: 69 64 20 31 20 2d 68 69 67 68 6c 69 67 68 74 74 id 1 -highlightt
1720: 68 69 63 6b 6e 65 73 73 20 30 20 5c 0a 09 2d 70 hickness 0 \..-p
1730: 61 64 78 20 34 20 2d 70 61 64 79 20 32 20 2d 74 adx 4 -pady 2 -t
1740: 61 6b 65 66 6f 63 75 73 20 30 0a 70 61 63 6b 20 akefocus 0.pack
1750: 2e 74 20 2d 69 6e 20 2e 74 65 78 74 46 72 61 6d .t -in .textFram
1760: 65 20 2d 65 78 70 61 6e 64 20 79 20 2d 66 69 6c e -expand y -fil
1770: 6c 20 62 6f 74 68 20 2d 70 61 64 78 20 31 0a 70 l both -padx 1.p
1780: 61 63 6b 20 2e 74 65 78 74 46 72 61 6d 65 20 2d ack .textFrame -
1790: 65 78 70 61 6e 64 20 79 65 73 20 2d 66 69 6c 6c expand yes -fill
17a0: 20 62 6f 74 68 0a 69 66 20 7b 5b 74 6b 20 77 69 both.if {[tk wi
17b0: 6e 64 6f 77 69 6e 67 73 79 73 74 65 6d 5d 20 65 ndowingsystem] e
17c0: 71 20 22 61 71 75 61 22 7d 20 7b 0a 20 20 20 20 q "aqua"} {.
17d0: 70 61 63 6b 20 63 6f 6e 66 69 67 75 72 65 20 2e pack configure .
17e0: 73 74 61 74 75 73 42 61 72 2e 6c 61 62 20 2d 70 statusBar.lab -p
17f0: 61 64 78 20 7b 31 30 20 31 38 7d 20 2d 70 61 64 adx {10 18} -pad
1800: 79 20 7b 34 20 36 7d 0a 20 20 20 20 70 61 63 6b y {4 6}. pack
1810: 20 63 6f 6e 66 69 67 75 72 65 20 2e 73 74 61 74 configure .stat
1820: 75 73 42 61 72 20 2d 70 61 64 79 20 30 0a 20 20 usBar -pady 0.
1830: 20 20 2e 74 20 63 6f 6e 66 69 67 75 72 65 20 2d .t configure -
1840: 70 61 64 78 20 31 30 20 2d 70 61 64 79 20 30 0a padx 10 -pady 0.
1850: 7d 0a 0a 23 20 43 72 65 61 74 65 20 61 20 62 75 }..# Create a bu
1860: 6e 63 68 20 6f 66 20 74 61 67 73 20 74 6f 20 75 nch of tags to u
1870: 73 65 20 69 6e 20 74 68 65 20 74 65 78 74 20 77 se in the text w
1880: 69 64 67 65 74 2c 20 73 75 63 68 20 61 73 20 74 idget, such as t
1890: 68 6f 73 65 20 66 6f 72 20 73 65 63 74 69 6f 6e hose for section
18a0: 0a 23 20 74 69 74 6c 65 73 20 61 6e 64 20 64 65 .# titles and de
18b0: 6d 6f 20 64 65 73 63 72 69 70 74 69 6f 6e 73 2e mo descriptions.
18c0: 20 41 6c 73 6f 20 64 65 66 69 6e 65 20 74 68 65 Also define the
18d0: 20 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 74 61 bindings for ta
18e0: 67 73 2e 0a 0a 2e 74 20 74 61 67 20 63 6f 6e 66 gs....t tag conf
18f0: 69 67 75 72 65 20 74 69 74 6c 65 20 2d 66 6f 6e igure title -fon
1900: 74 20 74 69 74 6c 65 46 6f 6e 74 0a 2e 74 20 74 t titleFont..t t
1910: 61 67 20 63 6f 6e 66 69 67 75 72 65 20 73 75 62 ag configure sub
1920: 74 69 74 6c 65 20 2d 66 6f 6e 74 20 74 69 74 6c title -font titl
1930: 65 46 6f 6e 74 0a 2e 74 20 74 61 67 20 63 6f 6e eFont..t tag con
1940: 66 69 67 75 72 65 20 62 6f 6c 64 20 20 2d 66 6f figure bold -fo
1950: 6e 74 20 62 6f 6c 64 46 6f 6e 74 0a 69 66 20 7b nt boldFont.if {
1960: 5b 74 6b 20 77 69 6e 64 6f 77 69 6e 67 73 79 73 [tk windowingsys
1970: 74 65 6d 5d 20 65 71 20 22 61 71 75 61 22 7d 20 tem] eq "aqua"}
1980: 7b 0a 20 20 20 20 2e 74 20 74 61 67 20 63 6f 6e {. .t tag con
1990: 66 69 67 75 72 65 20 74 69 74 6c 65 20 2d 73 70 figure title -sp
19a0: 61 63 69 6e 67 31 20 38 0a 20 20 20 20 2e 74 20 acing1 8. .t
19b0: 74 61 67 20 63 6f 6e 66 69 67 75 72 65 20 73 75 tag configure su
19c0: 62 74 69 74 6c 65 20 2d 73 70 61 63 69 6e 67 33 btitle -spacing3
19d0: 20 33 0a 7d 0a 0a 23 20 57 65 20 70 75 74 20 73 3.}..# We put s
19e0: 6f 6d 65 20 22 73 70 61 63 65 22 20 63 68 61 72 ome "space" char
19f0: 61 63 74 65 72 73 20 74 6f 20 74 68 65 20 6c 65 acters to the le
1a00: 66 74 20 61 6e 64 20 72 69 67 68 74 20 6f 66 20 ft and right of
1a10: 65 61 63 68 20 64 65 6d 6f 0a 23 20 64 65 73 63 each demo.# desc
1a20: 72 69 70 74 69 6f 6e 20 73 6f 20 74 68 61 74 20 ription so that
1a30: 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 73 the descriptions
1a40: 20 61 72 65 20 68 69 67 68 6c 69 67 68 74 65 64 are highlighted
1a50: 20 6f 6e 6c 79 20 77 68 65 6e 20 74 68 65 20 6d only when the m
1a60: 6f 75 73 65 0a 23 20 63 75 72 73 6f 72 20 69 73 ouse.# cursor is
1a70: 20 72 69 67 68 74 20 6f 76 65 72 20 74 68 65 6d right over them
1a80: 20 28 62 75 74 20 6e 6f 74 20 77 68 65 6e 20 74 (but not when t
1a90: 68 65 20 63 75 72 73 6f 72 20 69 73 20 74 6f 20 he cursor is to
1aa0: 74 68 65 69 72 20 6c 65 66 74 20 6f 72 0a 23 20 their left or.#
1ab0: 72 69 67 68 74 29 2e 0a 23 0a 2e 74 20 74 61 67 right)..#..t tag
1ac0: 20 63 6f 6e 66 69 67 75 72 65 20 64 65 6d 6f 73 configure demos
1ad0: 70 61 63 65 20 2d 6c 6d 61 72 67 69 6e 31 20 31 pace -lmargin1 1
1ae0: 63 20 2d 6c 6d 61 72 67 69 6e 32 20 31 63 0a 0a c -lmargin2 1c..
1af0: 69 66 20 7b 5b 77 69 6e 66 6f 20 64 65 70 74 68 if {[winfo depth
1b00: 20 2e 5d 20 3d 3d 20 31 7d 20 7b 0a 20 20 20 20 .] == 1} {.
1b10: 2e 74 20 74 61 67 20 63 6f 6e 66 69 67 75 72 65 .t tag configure
1b20: 20 64 65 6d 6f 20 2d 6c 6d 61 72 67 69 6e 31 20 demo -lmargin1
1b30: 31 63 20 2d 6c 6d 61 72 67 69 6e 32 20 31 63 20 1c -lmargin2 1c
1b40: 5c 0a 09 2d 75 6e 64 65 72 6c 69 6e 65 20 31 0a \..-underline 1.
1b50: 20 20 20 20 2e 74 20 74 61 67 20 63 6f 6e 66 69 .t tag confi
1b60: 67 75 72 65 20 76 69 73 69 74 65 64 20 2d 6c 6d gure visited -lm
1b70: 61 72 67 69 6e 31 20 31 63 20 2d 6c 6d 61 72 67 argin1 1c -lmarg
1b80: 69 6e 32 20 31 63 20 5c 0a 09 2d 75 6e 64 65 72 in2 1c \..-under
1b90: 6c 69 6e 65 20 31 0a 20 20 20 20 2e 74 20 74 61 line 1. .t ta
1ba0: 67 20 63 6f 6e 66 69 67 75 72 65 20 68 6f 74 20 g configure hot
1bb0: 2d 62 61 63 6b 67 72 6f 75 6e 64 20 62 6c 61 63 -background blac
1bc0: 6b 20 2d 66 6f 72 65 67 72 6f 75 6e 64 20 77 68 k -foreground wh
1bd0: 69 74 65 0a 7d 20 65 6c 73 65 20 7b 0a 20 20 20 ite.} else {.
1be0: 20 2e 74 20 74 61 67 20 63 6f 6e 66 69 67 75 72 .t tag configur
1bf0: 65 20 64 65 6d 6f 20 2d 6c 6d 61 72 67 69 6e 31 e demo -lmargin1
1c00: 20 31 63 20 2d 6c 6d 61 72 67 69 6e 32 20 31 63 1c -lmargin2 1c
1c10: 20 5c 0a 09 2d 66 6f 72 65 67 72 6f 75 6e 64 20 \..-foreground
1c20: 62 6c 75 65 20 2d 75 6e 64 65 72 6c 69 6e 65 20 blue -underline
1c30: 31 0a 20 20 20 20 2e 74 20 74 61 67 20 63 6f 6e 1. .t tag con
1c40: 66 69 67 75 72 65 20 76 69 73 69 74 65 64 20 2d figure visited -
1c50: 6c 6d 61 72 67 69 6e 31 20 31 63 20 2d 6c 6d 61 lmargin1 1c -lma
1c60: 72 67 69 6e 32 20 31 63 20 5c 0a 09 2d 66 6f 72 rgin2 1c \..-for
1c70: 65 67 72 6f 75 6e 64 20 23 33 30 33 30 38 30 20 eground #303080
1c80: 2d 75 6e 64 65 72 6c 69 6e 65 20 31 0a 20 20 20 -underline 1.
1c90: 20 2e 74 20 74 61 67 20 63 6f 6e 66 69 67 75 72 .t tag configur
1ca0: 65 20 68 6f 74 20 2d 66 6f 72 65 67 72 6f 75 6e e hot -foregroun
1cb0: 64 20 72 65 64 20 2d 75 6e 64 65 72 6c 69 6e 65 d red -underline
1cc0: 20 31 0a 7d 0a 2e 74 20 74 61 67 20 62 69 6e 64 1.}..t tag bind
1cd0: 20 64 65 6d 6f 20 3c 42 75 74 74 6f 6e 52 65 6c demo <ButtonRel
1ce0: 65 61 73 65 2d 31 3e 20 7b 0a 20 20 20 20 69 6e ease-1> {. in
1cf0: 76 6f 6b 65 20 5b 2e 74 20 69 6e 64 65 78 20 7b voke [.t index {
1d00: 40 25 78 2c 25 79 7d 5d 0a 7d 0a 73 65 74 20 6c @%x,%y}].}.set l
1d10: 61 73 74 4c 69 6e 65 20 22 22 0a 2e 74 20 74 61 astLine ""..t ta
1d20: 67 20 62 69 6e 64 20 64 65 6d 6f 20 3c 45 6e 74 g bind demo <Ent
1d30: 65 72 3e 20 7b 0a 20 20 20 20 73 65 74 20 6c 61 er> {. set la
1d40: 73 74 4c 69 6e 65 20 5b 2e 74 20 69 6e 64 65 78 stLine [.t index
1d50: 20 7b 40 25 78 2c 25 79 20 6c 69 6e 65 73 74 61 {@%x,%y linesta
1d60: 72 74 7d 5d 0a 20 20 20 20 2e 74 20 74 61 67 20 rt}]. .t tag
1d70: 61 64 64 20 68 6f 74 20 22 24 6c 61 73 74 4c 69 add hot "$lastLi
1d80: 6e 65 20 2b 31 20 63 68 61 72 73 22 20 22 24 6c ne +1 chars" "$l
1d90: 61 73 74 4c 69 6e 65 20 6c 69 6e 65 65 6e 64 20 astLine lineend
1da0: 2d 31 20 63 68 61 72 73 22 0a 20 20 20 20 2e 74 -1 chars". .t
1db0: 20 63 6f 6e 66 69 67 20 2d 63 75 72 73 6f 72 20 config -cursor
1dc0: 5b 3a 3a 74 74 6b 3a 3a 63 75 72 73 6f 72 20 6c [::ttk::cursor l
1dd0: 69 6e 6b 5d 0a 20 20 20 20 73 68 6f 77 53 74 61 ink]. showSta
1de0: 74 75 73 20 5b 2e 74 20 69 6e 64 65 78 20 7b 40 tus [.t index {@
1df0: 25 78 2c 25 79 7d 5d 0a 7d 0a 2e 74 20 74 61 67 %x,%y}].}..t tag
1e00: 20 62 69 6e 64 20 64 65 6d 6f 20 3c 4c 65 61 76 bind demo <Leav
1e10: 65 3e 20 7b 0a 20 20 20 20 2e 74 20 74 61 67 20 e> {. .t tag
1e20: 72 65 6d 6f 76 65 20 68 6f 74 20 31 2e 30 20 65 remove hot 1.0 e
1e30: 6e 64 0a 20 20 20 20 2e 74 20 63 6f 6e 66 69 67 nd. .t config
1e40: 20 2d 63 75 72 73 6f 72 20 5b 3a 3a 74 74 6b 3a -cursor [::ttk:
1e50: 3a 63 75 72 73 6f 72 20 74 65 78 74 5d 0a 20 20 :cursor text].
1e60: 20 20 2e 73 74 61 74 75 73 42 61 72 2e 6c 61 62 .statusBar.lab
1e70: 20 63 6f 6e 66 69 67 20 2d 74 65 78 74 20 22 22 config -text ""
1e80: 0a 7d 0a 2e 74 20 74 61 67 20 62 69 6e 64 20 64 .}..t tag bind d
1e90: 65 6d 6f 20 3c 4d 6f 74 69 6f 6e 3e 20 7b 0a 20 emo <Motion> {.
1ea0: 20 20 20 73 65 74 20 6e 65 77 4c 69 6e 65 20 5b set newLine [
1eb0: 2e 74 20 69 6e 64 65 78 20 7b 40 25 78 2c 25 79 .t index {@%x,%y
1ec0: 20 6c 69 6e 65 73 74 61 72 74 7d 5d 0a 20 20 20 linestart}].
1ed0: 20 69 66 20 7b 24 6e 65 77 4c 69 6e 65 20 6e 65 if {$newLine ne
1ee0: 20 24 6c 61 73 74 4c 69 6e 65 7d 20 7b 0a 09 2e $lastLine} {...
1ef0: 74 20 74 61 67 20 72 65 6d 6f 76 65 20 68 6f 74 t tag remove hot
1f00: 20 31 2e 30 20 65 6e 64 0a 09 73 65 74 20 6c 61 1.0 end..set la
1f10: 73 74 4c 69 6e 65 20 24 6e 65 77 4c 69 6e 65 0a stLine $newLine.
1f20: 0a 09 73 65 74 20 74 61 67 73 20 5b 2e 74 20 74 ..set tags [.t t
1f30: 61 67 20 6e 61 6d 65 73 20 7b 40 25 78 2c 25 79 ag names {@%x,%y
1f40: 7d 5d 0a 09 73 65 74 20 69 20 5b 6c 73 65 61 72 }]..set i [lsear
1f50: 63 68 20 2d 67 6c 6f 62 20 24 74 61 67 73 20 64 ch -glob $tags d
1f60: 65 6d 6f 2d 2a 5d 0a 09 69 66 20 7b 24 69 20 3e emo-*]..if {$i >
1f70: 3d 20 30 7d 20 7b 0a 09 20 20 20 20 2e 74 20 74 = 0} {.. .t t
1f80: 61 67 20 61 64 64 20 68 6f 74 20 22 24 6c 61 73 ag add hot "$las
1f90: 74 4c 69 6e 65 20 2b 31 20 63 68 61 72 73 22 20 tLine +1 chars"
1fa0: 22 24 6c 61 73 74 4c 69 6e 65 20 6c 69 6e 65 65 "$lastLine linee
1fb0: 6e 64 20 2d 31 20 63 68 61 72 73 22 0a 09 7d 0a nd -1 chars"..}.
1fc0: 20 20 20 20 7d 0a 20 20 20 20 73 68 6f 77 53 74 }. showSt
1fd0: 61 74 75 73 20 5b 2e 74 20 69 6e 64 65 78 20 7b atus [.t index {
1fe0: 40 25 78 2c 25 79 7d 5d 0a 7d 0a 0c 0a 23 23 23 @%x,%y}].}...###
1ff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2030: 23 23 23 23 23 23 23 23 23 23 23 0a 23 20 43 72 ###########.# Cr
2040: 65 61 74 65 20 74 68 65 20 74 65 78 74 20 66 6f eate the text fo
2050: 72 20 74 68 65 20 74 65 78 74 20 77 69 64 67 65 r the text widge
2060: 74 2e 0a 0a 23 20 61 64 64 46 6f 72 6d 61 74 74 t...# addFormatt
2070: 65 64 54 65 78 74 20 2d 2d 0a 23 0a 23 09 41 64 edText --.#.#.Ad
2080: 64 20 66 6f 72 6d 61 74 74 65 64 20 74 65 78 74 d formatted text
2090: 20 28 62 75 74 20 6e 6f 74 20 68 79 70 65 72 74 (but not hypert
20a0: 65 78 74 29 20 74 6f 20 74 68 65 20 74 65 78 74 ext) to the text
20b0: 20 77 69 64 67 65 74 20 61 66 74 65 72 20 66 69 widget after fi
20c0: 72 73 74 0a 23 09 70 61 73 73 69 6e 67 20 69 74 rst.#.passing it
20d0: 20 74 68 72 6f 75 67 68 20 74 68 65 20 6d 65 73 through the mes
20e0: 73 61 67 65 20 63 61 74 61 6c 6f 67 20 74 6f 20 sage catalog to
20f0: 61 6c 6c 6f 77 20 66 6f 72 20 6c 6f 63 61 6c 69 allow for locali
2100: 7a 61 74 69 6f 6e 2e 0a 23 09 4c 69 6e 65 73 20 zation..#.Lines
2110: 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 40 40 starting with @@
2120: 20 61 72 65 20 66 6f 72 6d 61 74 74 69 6e 67 20 are formatting
2130: 64 69 72 65 63 74 69 76 65 73 20 28 69 6e 73 65 directives (inse
2140: 72 74 20 74 69 74 6c 65 2c 20 69 6e 73 65 72 74 rt title, insert
2150: 0a 23 09 64 65 6d 6f 20 68 79 70 65 72 6c 69 6e .#.demo hyperlin
2160: 6b 2c 20 62 65 67 69 6e 20 6e 65 77 6c 69 6e 65 k, begin newline
2170: 2c 20 6f 72 20 63 68 61 6e 67 65 20 73 74 79 6c , or change styl
2180: 65 29 20 61 6e 64 20 61 6c 6c 20 6f 74 68 65 72 e) and all other
2190: 20 6c 69 6e 65 73 0a 23 09 61 72 65 20 6c 69 74 lines.#.are lit
21a0: 65 72 61 6c 20 73 74 72 69 6e 67 73 20 74 6f 20 eral strings to
21b0: 62 65 20 69 6e 73 65 72 74 65 64 2e 20 53 75 62 be inserted. Sub
21c0: 73 74 69 74 75 74 69 6f 6e 73 20 61 72 65 20 70 stitutions are p
21d0: 65 72 66 6f 72 6d 65 64 2c 0a 23 09 61 6c 6c 6f erformed,.#.allo
21e0: 77 69 6e 67 20 70 72 6f 63 65 73 73 69 6e 67 20 wing processing
21f0: 70 69 65 63 65 73 20 74 68 72 6f 75 67 68 20 74 pieces through t
2200: 68 65 20 6d 65 73 73 61 67 65 20 63 61 74 61 6c he message catal
2210: 6f 67 2e 20 42 6c 61 6e 6b 20 6c 69 6e 65 73 0a og. Blank lines.
2220: 23 09 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 23 #.are ignored..#
2230: 0a 70 72 6f 63 20 61 64 64 46 6f 72 6d 61 74 74 .proc addFormatt
2240: 65 64 54 65 78 74 20 7b 66 6f 72 6d 61 74 74 65 edText {formatte
2250: 64 54 65 78 74 7d 20 7b 0a 20 20 20 20 73 65 74 dText} {. set
2260: 20 73 74 79 6c 65 20 6e 6f 72 6d 61 6c 0a 20 20 style normal.
2270: 20 20 73 65 74 20 69 73 4e 4c 20 31 0a 20 20 20 set isNL 1.
2280: 20 73 65 74 20 64 65 6d 6f 43 6f 75 6e 74 20 30 set demoCount 0
2290: 0a 20 20 20 20 73 65 74 20 6e 65 77 20 30 0a 20 . set new 0.
22a0: 20 20 20 66 6f 72 65 61 63 68 20 6c 69 6e 65 20 foreach line
22b0: 5b 73 70 6c 69 74 20 24 66 6f 72 6d 61 74 74 65 [split $formatte
22c0: 64 54 65 78 74 20 5c 6e 5d 20 7b 0a 09 73 65 74 dText \n] {..set
22d0: 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 74 72 line [string tr
22e0: 69 6d 20 24 6c 69 6e 65 5d 0a 09 69 66 20 7b 24 im $line]..if {$
22f0: 6c 69 6e 65 20 65 71 20 22 22 7d 20 7b 0a 09 20 line eq ""} {..
2300: 20 20 20 63 6f 6e 74 69 6e 75 65 0a 09 7d 0a 09 continue..}..
2310: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 if {[string matc
2320: 68 20 40 40 2a 20 24 6c 69 6e 65 5d 7d 20 7b 0a h @@* $line]} {.
2330: 09 20 20 20 20 73 65 74 20 64 61 74 61 20 5b 73 . set data [s
2340: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 6c 69 6e tring range $lin
2350: 65 20 32 20 65 6e 64 5d 0a 09 20 20 20 20 73 65 e 2 end].. se
2360: 74 20 6b 65 79 20 5b 6c 69 6e 64 65 78 20 24 64 t key [lindex $d
2370: 61 74 61 20 30 5d 0a 09 20 20 20 20 73 65 74 20 ata 0].. set
2380: 76 61 6c 75 65 73 20 5b 6c 72 61 6e 67 65 20 24 values [lrange $
2390: 64 61 74 61 20 31 20 65 6e 64 5d 0a 09 20 20 20 data 1 end]..
23a0: 20 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d switch -exact -
23b0: 2d 20 24 6b 65 79 20 7b 0a 09 09 74 69 74 6c 65 - $key {...title
23c0: 20 7b 0a 09 09 20 20 20 20 2e 74 20 69 6e 73 65 {... .t inse
23d0: 72 74 20 65 6e 64 20 5b 6d 63 20 24 76 61 6c 75 rt end [mc $valu
23e0: 65 73 5d 5c 6e 20 74 69 74 6c 65 20 5c 6e 20 6e es]\n title \n n
23f0: 6f 72 6d 61 6c 0a 09 09 7d 0a 09 09 6e 65 77 6c ormal...}...newl
2400: 69 6e 65 20 7b 0a 09 09 20 20 20 20 2e 74 20 69 ine {... .t i
2410: 6e 73 65 72 74 20 65 6e 64 20 5c 6e 20 24 73 74 nsert end \n $st
2420: 79 6c 65 0a 09 09 20 20 20 20 73 65 74 20 69 73 yle... set is
2430: 4e 4c 20 31 0a 09 09 7d 0a 09 09 73 75 62 74 69 NL 1...}...subti
2440: 74 6c 65 20 7b 0a 09 09 20 20 20 20 2e 74 20 69 tle {... .t i
2450: 6e 73 65 72 74 20 65 6e 64 20 22 5c 6e 22 20 7b nsert end "\n" {
2460: 7d 20 5b 6d 63 20 24 76 61 6c 75 65 73 5d 20 73 } [mc $values] s
2470: 75 62 74 69 74 6c 65 20 5c 0a 09 09 09 20 20 20 ubtitle \....
2480: 20 22 20 5c 6e 20 22 20 64 65 6d 6f 73 70 61 63 " \n " demospac
2490: 65 0a 09 09 20 20 20 20 73 65 74 20 64 65 6d 6f e... set demo
24a0: 43 6f 75 6e 74 20 30 0a 09 09 7d 0a 09 09 64 65 Count 0...}...de
24b0: 6d 6f 20 7b 0a 09 09 20 20 20 20 73 65 74 20 64 mo {... set d
24c0: 65 73 63 72 69 70 74 69 6f 6e 20 5b 6c 61 73 73 escription [lass
24d0: 69 67 6e 20 24 76 61 6c 75 65 73 20 6e 61 6d 65 ign $values name
24e0: 5d 0a 09 09 20 20 20 20 2e 74 20 69 6e 73 65 72 ]... .t inser
24f0: 74 20 65 6e 64 20 22 5b 69 6e 63 72 20 64 65 6d t end "[incr dem
2500: 6f 43 6f 75 6e 74 5d 2e 20 5b 6d 63 20 24 64 65 oCount]. [mc $de
2510: 73 63 72 69 70 74 69 6f 6e 5d 22 20 5c 0a 09 09 scription]" \...
2520: 09 20 20 20 20 5b 6c 69 73 74 20 64 65 6d 6f 20 . [list demo
2530: 64 65 6d 6f 2d 24 6e 61 6d 65 5d 0a 09 09 20 20 demo-$name]...
2540: 20 20 69 66 20 7b 24 6e 65 77 7d 20 7b 0a 09 09 if {$new} {...
2550: 09 2e 74 20 69 6d 61 67 65 20 63 72 65 61 74 65 ..t image create
2560: 20 65 6e 64 20 2d 69 6d 61 67 65 20 3a 3a 69 6d end -image ::im
2570: 67 3a 3a 6e 65 77 20 2d 70 61 64 78 20 35 0a 09 g::new -padx 5..
2580: 09 09 73 65 74 20 6e 65 77 20 30 0a 09 09 20 20 ..set new 0...
2590: 20 20 7d 0a 09 09 20 20 20 20 2e 74 20 69 6e 73 }... .t ins
25a0: 65 72 74 20 65 6e 64 20 22 20 5c 6e 20 22 20 64 ert end " \n " d
25b0: 65 6d 6f 73 70 61 63 65 0a 09 09 7d 0a 09 09 6e emospace...}...n
25c0: 65 77 20 7b 0a 09 09 20 20 20 20 73 65 74 20 6e ew {... set n
25d0: 65 77 20 31 0a 09 09 7d 0a 09 09 64 65 66 61 75 ew 1...}...defau
25e0: 6c 74 20 7b 0a 09 09 20 20 20 20 73 65 74 20 73 lt {... set s
25f0: 74 79 6c 65 20 24 6b 65 79 0a 09 09 7d 0a 09 20 tyle $key...}..
2600: 20 20 20 7d 0a 09 20 20 20 20 63 6f 6e 74 69 6e }.. contin
2610: 75 65 0a 09 7d 0a 09 69 66 20 7b 21 24 69 73 4e ue..}..if {!$isN
2620: 4c 7d 20 7b 0a 09 20 20 20 20 2e 74 20 69 6e 73 L} {.. .t ins
2630: 65 72 74 20 65 6e 64 20 22 20 22 20 24 73 74 79 ert end " " $sty
2640: 6c 65 0a 09 7d 0a 09 73 65 74 20 69 73 4e 4c 20 le..}..set isNL
2650: 30 0a 09 2e 74 20 69 6e 73 65 72 74 20 65 6e 64 0...t insert end
2660: 20 5b 6d 63 20 24 6c 69 6e 65 5d 20 24 73 74 79 [mc $line] $sty
2670: 6c 65 0a 20 20 20 20 7d 0a 7d 0a 0a 61 64 64 46 le. }.}..addF
2680: 6f 72 6d 61 74 74 65 64 54 65 78 74 20 7b 0a 20 ormattedText {.
2690: 20 20 20 40 40 74 69 74 6c 65 09 54 6b 20 57 69 @@title.Tk Wi
26a0: 64 67 65 74 20 44 65 6d 6f 6e 73 74 72 61 74 69 dget Demonstrati
26b0: 6f 6e 73 0a 0a 20 20 20 20 54 68 69 73 20 61 70 ons.. This ap
26c0: 70 6c 69 63 61 74 69 6f 6e 20 70 72 6f 76 69 64 plication provid
26d0: 65 73 20 61 20 66 72 6f 6e 74 20 65 6e 64 20 66 es a front end f
26e0: 6f 72 20 73 65 76 65 72 61 6c 20 73 68 6f 72 74 or several short
26f0: 20 73 63 72 69 70 74 73 0a 20 20 20 20 74 68 61 scripts. tha
2700: 74 20 64 65 6d 6f 6e 73 74 72 61 74 65 20 77 68 t demonstrate wh
2710: 61 74 20 79 6f 75 20 63 61 6e 20 64 6f 20 77 69 at you can do wi
2720: 74 68 20 54 6b 20 77 69 64 67 65 74 73 2e 20 20 th Tk widgets.
2730: 45 61 63 68 20 6f 66 20 74 68 65 0a 20 20 20 20 Each of the.
2740: 6e 75 6d 62 65 72 65 64 20 6c 69 6e 65 73 20 62 numbered lines b
2750: 65 6c 6f 77 20 64 65 73 63 72 69 62 65 73 20 61 elow describes a
2760: 20 64 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 3b 20 demonstration;
2770: 79 6f 75 20 63 61 6e 20 63 6c 69 63 6b 20 6f 6e you can click on
2780: 0a 20 20 20 20 69 74 20 74 6f 20 69 6e 76 6f 6b . it to invok
2790: 65 20 74 68 65 20 64 65 6d 6f 6e 73 74 72 61 74 e the demonstrat
27a0: 69 6f 6e 2e 20 20 4f 6e 63 65 20 74 68 65 20 64 ion. Once the d
27b0: 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 20 77 69 6e emonstration win
27c0: 64 6f 77 0a 20 20 20 20 61 70 70 65 61 72 73 2c dow. appears,
27d0: 20 79 6f 75 20 63 61 6e 20 63 6c 69 63 6b 20 74 you can click t
27e0: 68 65 0a 20 20 20 20 40 40 62 6f 6c 64 0a 20 20 he. @@bold.
27f0: 20 20 53 65 65 20 43 6f 64 65 0a 20 20 20 20 40 See Code. @
2800: 40 6e 6f 72 6d 61 6c 0a 20 20 20 20 62 75 74 74 @normal. butt
2810: 6f 6e 20 74 6f 20 73 65 65 20 74 68 65 20 54 63 on to see the Tc
2820: 6c 2f 54 6b 20 63 6f 64 65 20 74 68 61 74 20 63 l/Tk code that c
2830: 72 65 61 74 65 64 20 74 68 65 20 64 65 6d 6f 6e reated the demon
2840: 73 74 72 61 74 69 6f 6e 2e 20 20 49 66 0a 20 20 stration. If.
2850: 20 20 79 6f 75 20 77 69 73 68 2c 20 79 6f 75 20 you wish, you
2860: 63 61 6e 20 65 64 69 74 20 74 68 65 20 63 6f 64 can edit the cod
2870: 65 20 61 6e 64 20 63 6c 69 63 6b 20 74 68 65 0a e and click the.
2880: 20 20 20 20 40 40 62 6f 6c 64 0a 20 20 20 20 52 @@bold. R
2890: 65 72 75 6e 20 44 65 6d 6f 0a 20 20 20 20 40 40 erun Demo. @@
28a0: 6e 6f 72 6d 61 6c 0a 20 20 20 20 62 75 74 74 6f normal. butto
28b0: 6e 20 69 6e 20 74 68 65 20 63 6f 64 65 20 77 69 n in the code wi
28c0: 6e 64 6f 77 20 74 6f 20 72 65 69 6e 76 6f 6b 65 ndow to reinvoke
28d0: 20 74 68 65 20 64 65 6d 6f 6e 73 74 72 61 74 69 the demonstrati
28e0: 6f 6e 20 77 69 74 68 20 74 68 65 0a 20 20 20 20 on with the.
28f0: 6d 6f 64 69 66 69 65 64 20 63 6f 64 65 2e 0a 20 modified code..
2900: 20 20 20 40 40 6e 65 77 6c 69 6e 65 0a 0a 20 20 @@newline..
2910: 20 20 40 40 73 75 62 74 69 74 6c 65 09 4c 61 62 @@subtitle.Lab
2920: 65 6c 73 2c 20 62 75 74 74 6f 6e 73 2c 20 63 68 els, buttons, ch
2930: 65 63 6b 62 75 74 74 6f 6e 73 2c 20 61 6e 64 20 eckbuttons, and
2940: 72 61 64 69 6f 62 75 74 74 6f 6e 73 0a 20 20 20 radiobuttons.
2950: 20 40 40 64 65 6d 6f 20 6c 61 62 65 6c 09 4c 61 @@demo label.La
2960: 62 65 6c 73 20 28 74 65 78 74 20 61 6e 64 20 62 bels (text and b
2970: 69 74 6d 61 70 73 29 0a 20 20 20 20 40 40 64 65 itmaps). @@de
2980: 6d 6f 20 75 6e 69 63 6f 64 65 6f 75 74 09 4c 61 mo unicodeout.La
2990: 62 65 6c 73 20 61 6e 64 20 55 4e 49 43 4f 44 45 bels and UNICODE
29a0: 20 74 65 78 74 0a 20 20 20 20 40 40 64 65 6d 6f text. @@demo
29b0: 20 62 75 74 74 6f 6e 09 42 75 74 74 6f 6e 73 0a button.Buttons.
29c0: 20 20 20 20 40 40 64 65 6d 6f 20 63 68 65 63 6b @@demo check
29d0: 09 43 68 65 63 6b 2d 62 75 74 74 6f 6e 73 20 28 .Check-buttons (
29e0: 73 65 6c 65 63 74 20 61 6e 79 20 6f 66 20 61 20 select any of a
29f0: 67 72 6f 75 70 29 0a 20 20 20 20 40 40 64 65 6d group). @@dem
2a00: 6f 20 72 61 64 69 6f 09 52 61 64 69 6f 2d 62 75 o radio.Radio-bu
2a10: 74 74 6f 6e 73 20 28 73 65 6c 65 63 74 20 6f 6e ttons (select on
2a20: 65 20 6f 66 20 61 20 67 72 6f 75 70 29 0a 20 20 e of a group).
2a30: 20 20 40 40 64 65 6d 6f 20 70 75 7a 7a 6c 65 09 @@demo puzzle.
2a40: 41 20 31 35 2d 70 75 7a 7a 6c 65 20 67 61 6d 65 A 15-puzzle game
2a50: 20 6d 61 64 65 20 6f 75 74 20 6f 66 20 62 75 74 made out of but
2a60: 74 6f 6e 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 tons. @@demo
2a70: 69 63 6f 6e 09 09 49 63 6f 6e 69 63 20 62 75 74 icon..Iconic but
2a80: 74 6f 6e 73 20 74 68 61 74 20 75 73 65 20 62 69 tons that use bi
2a90: 74 6d 61 70 73 0a 20 20 20 20 40 40 64 65 6d 6f tmaps. @@demo
2aa0: 20 69 6d 61 67 65 31 09 54 77 6f 20 6c 61 62 65 image1.Two labe
2ab0: 6c 73 20 64 69 73 70 6c 61 79 69 6e 67 20 69 6d ls displaying im
2ac0: 61 67 65 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 ages. @@demo
2ad0: 69 6d 61 67 65 32 09 41 20 73 69 6d 70 6c 65 20 image2.A simple
2ae0: 75 73 65 72 20 69 6e 74 65 72 66 61 63 65 20 66 user interface f
2af0: 6f 72 20 76 69 65 77 69 6e 67 20 69 6d 61 67 65 or viewing image
2b00: 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 6c 61 62 s. @@demo lab
2b10: 65 6c 66 72 61 6d 65 09 4c 61 62 65 6c 6c 65 64 elframe.Labelled
2b20: 20 66 72 61 6d 65 73 0a 20 20 20 20 40 40 64 65 frames. @@de
2b30: 6d 6f 20 74 74 6b 62 75 74 09 54 68 65 20 73 69 mo ttkbut.The si
2b40: 6d 70 6c 65 20 54 68 65 6d 65 64 20 54 6b 20 77 mple Themed Tk w
2b50: 69 64 67 65 74 73 0a 0a 20 20 20 20 40 40 73 75 idgets.. @@su
2b60: 62 74 69 74 6c 65 09 4c 69 73 74 62 6f 78 65 73 btitle.Listboxes
2b70: 20 61 6e 64 20 54 72 65 65 73 0a 20 20 20 20 40 and Trees. @
2b80: 40 64 65 6d 6f 20 73 74 61 74 65 73 09 54 68 65 @demo states.The
2b90: 20 35 30 20 73 74 61 74 65 73 0a 20 20 20 20 40 50 states. @
2ba0: 40 64 65 6d 6f 20 63 6f 6c 6f 72 73 09 43 6f 6c @demo colors.Col
2bb0: 6f 72 73 3a 20 63 68 61 6e 67 65 20 74 68 65 20 ors: change the
2bc0: 63 6f 6c 6f 72 20 73 63 68 65 6d 65 20 66 6f 72 color scheme for
2bd0: 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e the application
2be0: 0a 20 20 20 20 40 40 64 65 6d 6f 20 73 61 79 69 . @@demo sayi
2bf0: 6e 67 73 09 41 20 63 6f 6c 6c 65 63 74 69 6f 6e ngs.A collection
2c00: 20 6f 66 20 66 61 6d 6f 75 73 20 61 6e 64 20 69 of famous and i
2c10: 6e 66 61 6d 6f 75 73 20 73 61 79 69 6e 67 73 0a nfamous sayings.
2c20: 20 20 20 20 40 40 64 65 6d 6f 20 6d 63 6c 69 73 @@demo mclis
2c30: 74 09 41 20 6d 75 6c 74 69 2d 63 6f 6c 75 6d 6e t.A multi-column
2c40: 20 6c 69 73 74 20 6f 66 20 63 6f 75 6e 74 72 69 list of countri
2c50: 65 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 74 72 es. @@demo tr
2c60: 65 65 09 09 41 20 64 69 72 65 63 74 6f 72 79 20 ee..A directory
2c70: 62 72 6f 77 73 65 72 20 74 72 65 65 0a 0a 20 20 browser tree..
2c80: 20 20 40 40 73 75 62 74 69 74 6c 65 09 45 6e 74 @@subtitle.Ent
2c90: 72 69 65 73 2c 20 53 70 69 6e 2d 62 6f 78 65 73 ries, Spin-boxes
2ca0: 20 61 6e 64 20 43 6f 6d 62 6f 2d 62 6f 78 65 73 and Combo-boxes
2cb0: 0a 20 20 20 20 40 40 64 65 6d 6f 20 65 6e 74 72 . @@demo entr
2cc0: 79 31 09 45 6e 74 72 69 65 73 20 77 69 74 68 6f y1.Entries witho
2cd0: 75 74 20 73 63 72 6f 6c 6c 62 61 72 73 0a 20 20 ut scrollbars.
2ce0: 20 20 40 40 64 65 6d 6f 20 65 6e 74 72 79 32 09 @@demo entry2.
2cf0: 45 6e 74 72 69 65 73 20 77 69 74 68 20 73 63 72 Entries with scr
2d00: 6f 6c 6c 62 61 72 73 0a 20 20 20 20 40 40 64 65 ollbars. @@de
2d10: 6d 6f 20 65 6e 74 72 79 33 09 56 61 6c 69 64 61 mo entry3.Valida
2d20: 74 65 64 20 65 6e 74 72 69 65 73 20 61 6e 64 20 ted entries and
2d30: 70 61 73 73 77 6f 72 64 20 66 69 65 6c 64 73 0a password fields.
2d40: 20 20 20 20 40 40 64 65 6d 6f 20 73 70 69 6e 09 @@demo spin.
2d50: 09 53 70 69 6e 2d 62 6f 78 65 73 0a 20 20 20 20 .Spin-boxes.
2d60: 40 40 64 65 6d 6f 20 63 6f 6d 62 6f 09 43 6f 6d @@demo combo.Com
2d70: 62 6f 2d 62 6f 78 65 73 0a 20 20 20 20 40 40 64 bo-boxes. @@d
2d80: 65 6d 6f 20 66 6f 72 6d 09 09 53 69 6d 70 6c 65 emo form..Simple
2d90: 20 52 6f 6c 6f 64 65 78 2d 6c 69 6b 65 20 66 6f Rolodex-like fo
2da0: 72 6d 0a 0a 20 20 20 20 40 40 73 75 62 74 69 74 rm.. @@subtit
2db0: 6c 65 09 54 65 78 74 0a 20 20 20 20 40 40 64 65 le.Text. @@de
2dc0: 6d 6f 20 74 65 78 74 09 09 42 61 73 69 63 20 65 mo text..Basic e
2dd0: 64 69 74 61 62 6c 65 20 74 65 78 74 0a 20 20 20 ditable text.
2de0: 20 40 40 64 65 6d 6f 20 73 74 79 6c 65 09 54 65 @@demo style.Te
2df0: 78 74 20 64 69 73 70 6c 61 79 20 73 74 79 6c 65 xt display style
2e00: 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 62 69 6e s. @@demo bin
2e10: 64 09 09 48 79 70 65 72 74 65 78 74 20 28 74 61 d..Hypertext (ta
2e20: 67 20 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 g bindings).
2e30: 40 40 64 65 6d 6f 20 74 77 69 6e 64 09 41 20 74 @@demo twind.A t
2e40: 65 78 74 20 77 69 64 67 65 74 20 77 69 74 68 20 ext widget with
2e50: 65 6d 62 65 64 64 65 64 20 77 69 6e 64 6f 77 73 embedded windows
2e60: 20 61 6e 64 20 6f 74 68 65 72 20 66 65 61 74 75 and other featu
2e70: 72 65 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 73 res. @@demo s
2e80: 65 61 72 63 68 09 41 20 73 65 61 72 63 68 20 74 earch.A search t
2e90: 6f 6f 6c 20 62 75 69 6c 74 20 77 69 74 68 20 61 ool built with a
2ea0: 20 74 65 78 74 20 77 69 64 67 65 74 0a 20 20 20 text widget.
2eb0: 20 40 40 64 65 6d 6f 20 74 65 78 74 70 65 65 72 @@demo textpeer
2ec0: 09 50 65 65 72 69 6e 67 20 74 65 78 74 20 77 69 .Peering text wi
2ed0: 64 67 65 74 73 0a 0a 20 20 20 20 40 40 73 75 62 dgets.. @@sub
2ee0: 74 69 74 6c 65 09 43 61 6e 76 61 73 65 73 0a 20 title.Canvases.
2ef0: 20 20 20 40 40 64 65 6d 6f 20 69 74 65 6d 73 09 @@demo items.
2f00: 54 68 65 20 63 61 6e 76 61 73 20 69 74 65 6d 20 The canvas item
2f10: 74 79 70 65 73 0a 20 20 20 20 40 40 64 65 6d 6f types. @@demo
2f20: 20 70 6c 6f 74 09 09 41 20 73 69 6d 70 6c 65 20 plot..A simple
2f30: 32 2d 44 20 70 6c 6f 74 0a 20 20 20 20 40 40 64 2-D plot. @@d
2f40: 65 6d 6f 20 63 74 65 78 74 09 54 65 78 74 20 69 emo ctext.Text i
2f50: 74 65 6d 73 20 69 6e 20 63 61 6e 76 61 73 65 73 tems in canvases
2f60: 0a 20 20 20 20 40 40 64 65 6d 6f 20 61 72 72 6f . @@demo arro
2f70: 77 09 41 6e 20 65 64 69 74 6f 72 20 66 6f 72 20 w.An editor for
2f80: 61 72 72 6f 77 68 65 61 64 73 20 6f 6e 20 63 61 arrowheads on ca
2f90: 6e 76 61 73 20 6c 69 6e 65 73 0a 20 20 20 20 40 nvas lines. @
2fa0: 40 64 65 6d 6f 20 72 75 6c 65 72 09 41 20 72 75 @demo ruler.A ru
2fb0: 6c 65 72 20 77 69 74 68 20 61 64 6a 75 73 74 61 ler with adjusta
2fc0: 62 6c 65 20 74 61 62 20 73 74 6f 70 73 0a 20 20 ble tab stops.
2fd0: 20 20 40 40 64 65 6d 6f 20 66 6c 6f 6f 72 09 41 @@demo floor.A
2fe0: 20 62 75 69 6c 64 69 6e 67 20 66 6c 6f 6f 72 20 building floor
2ff0: 70 6c 61 6e 0a 20 20 20 20 40 40 64 65 6d 6f 20 plan. @@demo
3000: 63 73 63 72 6f 6c 6c 09 41 20 73 69 6d 70 6c 65 cscroll.A simple
3010: 20 73 63 72 6f 6c 6c 61 62 6c 65 20 63 61 6e 76 scrollable canv
3020: 61 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 6b 6e as. @@demo kn
3030: 69 67 68 74 73 74 6f 75 72 20 20 41 20 4b 6e 69 ightstour A Kni
3040: 67 68 74 27 73 20 74 6f 75 72 20 6f 66 20 74 68 ght's tour of th
3050: 65 20 63 68 65 73 73 20 62 6f 61 72 64 0a 0a 20 e chess board..
3060: 20 20 20 40 40 73 75 62 74 69 74 6c 65 09 53 63 @@subtitle.Sc
3070: 61 6c 65 73 20 61 6e 64 20 50 72 6f 67 72 65 73 ales and Progres
3080: 73 20 42 61 72 73 0a 20 20 20 20 40 40 64 65 6d s Bars. @@dem
3090: 6f 20 68 73 63 61 6c 65 09 48 6f 72 69 7a 6f 6e o hscale.Horizon
30a0: 74 61 6c 20 73 63 61 6c 65 0a 20 20 20 20 40 40 tal scale. @@
30b0: 64 65 6d 6f 20 76 73 63 61 6c 65 09 56 65 72 74 demo vscale.Vert
30c0: 69 63 61 6c 20 73 63 61 6c 65 0a 20 20 20 20 40 ical scale. @
30d0: 40 6e 65 77 0a 20 20 20 20 40 40 64 65 6d 6f 20 @new. @@demo
30e0: 74 74 6b 73 63 61 6c 65 09 54 68 65 6d 65 64 20 ttkscale.Themed
30f0: 73 63 61 6c 65 20 6c 69 6e 6b 65 64 20 74 6f 20 scale linked to
3100: 61 20 6c 61 62 65 6c 20 77 69 74 68 20 74 72 61 a label with tra
3110: 63 65 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 74 ces. @@demo t
3120: 74 6b 70 72 6f 67 72 65 73 73 09 50 72 6f 67 72 tkprogress.Progr
3130: 65 73 73 20 62 61 72 0a 0a 20 20 20 20 40 40 73 ess bar.. @@s
3140: 75 62 74 69 74 6c 65 09 50 61 6e 65 64 20 57 69 ubtitle.Paned Wi
3150: 6e 64 6f 77 73 20 61 6e 64 20 4e 6f 74 65 62 6f ndows and Notebo
3160: 6f 6b 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 70 oks. @@demo p
3170: 61 6e 65 64 31 09 48 6f 72 69 7a 6f 6e 74 61 6c aned1.Horizontal
3180: 20 70 61 6e 65 64 20 77 69 6e 64 6f 77 0a 20 20 paned window.
3190: 20 20 40 40 64 65 6d 6f 20 70 61 6e 65 64 32 09 @@demo paned2.
31a0: 56 65 72 74 69 63 61 6c 20 70 61 6e 65 64 20 77 Vertical paned w
31b0: 69 6e 64 6f 77 0a 20 20 20 20 40 40 64 65 6d 6f indow. @@demo
31c0: 20 74 74 6b 70 61 6e 65 09 54 68 65 6d 65 64 20 ttkpane.Themed
31d0: 6e 65 73 74 65 64 20 70 61 6e 65 73 0a 20 20 20 nested panes.
31e0: 20 40 40 64 65 6d 6f 20 74 74 6b 6e 6f 74 65 09 @@demo ttknote.
31f0: 4e 6f 74 65 62 6f 6f 6b 20 77 69 64 67 65 74 0a Notebook widget.
3200: 0a 20 20 20 20 40 40 73 75 62 74 69 74 6c 65 09 . @@subtitle.
3210: 4d 65 6e 75 73 20 61 6e 64 20 54 6f 6f 6c 62 61 Menus and Toolba
3220: 72 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 6d 65 rs. @@demo me
3230: 6e 75 09 09 4d 65 6e 75 73 20 61 6e 64 20 63 61 nu..Menus and ca
3240: 73 63 61 64 65 73 20 28 73 75 62 2d 6d 65 6e 75 scades (sub-menu
3250: 73 29 0a 20 20 20 20 40 40 64 65 6d 6f 20 6d 65 s). @@demo me
3260: 6e 75 62 75 09 4d 65 6e 75 2d 62 75 74 74 6f 6e nubu.Menu-button
3270: 73 0a 20 20 20 20 40 40 64 65 6d 6f 20 74 74 6b s. @@demo ttk
3280: 6d 65 6e 75 09 54 68 65 6d 65 64 20 6d 65 6e 75 menu.Themed menu
3290: 20 62 75 74 74 6f 6e 73 0a 20 20 20 20 40 40 64 buttons. @@d
32a0: 65 6d 6f 20 74 6f 6f 6c 62 61 72 09 54 68 65 6d emo toolbar.Them
32b0: 65 64 20 74 6f 6f 6c 62 61 72 0a 0a 20 20 20 20 ed toolbar..
32c0: 40 40 73 75 62 74 69 74 6c 65 09 43 6f 6d 6d 6f @@subtitle.Commo
32d0: 6e 20 44 69 61 6c 6f 67 73 0a 20 20 20 20 40 40 n Dialogs. @@
32e0: 64 65 6d 6f 20 6d 73 67 62 6f 78 09 4d 65 73 73 demo msgbox.Mess
32f0: 61 67 65 20 62 6f 78 65 73 0a 20 20 20 20 40 40 age boxes. @@
3300: 64 65 6d 6f 20 66 69 6c 65 62 6f 78 09 46 69 6c demo filebox.Fil
3310: 65 20 73 65 6c 65 63 74 69 6f 6e 20 64 69 61 6c e selection dial
3320: 6f 67 0a 20 20 20 20 40 40 64 65 6d 6f 20 63 6c og. @@demo cl
3330: 72 70 69 63 6b 09 43 6f 6c 6f 72 20 70 69 63 6b rpick.Color pick
3340: 65 72 0a 20 20 20 20 40 40 64 65 6d 6f 20 66 6f er. @@demo fo
3350: 6e 74 63 68 6f 6f 73 65 09 46 6f 6e 74 20 73 65 ntchoose.Font se
3360: 6c 65 63 74 69 6f 6e 20 64 69 61 6c 6f 67 0a 0a lection dialog..
3370: 20 20 20 20 40 40 73 75 62 74 69 74 6c 65 09 41 @@subtitle.A
3380: 6e 69 6d 61 74 69 6f 6e 0a 20 20 20 20 40 40 64 nimation. @@d
3390: 65 6d 6f 20 61 6e 69 6c 61 62 65 6c 09 41 6e 69 emo anilabel.Ani
33a0: 6d 61 74 65 64 20 6c 61 62 65 6c 73 0a 20 20 20 mated labels.
33b0: 20 40 40 64 65 6d 6f 20 61 6e 69 77 61 76 65 09 @@demo aniwave.
33c0: 41 6e 69 6d 61 74 65 64 20 77 61 76 65 0a 20 20 Animated wave.
33d0: 20 20 40 40 64 65 6d 6f 20 70 65 6e 64 75 6c 75 @@demo pendulu
33e0: 6d 09 50 65 6e 64 75 6c 75 6d 20 73 69 6d 75 6c m.Pendulum simul
33f0: 61 74 69 6f 6e 0a 20 20 20 20 40 40 64 65 6d 6f ation. @@demo
3400: 20 67 6f 6c 64 62 65 72 67 09 41 20 63 65 6c 65 goldberg.A cele
3410: 62 72 61 74 69 6f 6e 20 6f 66 20 52 75 62 65 20 bration of Rube
3420: 47 6f 6c 64 62 65 72 67 0a 0a 20 20 20 20 40 40 Goldberg.. @@
3430: 73 75 62 74 69 74 6c 65 09 4d 69 73 63 65 6c 6c subtitle.Miscell
3440: 61 6e 65 6f 75 73 0a 20 20 20 20 40 40 64 65 6d aneous. @@dem
3450: 6f 20 62 69 74 6d 61 70 09 54 68 65 20 62 75 69 o bitmap.The bui
3460: 6c 74 2d 69 6e 20 62 69 74 6d 61 70 73 0a 20 20 lt-in bitmaps.
3470: 20 20 40 40 64 65 6d 6f 20 64 69 61 6c 6f 67 31 @@demo dialog1
3480: 09 41 20 64 69 61 6c 6f 67 20 62 6f 78 20 77 69 .A dialog box wi
3490: 74 68 20 61 20 6c 6f 63 61 6c 20 67 72 61 62 0a th a local grab.
34a0: 20 20 20 20 40 40 64 65 6d 6f 20 64 69 61 6c 6f @@demo dialo
34b0: 67 32 09 41 20 64 69 61 6c 6f 67 20 62 6f 78 20 g2.A dialog box
34c0: 77 69 74 68 20 61 20 67 6c 6f 62 61 6c 20 67 72 with a global gr
34d0: 61 62 0a 7d 0a 0c 0a 23 23 23 23 23 23 23 23 23 ab.}...#########
34e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
34f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3500: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3510: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
3520: 23 23 23 23 23 0a 0a 2e 74 20 63 6f 6e 66 69 67 #####...t config
3530: 75 72 65 20 2d 73 74 61 74 65 20 64 69 73 61 62 ure -state disab
3540: 6c 65 64 0a 66 6f 63 75 73 20 2e 73 0a 0a 23 20 led.focus .s..#
3550: 61 64 64 53 65 65 44 69 73 6d 69 73 73 20 2d 2d addSeeDismiss --
3560: 0a 23 20 41 64 64 20 22 53 65 65 20 43 6f 64 65 .# Add "See Code
3570: 22 20 61 6e 64 20 22 44 69 73 6d 69 73 73 22 20 " and "Dismiss"
3580: 62 75 74 74 6f 6e 20 66 72 61 6d 65 2c 20 77 69 button frame, wi
3590: 74 68 20 6f 70 74 69 6f 6e 61 6c 20 22 53 65 65 th optional "See
35a0: 20 56 61 72 73 22 0a 23 0a 23 20 41 72 67 75 6d Vars".#.# Argum
35b0: 65 6e 74 73 3a 0a 23 20 77 20 2d 09 09 54 68 65 ents:.# w -..The
35c0: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 72 61 name of the fra
35d0: 6d 65 20 74 6f 20 75 73 65 2e 0a 0a 70 72 6f 63 me to use...proc
35e0: 20 61 64 64 53 65 65 44 69 73 6d 69 73 73 20 7b addSeeDismiss {
35f0: 77 20 73 68 6f 77 20 7b 76 61 72 73 20 7b 7d 7d w show {vars {}}
3600: 20 7b 65 78 74 72 61 20 7b 7d 7d 7d 20 7b 0a 20 {extra {}}} {.
3610: 20 20 20 23 23 20 53 65 65 20 43 6f 64 65 20 2f ## See Code /
3620: 20 44 69 73 6d 69 73 73 20 62 75 74 74 6f 6e 73 Dismiss buttons
3630: 0a 20 20 20 20 74 74 6b 3a 3a 66 72 61 6d 65 20 . ttk::frame
3640: 24 77 0a 20 20 20 20 74 74 6b 3a 3a 73 65 70 61 $w. ttk::sepa
3650: 72 61 74 6f 72 20 24 77 2e 73 65 70 0a 20 20 20 rator $w.sep.
3660: 20 23 74 74 6b 3a 3a 66 72 61 6d 65 20 24 77 2e #ttk::frame $w.
3670: 73 65 70 20 2d 68 65 69 67 68 74 20 32 20 2d 72 sep -height 2 -r
3680: 65 6c 69 65 66 20 73 75 6e 6b 65 6e 0a 20 20 20 elief sunken.
3690: 20 67 72 69 64 20 24 77 2e 73 65 70 20 2d 63 6f grid $w.sep -co
36a0: 6c 75 6d 6e 73 70 61 6e 20 34 20 2d 72 6f 77 20 lumnspan 4 -row
36b0: 30 20 2d 73 74 69 63 6b 79 20 65 77 20 2d 70 61 0 -sticky ew -pa
36c0: 64 79 20 32 0a 20 20 20 20 74 74 6b 3a 3a 62 75 dy 2. ttk::bu
36d0: 74 74 6f 6e 20 24 77 2e 64 69 73 6d 69 73 73 20 tton $w.dismiss
36e0: 2d 74 65 78 74 20 5b 6d 63 20 22 44 69 73 6d 69 -text [mc "Dismi
36f0: 73 73 22 5d 20 5c 0a 09 2d 69 6d 61 67 65 20 3a ss"] \..-image :
3700: 3a 69 6d 67 3a 3a 64 65 6c 65 74 65 20 2d 63 6f :img::delete -co
3710: 6d 70 6f 75 6e 64 20 6c 65 66 74 20 5c 0a 09 2d mpound left \..-
3720: 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20 64 65 command [list de
3730: 73 74 72 6f 79 20 5b 77 69 6e 66 6f 20 74 6f 70 stroy [winfo top
3740: 6c 65 76 65 6c 20 24 77 5d 5d 0a 20 20 20 20 74 level $w]]. t
3750: 74 6b 3a 3a 62 75 74 74 6f 6e 20 24 77 2e 63 6f tk::button $w.co
3760: 64 65 20 2d 74 65 78 74 20 5b 6d 63 20 22 53 65 de -text [mc "Se
3770: 65 20 43 6f 64 65 22 5d 20 5c 0a 09 2d 69 6d 61 e Code"] \..-ima
3780: 67 65 20 3a 3a 69 6d 67 3a 3a 76 69 65 77 20 2d ge ::img::view -
3790: 63 6f 6d 70 6f 75 6e 64 20 6c 65 66 74 20 5c 0a compound left \.
37a0: 09 2d 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20 .-command [list
37b0: 73 68 6f 77 43 6f 64 65 20 24 73 68 6f 77 5d 0a showCode $show].
37c0: 20 20 20 20 73 65 74 20 62 75 74 74 6f 6e 73 20 set buttons
37d0: 5b 6c 69 73 74 20 78 20 24 77 2e 63 6f 64 65 20 [list x $w.code
37e0: 24 77 2e 64 69 73 6d 69 73 73 5d 0a 20 20 20 20 $w.dismiss].
37f0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 76 61 if {[llength $va
3800: 72 73 5d 7d 20 7b 0a 09 74 74 6b 3a 3a 62 75 74 rs]} {..ttk::but
3810: 74 6f 6e 20 24 77 2e 76 61 72 73 20 2d 74 65 78 ton $w.vars -tex
3820: 74 20 5b 6d 63 20 22 53 65 65 20 56 61 72 69 61 t [mc "See Varia
3830: 62 6c 65 73 22 5d 20 5c 0a 09 20 20 20 20 2d 69 bles"] \.. -i
3840: 6d 61 67 65 20 3a 3a 69 6d 67 3a 3a 76 69 65 77 mage ::img::view
3850: 20 2d 63 6f 6d 70 6f 75 6e 64 20 6c 65 66 74 20 -compound left
3860: 5c 0a 09 20 20 20 20 2d 63 6f 6d 6d 61 6e 64 20 \.. -command
3870: 5b 63 6f 6e 63 61 74 20 5b 6c 69 73 74 20 73 68 [concat [list sh
3880: 6f 77 56 61 72 73 20 24 77 2e 64 69 61 6c 6f 67 owVars $w.dialog
3890: 5d 20 24 76 61 72 73 5d 0a 09 73 65 74 20 62 75 ] $vars]..set bu
38a0: 74 74 6f 6e 73 20 5b 6c 69 6e 73 65 72 74 20 24 ttons [linsert $
38b0: 62 75 74 74 6f 6e 73 20 31 20 24 77 2e 76 61 72 buttons 1 $w.var
38c0: 73 5d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 s]. }. if
38d0: 7b 24 65 78 74 72 61 20 6e 65 20 22 22 7d 20 7b {$extra ne ""} {
38e0: 0a 09 73 65 74 20 62 75 74 74 6f 6e 73 20 5b 6c ..set buttons [l
38f0: 69 6e 73 65 72 74 20 24 62 75 74 74 6f 6e 73 20 insert $buttons
3900: 31 20 5b 75 70 6c 65 76 65 6c 20 31 20 24 65 78 1 [uplevel 1 $ex
3910: 74 72 61 5d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 tra]]. }.
3920: 67 72 69 64 20 7b 2a 7d 24 62 75 74 74 6f 6e 73 grid {*}$buttons
3930: 20 2d 70 61 64 78 20 34 20 2d 70 61 64 79 20 34 -padx 4 -pady 4
3940: 0a 20 20 20 20 67 72 69 64 20 63 6f 6c 75 6d 6e . grid column
3950: 63 6f 6e 66 69 67 75 72 65 20 24 77 20 30 20 2d configure $w 0 -
3960: 77 65 69 67 68 74 20 31 0a 20 20 20 20 69 66 20 weight 1. if
3970: 7b 5b 74 6b 20 77 69 6e 64 6f 77 69 6e 67 73 79 {[tk windowingsy
3980: 73 74 65 6d 5d 20 65 71 20 22 61 71 75 61 22 7d stem] eq "aqua"}
3990: 20 7b 0a 09 66 6f 72 65 61 63 68 20 62 20 5b 6c {..foreach b [l
39a0: 72 61 6e 67 65 20 24 62 75 74 74 6f 6e 73 20 31 range $buttons 1
39b0: 20 65 6e 64 5d 20 7b 24 62 20 63 6f 6e 66 69 67 end] {$b config
39c0: 75 72 65 20 2d 74 61 6b 65 66 6f 63 75 73 20 30 ure -takefocus 0
39d0: 7d 0a 09 67 72 69 64 20 63 6f 6e 66 69 67 75 72 }..grid configur
39e0: 65 20 24 77 2e 73 65 70 20 2d 70 61 64 79 20 30 e $w.sep -pady 0
39f0: 0a 09 67 72 69 64 20 63 6f 6e 66 69 67 75 72 65 ..grid configure
3a00: 20 7b 2a 7d 24 62 75 74 74 6f 6e 73 20 2d 70 61 {*}$buttons -pa
3a10: 64 79 20 7b 31 30 20 31 32 7d 0a 09 67 72 69 64 dy {10 12}..grid
3a20: 20 63 6f 6e 66 69 67 75 72 65 20 5b 6c 69 6e 64 configure [lind
3a30: 65 78 20 24 62 75 74 74 6f 6e 73 20 31 5d 20 2d ex $buttons 1] -
3a40: 70 61 64 78 20 7b 31 36 20 34 7d 0a 09 67 72 69 padx {16 4}..gri
3a50: 64 20 63 6f 6e 66 69 67 75 72 65 20 5b 6c 69 6e d configure [lin
3a60: 64 65 78 20 24 62 75 74 74 6f 6e 73 20 65 6e 64 dex $buttons end
3a70: 5d 20 2d 70 61 64 78 20 7b 34 20 31 38 7d 0a 20 ] -padx {4 18}.
3a80: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
3a90: 24 77 0a 7d 0a 0a 23 20 70 6f 73 69 74 69 6f 6e $w.}..# position
3aa0: 57 69 6e 64 6f 77 20 2d 2d 0a 23 20 54 68 69 73 Window --.# This
3ab0: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
3ac0: 76 6f 6b 65 64 20 62 79 20 6d 6f 73 74 20 6f 66 voked by most of
3ad0: 20 74 68 65 20 64 65 6d 6f 73 20 74 6f 20 70 6f the demos to po
3ae0: 73 69 74 69 6f 6e 20 61 20 6e 65 77 20 64 65 6d sition a new dem
3af0: 6f 0a 23 20 77 69 6e 64 6f 77 2e 0a 23 0a 23 20 o.# window..#.#
3b00: 41 72 67 75 6d 65 6e 74 73 3a 0a 23 20 77 20 2d Arguments:.# w -
3b10: 09 09 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 ..The name of th
3b20: 65 20 77 69 6e 64 6f 77 20 74 6f 20 70 6f 73 69 e window to posi
3b30: 74 69 6f 6e 2e 0a 0a 70 72 6f 63 20 70 6f 73 69 tion...proc posi
3b40: 74 69 6f 6e 57 69 6e 64 6f 77 20 77 20 7b 0a 20 tionWindow w {.
3b50: 20 20 20 77 6d 20 67 65 6f 6d 65 74 72 79 20 24 wm geometry $
3b60: 77 20 2b 33 30 30 2b 33 30 30 0a 7d 0a 0a 23 20 w +300+300.}..#
3b70: 73 68 6f 77 56 61 72 73 20 2d 2d 0a 23 20 44 69 showVars --.# Di
3b80: 73 70 6c 61 79 73 20 74 68 65 20 76 61 6c 75 65 splays the value
3b90: 73 20 6f 66 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 s of one or more
3ba0: 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 61 20 variables in a
3bb0: 77 69 6e 64 6f 77 2c 20 61 6e 64 20 75 70 64 61 window, and upda
3bc0: 74 65 73 20 74 68 65 0a 23 20 64 69 73 70 6c 61 tes the.# displa
3bd0: 79 20 77 68 65 6e 65 76 65 72 20 61 6e 79 20 6f y whenever any o
3be0: 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 f the variables
3bf0: 63 68 61 6e 67 65 73 2e 0a 23 0a 23 20 41 72 67 changes..#.# Arg
3c00: 75 6d 65 6e 74 73 3a 0a 23 20 77 20 2d 09 09 4e uments:.# w -..N
3c10: 61 6d 65 20 6f 66 20 6e 65 77 20 77 69 6e 64 6f ame of new windo
3c20: 77 20 74 6f 20 63 72 65 61 74 65 20 66 6f 72 20 w to create for
3c30: 64 69 73 70 6c 61 79 2e 0a 23 20 61 72 67 73 20 display..# args
3c40: 2d 09 41 6e 79 20 6e 75 6d 62 65 72 20 6f 66 20 -.Any number of
3c50: 6e 61 6d 65 73 20 6f 66 20 76 61 72 69 61 62 6c names of variabl
3c60: 65 73 2e 0a 0a 70 72 6f 63 20 73 68 6f 77 56 61 es...proc showVa
3c70: 72 73 20 7b 77 20 61 72 67 73 7d 20 7b 0a 20 20 rs {w args} {.
3c80: 20 20 63 61 74 63 68 20 7b 64 65 73 74 72 6f 79 catch {destroy
3c90: 20 24 77 7d 0a 20 20 20 20 74 6f 70 6c 65 76 65 $w}. topleve
3ca0: 6c 20 24 77 0a 20 20 20 20 69 66 20 7b 5b 74 6b l $w. if {[tk
3cb0: 20 77 69 6e 64 6f 77 69 6e 67 73 79 73 74 65 6d windowingsystem
3cc0: 5d 20 65 71 20 22 78 31 31 22 7d 20 7b 77 6d 20 ] eq "x11"} {wm
3cd0: 61 74 74 72 69 62 75 74 65 73 20 24 77 20 2d 74 attributes $w -t
3ce0: 79 70 65 20 64 69 61 6c 6f 67 7d 0a 20 20 20 20 ype dialog}.
3cf0: 77 6d 20 74 69 74 6c 65 20 24 77 20 5b 6d 63 20 wm title $w [mc
3d00: 22 56 61 72 69 61 62 6c 65 20 76 61 6c 75 65 73 "Variable values
3d10: 22 5d 0a 0a 20 20 20 20 73 65 74 20 62 20 5b 74 "].. set b [t
3d20: 74 6b 3a 3a 66 72 61 6d 65 20 24 77 2e 66 72 61 tk::frame $w.fra
3d30: 6d 65 5d 0a 20 20 20 20 67 72 69 64 20 24 62 20 me]. grid $b
3d40: 2d 73 74 69 63 6b 79 20 6e 65 77 73 0a 20 20 20 -sticky news.
3d50: 20 73 65 74 20 66 20 5b 74 74 6b 3a 3a 6c 61 62 set f [ttk::lab
3d60: 65 6c 66 72 61 6d 65 20 24 62 2e 74 69 74 6c 65 elframe $b.title
3d70: 20 2d 74 65 78 74 20 5b 6d 63 20 22 56 61 72 69 -text [mc "Vari
3d80: 61 62 6c 65 20 76 61 6c 75 65 73 3a 22 5d 5d 0a able values:"]].
3d90: 20 20 20 20 66 6f 72 65 61 63 68 20 76 61 72 20 foreach var
3da0: 24 61 72 67 73 20 7b 0a 09 74 74 6b 3a 3a 6c 61 $args {..ttk::la
3db0: 62 65 6c 20 24 66 2e 6e 24 76 61 72 20 2d 74 65 bel $f.n$var -te
3dc0: 78 74 20 22 24 76 61 72 3a 22 20 2d 61 6e 63 68 xt "$var:" -anch
3dd0: 6f 72 20 77 0a 09 74 74 6b 3a 3a 6c 61 62 65 6c or w..ttk::label
3de0: 20 24 66 2e 76 24 76 61 72 20 2d 74 65 78 74 76 $f.v$var -textv
3df0: 61 72 69 61 62 6c 65 20 24 76 61 72 20 2d 61 6e ariable $var -an
3e00: 63 68 6f 72 20 77 0a 09 67 72 69 64 20 24 66 2e chor w..grid $f.
3e10: 6e 24 76 61 72 20 24 66 2e 76 24 76 61 72 20 2d n$var $f.v$var -
3e20: 70 61 64 78 20 32 20 2d 70 61 64 79 20 32 20 2d padx 2 -pady 2 -
3e30: 73 74 69 63 6b 79 20 77 0a 20 20 20 20 7d 0a 20 sticky w. }.
3e40: 20 20 20 74 74 6b 3a 3a 62 75 74 74 6f 6e 20 24 ttk::button $
3e50: 62 2e 6f 6b 20 2d 74 65 78 74 20 5b 6d 63 20 22 b.ok -text [mc "
3e60: 4f 4b 22 5d 20 5c 0a 09 2d 63 6f 6d 6d 61 6e 64 OK"] \..-command
3e70: 20 5b 6c 69 73 74 20 64 65 73 74 72 6f 79 20 24 [list destroy $
3e80: 77 5d 20 2d 64 65 66 61 75 6c 74 20 61 63 74 69 w] -default acti
3e90: 76 65 0a 20 20 20 20 62 69 6e 64 20 24 77 20 3c ve. bind $w <
3ea0: 52 65 74 75 72 6e 3e 20 5b 6c 69 73 74 20 24 62 Return> [list $b
3eb0: 2e 6f 6b 20 69 6e 76 6f 6b 65 5d 0a 20 20 20 20 .ok invoke].
3ec0: 62 69 6e 64 20 24 77 20 3c 45 73 63 61 70 65 3e bind $w <Escape>
3ed0: 20 5b 6c 69 73 74 20 24 62 2e 6f 6b 20 69 6e 76 [list $b.ok inv
3ee0: 6f 6b 65 5d 0a 0a 20 20 20 20 67 72 69 64 20 24 oke].. grid $
3ef0: 66 20 2d 73 74 69 63 6b 79 20 6e 65 77 73 20 2d f -sticky news -
3f00: 70 61 64 78 20 34 0a 20 20 20 20 67 72 69 64 20 padx 4. grid
3f10: 24 62 2e 6f 6b 20 2d 73 74 69 63 6b 79 20 65 20 $b.ok -sticky e
3f20: 2d 70 61 64 78 20 34 20 2d 70 61 64 79 20 7b 36 -padx 4 -pady {6
3f30: 20 34 7d 0a 20 20 20 20 69 66 20 7b 5b 74 6b 20 4}. if {[tk
3f40: 77 69 6e 64 6f 77 69 6e 67 73 79 73 74 65 6d 5d windowingsystem]
3f50: 20 65 71 20 22 61 71 75 61 22 7d 20 7b 0a 09 24 eq "aqua"} {..$
3f60: 62 2e 6f 6b 20 63 6f 6e 66 69 67 75 72 65 20 2d b.ok configure -
3f70: 74 61 6b 65 66 6f 63 75 73 20 30 0a 09 67 72 69 takefocus 0..gri
3f80: 64 20 63 6f 6e 66 69 67 75 72 65 20 24 62 2e 6f d configure $b.o
3f90: 6b 20 2d 70 61 64 79 20 7b 31 30 20 31 32 7d 20 k -pady {10 12}
3fa0: 2d 70 61 64 78 20 7b 31 36 20 31 38 7d 0a 09 67 -padx {16 18}..g
3fb0: 72 69 64 20 63 6f 6e 66 69 67 75 72 65 20 24 66 rid configure $f
3fc0: 20 2d 70 61 64 78 20 31 30 20 2d 70 61 64 79 20 -padx 10 -pady
3fd0: 7b 31 30 20 30 7d 0a 20 20 20 20 7d 0a 20 20 20 {10 0}. }.
3fe0: 20 67 72 69 64 20 63 6f 6c 75 6d 6e 63 6f 6e 66 grid columnconf
3ff0: 69 67 20 24 66 20 31 20 2d 77 65 69 67 68 74 20 ig $f 1 -weight
4000: 31 0a 20 20 20 20 67 72 69 64 20 72 6f 77 63 6f 1. grid rowco
4010: 6e 66 69 67 75 72 65 20 24 66 20 31 30 30 20 2d nfigure $f 100 -
4020: 77 65 69 67 68 74 20 31 0a 20 20 20 20 67 72 69 weight 1. gri
4030: 64 20 63 6f 6c 75 6d 6e 63 6f 6e 66 69 67 20 24 d columnconfig $
4040: 62 20 30 20 2d 77 65 69 67 68 74 20 31 0a 20 20 b 0 -weight 1.
4050: 20 20 67 72 69 64 20 72 6f 77 63 6f 6e 66 69 67 grid rowconfig
4060: 75 72 65 20 24 62 20 30 20 2d 77 65 69 67 68 74 ure $b 0 -weight
4070: 20 31 0a 20 20 20 20 67 72 69 64 20 63 6f 6c 75 1. grid colu
4080: 6d 6e 63 6f 6e 66 69 67 20 24 77 20 30 20 2d 77 mnconfig $w 0 -w
4090: 65 69 67 68 74 20 31 0a 20 20 20 20 67 72 69 64 eight 1. grid
40a0: 20 72 6f 77 63 6f 6e 66 69 67 75 72 65 20 24 77 rowconfigure $w
40b0: 20 30 20 2d 77 65 69 67 68 74 20 31 0a 7d 0a 0a 0 -weight 1.}..
40c0: 23 20 69 6e 76 6f 6b 65 20 2d 2d 0a 23 20 54 68 # invoke --.# Th
40d0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 is procedure is
40e0: 63 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 20 called when the
40f0: 75 73 65 72 20 63 6c 69 63 6b 73 20 6f 6e 20 61 user clicks on a
4100: 20 64 65 6d 6f 20 64 65 73 63 72 69 70 74 69 6f demo descriptio
4110: 6e 2e 20 49 74 20 69 73 0a 23 20 72 65 73 70 6f n. It is.# respo
4120: 6e 73 69 62 6c 65 20 66 6f 72 20 69 6e 76 6f 6b nsible for invok
4130: 69 6e 67 20 74 68 65 20 64 65 6d 6f 6e 73 74 72 ing the demonstr
4140: 61 74 69 6f 6e 2e 0a 23 0a 23 20 41 72 67 75 6d ation..#.# Argum
4150: 65 6e 74 73 3a 0a 23 20 69 6e 64 65 78 20 2d 09 ents:.# index -.
4160: 54 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 The index of the
4170: 20 63 68 61 72 61 63 74 65 72 20 74 68 61 74 20 character that
4180: 74 68 65 20 75 73 65 72 20 63 6c 69 63 6b 65 64 the user clicked
4190: 20 6f 6e 2e 0a 0a 70 72 6f 63 20 69 6e 76 6f 6b on...proc invok
41a0: 65 20 69 6e 64 65 78 20 7b 0a 20 20 20 20 67 6c e index {. gl
41b0: 6f 62 61 6c 20 74 6b 5f 64 65 6d 6f 44 69 72 65 obal tk_demoDire
41c0: 63 74 6f 72 79 0a 20 20 20 20 73 65 74 20 74 61 ctory. set ta
41d0: 67 73 20 5b 2e 74 20 74 61 67 20 6e 61 6d 65 73 gs [.t tag names
41e0: 20 24 69 6e 64 65 78 5d 0a 20 20 20 20 73 65 74 $index]. set
41f0: 20 69 20 5b 6c 73 65 61 72 63 68 20 2d 67 6c 6f i [lsearch -glo
4200: 62 20 24 74 61 67 73 20 64 65 6d 6f 2d 2a 5d 0a b $tags demo-*].
4210: 20 20 20 20 69 66 20 7b 24 69 20 3c 20 30 7d 20 if {$i < 0}
4220: 7b 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a {..return. }.
4230: 20 20 20 20 73 65 74 20 63 75 72 73 6f 72 20 5b set cursor [
4240: 2e 74 20 63 67 65 74 20 2d 63 75 72 73 6f 72 5d .t cget -cursor]
4250: 0a 20 20 20 20 2e 74 20 63 6f 6e 66 69 67 75 72 . .t configur
4260: 65 20 2d 63 75 72 73 6f 72 20 5b 3a 3a 74 74 6b e -cursor [::ttk
4270: 3a 3a 63 75 72 73 6f 72 20 62 75 73 79 5d 0a 20 ::cursor busy].
4280: 20 20 20 75 70 64 61 74 65 0a 20 20 20 20 73 65 update. se
4290: 74 20 64 65 6d 6f 20 5b 73 74 72 69 6e 67 20 72 t demo [string r
42a0: 61 6e 67 65 20 5b 6c 69 6e 64 65 78 20 24 74 61 ange [lindex $ta
42b0: 67 73 20 24 69 5d 20 35 20 65 6e 64 5d 0a 20 20 gs $i] 5 end].
42c0: 20 20 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 uplevel 1 [lis
42d0: 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a t source [file j
42e0: 6f 69 6e 20 24 74 6b 5f 64 65 6d 6f 44 69 72 65 oin $tk_demoDire
42f0: 63 74 6f 72 79 20 24 64 65 6d 6f 2e 74 63 6c 5d ctory $demo.tcl]
4300: 5d 0a 20 20 20 20 75 70 64 61 74 65 0a 20 20 20 ]. update.
4310: 20 2e 74 20 63 6f 6e 66 69 67 75 72 65 20 2d 63 .t configure -c
4320: 75 72 73 6f 72 20 24 63 75 72 73 6f 72 0a 0a 20 ursor $cursor..
4330: 20 20 20 2e 74 20 74 61 67 20 61 64 64 20 76 69 .t tag add vi
4340: 73 69 74 65 64 20 22 24 69 6e 64 65 78 20 6c 69 sited "$index li
4350: 6e 65 73 74 61 72 74 20 2b 31 20 63 68 61 72 73 nestart +1 chars
4360: 22 20 22 24 69 6e 64 65 78 20 6c 69 6e 65 65 6e " "$index lineen
4370: 64 20 2d 31 20 63 68 61 72 73 22 0a 7d 0a 0a 23 d -1 chars".}..#
4380: 20 73 68 6f 77 53 74 61 74 75 73 20 2d 2d 0a 23 showStatus --.#
4390: 0a 23 09 53 68 6f 77 20 74 68 65 20 6e 61 6d 65 .#.Show the name
43a0: 20 6f 66 20 74 68 65 20 64 65 6d 6f 20 70 72 6f of the demo pro
43b0: 67 72 61 6d 20 69 6e 20 74 68 65 20 73 74 61 74 gram in the stat
43c0: 75 73 20 62 61 72 2e 20 54 68 69 73 20 70 72 6f us bar. This pro
43d0: 63 65 64 75 72 65 20 69 73 0a 23 09 63 61 6c 6c cedure is.#.call
43e0: 65 64 20 77 68 65 6e 20 74 68 65 20 75 73 65 72 ed when the user
43f0: 20 6d 6f 76 65 73 20 74 68 65 20 63 75 72 73 6f moves the curso
4400: 72 20 6f 76 65 72 20 61 20 64 65 6d 6f 20 64 65 r over a demo de
4410: 73 63 72 69 70 74 69 6f 6e 2e 0a 23 0a 70 72 6f scription..#.pro
4420: 63 20 73 68 6f 77 53 74 61 74 75 73 20 69 6e 64 c showStatus ind
4430: 65 78 20 7b 0a 20 20 20 20 73 65 74 20 74 61 67 ex {. set tag
4440: 73 20 5b 2e 74 20 74 61 67 20 6e 61 6d 65 73 20 s [.t tag names
4450: 24 69 6e 64 65 78 5d 0a 20 20 20 20 73 65 74 20 $index]. set
4460: 69 20 5b 6c 73 65 61 72 63 68 20 2d 67 6c 6f 62 i [lsearch -glob
4470: 20 24 74 61 67 73 20 64 65 6d 6f 2d 2a 5d 0a 20 $tags demo-*].
4480: 20 20 20 73 65 74 20 63 75 72 73 6f 72 20 5b 2e set cursor [.
4490: 74 20 63 67 65 74 20 2d 63 75 72 73 6f 72 5d 0a t cget -cursor].
44a0: 20 20 20 20 69 66 20 7b 24 69 20 3c 20 30 7d 20 if {$i < 0}
44b0: 7b 0a 09 2e 73 74 61 74 75 73 42 61 72 2e 6c 61 {...statusBar.la
44c0: 62 20 63 6f 6e 66 69 67 20 2d 74 65 78 74 20 22 b config -text "
44d0: 20 22 0a 09 73 65 74 20 6e 65 77 63 75 72 73 6f "..set newcurso
44e0: 72 20 5b 3a 3a 74 74 6b 3a 3a 63 75 72 73 6f 72 r [::ttk::cursor
44f0: 20 74 65 78 74 5d 0a 20 20 20 20 7d 20 65 6c 73 text]. } els
4500: 65 20 7b 0a 09 73 65 74 20 64 65 6d 6f 20 5b 73 e {..set demo [s
4510: 74 72 69 6e 67 20 72 61 6e 67 65 20 5b 6c 69 6e tring range [lin
4520: 64 65 78 20 24 74 61 67 73 20 24 69 5d 20 35 20 dex $tags $i] 5
4530: 65 6e 64 5d 0a 09 2e 73 74 61 74 75 73 42 61 72 end]...statusBar
4540: 2e 6c 61 62 20 63 6f 6e 66 69 67 20 2d 74 65 78 .lab config -tex
4550: 74 20 5b 6d 63 20 22 52 75 6e 20 74 68 65 20 5c t [mc "Run the \
4560: 22 25 73 5c 22 20 73 61 6d 70 6c 65 20 70 72 6f "%s\" sample pro
4570: 67 72 61 6d 22 20 24 64 65 6d 6f 5d 0a 09 73 65 gram" $demo]..se
4580: 74 20 6e 65 77 63 75 72 73 6f 72 20 5b 3a 3a 74 t newcursor [::t
4590: 74 6b 3a 3a 63 75 72 73 6f 72 20 6c 69 6e 6b 5d tk::cursor link]
45a0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 . }. if {$
45b0: 63 75 72 73 6f 72 20 6e 65 20 24 6e 65 77 63 75 cursor ne $newcu
45c0: 72 73 6f 72 7d 20 7b 0a 09 2e 74 20 63 6f 6e 66 rsor} {...t conf
45d0: 69 67 20 2d 63 75 72 73 6f 72 20 24 6e 65 77 63 ig -cursor $newc
45e0: 75 72 73 6f 72 0a 20 20 20 20 7d 0a 7d 0a 0a 23 ursor. }.}..#
45f0: 20 65 76 61 6c 53 68 6f 77 43 6f 64 65 20 2d 2d evalShowCode --
4600: 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a .#.# Arguments:.
4610: 23 20 77 20 2d 09 09 4e 61 6d 65 20 6f 66 20 74 # w -..Name of t
4620: 65 78 74 20 77 69 64 67 65 74 20 63 6f 6e 74 61 ext widget conta
4630: 69 6e 69 6e 67 20 63 6f 64 65 20 74 6f 20 65 76 ining code to ev
4640: 61 6c 0a 0a 70 72 6f 63 20 65 76 61 6c 53 68 6f al..proc evalSho
4650: 77 43 6f 64 65 20 7b 77 7d 20 7b 0a 20 20 20 20 wCode {w} {.
4660: 73 65 74 20 63 6f 64 65 20 5b 24 77 20 67 65 74 set code [$w get
4670: 20 31 2e 30 20 65 6e 64 2d 31 63 5d 0a 20 20 20 1.0 end-1c].
4680: 20 75 70 6c 65 76 65 6c 20 23 30 20 24 63 6f 64 uplevel #0 $cod
4690: 65 0a 7d 0a 0a 23 20 73 68 6f 77 43 6f 64 65 20 e.}..# showCode
46a0: 2d 2d 0a 23 20 54 68 69 73 20 70 72 6f 63 65 64 --.# This proced
46b0: 75 72 65 20 63 72 65 61 74 65 73 20 61 20 74 6f ure creates a to
46c0: 70 6c 65 76 65 6c 20 77 69 6e 64 6f 77 20 74 68 plevel window th
46d0: 61 74 20 64 69 73 70 6c 61 79 73 20 74 68 65 20 at displays the
46e0: 63 6f 64 65 20 66 6f 72 20 61 0a 23 20 64 65 6d code for a.# dem
46f0: 6f 6e 73 74 72 61 74 69 6f 6e 20 61 6e 64 20 61 onstration and a
4700: 6c 6c 6f 77 73 20 69 74 20 74 6f 20 62 65 20 65 llows it to be e
4710: 64 69 74 65 64 20 61 6e 64 20 72 65 69 6e 76 6f dited and reinvo
4720: 6b 65 64 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e ked..#.# Argumen
4730: 74 73 3a 0a 23 20 77 20 2d 09 09 54 68 65 20 6e ts:.# w -..The n
4740: 61 6d 65 20 6f 66 20 74 68 65 20 64 65 6d 6f 6e ame of the demon
4750: 73 74 72 61 74 69 6f 6e 27 73 20 77 69 6e 64 6f stration's windo
4760: 77 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 w, which can be
4770: 75 73 65 64 20 74 6f 0a 23 09 09 64 65 72 69 76 used to.#..deriv
4780: 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 e the name of th
4790: 65 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e e file containin
47a0: 67 20 69 74 73 20 63 6f 64 65 2e 0a 0a 70 72 6f g its code...pro
47b0: 63 20 73 68 6f 77 43 6f 64 65 20 77 20 7b 0a 20 c showCode w {.
47c0: 20 20 20 67 6c 6f 62 61 6c 20 74 6b 5f 64 65 6d global tk_dem
47d0: 6f 44 69 72 65 63 74 6f 72 79 0a 20 20 20 20 73 oDirectory. s
47e0: 65 74 20 66 69 6c 65 20 5b 73 74 72 69 6e 67 20 et file [string
47f0: 72 61 6e 67 65 20 24 77 20 31 20 65 6e 64 5d 2e range $w 1 end].
4800: 74 63 6c 0a 20 20 20 20 73 65 74 20 74 6f 70 20 tcl. set top
4810: 2e 63 6f 64 65 0a 20 20 20 20 69 66 20 7b 21 5b .code. if {![
4820: 77 69 6e 66 6f 20 65 78 69 73 74 73 20 24 74 6f winfo exists $to
4830: 70 5d 7d 20 7b 0a 09 74 6f 70 6c 65 76 65 6c 20 p]} {..toplevel
4840: 24 74 6f 70 0a 09 69 66 20 7b 5b 74 6b 20 77 69 $top..if {[tk wi
4850: 6e 64 6f 77 69 6e 67 73 79 73 74 65 6d 5d 20 65 ndowingsystem] e
4860: 71 20 22 78 31 31 22 7d 20 7b 77 6d 20 61 74 74 q "x11"} {wm att
4870: 72 69 62 75 74 65 73 20 24 74 6f 70 20 2d 74 79 ributes $top -ty
4880: 70 65 20 64 69 61 6c 6f 67 7d 0a 0a 09 73 65 74 pe dialog}...set
4890: 20 74 20 5b 66 72 61 6d 65 20 24 74 6f 70 2e 66 t [frame $top.f
48a0: 5d 0a 09 73 65 74 20 74 65 78 74 20 5b 74 65 78 ]..set text [tex
48b0: 74 20 24 74 2e 74 65 78 74 20 2d 66 6f 6e 74 20 t $t.text -font
48c0: 66 69 78 65 64 46 6f 6e 74 20 2d 68 65 69 67 68 fixedFont -heigh
48d0: 74 20 32 34 20 2d 77 72 61 70 20 77 6f 72 64 20 t 24 -wrap word
48e0: 5c 0a 09 09 20 20 20 20 20 20 2d 78 73 63 72 6f \... -xscro
48f0: 6c 6c 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20 llcommand [list
4900: 24 74 2e 78 73 63 72 6f 6c 6c 20 73 65 74 5d 20 $t.xscroll set]
4910: 5c 0a 09 09 20 20 20 20 20 20 2d 79 73 63 72 6f \... -yscro
4920: 6c 6c 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20 llcommand [list
4930: 24 74 2e 79 73 63 72 6f 6c 6c 20 73 65 74 5d 20 $t.yscroll set]
4940: 5c 0a 09 09 20 20 20 20 20 20 2d 73 65 74 67 72 \... -setgr
4950: 69 64 20 31 20 2d 68 69 67 68 6c 69 67 68 74 74 id 1 -highlightt
4960: 68 69 63 6b 6e 65 73 73 20 30 20 2d 70 61 64 79 hickness 0 -pady
4970: 20 32 20 2d 70 61 64 78 20 33 5d 0a 09 74 74 6b 2 -padx 3]..ttk
4980: 3a 3a 73 63 72 6f 6c 6c 62 61 72 20 24 74 2e 78 ::scrollbar $t.x
4990: 73 63 72 6f 6c 6c 20 2d 63 6f 6d 6d 61 6e 64 20 scroll -command
49a0: 5b 6c 69 73 74 20 24 74 2e 74 65 78 74 20 78 76 [list $t.text xv
49b0: 69 65 77 5d 20 5c 0a 09 20 20 20 20 2d 6f 72 69 iew] \.. -ori
49c0: 65 6e 74 20 68 6f 72 69 7a 6f 6e 74 61 6c 0a 09 ent horizontal..
49d0: 74 74 6b 3a 3a 73 63 72 6f 6c 6c 62 61 72 20 24 ttk::scrollbar $
49e0: 74 2e 79 73 63 72 6f 6c 6c 20 2d 63 6f 6d 6d 61 t.yscroll -comma
49f0: 6e 64 20 5b 6c 69 73 74 20 24 74 2e 74 65 78 74 nd [list $t.text
4a00: 20 79 76 69 65 77 5d 20 5c 0a 09 20 20 20 20 2d yview] \.. -
4a10: 6f 72 69 65 6e 74 20 76 65 72 74 69 63 61 6c 0a orient vertical.
4a20: 0a 09 67 72 69 64 20 24 74 2e 74 65 78 74 20 24 ..grid $t.text $
4a30: 74 2e 79 73 63 72 6f 6c 6c 20 2d 73 74 69 63 6b t.yscroll -stick
4a40: 79 20 6e 65 77 73 0a 09 23 67 72 69 64 20 24 74 y news..#grid $t
4a50: 2e 78 73 63 72 6f 6c 6c 0a 09 67 72 69 64 20 72 .xscroll..grid r
4a60: 6f 77 63 6f 6e 66 69 67 75 72 65 20 24 74 20 30 owconfigure $t 0
4a70: 20 2d 77 65 69 67 68 74 20 31 0a 09 67 72 69 64 -weight 1..grid
4a80: 20 63 6f 6c 75 6d 6e 63 6f 6e 66 69 67 20 24 74 columnconfig $t
4a90: 20 30 20 2d 77 65 69 67 68 74 20 31 0a 0a 09 73 0 -weight 1...s
4aa0: 65 74 20 62 74 6e 73 20 5b 74 74 6b 3a 3a 66 72 et btns [ttk::fr
4ab0: 61 6d 65 20 24 74 6f 70 2e 62 74 6e 73 5d 0a 09 ame $top.btns]..
4ac0: 74 74 6b 3a 3a 73 65 70 61 72 61 74 6f 72 20 24 ttk::separator $
4ad0: 62 74 6e 73 2e 73 65 70 0a 09 67 72 69 64 20 24 btns.sep..grid $
4ae0: 62 74 6e 73 2e 73 65 70 20 2d 63 6f 6c 75 6d 6e btns.sep -column
4af0: 73 70 61 6e 20 34 20 2d 72 6f 77 20 30 20 2d 73 span 4 -row 0 -s
4b00: 74 69 63 6b 79 20 65 77 20 2d 70 61 64 79 20 32 ticky ew -pady 2
4b10: 0a 09 74 74 6b 3a 3a 62 75 74 74 6f 6e 20 24 62 ..ttk::button $b
4b20: 74 6e 73 2e 64 69 73 6d 69 73 73 20 2d 74 65 78 tns.dismiss -tex
4b30: 74 20 5b 6d 63 20 22 44 69 73 6d 69 73 73 22 5d t [mc "Dismiss"]
4b40: 20 5c 0a 09 20 20 20 20 2d 64 65 66 61 75 6c 74 \.. -default
4b50: 20 61 63 74 69 76 65 20 2d 63 6f 6d 6d 61 6e 64 active -command
4b60: 20 5b 6c 69 73 74 20 64 65 73 74 72 6f 79 20 24 [list destroy $
4b70: 74 6f 70 5d 20 5c 0a 09 20 20 20 20 2d 69 6d 61 top] \.. -ima
4b80: 67 65 20 3a 3a 69 6d 67 3a 3a 64 65 6c 65 74 65 ge ::img::delete
4b90: 20 2d 63 6f 6d 70 6f 75 6e 64 20 6c 65 66 74 0a -compound left.
4ba0: 09 74 74 6b 3a 3a 62 75 74 74 6f 6e 20 24 62 74 .ttk::button $bt
4bb0: 6e 73 2e 70 72 69 6e 74 20 20 20 2d 74 65 78 74 ns.print -text
4bc0: 20 5b 6d 63 20 22 50 72 69 6e 74 20 43 6f 64 65 [mc "Print Code
4bd0: 22 5d 20 5c 0a 09 20 20 20 20 2d 63 6f 6d 6d 61 "] \.. -comma
4be0: 6e 64 20 5b 6c 69 73 74 20 70 72 69 6e 74 43 6f nd [list printCo
4bf0: 64 65 20 24 74 65 78 74 20 24 66 69 6c 65 5d 20 de $text $file]
4c00: 5c 0a 09 20 20 20 20 2d 69 6d 61 67 65 20 3a 3a \.. -image ::
4c10: 69 6d 67 3a 3a 70 72 69 6e 74 20 2d 63 6f 6d 70 img::print -comp
4c20: 6f 75 6e 64 20 6c 65 66 74 0a 09 74 74 6b 3a 3a ound left..ttk::
4c30: 62 75 74 74 6f 6e 20 24 62 74 6e 73 2e 72 65 72 button $btns.rer
4c40: 75 6e 20 20 20 2d 74 65 78 74 20 5b 6d 63 20 22 un -text [mc "
4c50: 52 65 72 75 6e 20 44 65 6d 6f 22 5d 20 5c 0a 09 Rerun Demo"] \..
4c60: 20 20 20 20 2d 63 6f 6d 6d 61 6e 64 20 5b 6c 69 -command [li
4c70: 73 74 20 65 76 61 6c 53 68 6f 77 43 6f 64 65 20 st evalShowCode
4c80: 24 74 65 78 74 5d 20 5c 0a 09 20 20 20 20 2d 69 $text] \.. -i
4c90: 6d 61 67 65 20 3a 3a 69 6d 67 3a 3a 72 65 66 72 mage ::img::refr
4ca0: 65 73 68 20 2d 63 6f 6d 70 6f 75 6e 64 20 6c 65 esh -compound le
4cb0: 66 74 0a 09 73 65 74 20 62 75 74 74 6f 6e 73 20 ft..set buttons
4cc0: 5b 6c 69 73 74 20 78 20 24 62 74 6e 73 2e 72 65 [list x $btns.re
4cd0: 72 75 6e 20 24 62 74 6e 73 2e 70 72 69 6e 74 20 run $btns.print
4ce0: 24 62 74 6e 73 2e 64 69 73 6d 69 73 73 5d 0a 09 $btns.dismiss]..
4cf0: 67 72 69 64 20 7b 2a 7d 24 62 75 74 74 6f 6e 73 grid {*}$buttons
4d00: 20 2d 70 61 64 78 20 34 20 2d 70 61 64 79 20 34 -padx 4 -pady 4
4d10: 0a 09 67 72 69 64 20 63 6f 6c 75 6d 6e 63 6f 6e ..grid columncon
4d20: 66 69 67 75 72 65 20 24 62 74 6e 73 20 30 20 2d figure $btns 0 -
4d30: 77 65 69 67 68 74 20 31 0a 09 69 66 20 7b 5b 74 weight 1..if {[t
4d40: 6b 20 77 69 6e 64 6f 77 69 6e 67 73 79 73 74 65 k windowingsyste
4d50: 6d 5d 20 65 71 20 22 61 71 75 61 22 7d 20 7b 0a m] eq "aqua"} {.
4d60: 09 20 20 20 20 66 6f 72 65 61 63 68 20 62 20 5b . foreach b [
4d70: 6c 72 61 6e 67 65 20 24 62 75 74 74 6f 6e 73 20 lrange $buttons
4d80: 31 20 65 6e 64 5d 20 7b 24 62 20 63 6f 6e 66 69 1 end] {$b confi
4d90: 67 75 72 65 20 2d 74 61 6b 65 66 6f 63 75 73 20 gure -takefocus
4da0: 30 7d 0a 09 20 20 20 20 67 72 69 64 20 63 6f 6e 0}.. grid con
4db0: 66 69 67 75 72 65 20 24 62 74 6e 73 2e 73 65 70 figure $btns.sep
4dc0: 20 2d 70 61 64 79 20 30 0a 09 20 20 20 20 67 72 -pady 0.. gr
4dd0: 69 64 20 63 6f 6e 66 69 67 75 72 65 20 7b 2a 7d id configure {*}
4de0: 24 62 75 74 74 6f 6e 73 20 2d 70 61 64 79 20 7b $buttons -pady {
4df0: 31 30 20 31 32 7d 0a 09 20 20 20 20 67 72 69 64 10 12}.. grid
4e00: 20 63 6f 6e 66 69 67 75 72 65 20 5b 6c 69 6e 64 configure [lind
4e10: 65 78 20 24 62 75 74 74 6f 6e 73 20 31 5d 20 2d ex $buttons 1] -
4e20: 70 61 64 78 20 7b 31 36 20 34 7d 0a 09 20 20 20 padx {16 4}..
4e30: 20 67 72 69 64 20 63 6f 6e 66 69 67 75 72 65 20 grid configure
4e40: 5b 6c 69 6e 64 65 78 20 24 62 75 74 74 6f 6e 73 [lindex $buttons
4e50: 20 65 6e 64 5d 20 2d 70 61 64 78 20 7b 34 20 31 end] -padx {4 1
4e60: 38 7d 0a 09 7d 0a 09 67 72 69 64 20 24 74 20 20 8}..}..grid $t
4e70: 20 20 2d 73 74 69 63 6b 79 20 6e 65 77 73 0a 09 -sticky news..
4e80: 67 72 69 64 20 24 62 74 6e 73 20 2d 73 74 69 63 grid $btns -stic
4e90: 6b 79 20 65 77 0a 09 67 72 69 64 20 72 6f 77 63 ky ew..grid rowc
4ea0: 6f 6e 66 69 67 75 72 65 20 24 74 6f 70 20 30 20 onfigure $top 0
4eb0: 2d 77 65 69 67 68 74 20 31 0a 09 67 72 69 64 20 -weight 1..grid
4ec0: 63 6f 6c 75 6d 6e 63 6f 6e 66 69 67 20 24 74 6f columnconfig $to
4ed0: 70 20 30 20 2d 77 65 69 67 68 74 20 31 0a 0a 09 p 0 -weight 1...
4ee0: 62 69 6e 64 20 24 74 6f 70 20 3c 52 65 74 75 72 bind $top <Retur
4ef0: 6e 3e 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 77 n> {.. if {[w
4f00: 69 6e 66 6f 20 63 6c 61 73 73 20 25 57 5d 20 6e info class %W] n
4f10: 65 20 22 54 65 78 74 22 7d 20 7b 20 2e 63 6f 64 e "Text"} { .cod
4f20: 65 2e 62 74 6e 73 2e 64 69 73 6d 69 73 73 20 69 e.btns.dismiss i
4f30: 6e 76 6f 6b 65 20 7d 0a 09 7d 0a 09 62 69 6e 64 nvoke }..}..bind
4f40: 20 24 74 6f 70 20 3c 45 73 63 61 70 65 3e 20 5b $top <Escape> [
4f50: 62 69 6e 64 20 24 74 6f 70 20 3c 52 65 74 75 72 bind $top <Retur
4f60: 6e 3e 5d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b n>]. } else {
4f70: 0a 09 77 6d 20 64 65 69 63 6f 6e 69 66 79 20 24 ..wm deiconify $
4f80: 74 6f 70 0a 09 72 61 69 73 65 20 24 74 6f 70 0a top..raise $top.
4f90: 20 20 20 20 7d 0a 20 20 20 20 77 6d 20 74 69 74 }. wm tit
4fa0: 6c 65 20 24 74 6f 70 20 5b 6d 63 20 22 44 65 6d le $top [mc "Dem
4fb0: 6f 20 63 6f 64 65 3a 20 25 73 22 20 5b 66 69 6c o code: %s" [fil
4fc0: 65 20 6a 6f 69 6e 20 24 74 6b 5f 64 65 6d 6f 44 e join $tk_demoD
4fd0: 69 72 65 63 74 6f 72 79 20 24 66 69 6c 65 5d 5d irectory $file]]
4fe0: 0a 20 20 20 20 77 6d 20 69 63 6f 6e 6e 61 6d 65 . wm iconname
4ff0: 20 24 74 6f 70 20 24 66 69 6c 65 0a 20 20 20 20 $top $file.
5000: 73 65 74 20 69 64 20 5b 6f 70 65 6e 20 5b 66 69 set id [open [fi
5010: 6c 65 20 6a 6f 69 6e 20 24 74 6b 5f 64 65 6d 6f le join $tk_demo
5020: 44 69 72 65 63 74 6f 72 79 20 24 66 69 6c 65 5d Directory $file]
5030: 5d 0a 20 20 20 20 24 74 6f 70 2e 66 2e 74 65 78 ]. $top.f.tex
5040: 74 20 64 65 6c 65 74 65 20 31 2e 30 20 65 6e 64 t delete 1.0 end
5050: 0a 20 20 20 20 24 74 6f 70 2e 66 2e 74 65 78 74 . $top.f.text
5060: 20 69 6e 73 65 72 74 20 31 2e 30 20 5b 72 65 61 insert 1.0 [rea
5070: 64 20 24 69 64 5d 0a 20 20 20 20 24 74 6f 70 2e d $id]. $top.
5080: 66 2e 74 65 78 74 20 6d 61 72 6b 20 73 65 74 20 f.text mark set
5090: 69 6e 73 65 72 74 20 31 2e 30 0a 20 20 20 20 63 insert 1.0. c
50a0: 6c 6f 73 65 20 24 69 64 0a 7d 0a 0a 23 20 70 72 lose $id.}..# pr
50b0: 69 6e 74 43 6f 64 65 20 2d 2d 0a 23 20 50 72 69 intCode --.# Pri
50c0: 6e 74 73 20 74 68 65 20 73 6f 75 72 63 65 20 63 nts the source c
50d0: 6f 64 65 20 63 75 72 72 65 6e 74 6c 79 20 64 69 ode currently di
50e0: 73 70 6c 61 79 65 64 20 69 6e 20 74 68 65 20 53 splayed in the S
50f0: 65 65 20 43 6f 64 65 20 64 69 61 6c 6f 67 2e 20 ee Code dialog.
5100: 4d 75 63 68 0a 23 20 74 68 61 6e 6b 73 20 74 6f Much.# thanks to
5110: 20 41 72 6a 65 6e 20 4d 61 72 6b 75 73 20 66 6f Arjen Markus fo
5120: 72 20 74 68 69 73 2e 0a 23 0a 23 20 41 72 67 75 r this..#.# Argu
5130: 6d 65 6e 74 73 3a 0a 23 20 77 20 2d 09 09 4e 61 ments:.# w -..Na
5140: 6d 65 20 6f 66 20 74 65 78 74 20 77 69 64 67 65 me of text widge
5150: 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 63 6f 64 t containing cod
5160: 65 20 74 6f 20 70 72 69 6e 74 0a 23 20 66 69 6c e to print.# fil
5170: 65 20 2d 09 09 4e 61 6d 65 20 6f 66 20 74 68 65 e -..Name of the
5180: 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 20 28 original file (
5190: 69 6d 70 6c 69 63 69 74 6c 79 20 66 6f 72 20 74 implicitly for t
51a0: 69 74 6c 65 29 0a 0a 70 72 6f 63 20 70 72 69 6e itle)..proc prin
51b0: 74 43 6f 64 65 20 7b 77 20 66 69 6c 65 7d 20 7b tCode {w file} {
51c0: 0a 20 20 20 20 73 65 74 20 63 6f 64 65 20 5b 24 . set code [$
51d0: 77 20 67 65 74 20 31 2e 30 20 65 6e 64 2d 31 63 w get 1.0 end-1c
51e0: 5d 0a 0a 20 20 20 20 73 65 74 20 64 69 72 20 22 ].. set dir "
51f0: 2e 22 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f .". if {[info
5200: 20 65 78 69 73 74 73 20 3a 3a 65 6e 76 28 48 4f exists ::env(HO
5210: 4d 45 29 5d 7d 20 7b 0a 09 73 65 74 20 64 69 72 ME)]} {..set dir
5220: 20 22 24 3a 3a 65 6e 76 28 48 4f 4d 45 29 22 0a "$::env(HOME)".
5230: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 5b 69 }. if {[i
5240: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 65 6e 76 nfo exists ::env
5250: 28 54 4d 50 29 5d 7d 20 7b 0a 09 73 65 74 20 64 (TMP)]} {..set d
5260: 69 72 20 24 3a 3a 65 6e 76 28 54 4d 50 29 0a 20 ir $::env(TMP).
5270: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e }. if {[in
5280: 66 6f 20 65 78 69 73 74 73 20 3a 3a 65 6e 76 28 fo exists ::env(
5290: 54 45 4d 50 29 5d 7d 20 7b 0a 09 73 65 74 20 64 TEMP)]} {..set d
52a0: 69 72 20 24 3a 3a 65 6e 76 28 54 45 4d 50 29 0a ir $::env(TEMP).
52b0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 66 }.. set f
52c0: 69 6c 65 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f ilename [file jo
52d0: 69 6e 20 24 64 69 72 20 22 74 6b 64 65 6d 6f 2d in $dir "tkdemo-
52e0: 24 66 69 6c 65 22 5d 0a 20 20 20 20 73 65 74 20 $file"]. set
52f0: 6f 75 74 66 69 6c 65 20 5b 6f 70 65 6e 20 24 66 outfile [open $f
5300: 69 6c 65 6e 61 6d 65 20 22 77 22 5d 0a 20 20 20 ilename "w"].
5310: 20 70 75 74 73 20 24 6f 75 74 66 69 6c 65 20 24 puts $outfile $
5320: 63 6f 64 65 0a 20 20 20 20 63 6c 6f 73 65 20 24 code. close $
5330: 6f 75 74 66 69 6c 65 0a 0a 20 20 20 20 73 77 69 outfile.. swi
5340: 74 63 68 20 2d 2d 20 24 3a 3a 74 63 6c 5f 70 6c tch -- $::tcl_pl
5350: 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 atform(platform)
5360: 20 7b 0a 09 75 6e 69 78 20 7b 0a 09 20 20 20 20 {..unix {..
5370: 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78 65 63 if {[catch {exec
5380: 20 6c 70 20 2d 63 20 24 66 69 6c 65 6e 61 6d 65 lp -c $filename
5390: 7d 20 6d 73 67 5d 7d 20 7b 0a 09 09 74 6b 5f 6d } msg]} {...tk_m
53a0: 65 73 73 61 67 65 42 6f 78 20 2d 74 69 74 6c 65 essageBox -title
53b0: 20 22 50 72 69 6e 74 20 73 70 6f 6f 6c 69 6e 67 "Print spooling
53c0: 20 66 61 69 6c 75 72 65 22 20 5c 0a 09 09 09 2d failure" \....-
53d0: 6d 65 73 73 61 67 65 20 22 50 72 69 6e 74 20 73 message "Print s
53e0: 70 6f 6f 6c 69 6e 67 20 70 72 6f 62 61 62 6c 79 pooling probably
53f0: 20 66 61 69 6c 65 64 3a 20 24 6d 73 67 22 0a 09 failed: $msg"..
5400: 20 20 20 20 7d 0a 09 7d 0a 09 77 69 6e 64 6f 77 }..}..window
5410: 73 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 63 61 s {.. if {[ca
5420: 74 63 68 20 7b 50 72 69 6e 74 54 65 78 74 57 69 tch {PrintTextWi
5430: 6e 33 32 20 24 66 69 6c 65 6e 61 6d 65 7d 20 6d n32 $filename} m
5440: 73 67 5d 7d 20 7b 0a 09 09 74 6b 5f 6d 65 73 73 sg]} {...tk_mess
5450: 61 67 65 42 6f 78 20 2d 74 69 74 6c 65 20 22 50 ageBox -title "P
5460: 72 69 6e 74 20 73 70 6f 6f 6c 69 6e 67 20 66 61 rint spooling fa
5470: 69 6c 75 72 65 22 20 5c 0a 09 09 09 2d 6d 65 73 ilure" \....-mes
5480: 73 61 67 65 20 22 50 72 69 6e 74 20 73 70 6f 6f sage "Print spoo
5490: 6c 69 6e 67 20 70 72 6f 62 61 62 6c 79 20 66 61 ling probably fa
54a0: 69 6c 65 64 3a 20 24 6d 73 67 22 0a 09 20 20 20 iled: $msg"..
54b0: 20 7d 0a 09 7d 0a 09 64 65 66 61 75 6c 74 20 7b }..}..default {
54c0: 0a 09 20 20 20 20 74 6b 5f 6d 65 73 73 61 67 65 .. tk_message
54d0: 42 6f 78 20 2d 74 69 74 6c 65 20 22 4f 70 65 72 Box -title "Oper
54e0: 61 74 69 6f 6e 20 6e 6f 74 20 49 6d 70 6c 65 6d ation not Implem
54f0: 65 6e 74 65 64 22 20 5c 0a 09 09 20 20 20 20 2d ented" \... -
5500: 6d 65 73 73 61 67 65 20 22 57 6f 77 21 20 55 6e message "Wow! Un
5510: 6b 6e 6f 77 6e 20 70 6c 61 74 66 6f 72 6d 3a 20 known platform:
5520: 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 $::tcl_platform(
5530: 70 6c 61 74 66 6f 72 6d 29 22 0a 09 7d 0a 20 20 platform)"..}.
5540: 20 20 7d 0a 0a 20 20 20 20 23 0a 20 20 20 20 23 }.. #. #
5550: 20 42 65 20 63 61 72 65 66 75 6c 20 74 6f 20 74 Be careful to t
5560: 68 72 6f 77 20 61 77 61 79 20 74 68 65 20 74 65 hrow away the te
5570: 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 69 6e 20 mporary file in
5580: 61 20 67 65 6e 74 6c 65 20 6d 61 6e 6e 65 72 20 a gentle manner
5590: 2e 2e 2e 0a 20 20 20 20 23 0a 20 20 20 20 69 66 .... #. if
55a0: 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 {[file exists $
55b0: 66 69 6c 65 6e 61 6d 65 5d 7d 20 7b 0a 09 63 61 filename]} {..ca
55c0: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 tch {file delete
55d0: 20 24 66 69 6c 65 6e 61 6d 65 7d 0a 20 20 20 20 $filename}.
55e0: 7d 0a 7d 0a 0a 23 20 50 72 69 6e 74 54 65 78 74 }.}..# PrintText
55f0: 57 69 6e 33 32 20 2d 2d 0a 23 20 20 20 20 50 72 Win32 --.# Pr
5600: 69 6e 74 20 61 20 66 69 6c 65 20 75 6e 64 65 72 int a file under
5610: 20 57 69 6e 64 6f 77 73 20 75 73 69 6e 67 20 61 Windows using a
5620: 6c 6c 20 74 68 65 20 22 69 6e 74 65 6c 6c 69 67 ll the "intellig
5630: 65 6e 63 65 22 20 6e 65 63 65 73 73 61 72 79 0a ence" necessary.
5640: 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 #.# Arguments:.#
5650: 20 66 69 6c 65 6e 61 6d 65 20 2d 09 09 4e 61 6d filename -..Nam
5660: 65 20 6f 66 20 74 68 65 20 66 69 6c 65 0a 23 0a e of the file.#.
5670: 23 20 4e 6f 74 65 3a 0a 23 20 54 61 6b 65 6e 20 # Note:.# Taken
5680: 66 72 6f 6d 20 74 68 65 20 57 69 6b 69 20 70 61 from the Wiki pa
5690: 67 65 20 62 79 20 4b 65 69 74 68 20 56 65 74 74 ge by Keith Vett
56a0: 65 72 2c 20 22 50 72 69 6e 74 69 6e 67 20 74 65 er, "Printing te
56b0: 78 74 20 66 69 6c 65 73 20 75 6e 64 65 72 0a 23 xt files under.#
56c0: 20 57 69 6e 64 6f 77 73 22 2e 0a 23 20 4e 6f 74 Windows"..# Not
56d0: 65 3a 0a 23 20 44 6f 20 6e 6f 74 20 65 78 65 63 e:.# Do not exec
56e0: 75 74 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 ute the command
56f0: 69 6e 20 74 68 65 20 62 61 63 6b 67 72 6f 75 6e in the backgroun
5700: 64 3a 20 74 68 61 74 20 77 61 79 20 77 65 20 63 d: that way we c
5710: 61 6e 20 64 69 73 70 6f 73 65 20 6f 66 20 74 68 an dispose of th
5720: 65 0a 23 20 66 69 6c 65 20 73 6d 6f 6f 74 68 6c e.# file smoothl
5730: 79 2e 0a 23 0a 70 72 6f 63 20 50 72 69 6e 74 54 y..#.proc PrintT
5740: 65 78 74 57 69 6e 33 32 20 7b 66 69 6c 65 6e 61 extWin32 {filena
5750: 6d 65 7d 20 7b 0a 20 20 20 20 70 61 63 6b 61 67 me} {. packag
5760: 65 20 72 65 71 75 69 72 65 20 72 65 67 69 73 74 e require regist
5770: 72 79 0a 20 20 20 20 73 65 74 20 61 70 70 20 5b ry. set app [
5780: 61 75 74 6f 5f 65 78 65 63 6f 6b 20 6e 6f 74 65 auto_execok note
5790: 70 61 64 2e 65 78 65 5d 0a 20 20 20 20 73 65 74 pad.exe]. set
57a0: 20 70 63 6d 64 20 22 24 61 70 70 20 2f 70 20 25 pcmd "$app /p %
57b0: 31 22 0a 20 20 20 20 63 61 74 63 68 20 7b 0a 09 1". catch {..
57c0: 73 65 74 20 61 70 70 20 5b 72 65 67 69 73 74 72 set app [registr
57d0: 79 20 67 65 74 20 7b 48 4b 45 59 5f 43 4c 41 53 y get {HKEY_CLAS
57e0: 53 45 53 5f 52 4f 4f 54 5c 2e 74 78 74 7d 20 7b SES_ROOT\.txt} {
57f0: 7d 5d 0a 09 73 65 74 20 70 63 6d 64 20 5b 72 65 }]..set pcmd [re
5800: 67 69 73 74 72 79 20 67 65 74 20 5c 0a 09 09 7b gistry get \...{
5810: 48 4b 45 59 5f 43 4c 41 53 53 45 53 5f 52 4f 4f HKEY_CLASSES_ROO
5820: 54 5c 5c 24 61 70 70 5c 5c 73 68 65 6c 6c 5c 5c T\\$app\\shell\\
5830: 70 72 69 6e 74 5c 5c 63 6f 6d 6d 61 6e 64 7d 20 print\\command}
5840: 7b 7d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 {}]. }.. r
5850: 65 67 73 75 62 20 2d 61 6c 6c 20 7b 25 31 7d 20 egsub -all {%1}
5860: 24 70 63 6d 64 20 24 66 69 6c 65 6e 61 6d 65 20 $pcmd $filename
5870: 70 63 6d 64 0a 20 20 20 20 70 75 74 73 20 24 70 pcmd. puts $p
5880: 63 6d 64 0a 0a 20 20 20 20 72 65 67 73 75 62 20 cmd.. regsub
5890: 2d 61 6c 6c 20 7b 5c 5c 7d 20 24 70 63 6d 64 20 -all {\\} $pcmd
58a0: 7b 5c 5c 5c 5c 7d 20 70 63 6d 64 0a 20 20 20 20 {\\\\} pcmd.
58b0: 73 65 74 20 63 6f 6d 6d 61 6e 64 20 22 5b 61 75 set command "[au
58c0: 74 6f 5f 65 78 65 63 6f 6b 20 73 74 61 72 74 5d to_execok start]
58d0: 20 2f 6d 69 6e 20 24 70 63 6d 64 22 0a 20 20 20 /min $pcmd".
58e0: 20 65 76 61 6c 20 65 78 65 63 20 24 63 6f 6d 6d eval exec $comm
58f0: 61 6e 64 0a 7d 0a 0a 23 20 74 6b 41 62 6f 75 74 and.}..# tkAbout
5900: 44 69 61 6c 6f 67 20 2d 2d 0a 23 0a 23 09 50 6f Dialog --.#.#.Po
5910: 70 73 20 75 70 20 61 20 6d 65 73 73 61 67 65 20 ps up a message
5920: 62 6f 78 20 77 69 74 68 20 61 6e 20 22 61 62 6f box with an "abo
5930: 75 74 22 20 6d 65 73 73 61 67 65 0a 23 0a 70 72 ut" message.#.pr
5940: 6f 63 20 74 6b 41 62 6f 75 74 44 69 61 6c 6f 67 oc tkAboutDialog
5950: 20 7b 7d 20 7b 0a 20 20 20 20 74 6b 5f 6d 65 73 {} {. tk_mes
5960: 73 61 67 65 42 6f 78 20 2d 69 63 6f 6e 20 69 6e sageBox -icon in
5970: 66 6f 20 2d 74 79 70 65 20 6f 6b 20 2d 74 69 74 fo -type ok -tit
5980: 6c 65 20 5b 6d 63 20 22 41 62 6f 75 74 20 57 69 le [mc "About Wi
5990: 64 67 65 74 20 44 65 6d 6f 22 5d 20 5c 0a 09 20 dget Demo"] \..
59a0: 20 20 20 2d 6d 65 73 73 61 67 65 20 5b 6d 63 20 -message [mc
59b0: 22 54 6b 20 77 69 64 67 65 74 20 64 65 6d 6f 6e "Tk widget demon
59c0: 73 74 72 61 74 69 6f 6e 20 61 70 70 6c 69 63 61 stration applica
59d0: 74 69 6f 6e 22 5d 20 2d 64 65 74 61 69 6c 20 5c tion"] -detail \
59e0: 0a 22 5b 6d 63 20 22 43 6f 70 79 72 69 67 68 74 ."[mc "Copyright
59f0: 20 5c 75 30 30 61 39 20 25 73 22 20 7b 31 39 39 \u00a9 %s" {199
5a00: 36 2d 31 39 39 37 20 53 75 6e 20 4d 69 63 72 6f 6-1997 Sun Micro
5a10: 73 79 73 74 65 6d 73 2c 20 49 6e 63 2e 7d 5d 0a systems, Inc.}].
5a20: 5b 6d 63 20 22 43 6f 70 79 72 69 67 68 74 20 5c [mc "Copyright \
5a30: 75 30 30 61 39 20 25 73 22 20 7b 31 39 39 37 2d u00a9 %s" {1997-
5a40: 32 30 30 30 20 41 6a 75 62 61 20 53 6f 6c 75 74 2000 Ajuba Solut
5a50: 69 6f 6e 73 2c 20 49 6e 63 2e 7d 5d 0a 5b 6d 63 ions, Inc.}].[mc
5a60: 20 22 43 6f 70 79 72 69 67 68 74 20 5c 75 30 30 "Copyright \u00
5a70: 61 39 20 25 73 22 20 7b 32 30 30 31 2d 32 30 30 a9 %s" {2001-200
5a80: 39 20 44 6f 6e 61 6c 20 4b 2e 20 46 65 6c 6c 6f 9 Donal K. Fello
5a90: 77 73 7d 5d 0a 5b 6d 63 20 22 43 6f 70 79 72 69 ws}].[mc "Copyri
5aa0: 67 68 74 20 5c 75 30 30 61 39 20 25 73 22 20 7b ght \u00a9 %s" {
5ab0: 32 30 30 32 2d 32 30 30 37 20 44 61 6e 69 65 6c 2002-2007 Daniel
5ac0: 20 41 2e 20 53 74 65 66 66 65 6e 7d 5d 22 0a 7d A. Steffen}]".}
5ad0: 0a 0a 23 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 ..# Local Variab
5ae0: 6c 65 73 3a 0a 23 20 6d 6f 64 65 3a 20 74 63 6c les:.# mode: tcl
5af0: 0a 23 20 45 6e 64 3a 0a .# End:.