1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
set Graphics(arrowshape) {13.0 15.0 5.7}
set Graphics(fill,color) {}
set Graphics(fill,style) {}
set Graphics(font,bold) 1
set Graphics(font,color) #000000
set Graphics(font,italic) 0
set Graphics(font,normal) 0
set Graphics(font,overstrike) 0
set Graphics(font,roman) 0
set Graphics(font,size) 10
set Graphics(font,stipple) {}
set Graphics(font,style) bold
set Graphics(font,type) Courier
set Graphics(font,underline) 0
set Graphics(grid,on) 0
set Graphics(grid,size) 10m
set Graphics(grid,snap) 1
set Graphics(snap,on) 0
set Graphics(line,arrow) none
set Graphics(line,capstyle) butt
set Graphics(line,color) black
set Graphics(line,joinstyle) miter
set Graphics(line,smooth) 0
set Graphics(line,style) {}
set Graphics(line,width) 1.0
set Graphics(mode) {Move object}
set Graphics(progress) 0
set Graphics(shape) Rectangle
set Graphics(splinesteps) 20
set Graphics(text,anchor) w
set Graphics(ticks,on) 0
set Graphics(mode) ""
### End of Graphics parameters
set Zoom(factor) 1
set Zoom(selected,button) 1
set Zoom(button,text) 100%
set utagCounter 82
set Image(ctr) 0
set Canv(H) 463
set Canv(W) 668
set Canv(SH) 1500
set Canv(SW) 1500
set Canv(bg) #debdff
.c config -width $Canv(W) -height $Canv(H) -bg $Canv(bg) -scrollregion "0 0 $Canv(SW) $Canv(SH)"
wm geometry . ""
.c xview moveto 0
.c yview moveto 0
set TextInfo(utag53) Extensions
set TextInfo(utag55) Parser
set TextInfo(utag56) Init
set TextInfo(utag57) Command
set TextInfo(utag58) Loop
set TextInfo(utag59) Extension
set TextInfo(utag60) Tcl
set TextInfo(utag61) Application
set TextInfo(utag62) {}
set TextInfo(utag81) {(This is a copy from the Friedman lecture notes on Tcl/Tk)}
set TextInfo(utag63) Extension
set TextInfo(utag82) {}
set TextInfo(utag64) Commands
set TextInfo(utag65) Built-in
set TextInfo(utag66) Commands
set TextInfo(utag67) Application
set TextInfo(utag68) Commands
.c create rectangle 41.7277486911 144.727748691 216.387434554 421.272251308 -fill #80ffff -tags {Rectangle obj utag1}
.c create rectangle 245.497382198 144.727748691 420.157068061 421.272251308 -fill #80ff80 -tags {Rectangle obj utag2}
.c create rectangle 449.267015705 144.727748691 623.926701566 421.272251308 -fill #ffff80 -tags {Rectangle obj utag3}
.c create polygon 282.612565444 210.22513089 282.612565444 210.22513089 383.041884815 210.22513089 383.041884815 210.22513089 398.324607328 210.22513089 398.324607328 225.507853403 398.324607328 225.507853403 398.324607328 231.329842932 398.324607328 231.329842932 398.324607328 246.612565445 383.041884815 246.612565445 383.041884815 246.612565445 282.612565444 246.612565445 282.612565444 246.612565445 267.329842931 246.612565445 267.329842931 231.329842932 267.329842931 231.329842932 267.329842931 225.507853403 267.329842931 225.507853403 267.329842931 210.22513089 -fill #e6e600 -outline black -smooth 1 -tags {RoundRect obj utag4}
.c create rectangle 75.7954842929 334.533704188 93.5343586383 352.272578533 -fill #c0c0c0 -tags {Rectangle obj utag5}
.c create rectangle 105.360274869 334.533704188 123.099149214 352.272578533 -fill #c0c0c0 -tags {Rectangle obj utag6}
.c create rectangle 134.925065445 334.533704188 152.66393979 352.272578533 -fill #c0c0c0 -tags {Rectangle obj utag7}
.c create rectangle 164.48985602 334.533704188 182.228730366 352.272578533 -fill #c0c0c0 -tags {Rectangle obj utag8}
.c create rectangle 265.737892669 333.805955497 283.476767015 351.544829842 -fill #c0c0c0 -tags {Rectangle obj utag13}
.c create rectangle 295.302683245 333.805955497 313.041557591 351.544829842 -fill #c0c0c0 -tags {Rectangle obj utag14}
.c create rectangle 324.867473821 333.805955497 342.606348166 351.544829842 -fill #c0c0c0 -tags {Rectangle obj utag15}
.c create rectangle 354.432264397 333.805955497 372.171138742 351.544829842 -fill #c0c0c0 -tags {Rectangle obj utag16}
.c create rectangle 383.54221204 333.805955497 401.281086386 351.544829842 -fill #c0c0c0 -tags {Rectangle obj utag17}
.c create rectangle 484.062499998 333.078206806 501.801374342 350.817081151 -fill #c0c0c0 -tags {Rectangle obj utag18}
.c create rectangle 513.627290572 333.078206806 531.366164917 350.817081151 -fill #c0c0c0 -tags {Rectangle obj utag19}
.c create rectangle 543.192081148 333.078206806 560.930955493 350.817081151 -fill #c0c0c0 -tags {Rectangle obj utag20}
.c create rectangle 572.756871724 333.078206806 590.495746069 350.817081151 -fill #c0c0c0 -tags {Rectangle obj utag21}
.c create line 332.82722513 246.612565445 332.82722513 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag22}
.c create line 289.162303664 246.612565445 289.162303664 282.999999999 114.502617801 282.999999999 114.502617801 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag25}
.c create line 296.439790575 246.612565445 296.439790575 290.27748691 143.612565445 290.27748691 143.612565445 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag26}
.c create line 303.717277486 246.612565445 303.717277486 297.554973821 172.722513088 297.554973821 172.722513088 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag27}
.c create line 310.994764397 246.612565445 310.994764397 304.832460732 274.607329842 304.832460732 274.607329842 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag30}
.c create line 318.272251308 246.612565445 318.272251308 312.109947643 303.717277486 312.109947643 303.717277486 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag31}
.c create line 347.382198952 246.612565445 347.382198952 312.109947643 361.937172774 312.109947643 361.937172774 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag33}
.c create line 354.659685863 246.612565445 354.659685863 304.832460732 391.047120417 304.832460732 391.047120417 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag34}
.c create line 361.937172774 246.612565445 361.937172774 297.554973821 492.931937171 297.554973821 492.931937171 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag35}
.c create line 369.214659685 246.612565445 369.214659685 290.27748691 522.041884813 290.27748691 522.041884813 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag36}
.c create line 376.492146595 246.612565445 376.492146595 282.999999999 551.151832457 282.999999999 551.151832457 333.942408376 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag37}
.c create polygon 492.20418848 209.870440515 492.20418848 209.870440515 580.989528792 209.870440515 580.989528792 209.870440515 602.094240833 209.870440515 602.094240833 233.639013937 602.094240833 233.639013937 602.094240833 243.474285699 602.094240833 243.474285699 602.094240833 267.242859121 580.989528792 267.242859121 580.989528792 267.242859121 492.20418848 267.242859121 492.20418848 267.242859121 471.099476438 267.242859121 471.099476438 243.474285699 471.099476438 243.474285699 471.099476438 233.639013937 471.099476438 233.639013937 471.099476438 209.870440515 -fill #15ff8a -outline black -smooth 1 -tags {RoundRect obj utag39}
.c create polygon 514.764397902 155.643979058 514.764397902 155.643979058 555.518324603 155.643979058 555.518324603 155.643979058 567.890052352 155.643979058 567.890052352 168.015706806 567.890052352 168.015706806 567.890052352 172.382198953 567.890052352 172.382198953 567.890052352 184.753926701 555.518324603 184.753926701 555.518324603 184.753926701 514.764397902 184.753926701 514.764397902 184.753926701 502.392670153 184.753926701 502.392670153 172.382198953 502.392670153 172.382198953 502.392670153 168.015706806 502.392670153 168.015706806 502.392670153 155.643979058 -fill #ff9460 -outline black -smooth 1 -tags {RoundRect obj utag40}
.c create line 502.249999999 170.0 332.75 170.25 332.82722513 210.22513089 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag41}
.c create line 535.869109945 185.481675393 535.999999998 210.333333333 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag42}
.c create line 602.821989525 234.968586387 613.738219892 234.968586387 613.738219892 187.664921466 582.445026175 187.664921466 582.333333332 210.333333333 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag45}
.c create line 470.0 231.333333333 399.333333333 231.0 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag47}
.c create polygon 234.0 29.0 234.0 29.0 433.0 29.0 433.0 29.0 459.0 29.0 459.0 54.9999999998 459.0 54.9999999998 459.0 66.9999999998 459.0 66.9999999998 459.0 92.9999999998 433.0 92.9999999998 433.0 92.9999999998 234.0 92.9999999998 234.0 92.9999999998 208.0 92.9999999998 208.0 66.9999999998 208.0 66.9999999998 208.0 54.9999999998 208.0 54.9999999998 208.0 29.0 -fill #ff8d1c -outline black -smooth 1 -tags {RoundRect obj utag54}
.c create text 332.0 56.9999999998 -fill #800040 -font {{Times New Roman} 36 bold} -text Extensions -tags {text obj utag53}
.c create text 335.0 227.0 -fill #800040 -font {{Times New Roman} 24 bold} -text Parser -tags {text obj utag55}
.c create text 533.999999998 169.0 -fill #800040 -font {{Times New Roman} 19 bold} -text Init -tags {text obj utag56}
.c create text 534.999999998 224.0 -fill #800040 -font {{Times New Roman} 19 bold} -text Command -tags {text obj utag57}
.c create text 532.999999998 247.0 -fill #800040 -font {{Times New Roman} 19 bold} -text Loop -tags {text obj utag58}
.c create text 130.0 126.0 -fill #800040 -font {{Times New Roman} 24 bold} -text Extension -tags {text obj utag59}
.c create text 336.0 126.0 -fill #800040 -font {{Times New Roman} 24 bold} -text Tcl -tags {text obj utag60}
.c create text 537.999999998 124.0 -fill #800040 -font {{Times New Roman} 24 bold} -text Application -tags {text obj utag61}
.c create text 129.0 370.333333333 -fill #800040 -font {{Times New Roman} 21 bold} -text Extension -tags {text obj utag63}
.c create text 128.666666667 402.0 -fill #800040 -font {{Times New Roman} 21 bold} -text Commands -tags {text obj utag64}
.c create text 337.0 374.0 -fill #800040 -font {{Times New Roman} 21 bold} -text Built-in -tags {text obj utag65}
.c create text 337.0 402.0 -fill #800040 -font {{Times New Roman} 21 bold} -text Commands -tags {text obj utag66}
.c create text 537.999999998 372.0 -fill #800040 -font {{Times New Roman} 21 bold} -text Application -tags {text obj utag67}
.c create text 536.999999998 402.0 -fill #800040 -font {{Times New Roman} 21 bold} -text Commands -tags {text obj utag68}
.c create line 282.0 247.0 282.0 273.0 86.9999999998 273.0 86.9999999998 335.0 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag70}
.c create line 383.0 248.0 383.0 274.0 580.999999998 274.0 580.999999998 333.0 -arrow last -arrowshape {13 15 5.7} -joinstyle miter -tags {Line obj utag71}
.c create polygon 232.0 24.0 232.0 24.0 435.0 24.0 435.0 24.0 465.0 24.0 465.0 53.9999999998 465.0 53.9999999998 465.0 67.9999999998 465.0 67.9999999998 465.0 97.9999999998 435.0 97.9999999998 435.0 97.9999999998 232.0 97.9999999998 232.0 97.9999999998 202.0 97.9999999998 202.0 67.9999999998 202.0 67.9999999998 202.0 53.9999999998 202.0 53.9999999998 202.0 24.0 -fill {} -outline black -smooth 1 -tags {RoundRect obj utag73}
.c create rectangle 39.0 142.0 219.0 424.0 -tags {Rectangle obj utag75}
.c create rectangle 446.0 142.0 626.999999998 424.0 -tags {Rectangle obj utag79}
.c create rectangle 242.0 142.0 423.0 424.0 -tags {Rectangle obj utag80}
.c create text 61.9999999998 443.666666666 -anchor w -fill #000000 -font {Courier 10 bold} -text {(This is a copy from the Friedman lecture notes on Tcl/Tk)} -tags {text obj utag81}
|
