%!PS-Adobe-3.0
%%Creator: Windows PSCRIPT
%%Title: PowerPoint - TCL.PPT
%%BoundingBox: 14 9 597 784
%%DocumentNeededResources: (atend)
%%DocumentSuppliedResources: (atend)
%%Pages: (atend)
%%BeginResource: procset Win35Dict 3 1
/Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72
mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr
/grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld
/rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix
ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc
/setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false
def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq
and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd
/FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{
/hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM
matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE
matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix
dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{
/SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave
showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string
def/FEglyph(G  )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch
putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed
/cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch
0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP
cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90
rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg
add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes
div dup scale 0 0 transform .25 add round .25 sub exch .25 add round
.25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false
def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[
16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve
16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut
16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave
16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85
/ellipsis 16#86/dagger 16#87/daggerdbl 16#88/circumflex 16#89/perthousand
16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright
16#93/quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97
/emdash 16#98/tilde 16#99/trademark 16#9A/scaron 16#9B/guilsinglright
16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A1/exclamdown 16#A4/currency
16#A5/yen 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright
16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen
16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior
16#B3/threesuperior 16#B4/acute 16#B5/mu 16#B6/paragraph 16#B7/periodcentered
16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright
16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown
16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex 16#C3/Atilde 16#C4/Adieresis
16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA
/Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex
16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4
/Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash
16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute
16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex
16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8
/egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis 16#EC/igrave
16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde
16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde 16#F6/odieresis
16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex
16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict
12 dict def/IsChar{basefontdict/CharStrings get exch known}bd/MapCh{dup
IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0
/degree IsChar{/degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar
IsChar{/brokenbar}{/bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname
ed/basefontname ed FontDirectory newfontname known not{/basefontdict
basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch
dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll
put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont
/FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet
put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree
MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC
/ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed
/dxGdi ed/y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1
mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch
y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra
ed/dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra
dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break
add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0
y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL
sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed
0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0
div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc
esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform
/yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE
rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE
mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition
known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get
1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform
/dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness
known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get
1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy
lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat
1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin
/FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16]
def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16
setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{
/pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup
2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index
put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont
definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch
show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w
Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup
rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w
X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup
neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox
AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round
def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if
dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft
ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536
and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm
15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes
12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div
PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if
iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen
3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0
setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd
/AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy
div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm
pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy
M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0
ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1
r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r
arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2
copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2
y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div
def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div
y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat
x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat
m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed
/x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if
sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd
/CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt
dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def
/undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def
/typecheck(operator was expecting a different type of operand)def
/ioerror(input/output error occured)def end{end}if errordict begin
/handleerror{$error begin newerror{/newerror false def showpage 72
72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont
x y moveto(Offending Command = )show/command load{dup type/stringtype
ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show
errorname{dup type dup( max err string )cvs show( : )show/stringtype
ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname
known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end
/y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1
add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall
showpage}if end}def end}bd end
%%EndResource
/SVDoc save def
%%EndProlog
%%BeginSetup
Win35Dict begin
ErrHandler
statusdict begin 0 setjobtimeout end
statusdict begin statusdict /jobname (PowerPoint - TCL.PPT) put end
/oldDictCnt countdictstack def {}stopped 
{ countdictstack oldDictCnt lt { Win35Dict begin } 
{1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if 
/oldDictCnt countdictstack def {letter
}stopped 
{ countdictstack oldDictCnt lt { Win35Dict begin } 
{1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if 
[{ }
/exec load currenttransfer /exec load] cvx settransfer
%%EndSetup
%%Page: 1 1
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
6 4 SJ
680 697 1061 (An Introduction To Tcl Scripting) 1061 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1038 906 363 (John Ousterhout) 363 SB
gr
gs 1500 1125 463 400 CB
3 2 SJ
879 981 677 (Sun Microsystems Laboratories) 677 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
882 1057 675 (john.ousterhout@eng.sun.com) 675 SB
gr
32 0 0 38 38 0 0 0 36 /Times-BoldItalic /font30 ANSIFont font
gs 1500 1125 463 400 CB
-9 3 SJ
1038 1245 372 (Tcl/Tk Tutorial, Part II) 372 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1477 2699 321 (December 12, 1995, slide 2) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 2 SJ
566 1793 661 ( Language Overview) 661 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 4 SJ
566 1949 559 (Two parts to learning Tcl:) 559 SB
gr
gs 1500 1125 463 1705 CB
566 2098 692 (1. Syntax and substitution rules:) 692 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2174 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
16 7 SJ
688 2174 1002 (Substitutions simple, but may be confusing at first.) 1002 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
566 2293 475 (2. Built-in commands:) 475 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2369 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
18 4 SJ
688 2369 650 (Can learn individually as needed.) 650 SB
gr
gs 1500 1125 463 1705 CB
641 2444 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
5 6 SJ
688 2444 1095 (Control structures are commands, not language syntax.) 1095 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-BoldItalic
%%+ font Times-Italic
%%+ font Times-Roman
%%Page: 2 2
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1477 1394 321 (December 12, 1995, slide 3) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
566 488 200 (Basics) 200 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 660 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
2 2 SJ
622 644 243 (Tcl script =) 243 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 400 CB
641 704 25 (\226) 25 SB
gr
gs 1500 1125 463 400 CB
6 2 SJ
688 704 257 (Sequence of ) 257 SB
gr
gs 1500 1125 463 400 CB
951 704 212 (commands) 212 SB
gr
gs 1500 1125 463 400 CB
1163 704 13 (.) 13 SB
gr
gs 1500 1125 463 400 CB
641 764 25 (\226) 25 SB
gr
gs 1500 1125 463 400 CB
17 4 SJ
688 764 944 (Commands separated by newlines, semi-colons.) 944 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 854 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
2 2 SJ
622 838 332 (Tcl command =) 332 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 400 CB
641 899 25 (\226) 25 SB
gr
gs 1500 1125 463 400 CB
1 3 SJ
688 899 266 (One or more ) 266 SB
gr
gs 1500 1125 463 400 CB
955 899 123 (words) 123 SB
gr
gs 1500 1125 463 400 CB
1 4 SJ
1078 899 520 ( separated by white space.) 520 SB
gr
gs 1500 1125 463 400 CB
641 959 25 (\226) 25 SB
gr
gs 1500 1125 463 400 CB
3 3 SJ
688 959 264 (First word is ) 264 SB
gr
gs 1500 1125 463 400 CB
2 1 SJ
956 959 311 (command name) 311 SB
gr
gs 1500 1125 463 400 CB
3 3 SJ
1268 959 236 (, others are ) 236 SB
gr
gs 1500 1125 463 400 CB
1507 959 206 (arguments) 206 SB
gr
gs 1500 1125 463 400 CB
1713 959 13 (.) 13 SB
gr
gs 1500 1125 463 400 CB
641 1019 25 (\226) 25 SB
gr
gs 1500 1125 463 400 CB
1 1 SJ
688 1019 168 (Returns ) 168 SB
gr
gs 1500 1125 463 400 CB
1 1 SJ
857 1019 235 (string result) 235 SB
gr
gs 1500 1125 463 400 CB
1093 1019 13 (.) 13 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1109 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
622 1093 222 (Examples:) 222 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 400 CB
641 1154 25 (\226) 25 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
688 1156 540 (set a 22; set b 33) 540 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 400 CB
641 1214 25 (\226) 25 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
688 1216 240 (set a 22) 240 SB
gr
gs 1500 1125 463 400 CB
688 1276 240 (set b 33) 240 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1477 2699 321 (December 12, 1995, slide 4) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
4 2 SJ
566 1793 834 (Division Of Responsibility) 834 SB
gr
6 4 SP
0 150 136 fC
/fm 256 def
579 1933 1302 1970 7 7 RR
1 F
S
n
/fm 256 def
778 2631 1101 2667 7 7 RR
1 F
S
n
/fm 256 def
872 2181 996 2218 7 7 RR
1 F
S
n
/fm 256 def
872 2231 1083 2268 7 7 RR
1 F
S
n
/fm 256 def
872 2382 996 2418 7 7 RR
1 F
S
n
/fm 256 def
872 2332 1008 2368 7 7 RR
1 F
S
n
/fm 256 def
872 2282 921 2318 7 7 RR
1 F
S
n
162 193 254 fC
/fm 256 def
941 2034 M 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 7 PP
1 F
n
0 0 0 fC
/fm 256 def
941 2034 M 0 6 -17 17 8 0 0 27 19 0 0 -27 7 0 -17 -17 0 -6 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 16 PP
1 F
n
6 4 SP
255 255 132 fC
/fm 256 def
822 2045 1058 2105 8 8 RR
1 F
S
n
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 1 SJ
836 2043 203 (Tcl Parser) 203 SB
gr
162 193 254 fC
/fm 256 def
941 2483 M 27 27 -13 0 0 26 -27 0 0 -26 -14 0 27 -27 7 PP
1 F
n
0 0 0 fC
/fm 256 def
941 2483 M 0 6 -17 17 8 0 0 26 19 0 0 -26 7 0 -17 -17 0 -6 27 27 -13 0 0 26 -27 0 0 -26 -14 0 27 -27 16 PP
1 F
n
162 193 254 fC
/fm 256 def
941 2171 M 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 7 PP
1 F
n
0 0 0 fC
/fm 256 def
941 2171 M 0 6 -17 17 8 0 0 27 19 0 0 -27 7 0 -17 -17 0 -6 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 16 PP
1 F
n
6 4 SP
255 255 132 fC
/fm 256 def
691 2493 1189 2555 8 8 RR
1 F
S
n
0 0 0 fC
gs 1500 1125 463 1705 CB
2 1 SJ
726 2493 421 (Command Procedure) 421 SB
gr
162 193 254 fC
/fm 256 def
941 2620 M 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 7 PP
1 F
n
0 0 0 fC
/fm 256 def
941 2620 M 0 6 -17 17 8 0 0 27 19 0 0 -27 7 0 -17 -17 0 -6 27 27 -13 0 0 27 -27 0 0 -27 -14 0 27 -27 16 PP
1 F
n
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1341 1918 224 (Command) 224 SB
gr
gs 1500 1125 463 1705 CB
1128 2267 143 (Words) 143 SB
gr
gs 1500 1125 463 1705 CB
1141 2617 135 (Result) 135 SB
gr
32 0 0 31 31 0 0 0 25 /ZapfDingbats font
gs 1500 1125 463 1705 CB
1234 2487 24 (u) 24 SB
gr
32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
-2 1 SJ
1290 2473 312 (Interprets words.) 312 SB
gr
32 0 0 31 31 0 0 0 25 /ZapfDingbats font
gs 1500 1125 463 1705 CB
1234 2550 24 (u) 24 SB
gr
32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1290 2536 403 (Produces string result.) 403 SB
gr
32 0 0 31 31 0 0 0 25 /ZapfDingbats font
gs 1500 1125 463 1705 CB
1234 2012 24 (u) 24 SB
gr
32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
3 3 SJ
1290 1998 523 (Chops commands into words.) 523 SB
gr
32 0 0 31 31 0 0 0 25 /ZapfDingbats font
gs 1500 1125 463 1705 CB
1234 2062 24 (u) 24 SB
gr
32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1290 2048 366 (Makes substitutions.) 366 SB
gr
32 0 0 31 31 0 0 0 25 /ZapfDingbats font
gs 1500 1125 463 1705 CB
1234 2112 24 (u) 24 SB
gr
32 0 0 42 42 0 0 0 39 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1290 2098 622 (Does not interpret values of words.) 622 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats
%%Page: 3 3
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1477 1394 321 (December 12, 1995, slide 5) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
566 488 354 (Arguments) 354 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 622 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 7 SJ
622 606 1117 (Parser assigns no meaning to arguments \(quoting by) 1117 SB
gr
gs 1500 1125 463 400 CB
622 666 633 (default, evaluation is special\):) 633 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 400 CB
641 727 47 (C:) 47 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
781 729 450 (x = 4; y = x+10) 450 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font
gs 1500 1125 463 400 CB
781 787 131 (y is 14) 131 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 400 CB
641 847 79 (Tcl:) 79 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
781 849 570 (set x 4; set y x+10) 570 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font
gs 1500 1125 463 400 CB
781 907 229 (y is "x+10") 229 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 997 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
5 6 SJ
622 981 1159 (Different commands assign different meanings to their) 1159 SB
gr
gs 1500 1125 463 400 CB
622 1040 243 (arguments:) 243 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 1104 225 (set a 122) 225 SB
gr
gs 1500 1125 463 400 CB
641 1154 275 (expr 24/3.2) 275 SB
gr
gs 1500 1125 463 400 CB
641 1204 400 (eval "set a 122") 400 SB
gr
gs 1500 1125 463 400 CB
641 1254 725 (button .b -text Hello -fg red) 725 SB
gr
gs 1500 1125 463 400 CB
641 1304 625 (string length Abracadabra) 625 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1477 2699 321 (December 12, 1995, slide 6) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
6 1 SJ
566 1793 684 (Variable Substitution) 684 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 1965 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1 1 SJ
622 1949 177 (Syntax: ) 177 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
800 1952 30 ($) 30 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font
gs 1500 1125 463 1705 CB
830 1950 182 (varName) 182 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2040 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
4 5 SJ
622 2024 940 (Variable name is letters, digits, underscores.) 940 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2115 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
622 2099 678 (May occur anywhere in a word.) 678 SB
gr
32 0 0 50 50 1 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
736 2174 380 (Sample command) 380 SB
gr
gs 1500 1125 463 1705 CB
1316 2174 135 (Result) 135 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
736 2266 240 (set b 66) 240 SB
gr
gs 1500 1125 463 1705 CB
1316 2266 60 (66) 60 SB
gr
gs 1500 1125 463 1705 CB
736 2326 210 (set a b) 210 SB
gr
gs 1500 1125 463 1705 CB
1316 2326 30 (b) 30 SB
gr
gs 1500 1125 463 1705 CB
736 2386 240 (set a $b) 240 SB
gr
gs 1500 1125 463 1705 CB
1316 2386 60 (66) 60 SB
gr
gs 1500 1125 463 1705 CB
736 2446 420 (set a $b+$b+$b) 420 SB
gr
gs 1500 1125 463 1705 CB
1316 2446 240 (66+66+66) 240 SB
gr
gs 1500 1125 463 1705 CB
736 2506 300 (set a $b.3) 300 SB
gr
gs 1500 1125 463 1705 CB
1316 2506 120 (66.3) 120 SB
gr
gs 1500 1125 463 1705 CB
736 2566 270 (set a $b4) 270 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font
gs 1500 1125 463 1705 CB
1316 2564 333 (no such variable) 333 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats
%%Page: 4 4
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1477 1394 321 (December 12, 1995, slide 7) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
10 1 SJ
566 488 738 (Command Substitution) 738 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 672 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
-1 1 SJ
622 656 194 (Syntax: [) 194 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Italic /font31 ANSIFont font
gs 1500 1125 463 400 CB
815 657 113 (script) 113 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
928 656 17 (]) 17 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 762 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 3 SJ
622 746 703 (Evaluate script, substitute result.) 703 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 852 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
622 836 773 (May occur anywhere within a word.) 773 SB
gr
32 0 0 50 50 1 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
669 956 380 (Sample command) 380 SB
gr
gs 1500 1125 463 400 CB
1523 956 135 (Result) 135 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
669 1048 210 (set b 8) 210 SB
gr
gs 1500 1125 463 400 CB
1523 1048 30 (8) 30 SB
gr
gs 1500 1125 463 400 CB
669 1108 510 (set a [expr $b+2]) 510 SB
gr
gs 1500 1125 463 400 CB
1523 1108 60 (10) 60 SB
gr
gs 1500 1125 463 400 CB
669 1168 780 (set a "b-3 is [expr $b-3]") 780 SB
gr
gs 1500 1125 463 400 CB
1523 1168 240 (b-3 is 5) 240 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1477 2699 321 (December 12, 1995, slide 8) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
6 2 SJ
566 1793 898 (Controlling Word Structure) 898 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 1977 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 7 SJ
622 1961 1123 (Words break at white space and semi-colons, except:) 1123 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2037 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
2 2 SJ
688 2037 612 (Double-quotes prevent breaks:) 612 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
716 2099 720 (set a "x is $x; y is $y") 720 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2172 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
9 5 SJ
688 2172 914 (Curly braces prevent breaks and substitutions:) 914 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
716 2234 600 (set a {[expr $b*$c]}) 600 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2307 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
7 3 SJ
688 2307 741 (Backslashes quote special characters:) 741 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
716 2369 960 (set a word\\ with\\ \\$\\ and\\ space) 960 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2487 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
622 2471 918 (Substitutions don't change word structure:) 918 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
716 2534 510 (set a "two words") 510 SB
gr
gs 1500 1125 463 1705 CB
716 2594 240 (set b $a) 240 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats
%%Page: 5 5
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1477 1394 321 (December 12, 1995, slide 9) 321 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
566 488 382 (Expressions) 382 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 635 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
2 8 SJ
622 619 1262 (C-like \(int and double\), extra support for string operations.) 1262 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 710 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
2 4 SJ
622 694 853 (Command, variable substitution occurs ) 853 SB
gr
32 0 0 50 50 0 0 0 46 /Times-BoldItalic /font30 ANSIFont font
gs 1500 1125 463 400 CB
1478 694 131 (within) 131 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 1 SJ
1609 694 267 ( expressions.) 267 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 785 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
622 769 173 (Used in ) 173 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
795 772 120 (expr) 120 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
915 769 394 (, other commands.) 394 SB
gr
32 0 0 50 50 1 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
716 840 380 (Sample command) 380 SB
gr
gs 1500 1125 463 400 CB
1336 840 135 (Result) 135 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
716 903 210 (set b 5) 210 SB
gr
gs 1500 1125 463 400 CB
1336 903 30 (5) 30 SB
gr
gs 1500 1125 463 400 CB
716 963 450 (expr \($b*4\) - 3) 450 SB
gr
gs 1500 1125 463 400 CB
1336 963 60 (17) 60 SB
gr
gs 1500 1125 463 400 CB
716 1023 360 (expr $b <= 2) 360 SB
gr
gs 1500 1125 463 400 CB
1336 1023 30 (0) 30 SB
gr
gs 1500 1125 463 400 CB
716 1083 570 (expr $a * cos\(2*$b\)) 570 SB
gr
gs 1500 1125 463 400 CB
1336 1083 240 (-5.03443) 240 SB
gr
gs 1500 1125 463 400 CB
716 1143 570 (expr {$b * [fac 4]}) 570 SB
gr
gs 1500 1125 463 400 CB
1336 1143 90 (120) 90 SB
gr
gs 1500 1125 463 400 CB
716 1203 300 (set a Bill) 300 SB
gr
gs 1500 1125 463 400 CB
1336 1203 120 (Bill) 120 SB
gr
gs 1500 1125 463 400 CB
716 1263 540 (expr {$a < "Anne"}) 540 SB
gr
gs 1500 1125 463 400 CB
1336 1263 30 (0) 30 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1463 2699 336 (December 12, 1995, slide 10) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
566 1793 154 (Lists) 154 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 1940 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
6 7 SJ
622 1924 1040 (Zero or more elements separated by white space:) 1040 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 1986 420 (red green blue) 420 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2074 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
4 4 SJ
622 2058 796 (Braces and backslashes for grouping:) 796 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2121 390 (a b {c d e} f) 390 SB
gr
gs 1500 1125 463 1705 CB
641 2181 570 (one\\ word two three) 570 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2269 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
3 1 SJ
622 2253 507 (List-related commands:) 507 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2312 180 (concat) 180 SB
gr
gs 1500 1125 463 1705 CB
969 2312 180 (lindex) 180 SB
gr
gs 1500 1125 463 1705 CB
1241 2312 210 (llength) 210 SB
gr
gs 1500 1125 463 1705 CB
1561 2312 210 (lsearch) 210 SB
gr
gs 1500 1125 463 1705 CB
641 2365 210 (foreach) 210 SB
gr
gs 1500 1125 463 1705 CB
969 2365 210 (linsert) 210 SB
gr
gs 1500 1125 463 1705 CB
1241 2365 180 (lrange) 180 SB
gr
gs 1500 1125 463 1705 CB
1561 2365 150 (lsort) 150 SB
gr
gs 1500 1125 463 1705 CB
641 2419 210 (lappend) 210 SB
gr
gs 1500 1125 463 1705 CB
969 2419 120 (list) 120 SB
gr
gs 1500 1125 463 1705 CB
1241 2419 240 (lreplace) 240 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2506 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
622 2490 222 (Examples:) 222 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2561 600 (lindex {a b {c d e} f} 2) 600 SB
gr
gs 1500 1125 463 1705 CB
1326 2561 25 ( ) 25 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 1705 CB
1351 2556 35 (\355) 35 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1386 2561 25 ( ) 25 SB
gr
gs 1500 1125 463 1705 CB
1411 2561 125 (c d e) 125 SB
gr
gs 1500 1125 463 1705 CB
641 2621 550 (lsort {red green blue}) 550 SB
gr
gs 1500 1125 463 1705 CB
1326 2621 25 ( ) 25 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 1705 CB
1351 2616 35 (\355) 35 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1386 2621 25 ( ) 25 SB
gr
gs 1500 1125 463 1705 CB
1411 2621 350 (blue green red) 350 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-BoldItalic
%%+ font Times-Italic
%%+ font ZapfDingbats
%%Page: 6 6
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1463 1394 336 (December 12, 1995, slide 11) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
4 1 SJ
566 488 602 (Control Structures) 602 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 660 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
2 1 SJ
622 644 401 (C-like appearance.) 401 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 735 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
2 7 SJ
622 719 1078 (Just commands that take Tcl scripts as arguments.) 1078 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 810 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
6 2 SJ
622 794 473 (Example: list reversal.) 473 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
688 852 240 (set b "") 240 SB
gr
gs 1500 1125 463 400 CB
688 906 870 (set i [expr [llength $a] - 1]) 870 SB
gr
gs 1500 1125 463 400 CB
688 960 510 (while {$i >= 0} {) 510 SB
gr
gs 1500 1125 463 400 CB
688 1014 840 (    lappend b [lindex $a $i]) 840 SB
gr
gs 1500 1125 463 400 CB
688 1067 390 (    incr i -1) 390 SB
gr
gs 1500 1125 463 400 CB
688 1121 30 (}) 30 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1208 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
622 1192 260 (Commands:) 260 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
688 1255 60 (if) 60 SB
gr
gs 1500 1125 463 400 CB
979 1255 90 (for) 90 SB
gr
gs 1500 1125 463 400 CB
1213 1255 180 (switch) 180 SB
gr
gs 1500 1125 463 400 CB
1476 1255 150 (break) 150 SB
gr
gs 1500 1125 463 400 CB
688 1315 210 (foreach) 210 SB
gr
gs 1500 1125 463 400 CB
979 1315 150 (while) 150 SB
gr
gs 1500 1125 463 400 CB
1213 1315 120 (eval) 120 SB
gr
gs 1500 1125 463 400 CB
1476 1315 240 (continue) 240 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1463 2699 336 (December 12, 1995, slide 12) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
566 1793 359 (Procedures) 359 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 1952 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
622 1939 120 (proc) 120 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 4 SJ
742 1936 670 ( command defines a procedure:) 670 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 1999 690 (proc sub1 x {expr $x-1}) 690 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2240 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
3 5 SJ
622 2224 1015 (Procedures behave just like built-in commands:) 1015 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2287 180 (sub1 3) 180 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 1705 CB
923 2290 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
958 2287 30 ( ) 30 SB
gr
gs 1500 1125 463 1705 CB
988 2287 30 (2) 30 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2375 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 3 SJ
622 2359 636 (Arguments can have defaults:) 636 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2417 630 (proc decr {x {y 1}} {) 630 SB
gr
gs 1500 1125 463 1705 CB
641 2471 420 (    expr $x-$y) 420 SB
gr
gs 1500 1125 463 1705 CB
641 2525 30 (}) 30 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2611 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 4 SJ
622 2595 752 (Scoping: local and global variables.) 752 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
608 2087 22 (n) 21 SB
629 2087 19 (a) 18 SB
647 2087 51 (me) 51 SB
gr
gs 1500 1125 463 1705 CB
-6 3 SJ
760 2149 387 (list of argument names) 387 SB
gr
gs 1500 1125 463 1705 CB
1328 2087 80 (body) 80 SB
gr
6 4 SP
714 2117 M 0 -29 137 0 2 PP
S
n
/fm 256 def
851 2054 M -11 -38 22 0 -11 38 3 PP
1 F
n
6 4 SP
1313 2117 M 0 -29 -150 0 2 PP
S
n
/fm 256 def
1163 2054 M -11 -38 22 0 -11 38 3 PP
1 F
n
6 4 SP
gs 1500 85 463 2073 CB
951 2253 M 0 -297 1 PP
S
n
gr
/fm 256 def
951 2054 M -11 -37 22 0 -11 37 3 PP
1 F
n
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats
%%Page: 7 7
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1463 1394 336 (December 12, 1995, slide 13) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
5 1 SJ
566 488 595 (Procedures, cont'd) 595 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 660 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 2 SJ
622 644 666 (Variable-length argument lists:) 666 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 702 450 (proc sum args {) 450 SB
gr
gs 1500 1125 463 400 CB
641 756 330 (    set s 0) 330 SB
gr
gs 1500 1125 463 400 CB
641 810 630 (    foreach i $args {) 630 SB
gr
gs 1500 1125 463 400 CB
641 864 510 (        incr s $i) 510 SB
gr
gs 1500 1125 463 400 CB
641 917 150 (    }) 150 SB
gr
gs 1500 1125 463 400 CB
641 971 390 (    return $s) 390 SB
gr
gs 1500 1125 463 400 CB
641 1025 30 (}) 30 SB
gr
gs 1500 1125 463 400 CB
641 1139 390 (sum 1 2 3 4 5) 390 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 1196 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 1193 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 1193 60 (15) 60 SB
gr
gs 1500 1125 463 400 CB
641 1247 90 (sum) 90 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 1304 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 1301 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 1301 30 (0) 30 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1463 2699 336 (December 12, 1995, slide 14) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
566 1793 215 (Errors) 215 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 1927 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
10 5 SJ
622 1911 976 (Errors normally abort commands in progress,) 976 SB
gr
gs 1500 1125 463 1705 CB
5 3 SJ
622 1971 749 (application displays error message:) 749 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2031 175 (set n 0) 175 SB
gr
gs 1500 1125 463 1705 CB
641 2076 575 (foreach i {1 2 3 4 5} {) 575 SB
gr
gs 1500 1125 463 1705 CB
641 2121 675 (    set n [expr {$n + i*i}]) 675 SB
gr
gs 1500 1125 463 1705 CB
641 2166 25 (}) 25 SB
gr
32 0 0 42 42 0 0 0 34 /ZapfDingbats font
gs 1500 1125 463 1705 CB
641 2212 29 (\355) 29 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
670 2208 11 ( ) 11 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
681 2211 925 (syntax error in expression "$n + i*i") 925 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2287 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 2 SJ
622 2271 342 (Global variable ) 342 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
965 2274 270 (errorInfo) 270 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 3 SJ
1235 2271 455 ( provides stack trace:) 455 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2331 325 (set errorInfo) 325 SB
gr
32 0 0 42 42 0 0 0 34 /ZapfDingbats font
gs 1500 1125 463 1705 CB
641 2377 29 (\355) 29 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
670 2373 11 ( ) 11 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
681 2376 925 (syntax error in expression "$n + i*i") 925 SB
gr
gs 1500 1125 463 1705 CB
641 2421 475 (    while executing) 475 SB
gr
gs 1500 1125 463 1705 CB
641 2466 425 ("expr {$n + i*i}") 425 SB
gr
gs 1500 1125 463 1705 CB
641 2511 575 (    invoked from within) 575 SB
gr
gs 1500 1125 463 1705 CB
641 2556 700 ("set n [expr {$n + i*i}]...") 700 SB
gr
gs 1500 1125 463 1705 CB
641 2601 675 (    \("foreach" body line 2\)) 675 SB
gr
gs 1500 1125 463 1705 CB
641 2646 175 (    ...) 175 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats
%%Page: 8 8
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1463 1394 336 (December 12, 1995, slide 15) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
7 2 SJ
566 488 839 (Advanced Error Handling) 839 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 660 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 2 SJ
622 644 452 (Can intercept errors:) 452 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 722 660 (catch {expr {2 +}} msg) 660 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 784 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 781 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 781 30 (1) 30 SB
gr
gs 1500 1125 463 400 CB
641 856 210 (set msg) 210 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 919 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 916 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 916 960 (syntax error in expression "2 +") 960 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1019 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
4 2 SJ
622 1003 443 (Can generate errors:) 443 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 1081 600 (error "bad argument") 600 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1184 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
2 2 SJ
622 1168 342 (Global variable ) 342 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
967 1171 270 (errorCode) 270 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 2 SJ
1237 1168 520 ( holds machine-readable) 520 SB
gr
gs 1500 1125 463 400 CB
2 5 SJ
622 1228 788 (information about errors \(e.g. UNIX ) 788 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
1411 1231 150 (errno) 150 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1561 1228 156 ( value\).) 156 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1463 2699 336 (December 12, 1995, slide 16) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
5 2 SJ
566 1793 783 (Additional Tcl Features:) 783 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 1965 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1 2 SJ
622 1949 691 (String manipulation commands:) 691 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2027 180 (regexp) 180 SB
gr
gs 1500 1125 463 1705 CB
866 2027 180 (format) 180 SB
gr
gs 1500 1125 463 1705 CB
1091 2027 150 (split) 150 SB
gr
gs 1500 1125 463 1705 CB
1316 2027 180 (string) 180 SB
gr
gs 1500 1125 463 1705 CB
641 2086 180 (regsub) 180 SB
gr
gs 1500 1125 463 1705 CB
866 2086 120 (scan) 120 SB
gr
gs 1500 1125 463 1705 CB
1091 2086 120 (join) 120 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2189 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
2 2 SJ
622 2173 423 (File I/O commands:) 423 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2251 120 (open) 120 SB
gr
gs 1500 1125 463 1705 CB
866 2251 120 (gets) 120 SB
gr
gs 1500 1125 463 1705 CB
1091 2251 120 (seek) 120 SB
gr
gs 1500 1125 463 1705 CB
1316 2251 150 (flush) 150 SB
gr
gs 1500 1125 463 1705 CB
1616 2251 120 (glob) 120 SB
gr
gs 1500 1125 463 1705 CB
641 2311 150 (close) 150 SB
gr
gs 1500 1125 463 1705 CB
866 2311 120 (read) 120 SB
gr
gs 1500 1125 463 1705 CB
1091 2311 120 (tell) 120 SB
gr
gs 1500 1125 463 1705 CB
1316 2311 60 (cd) 60 SB
gr
gs 1500 1125 463 1705 CB
641 2371 120 (puts) 120 SB
gr
gs 1500 1125 463 1705 CB
866 2371 180 (source) 180 SB
gr
gs 1500 1125 463 1705 CB
1091 2371 90 (eof) 90 SB
gr
gs 1500 1125 463 1705 CB
1316 2371 90 (pwd) 90 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2474 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1 2 SJ
622 2458 402 (Subprocesses with ) 402 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1024 2461 120 (exec) 120 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
1144 2458 240 ( command:) 240 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2551 840 (exec grep foo << $input | wc) 840 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font ZapfDingbats
%%Page: 9 9
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1463 1394 336 (December 12, 1995, slide 17) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
6 3 SJ
566 488 994 (Additional Tcl Features, cont'd) 994 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 660 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 1 SJ
622 644 404 (Associative arrays:) 404 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 722 420 (set x\(fred\) 44) 420 SB
gr
gs 1500 1125 463 400 CB
641 781 840 (set x\(2\) [expr $x\(fred\) + 6]) 840 SB
gr
gs 1500 1125 463 400 CB
641 841 390 (array names x) 390 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 904 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 901 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 901 180 (fred 2) 180 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1022 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 1 SJ
622 1006 375 (Variable scoping:) 375 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 1084 180 (global) 180 SB
gr
gs 1500 1125 463 400 CB
913 1084 210 (uplevel) 210 SB
gr
gs 1500 1125 463 400 CB
1241 1084 150 (upvar) 150 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1205 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 3 SJ
622 1189 493 (Access to Tcl internals:) 493 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 1267 120 (info) 120 SB
gr
gs 1500 1125 463 400 CB
913 1267 180 (rename) 180 SB
gr
gs 1500 1125 463 400 CB
1241 1267 150 (trace) 150 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1463 2699 336 (December 12, 1995, slide 18) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
6 3 SJ
566 1793 994 (Additional Tcl Features, cont'd) 994 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2002 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
622 1986 281 (Autoloading:) 281 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2053 25 (\226) 25 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
688 2055 210 (unknown) 210 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
6 5 SJ
898 2053 862 ( procedure invoked when command doesn't) 862 SB
gr
gs 1500 1125 463 1705 CB
688 2113 105 (exist.) 105 SB
gr
gs 1500 1125 463 1705 CB
641 2179 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
9 5 SJ
688 2179 877 (Loads procedures on demand from libraries.) 877 SB
gr
gs 1500 1125 463 1705 CB
641 2245 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
3 4 SJ
688 2245 623 (Uses search path of directories.) 623 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2335 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
622 2319 487 (Coming soon \(Tcl 7.5\):) 487 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2386 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
15 4 SJ
688 2386 581 (Dynamic loading of binaries: ) 581 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1284 2388 120 (load) 120 SB
gr
32 0 0 50 50 0 0 0 45 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
4 1 SJ
1404 2386 219 ( command.) 219 SB
gr
gs 1500 1125 463 1705 CB
641 2451 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
5 1 SJ
688 2451 373 (Security: Safe-Tcl.) 373 SB
gr
gs 1500 1125 463 1705 CB
641 2517 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
3 1 SJ
688 2517 350 (Event-driven I/O.) 350 SB
gr
gs 1500 1125 463 1705 CB
641 2583 25 (\226) 25 SB
gr
gs 1500 1125 463 1705 CB
-5 1 SJ
688 2583 316 (Socket support.) 316 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats
%%Page: 10 10
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1463 1394 336 (December 12, 1995, slide 19) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 2 SJ
566 488 730 (More On Substitutions) 730 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 660 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 6 SJ
622 644 991 (Keep substitutions simple: use commands like ) 991 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
1614 647 180 (format) 180 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
5 2 SJ
622 703 502 (for complex arguments.) 502 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 794 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 1 SJ
622 778 90 (Use ) 90 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
712 781 120 (eval) 120 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 5 SJ
832 778 659 ( for another level of expansion:) 659 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
641 856 330 (exec rm *.o) 330 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 919 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 916 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 916 900 (*.o: No such file or directory) 900 SB
gr
gs 1500 1125 463 400 CB
641 991 240 (glob *.o) 240 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 1054 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 1051 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 1051 210 (a.o b.o) 210 SB
gr
gs 1500 1125 463 400 CB
641 1126 540 (exec rm [glob *.o]) 540 SB
gr
32 0 0 50 50 0 0 0 40 /ZapfDingbats font
gs 1500 1125 463 400 CB
641 1189 35 (\355) 35 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
676 1186 30 ( ) 30 SB
gr
gs 1500 1125 463 400 CB
706 1186 1020 (a.o b.o: No such file or directory) 1020 SB
gr
gs 1500 1125 463 400 CB
641 1261 690 (eval exec rm [glob *.o]) 690 SB
gr
255 255 255 fC
/fm 256 def
gs 1500 1125 463 1705 CB
1500 1125 464 1706 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 1705 CB
-837 1880 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 1705 CB
1 5 SJ
566 2699 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 1705 CB
1463 2699 336 (December 12, 1995, slide 20) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
9 4 SJ
566 1793 1145 (Commands And Lists: Quoting Hell) 1145 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 1940 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
6 7 SJ
622 1924 1187 (Lists parse cleanly as commands: each element becomes) 1187 SB
gr
gs 1500 1125 463 1705 CB
622 1983 211 (one word.) 211 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 1705 CB
566 2074 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 1705 CB
5 6 SJ
622 2058 1005 (To create commands safely, use list commands:) 1005 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2134 1225 (button .b -text Reset -command {set x $initValue}) 1225 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2181 14 (\() 14 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
655 2184 225 (initValue) 225 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
-4 4 SJ
880 2181 463 ( read when button invoked\)) 463 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2247 775 (... -command "set x $initValue") 775 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2294 133 (\(fails if ) 133 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
774 2297 225 (initValue) 225 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
999 2294 67 ( is ") 67 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1066 2297 200 (New York) 200 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1266 2294 245 (": command is) 245 SB
gr
gs 1500 1125 463 1705 CB
641 2344 17 (") 17 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
658 2347 350 (set x New York) 350 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1008 2344 31 ("\)) 31 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2409 825 (... -command "set x {$initValue}") 825 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2456 133 (\(fails if ) 133 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
774 2459 250 (initValue ) 250 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1024 2456 56 (is ") 56 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1080 2459 25 ({) 25 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1105 2456 273 (": command is ") 273 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1378 2459 225 (set x {{}) 225 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1603 2456 31 ("\)) 31 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
641 2522 900 (... -command [list set x $initValue]) 900 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
641 2569 299 (\(always works: if ) 299 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
940 2572 250 (initValue ) 250 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1190 2569 56 (is ") 56 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1246 2572 25 ({) 25 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1271 2569 261 (" command is ") 261 SB
gr
32 0 0 41 41 0 0 0 35 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 1705 CB
1532 2572 200 (set x \\{) 200 SB
gr
32 0 0 42 42 0 0 0 38 /Times-Roman /font32 ANSIFont font
gs 1500 1125 463 1705 CB
1732 2569 31 ("\)) 31 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats
%%Page: 11 11
%%PageResources: (atend)
SS
0 0 20 11 809 1100 300 SM
255 255 255 fC
/fm 256 def
2250 3000 88 115 B
1 F
n
1 lc
1 lj
0 0 0 pC
6 4 SP
415 367 2014 1566 88 88 RR
S
n
415 1667 2014 2866 88 88 RR
S
n
255 255 255 fC
/fm 256 def
gs 1500 1125 463 400 CB
1500 1125 464 401 B
1 F
n
gr
6 8 SP
gs 1318 1125 477 400 CB
-837 575 M 3942 0 1 PP
S
n
gr
32 0 0 29 29 0 0 0 27 /Times-Italic /font31 ANSIFont font
0 0 0 fC
gs 1500 1125 463 400 CB
1 5 SJ
566 1394 431 (Tcl/Tk Tutorial Part II: Tcl Scripting) 431 SB
gr
gs 1500 1125 463 400 CB
1463 1394 336 (December 12, 1995, slide 21) 336 SB
gr
32 0 0 75 75 0 0 0 69 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
4 2 SJ
566 488 675 (Tcl Syntax Summary) 675 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 660 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 6 SJ
622 644 953 (Script = commands separated by newlines or) 953 SB
gr
gs 1500 1125 463 400 CB
622 703 241 (semicolons.) 241 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 800 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 6 SJ
622 784 965 (Command = words separated by white space.) 965 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 881 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
622 868 30 ($) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
652 865 614 ( causes variable substitution.) 614 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 962 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
622 949 60 ([]) 60 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
682 946 651 ( causes command substitution.) 651 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1043 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
622 1030 60 ("") 60 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
682 1027 776 ( quotes white space and semi-colons.) 776 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1124 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
622 1111 60 ({}) 60 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
3 4 SJ
682 1108 620 ( quotes all special characters.) 620 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1205 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
622 1192 30 (\\) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
1 6 SJ
652 1189 1121 ( quotes next character, provides C-like substitutions.) 1121 SB
gr
32 0 0 38 38 0 0 0 30 /ZapfDingbats font
gs 1500 1125 463 400 CB
566 1286 30 (u) 30 SB
gr
32 0 0 50 50 0 0 0 43 /Courier-Bold /font9 ANSIFont font
gs 1500 1125 463 400 CB
622 1273 30 (#) 30 SB
gr
32 0 0 50 50 0 0 0 46 /Times-Bold /font29 ANSIFont font
gs 1500 1125 463 400 CB
652 1270 1088 ( for comments \(must be at beginning of command\).) 1088 SB
gr
1 #C
statusdict begin /manualfeed false store end
EJ RS
%%PageTrailer
%%PageResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-Italic
%%+ font ZapfDingbats
%%Trailer
SVDoc restore
end
%%Pages: 11
% TrueType font name key:
%    MSTT31c1d4 = 4877DTimes New RomanF0000004b000002bc0000
%    MSTT31c1e1 = 4877DTimes New RomanF00000032000002bc0000
%    MSTT31c1ee = 4877DTimes New RomanF00000026000002bc00ff
%    MSTT31c1fb = 4877DTimes New RomanF0000001d0000019000ff
%    MSTT31c208 = 4877DTimes New RomanF00000032000001900000
%    MSTT31c215 = 4877DMonotype SortsF00000026000001900000
%    MSTT31c222 = 4877DTimes New RomanF0000002a000002bc0000
%    MSTT31c22f = 4877DMonotype SortsF0000001f000001900000
%    MSTT31c23c = 4877DTimes New RomanF000000320000019000ff
%    MSTT31c249 = 4877DTimes New RomanF0000002a000001900000
%    MSTT31c256 = 4877DTimes New RomanF00000032000002bc00ff
%    MSTT31c263 = 4877DMonotype SortsF00000032000001900000
%    MSTT31c270 = 4877DMonotype SortsF0000002a000001900000
%%DocumentSuppliedResources: procset Win35Dict 3 1

%%DocumentNeededResources: font Courier-Bold
%%+ font Times-Bold
%%+ font Times-BoldItalic
%%+ font Times-Italic
%%+ font Times-Roman
%%+ font ZapfDingbats

%%EOF
