Hex Artifact Content
Not logged in

Artifact e69fb6a25fbb39fdb238c027c67954c3d610f740:


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:.