home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / tut / tk.ppres < prev    next >
Encoding:
Text File  |  1993-02-01  |  71.1 KB  |  1,648 lines
  1. # ppres data_file
  2.  
  3. # This file contains a presentation prepared by
  4. # Perspecta Presents 1.09
  5.  
  6. dictdefine itemlook Drawing -fg Black -lp Solid -bg White -fp Solid -width 1.00 -dash solid -arrow none -feather White -dir 0
  7. dictdefine itemlook Arrows -fg Black -lp Solid -bg White -fp Solid -width 1.00 -dash solid -arrow head -feather White -dir 0
  8. dictdefine itemlook TextBox -fg None -lp Solid -bg None -fp Solid -width 1.00 -dash solid -arrow none -feather Black -dir 0
  9. dictdefine paralook Title -family Times -color Blue -pointsize 36 -bold 1 -italic 0 -underline 0 -left 0.00 -indent 0.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.20 -paraspacetype 1 -justify left -tabs {} -powertext None
  10. dictdefine paralook Text -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 0.00 -indent 0.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.00 -linespacetype 1 -paraspace 1.00 -paraspacetype 1 -justify left -tabs { 36 72 108 144 180 216 252 288 324 360 396} -powertext None
  11. dictdefine paralook Heading -family Times -color Black -pointsize 24 -bold 1 -italic 0 -underline 0 -left 0.00 -indent 0.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 36 72 108 144 180 216 252 288 324 360 396} -powertext None
  12. dictdefine paralook Subheading -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 36.00 -indent 0.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 36 72 108 144 180 216 252 288 324 360 396} -powertext None
  13. dictdefine paralook BHeading -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 18.00 -indent -18.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 18 54 90 126 162 198 234 270 306 342 378} -powertext Bullets
  14. dictdefine paralook BSubheading -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 54.00 -indent -18.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 54 90 126 162 198 234 270 306 342 378} -powertext Bullets
  15. dictdefine paralook I.Heading -family Times -color Black -pointsize 24 -bold 1 -italic 0 -underline 0 -left 36.00 -indent -36.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 36 72 108 144 180 216 252 288 324 360 396} -powertext Roman
  16. dictdefine paralook 1.Heading -family Times -color Black -pointsize 24 -bold 1 -italic 0 -underline 0 -left 36.00 -indent -36.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 36 72 108 144 180 216 252 288 324 360 396} -powertext Numbers
  17. dictdefine paralook A.Subheading -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 63.00 -indent -27.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 72 108 144 180 216 252 288 324 360 396} -powertext Letters
  18. dictdefine paralook 1.Subheading -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 90.00 -indent -27.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 108 144 180 216 252 288 324 360 396} -powertext Numbers
  19. dictdefine paralook (a)Subheading -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 126.00 -indent -36.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 144 180 216 252 288 324 360 396} -powertext Letters(lc)
  20. dictdefine paralook i.Subheading -family Times -color Black -pointsize 24 -bold 0 -italic 0 -underline 0 -left 162.00 -indent -36.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.20 -linespacetype 1 -paraspace 1.50 -paraspacetype 1 -justify left -tabs { 180 216 252 288 324 360 396} -powertext Roman(lc)
  21. dictdefine paralook Code -family Courier -color Green -pointsize 24 -bold 1 -italic 0 -underline 0 -left 36.00 -indent 0.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.00 -linespacetype 1 -paraspace 1.00 -paraspacetype 1 -justify left -tabs { 36 72 108 144 180 216 252 288 324 360 396} -powertext None
  22. dictdefine color Black #000000
  23. dictdefine color White #ffffff
  24. dictdefine color Red #ff0000
  25. dictdefine color Orange #ffa500
  26. dictdefine color Yellow #ffff00
  27. dictdefine color Green #00ff00
  28. dictdefine color Blue #00beff
  29. dictdefine color Purple #ca00e1
  30. dictdefine color Grey #c0c0c0
  31. dictdefine color LightBlue #b9f5ff
  32. dictdefine color Pink #ffb4b4
  33. talk itemconfig  -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00 -arrow head -feather White -dir 90
  34. talk textconfig  -look TextBox
  35. talk paraconfig  -look Text
  36. set talk(textUnits) i
  37. set talk(featherSwatches) 16
  38. set talk(noteOrientation) v
  39. set talk(backgOrientation) v
  40. set talk(featherPrint) 1
  41. set talk(gridGridi) 8
  42. set talk(windowZoom) 1
  43. set talk(pointsize) {8 10 12 14 18 20 22 24 36}
  44. set talk(grid) 9
  45. set talk(textGridc) 5
  46. set talk(pagesize) {612 792}
  47. set talk(gridUnits) i
  48. set talk(textGridi) 8
  49. set talk(featherBlend) color
  50. set talk(spacing) {0.00 0.50 1.00 1.2 1.50 1.75 2.00 2.5 3.00 4.0}
  51. set talk(featherDisplay) 1
  52. set talk(printLevel) 2
  53. set talk(customUnits) i
  54. set talk(gridGridc) 5
  55. view active 1backg
  56. orientation - v
  57. set ti [new - title "54 95 558 140.956" -look TextBox];
  58. tiformat $ti 0 0 0 1 -revert 1;
  59. insert $ti shift -revert 1;
  60. tlconfig $ti cursor  -look Title -justify center;
  61. insert $ti shift -revert 1;
  62. insert $ti shift -color Blue;
  63. insert $ti shift -string "Title"  -color Blue;
  64. tiformat $ti 0 5 0 6 -color Blue;
  65. set ti;
  66.  
  67. view active 2backg
  68. orientation - v
  69. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  70. tiformat $ti 0 0 0 1 -revert 1;
  71. insert $ti shift -revert 1;
  72. tlconfig $ti cursor  -look Title;
  73. insert $ti shift -revert 1;
  74. insert $ti shift -string "Title" ;
  75. set ti;
  76. new - rectangle "27 108 585 114.75" -look Drawing -fg None -bg Blue -fp Blend -width 0.50 -feather White -dir 90
  77. set ti [new - textitem "387 702 585 718.004" -look TextBox];
  78. tiformat $ti 0 0 0 1 -revert 1;
  79. insert $ti shift -revert 1;
  80. tlconfig $ti cursor  -look Text -justify right;
  81. insert $ti shift -revert 1;
  82. insert $ti shift -family Helvetica -pointsize 12;
  83. insert $ti shift -string "Scripting Tk, slide "  -family Helvetica -pointsize 12;
  84. set id [PowerCreate 1 $ti cursor {Page Number} Numbers { -family Helvetica -pointsize 12} -1 { 11 }];
  85. insert $ti shift -string "."  -family Helvetica -pointsize 12;
  86. tiformat $ti 0 25 0 26 -pointsize 12;
  87. set ti;
  88.  
  89. view active 3backg
  90. orientation - v
  91. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  92. tiformat $ti 0 0 0 1 -revert 1;
  93. insert $ti shift -revert 1;
  94. tlconfig $ti cursor  -look Title;
  95. insert $ti shift -revert 1;
  96. insert $ti shift -string "Title" ;
  97. set ti;
  98. new - rectangle "27 108 585 114.75" -look Drawing -fg None -bg Blue -fp Blend -width 0.50 -feather White -dir 90
  99. set ti [new - textitem "387 702 585 717.428" -look TextBox];
  100. tiformat $ti 0 0 0 1 -revert 1;
  101. insert $ti shift -revert 1;
  102. tlconfig $ti cursor  -look Text;
  103. insert $ti shift -revert 1;
  104. insert $ti shift -pointsize 12;
  105. insert $ti shift -string "WRL update talk, 10/27/92, slide "  -pointsize 12;
  106. set id [PowerCreate 1 $ti cursor {Page Number} Numbers { -pointsize 12} -1 { 3 }];
  107. insert $ti shift -string "."  -pointsize 12;
  108. tiformat $ti 0 37 0 38 -pointsize 12;
  109. set ti;
  110.  
  111. view active 4backg
  112. orientation - v
  113. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  114. tiformat $ti 0 0 0 1 -revert 1;
  115. insert $ti shift -revert 1;
  116. tlconfig $ti cursor  -look Title;
  117. insert $ti shift -revert 1;
  118. insert $ti shift -string "Title" ;
  119. set ti;
  120. new - rectangle "27 108 585 114.75" -look Drawing -fg None -bg Blue -fp Blend -width 0.50 -feather White -dir 90
  121. set ti [new - textitem "387 702 585 730.856" -look TextBox];
  122. tiformat $ti 0 0 0 1 -revert 1;
  123. insert $ti shift -revert 1;
  124. tlconfig $ti cursor  -look Text -justify right;
  125. insert $ti shift -revert 1;
  126. insert $ti shift -family Helvetica -pointsize 12;
  127. insert $ti shift -string "Scripting Tk, slide ."  -family Helvetica -pointsize 12;
  128. set id [PowerCreate 1 $ti cursor {Page Number} Numbers { -family Helvetica -pointsize 12} -1 { 6 }];
  129. set ti;
  130.  
  131. view active 5backg
  132. orientation - v
  133. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  134. tiformat $ti 0 0 0 1 -revert 1;
  135. insert $ti shift -revert 1;
  136. tlconfig $ti cursor  -look Title;
  137. insert $ti shift -revert 1;
  138. insert $ti shift -string "Title" ;
  139. set ti;
  140. new - rectangle "27 108 585 114.75" -look Drawing -fg None -bg Blue -fp Blend -width 0.50 -feather White -dir 90
  141. set ti [new - textitem "387 684 585 712.856" -look TextBox];
  142. tiformat $ti 0 0 0 1 -revert 1;
  143. insert $ti shift -revert 1;
  144. tlconfig $ti cursor  -look Text -justify right;
  145. insert $ti shift -revert 1;
  146. insert $ti shift -family Helvetica -pointsize 12;
  147. insert $ti shift -string "Scripting Tk, slide "  -family Helvetica -pointsize 12;
  148. set id [PowerCreate 1 $ti cursor {Page Number} Numbers { -family Helvetica -pointsize 12} -1 { 14 }];
  149. set ti;
  150.  
  151. view active 1slide
  152. backg - 1
  153. set ti [new - title "27 140 585 241.0288" -look TextBox];
  154. tiformat $ti 0 0 0 1 -revert 1;
  155. insert $ti shift -revert 1;
  156. tlconfig $ti cursor  -look Title -justify center;
  157. insert $ti shift -revert 1;
  158. insert $ti shift -string "Building User Interfaces" ;
  159. insertPara $ti shift ;
  160. insert $ti shift -string "With Tcl and Tk" ;
  161. set ti;
  162. set ti [new - textitem "27 423 585 636.824" -look TextBox];
  163. tiformat $ti 0 0 0 1 -revert 1;
  164. insert $ti shift -revert 1;
  165. tlconfig $ti cursor  -look Heading -paraspace 1.00 -justify center;
  166. insert $ti shift -revert 1;
  167. insert $ti shift -color Red -bold 0 -italic 0 -underline 0;
  168. insert $ti shift -string "John Ousterhout"  -color Red -bold 0 -italic 0 -underline 0;
  169. insertPara $ti shift ;
  170. insertPara $ti shift  -color -1;
  171. insertPara $ti shift ;
  172. insert $ti shift -string "Computer Science Division"  -bold 0 -italic 0 -underline 0;
  173. insertPara $ti shift ;
  174. insert $ti shift -string "Department of EECS"  -bold 0 -italic 0 -underline 0;
  175. insertPara $ti shift ;
  176. insertPara $ti shift ;
  177. insert $ti shift -string "University of California at Berkeley"  -bold 0 -italic 0 -underline 0;
  178. tiformat $ti 6 36 6 37 -bold 0 -italic 0 -underline 0;
  179. set ti;
  180. set ti [new - textitem "81 270 126 301.304" -look TextBox];
  181. tiformat $ti 0 0 0 1 -revert 1;
  182. insert $ti shift -revert 1;
  183. tlconfig $ti cursor  -look Heading;
  184. insert $ti shift -revert 1;
  185. set ti;
  186.  
  187. view active 1note
  188. orientation - v
  189. icon - 100.45455 40 0.67171717
  190.  
  191. view active 2slide
  192. backg - 2
  193. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  194. tiformat $ti 0 0 0 1 -revert 1;
  195. insert $ti shift -revert 1;
  196. tlconfig $ti cursor  -look Title;
  197. insert $ti shift -revert 1;
  198. insert $ti shift -string "Outline" ;
  199. set ti;
  200. set ti [new - textitem "45 153 585 602.95328" -look TextBox];
  201. tiformat $ti 0 0 0 1 -revert 1;
  202. insert $ti shift -revert 1;
  203. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 3.00;
  204. insert $ti shift -revert 1;
  205. insert $ti shift -string "Basic structures: windows, widgets, processes." ;
  206. insertPara $ti shift ;
  207. tlconfig $ti cursor -plook { -color Red};
  208. insert $ti shift -string "Widget creation commands." ;
  209. insertPara $ti shift ;
  210. tlconfig $ti cursor -plook { -color Red};
  211. insert $ti shift -string "Geometry management: the placer and the packer." ;
  212. insertPara $ti shift ;
  213. tlconfig $ti cursor -plook { -color Red};
  214. insert $ti shift -string "Widget commands." ;
  215. insertPara $ti shift ;
  216. tlconfig $ti cursor -plook { -color Red} -linespace 1.20;
  217. insert $ti shift -string "Connection commands: bindings, send, focus, selection, window manager, grabs." ;
  218. insertPara $ti shift ;
  219. tlconfig $ti cursor -plook { -color Red};
  220. insert $ti shift -string "2 examples: dialog box, browser." ;
  221. set ti;
  222.  
  223. view active 3slide
  224. backg - 2
  225. set ti [new - textitem "45 144 585 638.684" -look TextBox];
  226. tiformat $ti 0 0 0 1 -revert 1;
  227. insert $ti shift -revert 1;
  228. tlconfig $ti cursor -plook { -color Red} -look 1.Heading -paraspace 2.00;
  229. insert $ti shift -revert 1;
  230. insert $ti shift -string "Widget hierarchy." ;
  231. insertPara $ti shift ;
  232. tlconfig $ti cursor -plook { -color Red};
  233. insert $ti shift -string "One Tcl interpreter." ;
  234. insertPara $ti shift ;
  235. tlconfig $ti cursor -plook { -color Red};
  236. insert $ti shift -string "One process." ;
  237. insertPara $ti shift ;
  238. tlconfig $ti cursor  -look Subheading -paraspace 1.20;
  239. insert $ti shift -string "(Can have > 1 application in a process)" ;
  240. insertPara $ti shift ;
  241. tlconfig $ti cursor  -look Heading -paraspace 2.50;
  242. insert $ti shift -string "Widget = window with particular look and feel." ;
  243. insertPara $ti shift ;
  244. insert $ti shift -string "Widget classes  implemented by Tk:" ;
  245. insertPara $ti shift ;
  246. tlconfig $ti cursor  -look Subheading -left 36.00 -indent 0.00 -tabs { 216 396};
  247. insert $ti shift -string "Frames    Menubuttons    Canvases" ;
  248. insertPara $ti shift ;
  249. tlconfig $ti cursor  -paraspace 1.20;
  250. insert $ti shift -string "Labels    Menus    Scrollbars" ;
  251. insertPara $ti shift ;
  252. tlconfig $ti cursor ;
  253. insert $ti shift -string "Buttons    Messages    Scales" ;
  254. insertPara $ti shift ;
  255. tlconfig $ti cursor ;
  256. insert $ti shift -string "Checkbuttons    Entries    Listboxes" ;
  257. insertPara $ti shift ;
  258. tlconfig $ti cursor ;
  259. insert $ti shift -string "Radiobuttons    Texts    Toplevels" ;
  260. set ti;
  261. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  262. tiformat $ti 0 0 0 1 -revert 1;
  263. insert $ti shift -revert 1;
  264. tlconfig $ti cursor  -look Title;
  265. insert $ti shift -revert 1;
  266. insert $ti shift -string "Structure of a Tk Application" ;
  267. set ti;
  268.  
  269. view active 4slide
  270. backg - 2
  271. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  272. tiformat $ti 0 0 0 1 -revert 1;
  273. insert $ti shift -revert 1;
  274. tlconfig $ti cursor  -look Title;
  275. insert $ti shift -revert 1;
  276. insert $ti shift -string "The Widget Hierarchy" ;
  277. set ti;
  278. Image - image "45 135 217 339" eps/tk1 eps ref
  279. new - line "432 171.15 342 225.15" -look Drawing -fg Black -width 1.00 -arrow none;
  280. new - line "432 171.15 432 225.15" -look Drawing -fg Black -width 1.00 -arrow none;
  281. new - line "432 171.15 522 225.15" -look Drawing -fg Black -width 1.00 -arrow none;
  282. new - line "432 252.15 360 306.15" -look Drawing -fg Black -width 1.00 -arrow none;
  283. new - line "432 252.15 504 306.15" -look Drawing -fg Black -width 1.00 -arrow none;
  284. set ti [new - textitem "423 144.15 441 167.85" -look TextBox];
  285. tiformat $ti 0 0 0 1 -revert 1;
  286. insert $ti shift -revert 1;
  287. tlconfig $ti cursor  -look Text -justify center;
  288. insert $ti shift -revert 1;
  289. insert $ti shift -family Courier -pointsize 20;
  290. insert $ti shift -string "."  -family Courier -pointsize 20;
  291. tiformat $ti 0 1 0 2 -family Courier -pointsize 20;
  292. set ti;;
  293. set ti [new - textitem "288 225.15 396 248.85" -look TextBox];
  294. tiformat $ti 0 0 0 1 -revert 1;
  295. insert $ti shift -revert 1;
  296. tlconfig $ti cursor  -look Text;
  297. insert $ti shift -revert 1;
  298. insert $ti shift -family Courier -pointsize 20;
  299. insert $ti shift -string ".listbox"  -family Courier -pointsize 20;
  300. tiformat $ti 0 8 0 9 -family Courier -pointsize 20;
  301. set ti;;
  302. set ti [new - textitem "396 225.15 468 248.85" -look TextBox];
  303. tiformat $ti 0 0 0 1 -revert 1;
  304. insert $ti shift -revert 1;
  305. tlconfig $ti cursor  -look Text -justify center;
  306. insert $ti shift -revert 1;
  307. insert $ti shift -family Courier -pointsize 20;
  308. insert $ti shift -string ".menu"  -family Courier -pointsize 20;
  309. tiformat $ti 0 5 0 6 -family Courier -pointsize 20;
  310. set ti;;
  311. set ti [new - textitem "477 225.15 567 248.85" -look TextBox];
  312. tiformat $ti 0 0 0 1 -revert 1;
  313. insert $ti shift -revert 1;
  314. tlconfig $ti cursor  -look Text -justify center;
  315. insert $ti shift -revert 1;
  316. insert $ti shift -family Courier -pointsize 20;
  317. insert $ti shift -string ".scroll"  -family Courier -pointsize 20;
  318. tiformat $ti 0 7 0 8 -family Courier -pointsize 20;
  319. set ti;;
  320. set ti [new - textitem "297 306.15 423 329.85" -look TextBox];
  321. tiformat $ti 0 0 0 1 -revert 1;
  322. insert $ti shift -revert 1;
  323. tlconfig $ti cursor  -look Text -justify center;
  324. insert $ti shift -revert 1;
  325. insert $ti shift -family Courier -pointsize 20;
  326. insert $ti shift -string ".menu.file"  -family Courier -pointsize 20;
  327. tiformat $ti 0 10 0 11 -family Courier -pointsize 20;
  328. set ti;;
  329. set ti [new - textitem "441 306.15 567 329.85" -look TextBox];
  330. tiformat $ti 0 0 0 1 -revert 1;
  331. insert $ti shift -revert 1;
  332. tlconfig $ti cursor  -look Text -justify center;
  333. insert $ti shift -revert 1;
  334. insert $ti shift -family Courier -pointsize 20;
  335. insert $ti shift -string ".menu.help"  -family Courier -pointsize 20;
  336. tiformat $ti 0 10 0 11 -family Courier -pointsize 20;
  337. set ti;;
  338. group - 11
  339. Image - image "279 468 451 672" eps/tk2a eps ref
  340. Image - image "281 405 449 431" eps/tk2b eps ref
  341. Image - image "486 513 501 687" eps/tk2c eps ref
  342. Image - image "90 513 243 687" eps/tk2d eps ref
  343. Image - image "225 369 253 391" eps/tk2e eps ref
  344. Image - image "477 369 511 391" eps/tk2f eps ref
  345. new - line "365 477 365 423" -look Drawing -fg Red -width 1.00 -arrow head
  346. new - line "297 418 243 382" -look Drawing -fg Red -width 1.00 -arrow head
  347. new - line "436.16025 418 490.16025 382" -look Drawing -fg Red -width 1.00 -arrow head
  348. new - line "441 583.58114 495 601.58114" -look Drawing -fg Red -width 1.00 -arrow head
  349. new - line "365 582.47405 176 600.47405" -look Drawing -fg Red -width 1.00 -arrow head
  350.  
  351. view active 5slide
  352. backg - 2
  353. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  354. tiformat $ti 0 0 0 1 -revert 1;
  355. insert $ti shift -revert 1;
  356. tlconfig $ti cursor  -look Title;
  357. insert $ti shift -revert 1;
  358. insert $ti shift -string "Types of Windows" ;
  359. set ti;
  360. Image - image "89.5 135 261.5 339" eps/tk1 eps ref;
  361. Image - image "332.5 135 522.5 271" eps/tk3 eps ref;
  362. group - 2
  363. new - line "171 450.15 81 504.15" -look Drawing -fg Black -width 1.00 -arrow none
  364. new - line "171 450.15 171 504.15" -look Drawing -fg Black -width 1.00 -arrow none
  365. new - line "171 450.15 261 504.15" -look Drawing -fg Black -width 1.00 -arrow none
  366. new - line "171 531.15 99 585.15" -look Drawing -fg Black -width 1.00 -arrow none
  367. new - line "171 531.15 243 585.15" -look Drawing -fg Black -width 1.00 -arrow none
  368. set ti [new - textitem "162 423.15 180 446.85" -look TextBox];
  369. tiformat $ti 0 0 0 1 -revert 1;
  370. insert $ti shift -revert 1;
  371. tlconfig $ti cursor  -look Text -justify center;
  372. insert $ti shift -revert 1;
  373. insert $ti shift -family Courier -pointsize 20;
  374. insert $ti shift -string "."  -family Courier -pointsize 20;
  375. tiformat $ti 0 1 0 2 -family Courier -pointsize 20;
  376. set ti;
  377. set ti [new - textitem "27 504.15 135 527.85" -look TextBox];
  378. tiformat $ti 0 0 0 1 -revert 1;
  379. insert $ti shift -revert 1;
  380. tlconfig $ti cursor  -look Text;
  381. insert $ti shift -revert 1;
  382. insert $ti shift -family Courier -pointsize 20;
  383. insert $ti shift -string ".listbox"  -family Courier -pointsize 20;
  384. tiformat $ti 0 8 0 9 -family Courier -pointsize 20;
  385. set ti;
  386. set ti [new - textitem "135 504.15 207 527.85" -look TextBox];
  387. tiformat $ti 0 0 0 1 -revert 1;
  388. insert $ti shift -revert 1;
  389. tlconfig $ti cursor  -look Text -justify center;
  390. insert $ti shift -revert 1;
  391. insert $ti shift -family Courier -pointsize 20;
  392. insert $ti shift -string ".menu"  -family Courier -pointsize 20;
  393. tiformat $ti 0 5 0 6 -family Courier -pointsize 20;
  394. set ti;
  395. set ti [new - textitem "216 504.15 306 527.85" -look TextBox];
  396. tiformat $ti 0 0 0 1 -revert 1;
  397. insert $ti shift -revert 1;
  398. tlconfig $ti cursor  -look Text -justify center;
  399. insert $ti shift -revert 1;
  400. insert $ti shift -family Courier -pointsize 20;
  401. insert $ti shift -string ".scroll"  -family Courier -pointsize 20;
  402. tiformat $ti 0 7 0 8 -family Courier -pointsize 20;
  403. set ti;
  404. set ti [new - textitem "36 585.15 162 608.85" -look TextBox];
  405. tiformat $ti 0 0 0 1 -revert 1;
  406. insert $ti shift -revert 1;
  407. tlconfig $ti cursor  -look Text -justify center;
  408. insert $ti shift -revert 1;
  409. insert $ti shift -family Courier -pointsize 20;
  410. insert $ti shift -string ".menu.file"  -family Courier -pointsize 20;
  411. tiformat $ti 0 10 0 11 -family Courier -pointsize 20;
  412. set ti;
  413. set ti [new - textitem "180 585.15 306 608.85" -look TextBox];
  414. tiformat $ti 0 0 0 1 -revert 1;
  415. insert $ti shift -revert 1;
  416. tlconfig $ti cursor  -look Text -justify center;
  417. insert $ti shift -revert 1;
  418. insert $ti shift -family Courier -pointsize 20;
  419. insert $ti shift -string ".menu.help"  -family Courier -pointsize 20;
  420. tiformat $ti 0 10 0 11 -family Courier -pointsize 20;
  421. set ti;
  422. new - line "171 450 459 504" -look Drawing -fg Black -width 1.00 -arrow none
  423. set ti [new - textitem "414 504.15 504 527.85" -look TextBox];
  424. tiformat $ti 0 0 0 1 -revert 1;
  425. insert $ti shift -revert 1;
  426. tlconfig $ti cursor  -look Text -justify center;
  427. insert $ti shift -revert 1;
  428. insert $ti shift -family Courier -pointsize 20;
  429. insert $ti shift -string ".dlg"  -family Courier -pointsize 20;
  430. tiformat $ti 0 4 0 5 -family Courier -pointsize 20;
  431. set ti;
  432. new - line "459 531 459 612" -look Drawing -fg Black -width 1.00 -arrow none
  433. new - line "459 531 369 585" -look Drawing -fg Black -width 1.00 -arrow none
  434. new - line "459 531 540 585" -look Drawing -fg Black -width 1.00 -arrow none
  435. set ti [new - textitem "306 585.15 432 608.85" -look TextBox];
  436. tiformat $ti 0 0 0 1 -revert 1;
  437. insert $ti shift -revert 1;
  438. tlconfig $ti cursor  -look Text -justify center;
  439. insert $ti shift -revert 1;
  440. insert $ti shift -family Courier -pointsize 20;
  441. insert $ti shift -string ".dlg.msg"  -family Courier -pointsize 20;
  442. tiformat $ti 0 8 0 9 -family Courier -pointsize 20;
  443. set ti;
  444. set ti [new - textitem "396 612.15 522 635.85" -look TextBox];
  445. tiformat $ti 0 0 0 1 -revert 1;
  446. insert $ti shift -revert 1;
  447. tlconfig $ti cursor  -look Text -justify center;
  448. insert $ti shift -revert 1;
  449. insert $ti shift -family Courier -pointsize 20;
  450. insert $ti shift -string ".dlg.yes"  -family Courier -pointsize 20;
  451. tiformat $ti 0 8 0 9 -family Courier -pointsize 20;
  452. set ti;
  453. set ti [new - textitem "495 585.15 585 608.85" -look TextBox];
  454. tiformat $ti 0 0 0 1 -revert 1;
  455. insert $ti shift -revert 1;
  456. tlconfig $ti cursor  -look Text -justify center;
  457. insert $ti shift -revert 1;
  458. insert $ti shift -family Courier -pointsize 20;
  459. insert $ti shift -string ".dlg.no"  -family Courier -pointsize 20;
  460. tiformat $ti 0 7 0 8 -family Courier -pointsize 20;
  461. set ti;
  462. set ti [new - textitem "99 369 243 397.856" -look TextBox];
  463. tiformat $ti 0 0 0 1 -revert 1;
  464. insert $ti shift -revert 1;
  465. tlconfig $ti cursor  -look Text -justify center;
  466. insert $ti shift -revert 1;
  467. insert $ti shift -color Red;
  468. insert $ti shift -string "Main window"  -color Red;
  469. tiformat $ti 0 11 0 12 -color Red;
  470. set ti;
  471. set ti [new - textitem "369 414 549 442.856" -look TextBox];
  472. tiformat $ti 0 0 0 1 -revert 1;
  473. insert $ti shift -revert 1;
  474. tlconfig $ti cursor  -look Text -justify center;
  475. insert $ti shift -revert 1;
  476. insert $ti shift -color Red;
  477. insert $ti shift -string "Top-level window"  -color Red;
  478. tiformat $ti 0 16 0 17 -color Red;
  479. set ti;
  480. set ti [new - textitem "63 657 243 685.856" -look TextBox];
  481. tiformat $ti 0 0 0 1 -revert 1;
  482. insert $ti shift -revert 1;
  483. tlconfig $ti cursor  -look Text -justify center;
  484. insert $ti shift -revert 1;
  485. insert $ti shift -color Red;
  486. insert $ti shift -string "Internal windows"  -color Red;
  487. tiformat $ti 0 16 0 17 -color Red;
  488. set ti;
  489. new - line "459 441 459 495" -look Drawing -fg Red -width 1.00 -arrow head
  490. new - line "171 396 171 423" -look Drawing -fg Red -width 1.00 -arrow head
  491. new - line "243 666 351 639" -look Drawing -fg Red -width 1.00 -arrow head
  492. new - line "198 657 207 621" -look Drawing -fg Red -width 1.00 -arrow head
  493. new - line "117 657 108 621" -look Drawing -fg Red -width 1.00 -arrow head
  494.  
  495. view active 6slide
  496. backg - 2
  497. set ti [new - textitem "45 171 585 415.74288" -look TextBox];
  498. tiformat $ti 0 0 0 1 -revert 1;
  499. insert $ti shift -revert 1;
  500. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  501. insert $ti shift -revert 1;
  502. insert $ti shift -string "Each widget has a " ;
  503. insert $ti shift -color Red;
  504. insert $ti shift -string "class"  -color Red;
  505. insert $ti shift -color -1;
  506. insert $ti shift -string ": button, listbox, scrollbar, etc." ;
  507. insertPara $ti shift ;
  508. tlconfig $ti cursor -plook { -color Red} -paraspace 4.00;
  509. insert $ti shift -string "One Tcl command named after each class, used to create instances:" ;
  510. insertPara $ti shift ;
  511. tlconfig $ti cursor  -look Code -paraspace 2.00;
  512. insert $ti shift -pointsize 22;
  513. insert $ti shift -string "button .a.b -text Quit -command exit"  -pointsize 22;
  514. insertPara $ti shift ;
  515. tlconfig $ti cursor  -paraspace -1;
  516. insert $ti shift -string "scrollbar .x -orient horizontal"  -pointsize 22;
  517. tiformat $ti 3 31 3 32 -pointsize 22;
  518. set ti;
  519. new - line "135 477 135 441" -look Drawing -fg Red -width 1.00 -arrow head
  520. new - line "216 540 216 441" -look Drawing -fg Red -width 1.00 -arrow head
  521. new - line "414 504 351 504 351 441" -look Drawing -fg Red -width 1.00 -arrow head
  522. set ti [new - textitem "81 486 189 514.856" -look TextBox];
  523. tiformat $ti 0 0 0 1 -revert 1;
  524. insert $ti shift -revert 1;
  525. tlconfig $ti cursor  -look Text -justify center;
  526. insert $ti shift -revert 1;
  527. insert $ti shift -color Red;
  528. insert $ti shift -string "class name"  -color Red;
  529. tiformat $ti 0 10 0 11 -color Red;
  530. set ti;
  531. set ti [new - textitem "144 549 288 577.856" -look TextBox];
  532. tiformat $ti 0 0 0 1 -revert 1;
  533. insert $ti shift -revert 1;
  534. tlconfig $ti cursor  -look Text -justify center;
  535. insert $ti shift -revert 1;
  536. insert $ti shift -color Red;
  537. insert $ti shift -string "window name"  -color Red;
  538. tiformat $ti 0 11 0 12 -color Red;
  539. set ti;
  540. set ti [new - textitem "432 477.7448 567 530.2552" -look TextBox];
  541. tiformat $ti 0 0 0 1 -revert 1;
  542. insert $ti shift -revert 1;
  543. tlconfig $ti cursor  -look Text;
  544. insert $ti shift -revert 1;
  545. insert $ti shift -color Red;
  546. insert $ti shift -string "configuration options"  -color Red;
  547. tiformat $ti 0 21 0 22 -color Red;
  548. set ti;
  549. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  550. tiformat $ti 0 0 0 1 -revert 1;
  551. insert $ti shift -revert 1;
  552. tlconfig $ti cursor  -look Title;
  553. insert $ti shift -revert 1;
  554. insert $ti shift -string "Creating Widgets" ;
  555. set ti;
  556.  
  557. view active 7slide
  558. backg - 2
  559. set ti [new - textitem "45 135 603 697.67264" -look TextBox];
  560. tiformat $ti 0 0 0 1 -revert 1;
  561. insert $ti shift -revert 1;
  562. tlconfig $ti cursor  -look BHeading;
  563. insert $ti shift -revert 1;
  564. insert $ti shift -string "Defined by class.  For buttons:" ;
  565. insertPara $ti shift ;
  566. tlconfig $ti cursor  -look Code -left 18.00 -indent 0.00 -linespace 0.50 -paraspace 1.50 -tabs { 216 423};
  567. insert $ti shift -color Black -pointsize 18;
  568. insert $ti shift -string "activeBackground    cursor    relief"  -color Black -pointsize 18;
  569. insertPara $ti shift ;
  570. tlconfig $ti cursor  -paraspace 1.00;
  571. insert $ti shift -string "activeForeground    disabledForeground        state"  -color Black -pointsize 18;
  572. insertPara $ti shift ;
  573. tlconfig $ti cursor ;
  574. insert $ti shift -string "anchor    font    text"  -color Black -pointsize 18;
  575. insertPara $ti shift ;
  576. tlconfig $ti cursor ;
  577. insert $ti shift -string "background    foreground    textVari"  -color Black -pointsize 18;
  578. insertPara $ti shift ;
  579. tlconfig $ti cursor ;
  580. insert $ti shift -string "bitmap    height    width"  -color Black -pointsize 18;
  581. insertPara $ti shift ;
  582. tlconfig $ti cursor ;
  583. insert $ti shift -string "borderWidth    padx"  -color Black -pointsize 18;
  584. insertPara $ti shift ;
  585. tlconfig $ti cursor ;
  586. insert $ti shift -string "command    pady"  -color Black -pointsize 18;
  587. insertPara $ti shift ;
  588. tlconfig $ti cursor  -look BHeading -paraspace 2.00;
  589. insert $ti shift -string "If not specified on command line, then taken from " ;
  590. insert $ti shift -color Red;
  591. insert $ti shift -string "option database"  -color Red;
  592. insert $ti shift -color -1;
  593. insert $ti shift -string ":" ;
  594. insertPara $ti shift ;
  595. tlconfig $ti cursor  -look Subheading -left 54.00 -indent -18.00 -tabs { 36 72 108 144 180 216 252 288 324 360 396};
  596. insert $ti shift -string "-    Loaded from " ;
  597. insert $ti shift -family Courier;
  598. insert $ti shift -string "RESOURCE_MANAGER"  -family Courier;
  599. insert $ti shift -family -1;
  600. insert $ti shift -string " property or " ;
  601. insert $ti shift -family Courier;
  602. insert $ti shift -string ".Xdefaults"  -family Courier;
  603. insert $ti shift -family -1;
  604. insert $ti shift -string " file." ;
  605. insertPara $ti shift ;
  606. tlconfig $ti cursor ;
  607. insert $ti shift -string "-    May be set, queried with Tcl commands:" ;
  608. insertPara $ti shift ;
  609. tlconfig $ti cursor  -look Code -paraspace 1.50;
  610. insert $ti shift -string "        option add *Button.relief sunken" ;
  611. insertPara $ti shift ;
  612. tlconfig $ti cursor  -look BHeading -paraspace 2.00;
  613. insert $ti shift -string "If not in option database, use default provided by class implementation (" ;
  614. insert $ti shift -color Red;
  615. insert $ti shift -string "defaults are reasonable!"  -color Red;
  616. insert $ti shift -color -1;
  617. insert $ti shift -string ")." ;
  618. set ti;
  619. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  620. tiformat $ti 0 0 0 1 -revert 1;
  621. insert $ti shift -revert 1;
  622. tlconfig $ti cursor  -look Title;
  623. insert $ti shift -revert 1;
  624. insert $ti shift -string "Configuration Options" ;
  625. set ti;
  626.  
  627. view active 8slide
  628. backg - 2
  629. set ti [new - textitem "45 135 585 357.06944" -look TextBox];
  630. tiformat $ti 0 0 0 1 -revert 1;
  631. insert $ti shift -revert 1;
  632. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  633. insert $ti shift -revert 1;
  634. insert $ti shift -string "Widgets don't control their own positions and sizes\;  " ;
  635. insert $ti shift -color Red;
  636. insert $ti shift -string "geometry managers"  -color Red;
  637. insert $ti shift -color -1;
  638. insert $ti shift -string " do." ;
  639. insertPara $ti shift ;
  640. tlconfig $ti cursor -plook { -color Red} -paraspace 2.00;
  641. insert $ti shift -string "Widgets don't even appear on screen until managed by a geometry manager." ;
  642. insertPara $ti shift ;
  643. tlconfig $ti cursor -plook { -color Red};
  644. insert $ti shift -string "Geometry manager = algorithm for arranging " ;
  645. insert $ti shift -color Red;
  646. insert $ti shift -string "slave"  -color Red;
  647. insert $ti shift -color -1;
  648. insert $ti shift -string " windows relative to " ;
  649. insert $ti shift -color Red;
  650. insert $ti shift -string "master"  -color Red;
  651. insert $ti shift -color -1;
  652. insert $ti shift -string " window." ;
  653. set ti;
  654. set ti [new - textitem "45 405 189 451.33" -look TextBox];
  655. tiformat $ti 0 0 0 1 -revert 1;
  656. insert $ti shift -revert 1;
  657. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00 -justify center;
  658. insert $ti shift -revert 1;
  659. insert $ti shift -color Red -pointsize 22;
  660. insert $ti shift -string "Requested size from slave"  -color Red -pointsize 22;
  661. tiformat $ti 0 25 0 26 -color Red -pointsize 22;
  662. set ti;
  663. set ti [new - textitem "225 405 405 451.33" -look TextBox];
  664. tiformat $ti 0 0 0 1 -revert 1;
  665. insert $ti shift -revert 1;
  666. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00 -justify center;
  667. insert $ti shift -revert 1;
  668. insert $ti shift -color Blue -pointsize 22;
  669. insert $ti shift -string "Parameters from application designer"  -color Blue -pointsize 22;
  670. tiformat $ti 0 36 0 37 -color Blue -pointsize 22;
  671. set ti;
  672. set ti [new - textitem "459 369 594 395.618" -look TextBox];
  673. tiformat $ti 0 0 0 1 -revert 1;
  674. insert $ti shift -revert 1;
  675. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00 -justify center;
  676. insert $ti shift -revert 1;
  677. tiformat $ti 0 0 0 1 -pointsize 22;
  678. set ti;
  679. set ti [new - textitem "263.25 503.5208 366.75 558.4792" -look TextBox -bg None];
  680. tiformat $ti 0 0 0 1 -revert 1;
  681. insert $ti shift -revert 1;
  682. tlconfig $ti cursor  -look Text -justify center;
  683. insert $ti shift -revert 1;
  684. insert $ti shift -bold 1;
  685. insert $ti shift -string "Geometry Manager"  -bold 1;
  686. set ti;
  687. new - arc "342 495 378 531 0 5760" -look Drawing -fg Black -bg None -width 1.00;
  688. new - arc "252 495 288 531 5760 5760" -look Drawing -fg Black -bg None -width 1.00;
  689. new - arc "252 531 288 567 11520 5760" -look Drawing -fg Black -bg None -width 1.00;
  690. new - arc "342 531 378 567 17280 5760" -look Drawing -fg Black -bg None -width 1.00;
  691. new - line "270 495 360 495" -look Drawing -fg Black -width 1.00 -arrow none;
  692. new - line "270 567 360 567" -look Drawing -fg Black -width 1.00 -arrow none;
  693. new - line "252 513 252 549" -look Drawing -fg Black -width 1.00 -arrow none;
  694. new - line "378 513 378 549" -look Drawing -fg Black -width 1.00 -arrow none;
  695. group - 8
  696. new - line "315 450 315 486" -look Drawing -fg Blue -width 1.00 -arrow head
  697. new - line "513 450 513 486 387 513" -look Drawing -fg Green -width 1.00 -arrow head
  698. new - line "117 450 117 486 243 513" -look Drawing -fg Red -width 1.00 -arrow head
  699. set ti [new - textitem "441 405 585 451.33" -look TextBox];
  700. tiformat $ti 0 0 0 1 -revert 1;
  701. insert $ti shift -revert 1;
  702. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00 -justify center;
  703. insert $ti shift -revert 1;
  704. insert $ti shift -color Green -pointsize 22;
  705. insert $ti shift -string "Geometry of master"  -color Green -pointsize 22;
  706. tiformat $ti 0 18 0 19 -color Green -pointsize 22;
  707. set ti;
  708. new - line "378 567 405 594 405 621" -look Drawing -fg Green -width 1.00 -arrow head
  709. new - line "252 567 225 594 225 621" -look Drawing -fg Red -width 1.00 -arrow head
  710. set ti [new - textitem "144 621 306 667.33" -look TextBox];
  711. tiformat $ti 0 0 0 1 -revert 1;
  712. insert $ti shift -revert 1;
  713. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00 -justify center;
  714. insert $ti shift -revert 1;
  715. insert $ti shift -color Red -pointsize 22;
  716. insert $ti shift -string "Size and location of slave"  -color Red -pointsize 22;
  717. tiformat $ti 0 26 0 27 -color Red -pointsize 22;
  718. set ti;
  719. set ti [new - textitem "333 621 477 667.33" -look TextBox];
  720. tiformat $ti 0 0 0 1 -revert 1;
  721. insert $ti shift -revert 1;
  722. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00 -justify center;
  723. insert $ti shift -revert 1;
  724. insert $ti shift -color Green -pointsize 22;
  725. insert $ti shift -string "Requested size for master"  -color Green -pointsize 22;
  726. tiformat $ti 0 25 0 26 -color Green -pointsize 22;
  727. set ti;
  728. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  729. tiformat $ti 0 0 0 1 -revert 1;
  730. insert $ti shift -revert 1;
  731. tlconfig $ti cursor  -look Title;
  732. insert $ti shift -revert 1;
  733. insert $ti shift -string "Geometry Management" ;
  734. set ti;
  735.  
  736. view active 9slide
  737. backg - 2
  738. set ti [new - textitem "45 135 585 210.7856" -look TextBox];
  739. tiformat $ti 0 0 0 1 -revert 1;
  740. insert $ti shift -revert 1;
  741. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  742. insert $ti shift -revert 1;
  743. insert $ti shift -string "Simple but not very powerful." ;
  744. insertPara $ti shift ;
  745. tlconfig $ti cursor -plook { -color Red};
  746. insert $ti shift -string "Each slave placed individually relative to its master." ;
  747. set ti;
  748. new - rectangle "63 243 243 387" -look Drawing -fg Black -bg None -width 2.00 -feather White -dir 90
  749. set ti [new - textitem "54 396 261 419.69" -look TextBox];
  750. tiformat $ti 0 0 0 1 -revert 1;
  751. insert $ti shift -revert 1;
  752. tlconfig $ti cursor  -look Text -justify center;
  753. insert $ti shift -revert 1;
  754. insert $ti shift -family Courier -color Green -pointsize 18 -bold 1;
  755. insert $ti shift -string "place .x -x 0 -y 0"  -family Courier -color Green -pointsize 18 -bold 1;
  756. tiformat $ti 0 18 0 19 -family Courier -pointsize 18;
  757. set ti;
  758. set ti [new - textitem "342 396 567 441.38" -look TextBox];
  759. tiformat $ti 0 0 0 1 -revert 1;
  760. insert $ti shift -revert 1;
  761. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00;
  762. insert $ti shift -revert 1;
  763. insert $ti shift -family Courier -color Green -pointsize 18 -bold 1;
  764. insert $ti shift -string "place .x -relx 0.5 \\"  -family Courier -color Green -pointsize 18 -bold 1;
  765. insertPara $ti shift ;
  766. insert $ti shift -string "-y 1.0c -anchor n"  -family Courier -color Green -pointsize 18 -bold 1;
  767. tiformat $ti 1 17 1 18 -family Courier -color Green -pointsize 18 -bold 1;
  768. set ti;
  769. set ti [new - textitem "45 630 288 697.07" -look TextBox];
  770. tiformat $ti 0 0 0 1 -revert 1;
  771. insert $ti shift -revert 1;
  772. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00;
  773. insert $ti shift -revert 1;
  774. insert $ti shift -family Courier -color Green -pointsize 18 -bold 1;
  775. insert $ti shift -string "place .x -relx 0.5 \\"  -family Courier -color Green -pointsize 18 -bold 1;
  776. insertPara $ti shift ;
  777. insert $ti shift -string "-rely 0.5 -height 3c \\"  -family Courier -color Green -pointsize 18 -bold 1;
  778. insertPara $ti shift ;
  779. insert $ti shift -string "-anchor center"  -family Courier -color Green -pointsize 18 -bold 1;
  780. tiformat $ti 2 14 2 15 -family Courier -color Green -pointsize 18 -bold 1;
  781. set ti;
  782. set ti [new - textitem "315 630 594 697.07" -look TextBox];
  783. tiformat $ti 0 0 0 1 -revert 1;
  784. insert $ti shift -revert 1;
  785. tlconfig $ti cursor  -look Text -linespace 0.00 -paraspace 0.00;
  786. insert $ti shift -revert 1;
  787. insert $ti shift -family Courier -color Green -pointsize 18 -bold 1;
  788. insert $ti shift -string "place .x -relheight 0.5 \\"  -family Courier -color Green -pointsize 18 -bold 1;
  789. insertPara $ti shift ;
  790. insert $ti shift -string "-relwidth 0.5 \\"  -family Courier -color Green -pointsize 18 -bold 1;
  791. insertPara $ti shift ;
  792. insert $ti shift -string "-relx 0 -rely 0.5"  -family Courier -color Green -pointsize 18 -bold 1;
  793. tiformat $ti 2 17 2 18 -family Courier -color Green -pointsize 18 -bold 1;
  794. set ti;
  795. new - rectangle "63 243 117 279" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  796. new - rectangle "351 243 531 387" -look Drawing -fg Black -bg None -width 2.00 -feather White -dir 90
  797. new - rectangle "63 477 243 621" -look Drawing -fg Black -bg None -width 2.00 -feather White -dir 90
  798. new - rectangle "351 477 531 621" -look Drawing -fg Black -bg None -width 2.00 -feather White -dir 90
  799. new - rectangle "414 270 468 306" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  800. new - rectangle "126 504 180 594" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  801. new - rectangle "351 549 441 621" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  802. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  803. tiformat $ti 0 0 0 1 -revert 1;
  804. insert $ti shift -revert 1;
  805. tlconfig $ti cursor  -look Title;
  806. insert $ti shift -revert 1;
  807. insert $ti shift -string "The Placer" ;
  808. set ti;
  809.  
  810. view active 10slide
  811. backg - 2
  812. new - rectangle "450 639 477 702" -look Drawing -fg None -bg Yellow -fp Solid -width 1.00 -feather White -dir 90
  813. new - rectangle "450 477 477 540" -look Drawing -fg None -bg Yellow -fp Solid -width 1.00 -feather White -dir 90
  814. set ti [new - textitem "45 144 585 698.8136" -look TextBox];
  815. tiformat $ti 0 0 0 1 -revert 1;
  816. insert $ti shift -revert 1;
  817. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 2.00;
  818. insert $ti shift -revert 1;
  819. insert $ti shift -string "Much more powerful than placer." ;
  820. insertPara $ti shift ;
  821. tlconfig $ti cursor -plook { -color Red};
  822. insert $ti shift -string "Arranges groups of slaves together." ;
  823. insertPara $ti shift ;
  824. tlconfig $ti cursor -plook { -color Red};
  825. insert $ti shift -string "Packs slaves around edges of master's cavity." ;
  826. insertPara $ti shift ;
  827. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  828. insert $ti shift -string "For each slave, in order:" ;
  829. insertPara $ti shift ;
  830. tlconfig $ti cursor -plook { -color Red} -look 1.Heading -paraspace 3.00;
  831. insert $ti shift -string "Pick a side of the master." ;
  832. insertPara $ti shift ;
  833. tlconfig $ti cursor -plook { -color Red};
  834. insert $ti shift -string "Slice off a " ;
  835. insert $ti shift -color Red;
  836. insert $ti shift -string "frame"  -color Red;
  837. insert $ti shift -color -1;
  838. insert $ti shift -string " for slave." ;
  839. insertPara $ti shift ;
  840. tlconfig $ti cursor -plook { -color Red};
  841. insert $ti shift -string "Possibly grow slave to fill frame." ;
  842. insertPara $ti shift ;
  843. tlconfig $ti cursor -plook { -color Red};
  844. insert $ti shift -string "Position slave in frame." ;
  845. tiformat $ti 7 29 7 30 -bold 0;
  846. set ti;
  847. new - rectangle "450 396 540 459" -look Drawing -fg Black -bg None -width 1.00 -feather White -dir 90
  848. new - rectangle "450 477 540 540" -look Drawing -fg Black -bg None -width 1.00 -feather White -dir 90
  849. new - rectangle "450 639 540 702" -look Drawing -fg Black -bg None -width 1.00 -feather White -dir 90
  850. new - line "486 427.5 450 427.5" -look Drawing -fg Red -width 2.00 -arrow head
  851. new - rectangle "486 342 504 369" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  852. new - rectangle "450 639 468 702" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  853. new - rectangle "486 558 504 621" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  854. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  855. tiformat $ti 0 0 0 1 -revert 1;
  856. insert $ti shift -revert 1;
  857. tlconfig $ti cursor  -look Title;
  858. insert $ti shift -revert 1;
  859. insert $ti shift -string "The Packer" ;
  860. set ti;
  861.  
  862. view active 11slide
  863. backg - 2
  864. new - rectangle "459 324 486 360" -look Drawing -fg Black -bg Yellow -fp Solid -width 1.00 -feather White -dir 90;
  865. set ti [new - textitem "463.5 327.572 481.5 356.428" -look TextBox -bg Yellow];
  866. tiformat $ti 0 0 0 1 -revert 1;
  867. insert $ti shift -revert 1;
  868. tlconfig $ti cursor  -look Text -justify center;
  869. insert $ti shift -revert 1;
  870. insert $ti shift -string ".a" ;
  871. set ti;;
  872. group - 2
  873. new - rectangle "423 522 558 558" -look Drawing -fg None -bg Yellow -fp Solid -width 2.00 -feather White -dir 90
  874. set ti [new - textitem "45 137.45 279 211.75" -look TextBox];
  875. tiformat $ti 0 0 0 1 -revert 1;
  876. insert $ti shift -revert 1;
  877. tlconfig $ti cursor  -look Text -paraspace 0.00;
  878. insert $ti shift -revert 1;
  879. insert $ti shift -family Courier -color Green -pointsize 20 -bold 1;
  880. insert $ti shift -string "pack .a -side left"  -family Courier -color Green -pointsize 20 -bold 1;
  881. insertPara $ti shift ;
  882. insert $ti shift -string "pack .b -side left"  -family Courier -color Green -pointsize 20 -bold 1;
  883. insertPara $ti shift ;
  884. insert $ti shift -string "pack .c -side left"  -family Courier -color Green -pointsize 20 -bold 1;
  885. tiformat $ti 2 18 2 19 -family Courier -color Green -pointsize 20 -bold 1;
  886. set ti;
  887. set ti [new - textitem "45 306 432 404.4" -look TextBox];
  888. tiformat $ti 0 0 0 1 -revert 1;
  889. insert $ti shift -revert 1;
  890. tlconfig $ti cursor  -look Text -paraspace 0.00;
  891. insert $ti shift -revert 1;
  892. insert $ti shift -family Courier -color Green -pointsize 20 -bold 1;
  893. insert $ti shift -string "pack .a -side top -anchor w"  -family Courier -color Green -pointsize 20 -bold 1;
  894. insertPara $ti shift ;
  895. insert $ti shift -string "pack .b -side top -anchor w \\"  -family Courier -color Green -pointsize 20 -bold 1;
  896. insertPara $ti shift ;
  897. insert $ti shift -string "    -pady .5c"  -family Courier -color Green -pointsize 20 -bold 1;
  898. insertPara $ti shift ;
  899. insert $ti shift -string "pack .c -side top -anchor w"  -family Courier -color Green -pointsize 20 -bold 1;
  900. tiformat $ti 3 27 3 28 -family Courier -color Green -pointsize 20 -bold 1;
  901. set ti;
  902. set ti [new - textitem "45 513 405 611.4" -look TextBox];
  903. tiformat $ti 0 0 0 1 -revert 1;
  904. insert $ti shift -revert 1;
  905. tlconfig $ti cursor  -look Text -paraspace 0.00;
  906. insert $ti shift -revert 1;
  907. insert $ti shift -family Courier -color Green -pointsize 20 -bold 1;
  908. insert $ti shift -string "pack .a -side top -fill x"  -family Courier -color Green -pointsize 20 -bold 1;
  909. insertPara $ti shift ;
  910. insert $ti shift -string "pack .b -side right -fill y"  -family Courier -color Green -pointsize 20 -bold 1;
  911. insertPara $ti shift ;
  912. insert $ti shift -string "pack .c -padx 0.5c -pady 1c \\"  -family Courier -color Green -pointsize 20 -bold 1;
  913. insertPara $ti shift ;
  914. insert $ti shift -string "    -fill both"  -family Courier -color Green -pointsize 20 -bold 1;
  915. tiformat $ti 3 14 3 15 -family Courier -color Green -pointsize 20 -bold 1;
  916. set ti;
  917. new - rectangle "198 225 234 261" -look Drawing -fg Black -bg Pink -fp Solid -width 1.00 -feather White -dir 90;
  918. set ti [new - textitem "202.5 228.572 229.5 257.428" -look TextBox -bg Pink];
  919. tiformat $ti 0 0 0 1 -revert 1;
  920. insert $ti shift -revert 1;
  921. tlconfig $ti cursor  -look Text -justify center;
  922. insert $ti shift -revert 1;
  923. insert $ti shift -string ".c" ;
  924. set ti;;
  925. group - 2
  926. new - rectangle "459 378 513 414" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00 -feather White -dir 90;
  927. set ti [new - textitem "472.5 381.572 499.5 410.428" -look TextBox -bg LightBlue];
  928. tiformat $ti 0 0 0 1 -revert 1;
  929. insert $ti shift -revert 1;
  930. tlconfig $ti cursor  -look Text -justify center;
  931. insert $ti shift -revert 1;
  932. insert $ti shift -string ".b" ;
  933. set ti;;
  934. group - 2
  935. new - rectangle "459 432 495 468" -look Drawing -fg Black -bg Pink -fp Solid -width 1.00 -feather White -dir 90;
  936. set ti [new - textitem "463.5 435.572 490.5 464.428" -look TextBox -bg Pink];
  937. tiformat $ti 0 0 0 1 -revert 1;
  938. insert $ti shift -revert 1;
  939. tlconfig $ti cursor  -look Text -justify center;
  940. insert $ti shift -revert 1;
  941. insert $ti shift -string ".c" ;
  942. set ti;;
  943. group - 2
  944. new - rectangle "459 324 513 468" -look Drawing -fg Black -bg None -fp Solid -width 2.00 -feather White -dir 90
  945. new - rectangle "135 630 171 711" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00 -feather White -dir 90
  946. set ti [new - textitem "139.5 656.072 166.5 684.928" -look TextBox];
  947. tiformat $ti 0 0 0 1 -revert 1;
  948. insert $ti shift -revert 1;
  949. tlconfig $ti cursor  -look Text -justify center;
  950. insert $ti shift -revert 1;
  951. insert $ti shift -string ".b" ;
  952. set ti;
  953. new - rectangle "423 522 558 558" -look Drawing -fg Black -bg None -fp Solid -width 1.00 -feather White -dir 90
  954. set ti [new - textitem "477 525.572 504 554.428" -look TextBox];
  955. tiformat $ti 0 0 0 1 -revert 1;
  956. insert $ti shift -revert 1;
  957. tlconfig $ti cursor  -look Text -justify center;
  958. insert $ti shift -revert 1;
  959. insert $ti shift -string ".a" ;
  960. set ti;
  961. new - rectangle "198 639 261 702" -look Drawing -fg Black -bg Pink -fp Solid -width 1.00 -feather White -dir 90
  962. set ti [new - textitem "205.875 656.072 253.125 684.928" -look TextBox];
  963. tiformat $ti 0 0 0 1 -revert 1;
  964. insert $ti shift -revert 1;
  965. tlconfig $ti cursor  -look Text -justify center;
  966. insert $ti shift -revert 1;
  967. insert $ti shift -string ".c" ;
  968. set ti;
  969. new - rectangle "423 558 522 693" -look Drawing -fg Black -bg Pink -fp Solid -width 1.00 -feather White -dir 90
  970. set ti [new - textitem "448.875 611.072 496.125 639.928" -look TextBox];
  971. tiformat $ti 0 0 0 1 -revert 1;
  972. insert $ti shift -revert 1;
  973. tlconfig $ti cursor  -look Text -justify center;
  974. insert $ti shift -revert 1;
  975. insert $ti shift -string ".c" ;
  976. set ti;
  977. new - polygon "297 234 342 234 342 225 369 243 342 261 342 252 297 252 297 234 297 234" -look Drawing -fg Black -bg Grey -fp Solid -width 1.00
  978. new - rectangle "108 423 162 459" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00 -feather White -dir 90;
  979. set ti [new - textitem "121.5 426.572 148.5 455.428" -look TextBox -bg LightBlue];
  980. tiformat $ti 0 0 0 1 -revert 1;
  981. insert $ti shift -revert 1;
  982. tlconfig $ti cursor  -look Text -justify center;
  983. insert $ti shift -revert 1;
  984. insert $ti shift -string ".b" ;
  985. set ti;;
  986. group - 2
  987. new - rectangle "198 423 234 459" -look Drawing -fg Black -bg Pink -fp Solid -width 1.00 -feather White -dir 90;
  988. set ti [new - textitem "202.5 426.572 229.5 455.428" -look TextBox -bg Pink];
  989. tiformat $ti 0 0 0 1 -revert 1;
  990. insert $ti shift -revert 1;
  991. tlconfig $ti cursor  -look Text -justify center;
  992. insert $ti shift -revert 1;
  993. insert $ti shift -string ".c" ;
  994. set ti;;
  995. group - 2
  996. new - polygon "297 432 342 432 342 423 369 441 342 459 342 450 297 450 297 432 297 432" -look Drawing -fg Black -bg Grey -fp Solid -width 1.00
  997. new - rectangle "522 558 558 693" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00 -feather White -dir 90
  998. set ti [new - textitem "526.5 611.072 553.5 639.928" -look TextBox];
  999. tiformat $ti 0 0 0 1 -revert 1;
  1000. insert $ti shift -revert 1;
  1001. tlconfig $ti cursor  -look Text -justify center;
  1002. insert $ti shift -revert 1;
  1003. insert $ti shift -string ".b" ;
  1004. set ti;
  1005. new - rectangle "45 652.5 108 688.5" -look Drawing -fg Black -bg Yellow -fp Solid -width 1.00 -feather White -dir 90
  1006. set ti [new - textitem "54 656.072 99 684.928" -look TextBox -bg Yellow];
  1007. tiformat $ti 0 0 0 1 -revert 1;
  1008. insert $ti shift -revert 1;
  1009. tlconfig $ti cursor  -look Text -justify center;
  1010. insert $ti shift -revert 1;
  1011. insert $ti shift -string ".a" ;
  1012. set ti;
  1013. new - rectangle "423 522 558 693" -look Drawing -fg Black -bg None -fp Solid -width 2.00 -feather White -dir 90
  1014. new - polygon "297 661.5 342 661.5 342 652.5 369 670.5 342 688.5 342 679.5 297 679.5 297 661.5 297 661.5" -look Drawing -fg Black -bg Grey -fp Solid -width 1.00
  1015. set ti [new - title "54 63.5 576 109.456" -look TextBox];
  1016. tiformat $ti 0 0 0 1 -revert 1;
  1017. insert $ti shift -revert 1;
  1018. tlconfig $ti cursor  -look Title;
  1019. insert $ti shift -revert 1;
  1020. insert $ti shift -string "Packer Examples" ;
  1021. set ti;
  1022. new - line "45 423 45 459" -look Drawing -fg Black -width 1.00 -arrow none
  1023. new - rectangle "45 423 72 459" -look Drawing -fg Black -bg Yellow -fp Solid -width 1.00 -feather White -dir 90;
  1024. set ti [new - textitem "49.5 426.572 67.5 455.428" -look TextBox -bg Yellow];
  1025. tiformat $ti 0 0 0 1 -revert 1;
  1026. insert $ti shift -revert 1;
  1027. tlconfig $ti cursor  -look Text -justify center;
  1028. insert $ti shift -revert 1;
  1029. insert $ti shift -string ".a" ;
  1030. set ti;;
  1031. group - 2
  1032. new - rectangle "45 225 72 261" -look Drawing -fg Black -bg Yellow -fp Solid -width 1.00 -feather White -dir 90;
  1033. set ti [new - textitem "49.5 228.572 67.5 257.428" -look TextBox -bg Yellow];
  1034. tiformat $ti 0 0 0 1 -revert 1;
  1035. insert $ti shift -revert 1;
  1036. tlconfig $ti cursor  -look Text -justify center;
  1037. insert $ti shift -revert 1;
  1038. insert $ti shift -string ".a" ;
  1039. set ti;;
  1040. group - 2
  1041. new - rectangle "108 225 162 261" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00 -feather White -dir 90;
  1042. set ti [new - textitem "121.5 228.572 148.5 257.428" -look TextBox -bg LightBlue];
  1043. tiformat $ti 0 0 0 1 -revert 1;
  1044. insert $ti shift -revert 1;
  1045. tlconfig $ti cursor  -look Text -justify center;
  1046. insert $ti shift -revert 1;
  1047. insert $ti shift -string ".b" ;
  1048. set ti;;
  1049. group - 2
  1050. new - rectangle "432 225 459 261" -look Drawing -fg Black -bg Yellow -fp Solid -width 1.00 -feather White -dir 90;
  1051. set ti [new - textitem "436.5 228.572 454.5 257.428" -look TextBox -bg Yellow];
  1052. tiformat $ti 0 0 0 1 -revert 1;
  1053. insert $ti shift -revert 1;
  1054. tlconfig $ti cursor  -look Text -justify center;
  1055. insert $ti shift -revert 1;
  1056. insert $ti shift -string ".a" ;
  1057. set ti;;
  1058. group - 2;
  1059. new - rectangle "459 225 513 261" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00 -feather White -dir 90;
  1060. set ti [new - textitem "472.5 228.572 499.5 257.428" -look TextBox -bg LightBlue];
  1061. tiformat $ti 0 0 0 1 -revert 1;
  1062. insert $ti shift -revert 1;
  1063. tlconfig $ti cursor  -look Text -justify center;
  1064. insert $ti shift -revert 1;
  1065. insert $ti shift -string ".b" ;
  1066. set ti;;
  1067. group - 2;
  1068. new - rectangle "513 225 549 261" -look Drawing -fg Black -bg Pink -fp Solid -width 1.00 -feather White -dir 90;
  1069. set ti [new - textitem "517.5 228.572 544.5 257.428" -look TextBox -bg Pink];
  1070. tiformat $ti 0 0 0 1 -revert 1;
  1071. insert $ti shift -revert 1;
  1072. tlconfig $ti cursor  -look Text -justify center;
  1073. insert $ti shift -revert 1;
  1074. insert $ti shift -string ".c" ;
  1075. set ti;;
  1076. group - 2;
  1077. new - rectangle "432 225 549 261" -look Drawing -fg Black -bg None -fp Solid -width 2.00 -feather White -dir 90;
  1078. group - 4
  1079.  
  1080. view active 12slide
  1081. backg - 5
  1082. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1083. tiformat $ti 0 0 0 1 -revert 1;
  1084. insert $ti shift -revert 1;
  1085. tlconfig $ti cursor  -look Title;
  1086. insert $ti shift -revert 1;
  1087. insert $ti shift -string "Packer Advantages" ;
  1088. set ti;
  1089. set ti [new - textitem "45 171 585 554.72048" -look TextBox];
  1090. tiformat $ti 0 0 0 1 -revert 1;
  1091. insert $ti shift -revert 1;
  1092. tlconfig $ti cursor  -look Heading;
  1093. insert $ti shift -revert 1;
  1094. insert $ti shift -string "Considers relationships between slaves (constraint-like):" ;
  1095. insertPara $ti shift ;
  1096. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1097. insert $ti shift -string "Row and column arrangements easy to achieve." ;
  1098. insertPara $ti shift ;
  1099. tlconfig $ti cursor -plook { -color Red};
  1100. insert $ti shift -string "Adjusts arrangement if a slave requests a different size." ;
  1101. insertPara $ti shift ;
  1102. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  1103. insert $ti shift -string "Requests size on behalf of master:" ;
  1104. insertPara $ti shift ;
  1105. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1106. insert $ti shift -string "Just large enough for all slaves." ;
  1107. insertPara $ti shift ;
  1108. tlconfig $ti cursor -plook { -color Red};
  1109. insert $ti shift -string "Adjusts if slaves request different sizes." ;
  1110. insertPara $ti shift ;
  1111. tlconfig $ti cursor -plook { -color Red};
  1112. insert $ti shift -string "Permits hierarchical geometry management." ;
  1113. set ti;
  1114.  
  1115. view active 13slide
  1116. backg - 5
  1117. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1118. tiformat $ti 0 0 0 1 -revert 1;
  1119. insert $ti shift -revert 1;
  1120. tlconfig $ti cursor  -look Title;
  1121. insert $ti shift -revert 1;
  1122. insert $ti shift -string "Widget Commands" ;
  1123. set ti;
  1124. set ti [new - textitem "45 153 585 637.81424" -look TextBox];
  1125. tiformat $ti 0 0 0 1 -revert 1;
  1126. insert $ti shift -revert 1;
  1127. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  1128. insert $ti shift -revert 1;
  1129. insert $ti shift -string "Tcl command for each widget, named after widget's path name." ;
  1130. insertPara $ti shift ;
  1131. tlconfig $ti cursor -plook { -color Red} -paraspace 2.00;
  1132. insert $ti shift -string "Used to reconfigure, manipulate widget:" ;
  1133. insertPara $ti shift ;
  1134. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1135. insert $ti shift -string "button .a.b" ;
  1136. insertPara $ti shift ;
  1137. tlconfig $ti cursor  -paraspace -1;
  1138. insert $ti shift -string ".a.b configure -relief sunken" ;
  1139. insertPara $ti shift ;
  1140. insert $ti shift -string ".a.b flash" ;
  1141. insertPara $ti shift ;
  1142. tlconfig $ti cursor  -paraspace 1.50;
  1143. insert $ti shift -string "scrollbar .x" ;
  1144. insertPara $ti shift ;
  1145. tlconfig $ti cursor  -paraspace -1;
  1146. insert $ti shift -string ".x set 100 10 5 14" ;
  1147. insertPara $ti shift ;
  1148. insert $ti shift -string ".x get" ;
  1149. insertPara $ti shift ;
  1150. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 2.00;
  1151. insert $ti shift -string "Widget command is deleted automatically when widget is destroyed." ;
  1152. insertPara $ti shift ;
  1153. tlconfig $ti cursor -plook { -color Red};
  1154. insert $ti shift -string "Principle: all state should be readable, modifiable, anytime." ;
  1155. set ti;
  1156.  
  1157. view active 14slide
  1158. backg - 5
  1159. new - arc "81 531 189 603 0 23040" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00
  1160. new - arc "81 324 189 396 0 23040" -look Drawing -fg Black -bg LightBlue -fp Solid -width 1.00
  1161. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1162. tiformat $ti 0 0 0 1 -revert 1;
  1163. insert $ti shift -revert 1;
  1164. tlconfig $ti cursor  -look Title;
  1165. insert $ti shift -revert 1;
  1166. insert $ti shift -string "Connections" ;
  1167. set ti;
  1168. set ti [new - textitem "45 135 594 326.0048" -look TextBox];
  1169. tiformat $ti 0 0 0 1 -revert 1;
  1170. insert $ti shift -revert 1;
  1171. tlconfig $ti cursor  -look Heading;
  1172. insert $ti shift -revert 1;
  1173. insert $ti shift -string "Question: How to make widgets work together with application, other widgets?" ;
  1174. insertPara $ti shift ;
  1175. insert $ti shift -string "Answer: " ;
  1176. insert $ti shift -color Red;
  1177. insert $ti shift -string "Tcl commands."  -color Red;
  1178. insertPara $ti shift  -color -1;
  1179. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  1180. insert $ti shift -string "Widget actions are Tcl commands:" ;
  1181. insertPara $ti shift ;
  1182. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1183. insert $ti shift -string "button .a.b -command exit" ;
  1184. set ti;
  1185. set ti [new - textitem "45 432 585 534.23528" -look TextBox];
  1186. tiformat $ti 0 0 0 1 -revert 1;
  1187. insert $ti shift -revert 1;
  1188. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  1189. insert $ti shift -revert 1;
  1190. insert $ti shift -string "Widgets use Tcl commands to communicate with each other:" ;
  1191. insertPara $ti shift ;
  1192. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1193. insert $ti shift -string "scrollbar .x -command \".y yview\"" ;
  1194. set ti;
  1195. set ti [new - textitem "94.5 540.7448 175.5 593.2552" -look TextBox];
  1196. tiformat $ti 0 0 0 1 -revert 1;
  1197. insert $ti shift -revert 1;
  1198. tlconfig $ti cursor  -look Text -justify center;
  1199. insert $ti shift -revert 1;
  1200. insert $ti shift -string "click on arrow" ;
  1201. set ti;
  1202. set ti [new - textitem "94.5 333.7448 175.5 386.2552" -look TextBox];
  1203. tiformat $ti 0 0 0 1 -revert 1;
  1204. insert $ti shift -revert 1;
  1205. tlconfig $ti cursor  -look Text -justify center;
  1206. insert $ti shift -revert 1;
  1207. insert $ti shift -string "button release" ;
  1208. set ti;
  1209. new - polygon "207 351 279 351 279 342 306 360 279 378 279 369 207 369 207 351" -look Drawing -fg Black -bg Grey -fp Solid -width 1.00
  1210. new - polygon "207 558 279 558 279 549 306 567 279 585 279 576 207 576 207 558" -look Drawing -fg Black -bg Grey -fp Solid -width 1.00
  1211. set ti [new - textitem "324 345.98 459 376.9" -look TextBox];
  1212. tiformat $ti 0 0 0 1 -revert 1;
  1213. insert $ti shift -revert 1;
  1214. tlconfig $ti cursor  -look Text;
  1215. insert $ti shift -revert 1;
  1216. insert $ti shift -family Courier -color Green -bold 1;
  1217. insert $ti shift -string "exit"  -family Courier -color Green -bold 1;
  1218. tiformat $ti 0 4 0 5 -family Courier;
  1219. set ti;
  1220. set ti [new - textitem "324 552.98 477 583.9" -look TextBox];
  1221. tiformat $ti 0 0 0 1 -revert 1;
  1222. insert $ti shift -revert 1;
  1223. tlconfig $ti cursor  -look Text;
  1224. insert $ti shift -revert 1;
  1225. insert $ti shift -family Courier -color Green -bold 1;
  1226. insert $ti shift -string ".y yview 9"  -family Courier -color Green -bold 1;
  1227. tiformat $ti 0 10 0 11 -family Courier;
  1228. set ti;
  1229. set ti [new - textitem "45 639 594 698.97728" -look TextBox];
  1230. tiformat $ti 0 0 0 1 -revert 1;
  1231. insert $ti shift -revert 1;
  1232. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  1233. insert $ti shift -revert 1;
  1234. insert $ti shift -string "Application uses widget commands to communicate with widgets." ;
  1235. set ti;
  1236.  
  1237. view active 15slide
  1238. backg - 5
  1239. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1240. tiformat $ti 0 0 0 1 -revert 1;
  1241. insert $ti shift -revert 1;
  1242. tlconfig $ti cursor  -look Title;
  1243. insert $ti shift -revert 1;
  1244. insert $ti shift -string "Connections, cont'd" ;
  1245. set ti;
  1246. set ti [new - textitem "45 153 594 670.1324" -look TextBox];
  1247. tiformat $ti 0 0 0 1 -revert 1;
  1248. insert $ti shift -revert 1;
  1249. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  1250. insert $ti shift -revert 1;
  1251. insert $ti shift -string "Event bindings:" ;
  1252. insertPara $ti shift ;
  1253. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1254. insert $ti shift -string "bind .t a \"insert a\"" ;
  1255. insertPara $ti shift ;
  1256. tlconfig $ti cursor  -linespace 0.500 -paraspace 1.20;
  1257. insert $ti shift -string "bind Button <3> \"help %W\"" ;
  1258. insertPara $ti shift ;
  1259. insert $ti shift -string "bind .t <Any-KeyPress> \"insert %A\"" ;
  1260. insertPara $ti shift ;
  1261. insert $ti shift -string "bind all <Control-q> \"quit\"" ;
  1262. insertPara $ti shift ;
  1263. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 2.00;
  1264. insert $ti shift -string "Issuing commands to other Tk applications:" ;
  1265. insertPara $ti shift ;
  1266. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1267. insert $ti shift -string "send tgdb \"break tkEval.c:200\"" ;
  1268. insertPara $ti shift ;
  1269. tlconfig $ti cursor  -paraspace 1.20;
  1270. insert $ti shift -string "winfo interps" ;
  1271. insertPara $ti shift ;
  1272. insert $ti shift -color Red;
  1273. insert $ti shift -string "wish tgdb ppres"  -color Red;
  1274. insertPara $ti shift  -color -1;
  1275. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 2.00;
  1276. insert $ti shift -string "Window information:" ;
  1277. insertPara $ti shift ;
  1278. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1279. insert $ti shift -string "winfo width .x" ;
  1280. insertPara $ti shift ;
  1281. tlconfig $ti cursor  -paraspace 1.20;
  1282. insert $ti shift -string "winfo children ." ;
  1283. insertPara $ti shift ;
  1284. insert $ti shift -string "winfo containing \$x \$y" ;
  1285. set ti;
  1286. set ti [new - textitem "414 135 585 185.2724" -look TextBox];
  1287. tiformat $ti 0 0 0 1 -revert 1;
  1288. insert $ti shift -revert 1;
  1289. tlconfig $ti cursor  -look Text -paraspace 0.00 -justify right;
  1290. insert $ti shift -revert 1;
  1291. insert $ti shift -color Red -pointsize 22;
  1292. insert $ti shift -string "Values substituted from event"  -color Red -pointsize 22;
  1293. tiformat $ti 0 29 0 30 -color Red -pointsize 22;
  1294. set ti;
  1295. new - line "540 189 540 261" -look Drawing -fg Red -width 1.00 -arrow head
  1296. new - line "477 171 432 225" -look Drawing -fg Red -width 1.00 -arrow head
  1297.  
  1298. view active 16slide
  1299. backg - 5
  1300. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1301. tiformat $ti 0 0 0 1 -revert 1;
  1302. insert $ti shift -revert 1;
  1303. tlconfig $ti cursor  -look Title;
  1304. insert $ti shift -revert 1;
  1305. insert $ti shift -string "Access To Other X Facilities" ;
  1306. set ti;
  1307. set ti [new - textitem "45 135 585 697.1588" -look TextBox];
  1308. tiformat $ti 0 0 0 1 -revert 1;
  1309. insert $ti shift -revert 1;
  1310. tlconfig $ti cursor -plook { -color Red} -look BHeading;
  1311. insert $ti shift -revert 1;
  1312. insert $ti shift -string "Keyboard focus:" ;
  1313. insertPara $ti shift ;
  1314. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1315. insert $ti shift -string "focus .x.y" ;
  1316. insertPara $ti shift ;
  1317. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 1.75;
  1318. insert $ti shift -string "The selection:" ;
  1319. insertPara $ti shift ;
  1320. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1321. insert $ti shift -string "selection get" ;
  1322. insertPara $ti shift ;
  1323. tlconfig $ti cursor  -paraspace 1.00;
  1324. insert $ti shift -string "selection get FILE_NAME" ;
  1325. insertPara $ti shift ;
  1326. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 1.75;
  1327. insert $ti shift -string "Communication with window manager:" ;
  1328. insertPara $ti shift ;
  1329. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1330. insert $ti shift -string "wm title . \"Editing main.c\"" ;
  1331. insertPara $ti shift ;
  1332. tlconfig $ti cursor  -paraspace 1.00;
  1333. insert $ti shift -string "wm geometry . 300x200" ;
  1334. insertPara $ti shift ;
  1335. insert $ti shift -string "wm iconify ." ;
  1336. insertPara $ti shift ;
  1337. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 1.75;
  1338. insert $ti shift -string "Deleting windows:" ;
  1339. insertPara $ti shift ;
  1340. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1341. insert $ti shift -string "destroy .x" ;
  1342. insertPara $ti shift ;
  1343. tlconfig $ti cursor -plook { -color Red} -look BHeading -paraspace 1.75;
  1344. insert $ti shift -string "Grabs:" ;
  1345. insertPara $ti shift ;
  1346. tlconfig $ti cursor  -look Code -paraspace 1.50;
  1347. insert $ti shift -string "grab .x" ;
  1348. insertPara $ti shift ;
  1349. tlconfig $ti cursor  -paraspace 1.00;
  1350. insert $ti shift -string "grab release .x" ;
  1351. set ti;
  1352.  
  1353. view active 17slide
  1354. backg - 5
  1355. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1356. tiformat $ti 0 0 0 1 -revert 1;
  1357. insert $ti shift -revert 1;
  1358. tlconfig $ti cursor  -look Title;
  1359. insert $ti shift -revert 1;
  1360. insert $ti shift -string "Example #1: Dialog Box" ;
  1361. set ti;
  1362. Image - image "192 162 420 311" eps/tk4 eps ref
  1363. set ti [new - textitem "9 396 603 671.4128" -look TextBox];
  1364. tiformat $ti 0 0 0 1 -revert 1;
  1365. insert $ti shift -revert 1;
  1366. tlconfig $ti cursor  -look Code;
  1367. insert $ti shift -revert 1;
  1368. insert $ti shift -pointsize 24;
  1369. insert $ti shift -string "toplevel .d"  -pointsize 24;
  1370. insertPara $ti shift ;
  1371. tlconfig $ti cursor  -left 54.0 -indent -18.0 -paraspace 1.20 -tabs { 36 72 108 144 180 216 252 288 324 360 396};
  1372. insert $ti shift -pointsize -1;
  1373. insert $ti shift -string "message .d.top -width 3i -bd 2 \\" ;
  1374. insertPara $ti shift ;
  1375. tlconfig $ti cursor  -indent 0.00 -paraspace 0.00;
  1376. insert $ti shift -string "-relief raised -justify center \\" ;
  1377. insertPara $ti shift ;
  1378. tlconfig $ti cursor ;
  1379. insert $ti shift -string "-font \\" ;
  1380. insertPara $ti shift ;
  1381. tlconfig $ti cursor ;
  1382. insert $ti shift -string "*-helvetica-medium-r-normal--*-240* \\" ;
  1383. insertPara $ti shift ;
  1384. tlconfig $ti cursor ;
  1385. insert $ti shift -string "-text \"File main.c hasn't been \\" ;
  1386. insertPara $ti shift ;
  1387. tlconfig $ti cursor ;
  1388. insert $ti shift -string "saved to disk since it was last \\" ;
  1389. insertPara $ti shift ;
  1390. tlconfig $ti cursor ;
  1391. insert $ti shift -string "modified.  What should I do?\"" ;
  1392. insertPara $ti shift ;
  1393. tlconfig $ti cursor  -left 36.0 -paraspace 1.20;
  1394. insert $ti shift -string "pack .d.top -side top -fill both" ;
  1395. tiformat $ti 8 32 8 33 -pointsize 24;
  1396. set ti;
  1397.  
  1398. view active 18slide
  1399. backg - 5
  1400. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1401. tiformat $ti 0 0 0 1 -revert 1;
  1402. insert $ti shift -revert 1;
  1403. tlconfig $ti cursor  -look Title;
  1404. insert $ti shift -revert 1;
  1405. insert $ti shift -string "Dialog Box, cont'd" ;
  1406. set ti;
  1407. set ti [new - textitem "0 387 603 696.668" -look TextBox];
  1408. tiformat $ti 0 0 0 1 -revert 1;
  1409. insert $ti shift -revert 1;
  1410. tlconfig $ti cursor  -look Code -paraspace 1.20;
  1411. insert $ti shift -revert 1;
  1412. insert $ti shift -string "frame .d.bot" ;
  1413. insertPara $ti shift ;
  1414. tlconfig $ti cursor  -paraspace 1.00;
  1415. insert $ti shift -string "pack .d.bot -side bottom -fill both" ;
  1416. insertPara $ti shift ;
  1417. insert $ti shift -string "button .d.bot.left -text \"Save File\" \\" ;
  1418. insertPara $ti shift ;
  1419. insert $ti shift -string "    -command \"quit save\"" ;
  1420. insertPara $ti shift ;
  1421. insert $ti shift -string "pack .d.bot.left -side left \\" ;
  1422. insertPara $ti shift ;
  1423. insert $ti shift -string "    -expand yes -padx 20 -pady 20" ;
  1424. insertPara $ti shift ;
  1425. insert $ti shift -string "button .d.bot.mid -text \"Quit Anyway\" \\" ;
  1426. insertPara $ti shift ;
  1427. insert $ti shift -string "    -command \"quit quit\"" ;
  1428. insertPara $ti shift ;
  1429. insert $ti shift -string "pack .d.bot.mid -side left \\" ;
  1430. insertPara $ti shift ;
  1431. insert $ti shift -string "    -expand yes -padx 20 -pady 20" ;
  1432. set ti;
  1433. Image - image "192 144 420 335" eps/tk5 eps ref
  1434.  
  1435. view active 19slide
  1436. backg - 5
  1437. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1438. tiformat $ti 0 0 0 1 -revert 1;
  1439. insert $ti shift -revert 1;
  1440. tlconfig $ti cursor  -look Title;
  1441. insert $ti shift -revert 1;
  1442. insert $ti shift -string "Dialog Box, cont'd" ;
  1443. set ti;
  1444. set ti [new - textitem "9 387 594 705.6968" -look TextBox];
  1445. tiformat $ti 0 0 0 1 -revert 1;
  1446. insert $ti shift -revert 1;
  1447. tlconfig $ti cursor  -look Code;
  1448. insert $ti shift -revert 1;
  1449. insert $ti shift -string "button .d.bot.right \\" ;
  1450. insertPara $ti shift ;
  1451. insert $ti shift -string "    -text \"Return To Editor\" \\" ;
  1452. insertPara $ti shift ;
  1453. insert $ti shift -string "    -command \"quit return\"" ;
  1454. insertPara $ti shift ;
  1455. tlconfig $ti cursor  -paraspace 1.20;
  1456. insert $ti shift -string "pack .d.bot.right -side left \\" ;
  1457. insertPara $ti shift ;
  1458. tlconfig $ti cursor  -paraspace -1;
  1459. insert $ti shift -string "    -expand yes -padx 20 -pady 20" ;
  1460. insertPara $ti shift ;
  1461. tlconfig $ti cursor  -paraspace 1.20;
  1462. insert $ti shift -string "proc quit button \{" ;
  1463. insertPara $ti shift ;
  1464. tlconfig $ti cursor  -paraspace -1;
  1465. insert $ti shift -string "    puts stdout \"You pressed the \\" ;
  1466. insertPara $ti shift ;
  1467. insert $ti shift -string "        \$button button\; bye-bye\"" ;
  1468. insertPara $ti shift ;
  1469. insert $ti shift -string "    destroy .d" ;
  1470. insertPara $ti shift ;
  1471. insert $ti shift -string "\}" ;
  1472. set ti;
  1473. Image - image "148 144 464 335" eps/tk6 eps ref
  1474.  
  1475. view active 20slide
  1476. backg - 5
  1477. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1478. tiformat $ti 0 0 0 1 -revert 1;
  1479. insert $ti shift -revert 1;
  1480. tlconfig $ti cursor  -look Title;
  1481. insert $ti shift -revert 1;
  1482. insert $ti shift -string "Example #2: Browser" ;
  1483. set ti;
  1484. set ti [new - textitem "9 468 594 687.638" -look TextBox];
  1485. tiformat $ti 0 0 0 1 -revert 1;
  1486. insert $ti shift -revert 1;
  1487. tlconfig $ti cursor  -look Code;
  1488. insert $ti shift -revert 1;
  1489. insert $ti shift -string "listbox .list -yscroll \".scroll set\" \\" ;
  1490. insertPara $ti shift ;
  1491. insert $ti shift -string "    -relief raised -geometry 20x15" ;
  1492. insertPara $ti shift ;
  1493. tlconfig $ti cursor  -paraspace 1.50;
  1494. insert $ti shift -string "pack .list -side left" ;
  1495. insertPara $ti shift ;
  1496. insert $ti shift -string "scrollbar .scroll \\" ;
  1497. insertPara $ti shift ;
  1498. tlconfig $ti cursor  -paraspace -1;
  1499. insert $ti shift -string "    -command \".list yview\"" ;
  1500. insertPara $ti shift ;
  1501. tlconfig $ti cursor  -paraspace 1.50;
  1502. insert $ti shift -string "pack .scroll -side right -fill y" ;
  1503. set ti;
  1504. Image - image "222 153 390 412" eps/tk7 eps ref
  1505.  
  1506. view active 21slide
  1507. backg - 5
  1508. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1509. tiformat $ti 0 0 0 1 -revert 1;
  1510. insert $ti shift -revert 1;
  1511. tlconfig $ti cursor  -look Title;
  1512. insert $ti shift -revert 1;
  1513. insert $ti shift -string "Browser, cont'd" ;
  1514. set ti;
  1515. Image - image "222 144 390 403" eps/tk8 eps ref
  1516. set ti [new - textitem "9 441 594 700.01" -look TextBox];
  1517. tiformat $ti 0 0 0 1 -revert 1;
  1518. insert $ti shift -revert 1;
  1519. tlconfig $ti cursor  -look Code;
  1520. insert $ti shift -revert 1;
  1521. insert $ti shift -string "if \{\$argc > 0\} \{" ;
  1522. insertPara $ti shift ;
  1523. insert $ti shift -string "    set dir \[lindex \$argv 0\]" ;
  1524. insertPara $ti shift ;
  1525. insert $ti shift -string "\} else \{" ;
  1526. insertPara $ti shift ;
  1527. insert $ti shift -string "    set dir ." ;
  1528. insertPara $ti shift ;
  1529. insert $ti shift -string "\}" ;
  1530. insertPara $ti shift ;
  1531. tlconfig $ti cursor  -paraspace 1.50;
  1532. insert $ti shift -string "foreach i \[exec ls -a \$dir\] \{" ;
  1533. insertPara $ti shift ;
  1534. tlconfig $ti cursor  -paraspace -1;
  1535. insert $ti shift -string "    .list insert end \$i" ;
  1536. insertPara $ti shift ;
  1537. insert $ti shift -string "\}" ;
  1538. set ti;
  1539.  
  1540. view active 22slide
  1541. backg - 5
  1542. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1543. tiformat $ti 0 0 0 1 -revert 1;
  1544. insert $ti shift -revert 1;
  1545. tlconfig $ti cursor  -look Title;
  1546. insert $ti shift -revert 1;
  1547. insert $ti shift -string "Browser, cont'd" ;
  1548. set ti;
  1549. set ti [new - textitem "9 135 594 714.401" -look TextBox];
  1550. tiformat $ti 0 0 0 1 -revert 1;
  1551. insert $ti shift -revert 1;
  1552. tlconfig $ti cursor  -look Code -paraspace 0.50;
  1553. insert $ti shift -revert 1;
  1554. insert $ti shift -pointsize 22;
  1555. insert $ti shift -string "bind .list <Double-Button-1> \{"  -pointsize 22;
  1556. insertPara $ti shift ;
  1557. insert $ti shift -string "    browse \$dir \[selection get\]"  -pointsize 22;
  1558. insertPara $ti shift ;
  1559. insert $ti shift -string "\}"  -pointsize 22;
  1560. insertPara $ti shift ;
  1561. insert $ti shift -string "bind .list <Control-c> \{destroy .\}"  -pointsize 22;
  1562. insertPara $ti shift ;
  1563. insert $ti shift -string "focus .list"  -pointsize 22;
  1564. insertPara $ti shift ;
  1565. tlconfig $ti cursor  -paraspace 1.75;
  1566. insert $ti shift -string "proc browse \{dir file\} \{"  -pointsize 22;
  1567. insertPara $ti shift ;
  1568. tlconfig $ti cursor  -paraspace 0.500;
  1569. insert $ti shift -string "    if \{\$dir != \".\"\} \{"  -pointsize 22;
  1570. insertPara $ti shift ;
  1571. insert $ti shift -string "        set file \$dir/\$file"  -pointsize 22;
  1572. insertPara $ti shift ;
  1573. insert $ti shift -string "    \}"  -pointsize 22;
  1574. insertPara $ti shift ;
  1575. insert $ti shift -string "    if \[file isdirectory \$file\] \{"  -pointsize 22;
  1576. insertPara $ti shift ;
  1577. insert $ti shift -string "        exec browse \$file &"  -pointsize 22;
  1578. insertPara $ti shift ;
  1579. insert $ti shift -string "    \} else \{"  -pointsize 22;
  1580. insertPara $ti shift ;
  1581. insert $ti shift -string "        if \[file isfile \$file\] \{"  -pointsize 22;
  1582. insertPara $ti shift ;
  1583. insert $ti shift -string "            exec xedit \$file &"  -pointsize 22;
  1584. insertPara $ti shift ;
  1585. insert $ti shift -string "        \} else \{"  -pointsize 22;
  1586. insertPara $ti shift ;
  1587. insert $ti shift -string "            puts stdout \"\\\"\$file\\\" isn't \\"  -pointsize 22;
  1588. insertPara $ti shift ;
  1589. insert $ti shift -string "                a regular file or \\"  -pointsize 22;
  1590. insertPara $ti shift ;
  1591. insert $ti shift -string "                directory\""  -pointsize 22;
  1592. insertPara $ti shift ;
  1593. insert $ti shift -string "        \}"  -pointsize 22;
  1594. insertPara $ti shift ;
  1595. insert $ti shift -string "    \}"  -pointsize 22;
  1596. insertPara $ti shift ;
  1597. insert $ti shift -string "\}"  -pointsize 22;
  1598. tiformat $ti 20 1 20 2 -pointsize 22;
  1599. set ti;
  1600.  
  1601. view active 23slide
  1602. backg - 5
  1603. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1604. tiformat $ti 0 0 0 1 -revert 1;
  1605. insert $ti shift -revert 1;
  1606. tlconfig $ti cursor  -look Title;
  1607. insert $ti shift -revert 1;
  1608. insert $ti shift -string "Summary" ;
  1609. set ti;
  1610. set ti [new - textitem "36 162 585 615.9848" -look TextBox];
  1611. tiformat $ti 0 0 0 1 -revert 1;
  1612. insert $ti shift -revert 1;
  1613. tlconfig $ti cursor  -look Heading;
  1614. insert $ti shift -revert 1;
  1615. insert $ti shift -string "Creating interfaces with Tcl scripts is easy:" ;
  1616. insertPara $ti shift ;
  1617. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1618. insert $ti shift -string "Create widgets" ;
  1619. insertPara $ti shift ;
  1620. tlconfig $ti cursor -plook { -color Red};
  1621. insert $ti shift -string "Arrange with geometry managers." ;
  1622. insertPara $ti shift ;
  1623. tlconfig $ti cursor -plook { -color Red};
  1624. insert $ti shift -string "Connect to application, each other." ;
  1625. insertPara $ti shift ;
  1626. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  1627. insert $ti shift -string "Power from single scripting language:" ;
  1628. insertPara $ti shift ;
  1629. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1630. insert $ti shift -string "For specifying user interface." ;
  1631. insertPara $ti shift ;
  1632. tlconfig $ti cursor -plook { -color Red};
  1633. insert $ti shift -string "For widgets to invoke application." ;
  1634. insertPara $ti shift ;
  1635. tlconfig $ti cursor -plook { -color Red};
  1636. insert $ti shift -string "For widgets to communicate with each other." ;
  1637. insertPara $ti shift ;
  1638. tlconfig $ti cursor -plook { -color Red};
  1639. insert $ti shift -string "For communicating with outside world." ;
  1640. insertPara $ti shift ;
  1641. tlconfig $ti cursor -plook { -color Red};
  1642. insert $ti shift -string "For changing anything dynamically." ;
  1643. set ti;
  1644.  
  1645. MakeWindow slide 11 0 .views.1 682x843+0+-1
  1646. SpotConfig .views.1 0 3 1 on
  1647. UpdateTitles; set generateName 2
  1648.