home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / tut / over.ppres < prev    next >
Encoding:
Text File  |  1993-02-01  |  59.4 KB  |  1,455 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.00 -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.00 -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 1 -italic 0 -underline 0 -left 18.00 -indent -18.00 -right 0.00 -top 0.00 -bottom 0.00 -linespace 1.00 -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 90 90 126 162 198 234 270 306 342 378 414} -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.00 -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.00 -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.00 -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.00 -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.00 -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.00 -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.20 -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. talk itemconfig  -look Drawing -fg Green -bg None -width 1.00 -arrow head -feather White -dir 90
  32. talk textconfig  -look TextBox
  33. talk paraconfig  -look BHeading
  34. set talk(textUnits) i
  35. set talk(featherSwatches) 16
  36. set talk(noteOrientation) v
  37. set talk(backgOrientation) v
  38. set talk(featherPrint) 1
  39. set talk(gridGridi) 8
  40. set talk(windowZoom) 1
  41. set talk(pointsize) {8 10 12 14 16 17 18 24 36}
  42. set talk(grid) 9
  43. set talk(textGridc) 5
  44. set talk(pagesize) {612 792}
  45. set talk(gridUnits) i
  46. set talk(textGridi) 8
  47. set talk(featherBlend) color
  48. set talk(spacing) {0.00 0.50 1.00 1.2 1.50 1.75 2.00 2.5 3.00 4.0}
  49. set talk(featherDisplay) 1
  50. set talk(printLevel) 2
  51. set talk(customUnits) i
  52. set talk(gridGridc) 5
  53. view active 1backg
  54. orientation - v
  55. set ti [new - title "54 95 558 140.956" -look TextBox];
  56. tiformat $ti 0 0 0 1 -revert 1;
  57. insert $ti shift -revert 1;
  58. tlconfig $ti cursor  -look Title -justify center;
  59. insert $ti shift -revert 1;
  60. insert $ti shift -color Blue;
  61. insert $ti shift -string "Title"  -color Blue;
  62. tiformat $ti 0 5 0 6 -color Blue;
  63. set ti;
  64.  
  65. view active 2backg
  66. orientation - v
  67. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  68. tiformat $ti 0 0 0 1 -revert 1;
  69. insert $ti shift -revert 1;
  70. tlconfig $ti cursor  -look Title;
  71. insert $ti shift -revert 1;
  72. insert $ti shift -string "Title" ;
  73. set ti;
  74. new - rectangle "27 108 585 114.75" -look Drawing -fg None -bg Blue -fp Blend -width 0.50 -feather White -dir 90
  75. set ti [new - textitem "387 702 585 718.004" -look TextBox];
  76. tiformat $ti 0 0 0 1 -revert 1;
  77. insert $ti shift -revert 1;
  78. tlconfig $ti cursor  -look Text -justify right;
  79. insert $ti shift -revert 1;
  80. insert $ti shift -family Helvetica -pointsize 12;
  81. insert $ti shift -string "Tcl/Tk overview, slide "  -family Helvetica -pointsize 12;
  82. set id [PowerCreate 1 $ti cursor {Page Number} Numbers { -family Helvetica -pointsize 12} -1 { 21 }];
  83. insert $ti shift -string "."  -family Helvetica -pointsize 12;
  84. tiformat $ti 0 28 0 29 -pointsize 12;
  85. set ti;
  86.  
  87. view active 3backg
  88. orientation - v
  89. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  90. tiformat $ti 0 0 0 1 -revert 1;
  91. insert $ti shift -revert 1;
  92. tlconfig $ti cursor  -look Title;
  93. insert $ti shift -revert 1;
  94. insert $ti shift -string "Title" ;
  95. set ti;
  96. new - rectangle "27 108 585 114.75" -look Drawing -fg None -bg Blue -fp Blend -width 0.50 -feather White -dir 90
  97. set ti [new - textitem "387 702 585 717.428" -look TextBox];
  98. tiformat $ti 0 0 0 1 -revert 1;
  99. insert $ti shift -revert 1;
  100. tlconfig $ti cursor  -look Text;
  101. insert $ti shift -revert 1;
  102. insert $ti shift -pointsize 12;
  103. insert $ti shift -string "WRL update talk, 10/27/92, slide "  -pointsize 12;
  104. set id [PowerCreate 1 $ti cursor {Page Number} Numbers { -pointsize 12} -1 { 3 }];
  105. insert $ti shift -string "."  -pointsize 12;
  106. tiformat $ti 0 37 0 38 -pointsize 12;
  107. set ti;
  108.  
  109. view active 1slide
  110. backg - 1
  111. set ti [new - title "27 140 585 296.1016" -look TextBox];
  112. tiformat $ti 0 0 0 1 -revert 1;
  113. insert $ti shift -revert 1;
  114. tlconfig $ti cursor  -look Title -justify center;
  115. insert $ti shift -revert 1;
  116. insert $ti shift -string "Tcl and Tk:" ;
  117. insertPara $ti shift ;
  118. insert $ti shift -string "A Programming System" ;
  119. insertPara $ti shift ;
  120. insert $ti shift -string "for X11 User Interfaces" ;
  121. set ti;
  122. set ti [new - textitem "27 423 585 636.824" -look TextBox];
  123. tiformat $ti 0 0 0 1 -revert 1;
  124. insert $ti shift -revert 1;
  125. tlconfig $ti cursor  -look Heading -paraspace 1.00 -justify center;
  126. insert $ti shift -revert 1;
  127. insert $ti shift -color Red -bold 0 -italic 0 -underline 0;
  128. insert $ti shift -string "John Ousterhout"  -color Red -bold 0 -italic 0 -underline 0;
  129. insertPara $ti shift ;
  130. insertPara $ti shift  -color -1;
  131. insertPara $ti shift ;
  132. insert $ti shift -string "Computer Science Division"  -bold 0 -italic 0 -underline 0;
  133. insertPara $ti shift ;
  134. insert $ti shift -string "Department of EECS"  -bold 0 -italic 0 -underline 0;
  135. insertPara $ti shift ;
  136. insertPara $ti shift ;
  137. insert $ti shift -string "University of California at Berkeley"  -bold 0 -italic 0 -underline 0;
  138. tiformat $ti 6 36 6 37 -bold 0 -italic 0 -underline 0;
  139. set ti;
  140. set ti [new - textitem "81 270 126 301.304" -look TextBox];
  141. tiformat $ti 0 0 0 1 -revert 1;
  142. insert $ti shift -revert 1;
  143. tlconfig $ti cursor  -look Heading;
  144. insert $ti shift -revert 1;
  145. set ti;
  146.  
  147. view active 1note
  148. orientation - v
  149. icon - 100.45455 40 0.67171717
  150.  
  151. view active 2slide
  152. backg - 2
  153. set ti [new - textitem "45 144 585 683.01536" -look TextBox];
  154. tiformat $ti 0 0 0 1 -revert 1;
  155. insert $ti shift -revert 1;
  156. tlconfig $ti cursor  -look Heading;
  157. insert $ti shift -revert 1;
  158. insert $ti shift -string "What I've built:" ;
  159. insertPara $ti shift ;
  160. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  161. insert $ti shift -string "Tcl: embeddable command language." ;
  162. insertPara $ti shift ;
  163. tlconfig $ti cursor -plook { -color Red};
  164. insert $ti shift -string "Tk: X11 toolkit and widgets based on Tcl." ;
  165. insertPara $ti shift ;
  166. tlconfig $ti cursor  -look Heading;
  167. insert $ti shift -string "The principle: " ;
  168. insert $ti shift -color Green -bold 0 -italic 0 -underline 0;
  169. insert $ti shift -string "single interpretive language controls all aspects of all interactive applications."  -color Green -bold 0 -italic 0 -underline 0;
  170. insertPara $ti shift  -color -1 -bold -1 -italic -1 -underline -1;
  171. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  172. insert $ti shift -string "Function of application." ;
  173. insertPara $ti shift ;
  174. tlconfig $ti cursor -plook { -color Red};
  175. insert $ti shift -string "Interface of application." ;
  176. insertPara $ti shift ;
  177. tlconfig $ti cursor -plook { -color Red};
  178. insert $ti shift -string "Composing pieces of application." ;
  179. insertPara $ti shift ;
  180. tlconfig $ti cursor -plook { -color Red};
  181. insert $ti shift -string "Communication between applications." ;
  182. insertPara $ti shift ;
  183. tlconfig $ti cursor  -look Heading;
  184. insert $ti shift -string "Results:" ;
  185. insertPara $ti shift ;
  186. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  187. insert $ti shift -string "Raise the level of X programming (simpler, 5-10x faster application development)." ;
  188. insertPara $ti shift ;
  189. tlconfig $ti cursor -plook { -color Red};
  190. insert $ti shift -string "Greater power (more things programmable, program applications to work together)." ;
  191. set ti;
  192. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  193. tiformat $ti 0 0 0 1 -revert 1;
  194. insert $ti shift -revert 1;
  195. tlconfig $ti cursor  -look Title;
  196. insert $ti shift -revert 1;
  197. insert $ti shift -string "O" ;
  198. insert $ti shift -color Blue;
  199. insert $ti shift -string "ver"  -color Blue;
  200. insert $ti shift -color -1;
  201. insert $ti shift -string "view" ;
  202. set ti;
  203.  
  204. view active 2note
  205. orientation - v
  206. icon - 143.99955 40 0.56216652
  207. set ti [new - textitem "45 549 585 582.272" -look TextBox];
  208. tiformat $ti 0 0 0 1 -revert 1;
  209. insert $ti shift -revert 1;
  210. tlconfig $ti cursor  -look BHeading;
  211. insert $ti shift -revert 1;
  212. insert $ti shift -string "Distributed shell language." ;
  213. set ti;
  214.  
  215. view active 3slide
  216. backg - 2
  217. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  218. tiformat $ti 0 0 0 1 -revert 1;
  219. insert $ti shift -revert 1;
  220. tlconfig $ti cursor  -look Title;
  221. insert $ti shift -revert 1;
  222. insert $ti shift -string "Outline" ;
  223. set ti;
  224. set ti [new - textitem "45 180 585 541.592" -look TextBox];
  225. tiformat $ti 0 0 0 1 -revert 1;
  226. insert $ti shift -revert 1;
  227. tlconfig $ti cursor -plook { -color Red} -look 1.Heading -paraspace 3.00;
  228. insert $ti shift -revert 1;
  229. insert $ti shift -string "The Tcl language." ;
  230. insertPara $ti shift ;
  231. tlconfig $ti cursor -plook { -color Red};
  232. insert $ti shift -string "The Tk toolkit." ;
  233. insertPara $ti shift ;
  234. tlconfig $ti cursor -plook { -color Red};
  235. insert $ti shift -string "Tk applications." ;
  236. insertPara $ti shift ;
  237. tlconfig $ti cursor -plook { -color Red};
  238. insert $ti shift -string "Composing applications: " ;
  239. insert $ti shift -color Red;
  240. insert $ti shift -string "hypertools"  -color Red;
  241. insert $ti shift -color -1;
  242. insert $ti shift -string "." ;
  243. insertPara $ti shift ;
  244. tlconfig $ti cursor -plook { -color Red};
  245. insert $ti shift -string "Status and conclusions." ;
  246. set ti;
  247.  
  248. view active 3note
  249. orientation - v
  250. icon - 163.45455 40 0.50631313
  251.  
  252. view active 4slide
  253. backg - 2
  254. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  255. tiformat $ti 0 0 0 1 -revert 1;
  256. insert $ti shift -revert 1;
  257. tlconfig $ti cursor  -look Title;
  258. insert $ti shift -revert 1;
  259. insert $ti shift -string "Tcl: Tool Command Language" ;
  260. set ti;
  261. set ti [new - textitem "45 162 585 650.56028" -look TextBox];
  262. tiformat $ti 0 0 0 1 -revert 1;
  263. insert $ti shift -revert 1;
  264. tlconfig $ti cursor  -look Heading -paraspace 1.75;
  265. insert $ti shift -revert 1;
  266. insert $ti shift -string "Problem:" ;
  267. insertPara $ti shift ;
  268. tlconfig $ti cursor -plook { -color Red} -look BSubheading -paraspace 1.75;
  269. insert $ti shift -string "Interactive programs need command languages." ;
  270. insertPara $ti shift ;
  271. tlconfig $ti cursor -plook { -color Red};
  272. insert $ti shift -string "Traditionally redone for each application." ;
  273. insertPara $ti shift ;
  274. tlconfig $ti cursor -plook { -color Red};
  275. insert $ti shift -string "Result: weak, quirky." ;
  276. insertPara $ti shift ;
  277. tlconfig $ti cursor -plook { -color Red};
  278. insert $ti shift -string "Emacs and csh nice, but can't reuse." ;
  279. insertPara $ti shift ;
  280. tlconfig $ti cursor  -look Subheading;
  281. insertPara $ti shift ;
  282. tlconfig $ti cursor  -look Heading -paraspace 1.75;
  283. insert $ti shift -string "Solution: Tcl" ;
  284. insertPara $ti shift ;
  285. tlconfig $ti cursor -plook { -color Red} -look BSubheading -paraspace 1.75;
  286. insert $ti shift -string "Command language = " ;
  287. insert $ti shift -color Red;
  288. insert $ti shift -string "embeddable"  -color Red;
  289. insert $ti shift -color -1;
  290. insert $ti shift -string " C library." ;
  291. insertPara $ti shift ;
  292. tlconfig $ti cursor -plook { -color Red};
  293. insert $ti shift -string "Powerful features: procedures, variables, lists, expressions, loops, etc." ;
  294. insertPara $ti shift ;
  295. tlconfig $ti cursor -plook { -color Red};
  296. insert $ti shift -string "Extensible by applications." ;
  297. set ti;
  298.  
  299. view active 4note
  300. orientation - v
  301. icon - 154.45455 40 0.49494949
  302. set ti [new - textitem "45 504 576 672.122" -look TextBox];
  303. tiformat $ti 0 0 0 1 -revert 1;
  304. insert $ti shift -revert 1;
  305. tlconfig $ti cursor  -look BHeading;
  306. insert $ti shift -revert 1;
  307. insert $ti shift -string "Create reusable command language." ;
  308. insertPara $ti shift ;
  309. tlconfig $ti cursor  -look Heading;
  310. insertPara $ti shift ;
  311. tlconfig $ti cursor  -look BHeading;
  312. insert $ti shift -string "Application = primitives" ;
  313. insertPara $ti shift ;
  314. insert $ti shift -string "Tcl = glue, composition" ;
  315. set ti;
  316.  
  317. view active 5slide
  318. backg - 2
  319. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  320. tiformat $ti 0 0 0 1 -revert 1;
  321. insert $ti shift -revert 1;
  322. tlconfig $ti cursor  -look Title;
  323. insert $ti shift -revert 1;
  324. insert $ti shift -string "Language Philosophy" ;
  325. set ti;
  326. set ti [new - textitem "45 153 477 674.97776" -look TextBox];
  327. tiformat $ti 0 0 0 1 -revert 1;
  328. insert $ti shift -revert 1;
  329. tlconfig $ti cursor  -look Heading;
  330. insert $ti shift -revert 1;
  331. insert $ti shift -string "Classes of language:" ;
  332. insertPara $ti shift ;
  333. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  334. insert $ti shift -string "Large application implementation (structure, performance important)." ;
  335. insertPara $ti shift ;
  336. tlconfig $ti cursor -plook { -color Red};
  337. insert $ti shift -string "Scripting, extensions." ;
  338. insertPara $ti shift ;
  339. tlconfig $ti cursor -plook { -color Red};
  340. insert $ti shift -string "Interactive commands (structure bad, performance not critical)." ;
  341. insertPara $ti shift ;
  342. tlconfig $ti cursor  -look Heading -paraspace 2.50;
  343. insert $ti shift -string "One language can't meet all three needs?" ;
  344. insertPara $ti shift ;
  345. insert $ti shift -string "Tcl goals:" ;
  346. insertPara $ti shift ;
  347. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  348. insert $ti shift -string "Simple syntax (for humans)." ;
  349. insertPara $ti shift ;
  350. tlconfig $ti cursor -plook { -color Red};
  351. insert $ti shift -string "Programmable." ;
  352. insertPara $ti shift ;
  353. tlconfig $ti cursor -plook { -color Red};
  354. insert $ti shift -string "Easy to interpret." ;
  355. insertPara $ti shift ;
  356. tlconfig $ti cursor -plook { -color Red};
  357. insert $ti shift -string "Simple interface to C procedures." ;
  358. set ti;
  359. set ti [new - textitem "531 210.572 603 239.428" -look TextBox];
  360. tiformat $ti 0 0 0 1 -revert 1;
  361. insert $ti shift -revert 1;
  362. tlconfig $ti cursor  -look Text;
  363. insert $ti shift -revert 1;
  364. insert $ti shift -color Red;
  365. insert $ti shift -string "C"  -color Red;
  366. tiformat $ti 0 1 0 2 -color Red;
  367. set ti;
  368. set ti [new - textitem "531 294.848 594 326.152" -look TextBox];
  369. tiformat $ti 0 0 0 1 -revert 1;
  370. insert $ti shift -revert 1;
  371. tlconfig $ti cursor  -look Heading;
  372. insert $ti shift -revert 1;
  373. insert $ti shift -color Red;
  374. insert $ti shift -string "Tcl"  -color Red;
  375. tiformat $ti 0 3 0 4 -color Red;
  376. set ti;
  377. new - arc "495 198 508.5 216 0 5760" -look Drawing -fg Red -bg None -width 1.00
  378. new - arc "508.5 207 522 225 11520 5760" -look Drawing -fg Red -bg None -width 1.00
  379. new - arc "508.5 225 522 243 5760 5760" -look Drawing -fg Red -bg None -width 1.00
  380. new - arc "495 234 508.5 252 17280 5760" -look Drawing -fg Red -bg None -width 1.00
  381. new - line "508.5 207 508.5 216" -look Drawing -fg Red -width 1.00 -arrow none
  382. new - line "508.5 234 508.5 243" -look Drawing -fg Red -width 1.00 -arrow none
  383. new - arc "495 265.5 508.5 283.5 0 5760" -look Drawing -fg Red -bg None -width 1.00
  384. new - arc "508.5 310.5 522 328.5 5760 5760" -look Drawing -fg Red -bg None -width 1.00
  385. new - arc "508.5 292.5 522 310.5 11520 5760" -look Drawing -fg Red -bg None -width 1.00
  386. new - arc "495 337.5 508.5 355.5 17280 5760" -look Drawing -fg Red -bg None -width 1.00
  387. new - line "508.5 274.5 508.5 301.5" -look Drawing -fg Red -width 1.00 -arrow none
  388. new - line "508.5 319.5 508.5 346.5" -look Drawing -fg Red -width 1.00 -arrow none
  389.  
  390. view active 5note
  391. orientation - v
  392. icon - 163.45455 40 0.48358586
  393. set ti [new - textitem "36 477 576 555.518" -look TextBox];
  394. tiformat $ti 0 0 0 1 -revert 1;
  395. insert $ti shift -revert 1;
  396. tlconfig $ti cursor  -look BHeading;
  397. insert $ti shift -revert 1;
  398. insert $ti shift -string "Postscript: not human readable." ;
  399. insertPara $ti shift ;
  400. insert $ti shift -string "Lisp: doesn't work well with C." ;
  401. set ti;
  402.  
  403. view active 6slide
  404. backg - 2
  405. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  406. tiformat $ti 0 0 0 1 -revert 1;
  407. insert $ti shift -revert 1;
  408. tlconfig $ti cursor  -look Title;
  409. insert $ti shift -revert 1;
  410. insert $ti shift -string "Tcl Syntax" ;
  411. set ti;
  412. set ti [new - textitem "45 144 585 700.4" -look TextBox];
  413. tiformat $ti 0 0 0 1 -revert 1;
  414. insert $ti shift -revert 1;
  415. tlconfig $ti cursor  -look Heading;
  416. insert $ti shift -revert 1;
  417. insert $ti shift -string "Basic syntax like shells:" ;
  418. insertPara $ti shift ;
  419. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  420. insert $ti shift -string "Words separated by spaces:" ;
  421. insertPara $ti shift ;
  422. tlconfig $ti cursor  -look Code;
  423. insert $ti shift -string "      cmd arg arg arg ..." ;
  424. insertPara $ti shift ;
  425. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  426. insert $ti shift -string "Commands separated by newlines, semi-colons." ;
  427. insertPara $ti shift ;
  428. tlconfig $ti cursor -plook { -color Red};
  429. insert $ti shift -string "Commands return string results." ;
  430. insertPara $ti shift ;
  431. tlconfig $ti cursor  -look Heading -paraspace 2.00;
  432. insert $ti shift -string "Simple substitution rules:" ;
  433. insertPara $ti shift ;
  434. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  435. insert $ti shift -string "Variables:" ;
  436. insertPara $ti shift ;
  437. tlconfig $ti cursor  -look Code;
  438. insert $ti shift -string "     set a \$b" ;
  439. insertPara $ti shift ;
  440. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  441. insert $ti shift -string "Command results:" ;
  442. insertPara $ti shift ;
  443. tlconfig $ti cursor  -look Code;
  444. insert $ti shift -string "     set a \[expr \$b+2\]" ;
  445. insertPara $ti shift ;
  446. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  447. insert $ti shift -string "Complex arguments:" ;
  448. insertPara $ti shift ;
  449. tlconfig $ti cursor  -look Code;
  450. insert $ti shift -string "     if \$a<0 \{" ;
  451. insertPara $ti shift ;
  452. insert $ti shift -string "       puts stdout \"a is negative\"" ;
  453. insertPara $ti shift ;
  454. insert $ti shift -string "     \}" ;
  455. set ti;
  456.  
  457. view active 6note
  458. orientation - v
  459. icon - 163.45455 40 0.49494949
  460. set ti [new - textitem "36 495 576 598.106" -look TextBox];
  461. tiformat $ti 0 0 0 1 -revert 1;
  462. insert $ti shift -revert 1;
  463. tlconfig $ti cursor  -look BHeading;
  464. insert $ti shift -revert 1;
  465. insert $ti shift -string "Tcl = cross between sh, Lisp, and C." ;
  466. insertPara $ti shift ;
  467. insert $ti shift -string "Control structures implemented with commands, not special syntax." ;
  468. set ti;
  469.  
  470. view active 7slide
  471. backg - 2
  472. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  473. tiformat $ti 0 0 0 1 -revert 1;
  474. insert $ti shift -revert 1;
  475. tlconfig $ti cursor  -look Title;
  476. insert $ti shift -revert 1;
  477. insert $ti shift -string "More on the Tcl Language" ;
  478. set ti;
  479. set ti [new - textitem "45 162 585 614.8664" -look TextBox];
  480. tiformat $ti 0 0 0 1 -revert 1;
  481. insert $ti shift -revert 1;
  482. tlconfig $ti cursor  -look Heading;
  483. insert $ti shift -revert 1;
  484. insert $ti shift -string "Rich set of built-in commands:" ;
  485. insertPara $ti shift ;
  486. tlconfig $ti cursor -plook { -color Red} -look BSubheading -paraspace 1.75;
  487. insert $ti shift -string "Variables, associative arrays, lists." ;
  488. insertPara $ti shift ;
  489. tlconfig $ti cursor -plook { -color Red};
  490. insert $ti shift -string "Arithmetic expressions." ;
  491. insertPara $ti shift ;
  492. tlconfig $ti cursor -plook { -color Red};
  493. insert $ti shift -string "Conditionals, looping." ;
  494. insertPara $ti shift ;
  495. tlconfig $ti cursor -plook { -color Red};
  496. insert $ti shift -string "Procedures." ;
  497. insertPara $ti shift ;
  498. tlconfig $ti cursor -plook { -color Red};
  499. insert $ti shift -string "Access to UNIX files, commands." ;
  500. insertPara $ti shift ;
  501. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  502. insert $ti shift -string " Only  datatype is strings:" ;
  503. insertPara $ti shift ;
  504. tlconfig $ti cursor -plook { -color Red} -look BSubheading -paraspace 1.75;
  505. insert $ti shift -string "Easy access from C." ;
  506. insertPara $ti shift ;
  507. tlconfig $ti cursor -plook { -color Red};
  508. insert $ti shift -string "Programs and data interchangeable." ;
  509. set ti;
  510.  
  511. view active 7note
  512. orientation - v
  513. icon - 154.45455 40 0.49494949
  514.  
  515. view active 8slide
  516. backg - 2
  517. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  518. tiformat $ti 0 0 0 1 -revert 1;
  519. insert $ti shift -revert 1;
  520. tlconfig $ti cursor  -look Title;
  521. insert $ti shift -revert 1;
  522. insert $ti shift -string "Factorial Procedure" ;
  523. set ti;
  524. set ti [new - textitem "45 198 585 441.8384" -look TextBox];
  525. tiformat $ti 0 0 0 1 -revert 1;
  526. insert $ti shift -revert 1;
  527. tlconfig $ti cursor  -look Code;
  528. insert $ti shift -revert 1;
  529. insert $ti shift -string "proc fac x \{" ;
  530. insertPara $ti shift ;
  531. insert $ti shift -string "    if \$x==1 \{return 1\}" ;
  532. insertPara $ti shift ;
  533. insert $ti shift -string "    expr \$x*\[fac \[expr \$x-1\]\]" ;
  534. insertPara $ti shift ;
  535. insert $ti shift -string "\}" ;
  536. insertPara $ti shift ;
  537. insertPara $ti shift ;
  538. insertPara $ti shift ;
  539. insert $ti shift -color Red;
  540. insert $ti shift -string "fac 4"  -color Red;
  541. insert $ti shift -color -1;
  542. insert $ti shift -string " " ;
  543. insert $ti shift -family Times -color Black;
  544. insert $ti shift -string "returns"  -family Times -color Black;
  545. insert $ti shift -family -1 -color -1;
  546. insert $ti shift -string " " ;
  547. insert $ti shift -color Red;
  548. insert $ti shift -string "24"  -color Red;
  549. set ti;
  550.  
  551. view active 8note
  552. orientation - v
  553. icon - 151.06818 40 0.50631313
  554. set ti [new - textitem "45 486 576 519.272" -look TextBox];
  555. tiformat $ti 0 0 0 1 -revert 1;
  556. insert $ti shift -revert 1;
  557. tlconfig $ti cursor  -look BHeading;
  558. insert $ti shift -revert 1;
  559. insert $ti shift -string "Proc is a " ;
  560. insert $ti shift -underline 1;
  561. insert $ti shift -string "command"  -underline 1;
  562. set ti;
  563.  
  564. view active 9slide
  565. backg - 2
  566. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  567. tiformat $ti 0 0 0 1 -revert 1;
  568. insert $ti shift -revert 1;
  569. tlconfig $ti cursor  -look Title;
  570. insert $ti shift -revert 1;
  571. insert $ti shift -string "Embedding Tcl in Applications" ;
  572. set ti;
  573. new - rectangle "27 189 297 468" -look Drawing -fg Green -bg None -width 1.00 -feather White -dir 90
  574. new - rectangle "315 189 585 468" -look Drawing -fg Red -bg None -width 1.00 -feather White -dir 90
  575. new - rectangle "180 414 198 432" -look Drawing -fg Black -bg Green -width 1.00 -feather White -dir 90
  576. new - rectangle "144 414 162 432" -look Drawing -fg Black -bg Green -width 1.00 -feather White -dir 90
  577. new - rectangle "216 414 234 432" -look Drawing -fg Black -bg Green -width 1.00 -feather White -dir 90
  578. new - rectangle "252 414 270 432" -look Drawing -fg Black -bg Green -width 1.00 -feather White -dir 90
  579. set ti [new - textitem "36 400.1018 126 447.7342" -look TextBox];
  580. tiformat $ti 0 0 0 1 -revert 1;
  581. insert $ti shift -revert 1;
  582. tlconfig $ti cursor  -look Text;
  583. insert $ti shift -revert 1;
  584. insert $ti shift -pointsize 18 -bold 1;
  585. insert $ti shift -string "Built-in Commands"  -pointsize 18 -bold 1;
  586. tiformat $ti 0 17 0 18 -pointsize 18;
  587. set ti;
  588. set ti [new - textitem "477 391.1018 576 462.3886" -look TextBox];
  589. tiformat $ti 0 0 0 1 -revert 1;
  590. insert $ti shift -revert 1;
  591. tlconfig $ti cursor  -look Text;
  592. insert $ti shift -revert 1;
  593. insert $ti shift -pointsize 18 -bold 1;
  594. insert $ti shift -string "Application-Specific Commands"  -pointsize 18 -bold 1;
  595. tiformat $ti 0 29 0 30 -pointsize 18;
  596. set ti;
  597. new - rectangle "342 414 360 432" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  598. new - rectangle "378 414 396 432" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  599. new - rectangle "414 414 432 432" -look Drawing -fg Black -bg Red -width 1.00 -feather White -dir 90
  600. set ti [new - textitem "429.75 210.572 470.25 239.428" -look TextBox];
  601. tiformat $ti 0 0 0 1 -revert 1;
  602. insert $ti shift -revert 1;
  603. tlconfig $ti cursor  -look Text -justify center;
  604. insert $ti shift -revert 1;
  605. insert $ti shift -string "Init" ;
  606. set ti;;
  607. new - rectangle "423 207 477 243" -look Drawing -fg Black -bg None -width 1.00 -feather White -dir 90;
  608. group - 2
  609. set ti [new - textitem "175.5 282.572 238.5 311.428" -look TextBox];
  610. tiformat $ti 0 0 0 1 -revert 1;
  611. insert $ti shift -revert 1;
  612. tlconfig $ti cursor  -look Text -justify center;
  613. insert $ti shift -revert 1;
  614. insert $ti shift -string "Parser" ;
  615. set ti;;
  616. new - rectangle "171 279 243 315" -look Drawing -fg Black -bg None -width 1.00 -feather White -dir 90;
  617. group - 2
  618. set ti [new - textitem "396.25962 270.7448 503.74038 323.2552" -look TextBox];
  619. tiformat $ti 0 0 0 1 -revert 1;
  620. insert $ti shift -revert 1;
  621. tlconfig $ti cursor  -look Text -justify center;
  622. insert $ti shift -revert 1;
  623. insert $ti shift -string "Command Loop" ;
  624. set ti;;
  625. new - rectangle "387 270 513 324" -look Drawing -fg Black -bg None -width 1.00 -feather White -dir 90;
  626. group - 2
  627. new - line "387 297 243 297" -look Drawing -fg Black -width 0.50 -arrow head
  628. new - line "450 243 450 270" -look Drawing -fg Black -width 0.50 -arrow head
  629. new - line "234 315 234 351 423 351 423 414" -look Drawing -fg Black -width 0.50 -arrow head
  630. new - line "225 315 225 360 387 360 387 414" -look Drawing -fg Black -width 0.50 -arrow head
  631. new - line "216 315 216 369 351 369 351 414" -look Drawing -fg Black -width 0.50 -arrow head
  632. new - line "207 315 207 378 261 378 261 414" -look Drawing -fg Black -width 0.50 -arrow head
  633. new - line "180 315 180 351 153 351 153 414" -look Drawing -fg Black -width 0.50 -arrow head
  634. new - line "189 315 189 414" -look Drawing -fg Black -width 0.50 -arrow head
  635. new - line "198 315 198 387 225 387 225 414" -look Drawing -fg Black -width 0.50 -arrow head
  636. new - line "423 225 207 225 207 279" -look Drawing -fg Black -width 0.50 -arrow head
  637. set ti [new - textitem "27 153 126 181.856" -look TextBox];
  638. tiformat $ti 0 0 0 1 -revert 1;
  639. insert $ti shift -revert 1;
  640. tlconfig $ti cursor  -look Text;
  641. insert $ti shift -revert 1;
  642. insert $ti shift -color Green;
  643. insert $ti shift -string "Tcl"  -color Green;
  644. tiformat $ti 0 3 0 4 -color Green;
  645. set ti;
  646. set ti [new - textitem "423 153 585 181.856" -look TextBox];
  647. tiformat $ti 0 0 0 1 -revert 1;
  648. insert $ti shift -revert 1;
  649. tlconfig $ti cursor  -look Text -justify right;
  650. insert $ti shift -revert 1;
  651. insert $ti shift -color Red;
  652. insert $ti shift -string "Application"  -color Red;
  653. set ti;
  654. set ti [new - textitem "9 513 585 658.00448" -look TextBox];
  655. tiformat $ti 0 0 0 1 -revert 1;
  656. insert $ti shift -revert 1;
  657. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  658. insert $ti shift -revert 1;
  659. insert $ti shift -string "Application generates Tcl scripts." ;
  660. insertPara $ti shift ;
  661. tlconfig $ti cursor -plook { -color Red};
  662. insert $ti shift -string "Tcl parses, substitutes, passes argc/argv to command procedures." ;
  663. insertPara $ti shift ;
  664. tlconfig $ti cursor -plook { -color Red};
  665. insert $ti shift -string "Application extends built-in command set." ;
  666. set ti;
  667.  
  668. view active 9note
  669. orientation - v
  670. icon - 154.54545 40 0.49494949
  671. set ti [new - textitem "45 477 576 600.764" -look TextBox];
  672. tiformat $ti 0 0 0 1 -revert 1;
  673. insert $ti shift -revert 1;
  674. tlconfig $ti cursor  -look BHeading;
  675. insert $ti shift -revert 1;
  676. insert $ti shift -string "Shell: scripts read from command line." ;
  677. insertPara $ti shift ;
  678. insert $ti shift -string "Tk: scripts associated with X events." ;
  679. insertPara $ti shift ;
  680. insert $ti shift -string "Can create new commands dynamically." ;
  681. set ti;
  682.  
  683. view active 10slide
  684. backg - 2
  685. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  686. tiformat $ti 0 0 0 1 -revert 1;
  687. insert $ti shift -revert 1;
  688. tlconfig $ti cursor  -look Title;
  689. insert $ti shift -revert 1;
  690. insert $ti shift -string "The Tk Toolkit" ;
  691. set ti;
  692. set ti [new - textitem "45 162 585 624.42656" -look TextBox];
  693. tiformat $ti 0 0 0 1 -revert 1;
  694. insert $ti shift -revert 1;
  695. tlconfig $ti cursor  -look Heading;
  696. insert $ti shift -revert 1;
  697. insert $ti shift -string "The problem:" ;
  698. insertPara $ti shift ;
  699. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  700. insert $ti shift -string "Too hard to build applications with nice user interfaces." ;
  701. insertPara $ti shift ;
  702. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  703. insert $ti shift -string "The wrong solution:" ;
  704. insertPara $ti shift ;
  705. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  706. insert $ti shift -string "C++, object-oriented toolkits." ;
  707. insertPara $ti shift ;
  708. tlconfig $ti cursor -plook { -color Red};
  709. insert $ti shift -string "Only small improvement (10-20%?): must still program at a low level." ;
  710. insertPara $ti shift ;
  711. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  712. insert $ti shift -string "The right solution:" ;
  713. insertPara $ti shift ;
  714. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  715. insert $ti shift -string "Raise the level of programming." ;
  716. insertPara $ti shift ;
  717. tlconfig $ti cursor -plook { -color Red};
  718. insert $ti shift -string "Create interfaces by writing Tcl scripts." ;
  719. set ti;
  720.  
  721. view active 10note
  722. orientation - v
  723. icon - 154.54545 40 0.49494949
  724.  
  725. view active 11slide
  726. backg - 2
  727. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  728. tiformat $ti 0 0 0 1 -revert 1;
  729. insert $ti shift -revert 1;
  730. tlconfig $ti cursor  -look Title;
  731. insert $ti shift -revert 1;
  732. insert $ti shift -string "Creating Interfaces with Tk" ;
  733. set ti;
  734. set ti [new - textitem "45 198 585 621.5384" -look TextBox];
  735. tiformat $ti 0 0 0 1 -revert 1;
  736. insert $ti shift -revert 1;
  737. tlconfig $ti cursor  -look Heading;
  738. insert $ti shift -revert 1;
  739. insert $ti shift -string "Widgets/windows have " ;
  740. insert $ti shift -color Red;
  741. insert $ti shift -string "path names"  -color Red;
  742. insert $ti shift -color -1;
  743. insert $ti shift -string ":" ;
  744. insertPara $ti shift ;
  745. tlconfig $ti cursor  -look Code -paraspace 2.00;
  746. insert $ti shift -string ".dlg.quit" ;
  747. insertPara $ti shift ;
  748. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  749. insert $ti shift -string "Create widget with command named after class:" ;
  750. insertPara $ti shift ;
  751. tlconfig $ti cursor  -look Code -paraspace 2.00;
  752. insert $ti shift -string "button .dlg.quit -text Quit \\" ;
  753. insertPara $ti shift ;
  754. tlconfig $ti cursor  -paraspace 1.00;
  755. insert $ti shift -string "    -foreground red -command exit" ;
  756. insertPara $ti shift ;
  757. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  758. insert $ti shift -string "Tell geometry manager where to display widget:" ;
  759. insertPara $ti shift ;
  760. tlconfig $ti cursor  -look Code -paraspace 2.00;
  761. insert $ti shift -string "place .dlg.quit -x 0 -y 0" ;
  762. insertPara $ti shift ;
  763. tlconfig $ti cursor  -paraspace -1;
  764. insert $ti shift -string "pack .dlg.quit -side bottom" ;
  765. set ti;
  766.  
  767. view active 11note
  768. orientation - v
  769. icon - 140.63636 40 0.54040404
  770.  
  771. view active 12slide
  772. backg - 2
  773. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  774. tiformat $ti 0 0 0 1 -revert 1;
  775. insert $ti shift -revert 1;
  776. tlconfig $ti cursor  -look Title;
  777. insert $ti shift -revert 1;
  778. insert $ti shift -string "Other Tk Features" ;
  779. set ti;
  780. set ti [new - textitem "45 153 585 656.798" -look TextBox];
  781. tiformat $ti 0 0 0 1 -revert 1;
  782. insert $ti shift -revert 1;
  783. tlconfig $ti cursor  -look Heading;
  784. insert $ti shift -revert 1;
  785. insert $ti shift -string "Manipulate widgets with " ;
  786. insert $ti shift -color Red;
  787. insert $ti shift -string "widget commands"  -color Red;
  788. insert $ti shift -color -1;
  789. insert $ti shift -string ":" ;
  790. insertPara $ti shift ;
  791. tlconfig $ti cursor  -look Code -paraspace 1.50;
  792. insert $ti shift -string ".dlg.quit flash" ;
  793. insertPara $ti shift ;
  794. tlconfig $ti cursor  -paraspace -1;
  795. insert $ti shift -string ".dlg.quit configure -relief sunken" ;
  796. insertPara $ti shift ;
  797. tlconfig $ti cursor  -look Heading -paraspace 2.50;
  798. insert $ti shift -string "Use Tcl for interconnection:" ;
  799. insertPara $ti shift ;
  800. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  801. insert $ti shift -string "Buttons, menu entries invoke Tcl commands." ;
  802. insertPara $ti shift ;
  803. tlconfig $ti cursor -plook { -color Red};
  804. insert $ti shift -string "Scrollbars and listboxes communicate with Tcl." ;
  805. insertPara $ti shift ;
  806. tlconfig $ti cursor -plook { -color Red};
  807. insert $ti shift -string "Can define new event bindings in Tcl." ;
  808. insertPara $ti shift ;
  809. tlconfig $ti cursor -plook { -color Red};
  810. insert $ti shift -string "Selection, focus accessible via Tcl." ;
  811. insertPara $ti shift ;
  812. tlconfig $ti cursor  -look Heading -paraspace 2.50;
  813. insert $ti shift -string "Tk also provides C interfaces:" ;
  814. insertPara $ti shift ;
  815. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  816. insert $ti shift -string "Create new widget classes." ;
  817. insertPara $ti shift ;
  818. tlconfig $ti cursor -plook { -color Red};
  819. insert $ti shift -string "Create new geometry managers." ;
  820. set ti;
  821.  
  822. view active 12note
  823. orientation - v
  824. icon - 151.06818 40 0.50631313
  825. set ti [new - textitem "45 495 576 552.86" -look TextBox];
  826. tiformat $ti 0 0 0 1 -revert 1;
  827. insert $ti shift -revert 1;
  828. tlconfig $ti cursor  -look BHeading;
  829. insert $ti shift -revert 1;
  830. insert $ti shift -string "Mention Tk widgets have 4x less code than Motif widgets?" ;
  831. set ti;
  832.  
  833. view active 13slide
  834. backg - 2
  835. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  836. tiformat $ti 0 0 0 1 -revert 1;
  837. insert $ti shift -revert 1;
  838. tlconfig $ti cursor  -look Title;
  839. insert $ti shift -revert 1;
  840. insert $ti shift -string "What's  a Tk-based application?" ;
  841. set ti;
  842. set ti [new - textitem "45 153 585 590.56568" -look TextBox];
  843. tiformat $ti 0 0 0 1 -revert 1;
  844. insert $ti shift -revert 1;
  845. tlconfig $ti cursor  -look 1.Heading;
  846. insert $ti shift -revert 1;
  847. insert $ti shift -string "The Tcl interpreter." ;
  848. insertPara $ti shift ;
  849. tlconfig $ti cursor  -paraspace 2.50;
  850. insert $ti shift -string "The Tk toolkit." ;
  851. insertPara $ti shift ;
  852. insert $ti shift -string "Application-specific C code:" ;
  853. insertPara $ti shift ;
  854. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  855. insert $ti shift -string "New object types." ;
  856. insertPara $ti shift ;
  857. tlconfig $ti cursor -plook { -color Red};
  858. insert $ti shift -string "New widgets." ;
  859. insertPara $ti shift ;
  860. tlconfig $ti cursor  -look 1.Heading -paraspace 2.50;
  861. insert $ti shift -string "Tcl scripts:" ;
  862. insertPara $ti shift ;
  863. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  864. insert $ti shift -string "Build user interface." ;
  865. insertPara $ti shift ;
  866. tlconfig $ti cursor -plook { -color Red};
  867. insert $ti shift -string "Compose application primitives into useful functions." ;
  868. set ti;
  869. new - arc "360 333 373.5 346.5 0 5760" -look Drawing -fg Red -bg None -width 1.00;
  870. new - arc "373.5 373.5 387 387 5760 5760" -look Drawing -fg Red -bg None -width 1.00;
  871. new - arc "373.5 360 387 373.5 11520 5760" -look Drawing -fg Red -bg None -width 1.00;
  872. new - arc "360 400.5 373.5 414 17280 5760" -look Drawing -fg Red -bg None -width 1.00;
  873. new - line "373.5 339.75 373.5 366.75" -look Drawing -fg Red -width 1.00 -arrow none;
  874. new - line "373.5 380.25 373.5 407.25" -look Drawing -fg Red -width 1.00 -arrow none;
  875. group - 6
  876. set ti [new - textitem "396 359.072 594 387.928" -look TextBox];
  877. tiformat $ti 0 0 0 1 -revert 1;
  878. insert $ti shift -revert 1;
  879. tlconfig $ti cursor  -look Text;
  880. insert $ti shift -revert 1;
  881. insert $ti shift -color Red;
  882. insert $ti shift -string "Tcl commands"  -color Red;
  883. tiformat $ti 0 12 0 13 -color Red;
  884. set ti;
  885.  
  886. view active 13note
  887. orientation - v
  888. icon - 147.59091 40 0.51767677
  889. set ti [new - textitem "45 504 576 537.272" -look TextBox];
  890. tiformat $ti 0 0 0 1 -revert 1;
  891. insert $ti shift -revert 1;
  892. tlconfig $ti cursor  -look BHeading;
  893. insert $ti shift -revert 1;
  894. insert $ti shift -string "No need for special user-interface language." ;
  895. set ti;
  896.  
  897. view active 14slide
  898. backg - 2
  899. set ti [new - title "45 63.5 594 109.456" -look TextBox];
  900. tiformat $ti 0 0 0 1 -revert 1;
  901. insert $ti shift -revert 1;
  902. tlconfig $ti cursor  -look Title;
  903. insert $ti shift -revert 1;
  904. insert $ti shift -string "The Simplest Tk Application: Wish" ;
  905. set ti;
  906. set ti [new - textitem "45 135 594 339.9596" -look TextBox];
  907. tiformat $ti 0 0 0 1 -revert 1;
  908. insert $ti shift -revert 1;
  909. tlconfig $ti cursor  -look Heading -justify left;
  910. insert $ti shift -revert 1;
  911. insert $ti shift -string "No C code except command-line reader." ;
  912. insertPara $ti shift ;
  913. tlconfig $ti cursor  -paraspace 2.00;
  914. insert $ti shift -string "Can build many applications as " ;
  915. insert $ti shift -family Courier -bold 0 -italic 0 -underline 0;
  916. insert $ti shift -string "wish"  -family Courier -bold 0 -italic 0 -underline 0;
  917. insert $ti shift -family -1 -bold -1 -italic -1 -underline -1;
  918. insert $ti shift -string " scripts:" ;
  919. insertPara $ti shift ;
  920. tlconfig $ti cursor -plook { -color Red} -look BSubheading -paraspace 1.50;
  921. insert $ti shift -string "Hello, world:" ;
  922. insertPara $ti shift ;
  923. tlconfig $ti cursor  -look Code -paraspace 1.50;
  924. insert $ti shift -string "   label .hello -text \"Hello, world\"" ;
  925. insertPara $ti shift ;
  926. tlconfig $ti cursor  -paraspace 1.00;
  927. insert $ti shift -string "   pack .hello" ;
  928. set ti;
  929. Image - image "396 333 568.74934 685" eps/browse.eps eps ref
  930. set ti [new - textitem "45 468 378 527.97728" -look TextBox];
  931. tiformat $ti 0 0 0 1 -revert 1;
  932. insert $ti shift -revert 1;
  933. tlconfig $ti cursor -plook { -color Red} -look BSubheading -linespace 1.20;
  934. insert $ti shift -revert 1;
  935. insert $ti shift -string "Simple directory browser: 30 lines." ;
  936. set ti;
  937. Image - image "144 351 240 408" eps/hello.eps eps ref
  938.  
  939. view active 14note
  940. orientation - v
  941. icon - 151.06818 40 0.50631313
  942. set ti [new - textitem "45 495 585 573.518" -look TextBox];
  943. tiformat $ti 0 0 0 1 -revert 1;
  944. insert $ti shift -revert 1;
  945. tlconfig $ti cursor  -look BHeading;
  946. insert $ti shift -revert 1;
  947. insert $ti shift -string "Hello = 25 lines with Xt/Motif." ;
  948. insertPara $ti shift ;
  949. insert $ti shift -string "Lead-in for next slide: 2 widgets in browser." ;
  950. set ti;
  951.  
  952. view active 15slide
  953. backg - 2
  954. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  955. tiformat $ti 0 0 0 1 -revert 1;
  956. insert $ti shift -revert 1;
  957. tlconfig $ti cursor  -look Title;
  958. insert $ti shift -revert 1;
  959. insert $ti shift -string "Browser Wish Script" ;
  960. set ti;
  961. set ti [new - textitem "9 126 594 733.43" -look TextBox];
  962. tiformat $ti 0 0 0 1 -revert 1;
  963. insert $ti shift -revert 1;
  964. tlconfig $ti cursor  -look Code -paraspace 0.50;
  965. insert $ti shift -revert 1;
  966. insert $ti shift -color Black -pointsize 18 -bold 0 -italic 0 -underline 0;
  967. insert $ti shift -string "listbox .list -yscroll \".scroll set\" \\"  -color Black -pointsize 18 -bold 0 -italic 0 -underline 0;
  968. insertPara $ti shift ;
  969. insert $ti shift -string "    -relief raised -geometry 20x20"  -color Black -pointsize 18 -bold 0 -italic 0 -underline 0;
  970. insertPara $ti shift ;
  971. insert $ti shift -string "pack .list -side left"  -color Black -pointsize 18 -bold 0 -italic 0 -underline 0;
  972. insertPara $ti shift ;
  973. insert $ti shift -string "scrollbar .scroll -command \".list yview\""  -color Black -pointsize 18 -bold 0 -italic 0 -underline 0;
  974. insertPara $ti shift ;
  975. insert $ti shift -string "pack .scroll -side right -fill y"  -color Black -pointsize 18 -bold 0 -italic 0 -underline 0;
  976. insertPara $ti shift ;
  977. insert $ti shift -color Green;
  978. insert $ti shift -string "if \{\$argc > 0\} \{"  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  979. insertPara $ti shift ;
  980. insert $ti shift -string "    set dir \[lindex \$argv 0\]"  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  981. insertPara $ti shift ;
  982. insert $ti shift -string "\} else \{"  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  983. insertPara $ti shift ;
  984. insert $ti shift -string "    set dir \".\""  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  985. insertPara $ti shift ;
  986. insert $ti shift -string "\}"  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  987. insertPara $ti shift ;
  988. insert $ti shift -string "foreach i \[exec ls -a \$dir\] \{"  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  989. insertPara $ti shift ;
  990. insert $ti shift -string "    .list insert end \$i"  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  991. insertPara $ti shift ;
  992. insert $ti shift -string "\}"  -color Green -pointsize 18 -bold 0 -italic 0 -underline 0;
  993. insertPara $ti shift ;
  994. insert $ti shift -color Red;
  995. insert $ti shift -string "bind .list <Double-Button-1> \{"  -color Red -pointsize 18 -bold 0 -italic 0 -underline 0;
  996. insertPara $ti shift ;
  997. insert $ti shift -string "    browse \$dir \[selection get\]"  -color Red -pointsize 18 -bold 0 -italic 0 -underline 0;
  998. insertPara $ti shift ;
  999. insert $ti shift -string "\}"  -color Red -pointsize 18 -bold 0 -italic 0 -underline 0;
  1000. insertPara $ti shift ;
  1001. insert $ti shift -string "bind .list <Control-c> \{destroy .\}"  -color Red -pointsize 18 -bold 0 -italic 0 -underline 0;
  1002. insertPara $ti shift ;
  1003. insert $ti shift -string "focus .list"  -color Red -pointsize 18 -bold 0 -italic 0 -underline 0;
  1004. insertPara $ti shift ;
  1005. insert $ti shift -color Blue;
  1006. insert $ti shift -string "proc browse \{dir file\} \{"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1007. insertPara $ti shift ;
  1008. insert $ti shift -string "    global env"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1009. insertPara $ti shift ;
  1010. insert $ti shift -string "    if \{\$dir != \".\"\} \{set file \$dir/\$file\}"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1011. insertPara $ti shift ;
  1012. insert $ti shift -string "    if \[file isdirectory \$file\] \{"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1013. insertPara $ti shift ;
  1014. insert $ti shift -string "        exec browse \$file &"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1015. insertPara $ti shift ;
  1016. insert $ti shift -string "    \} else \{"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1017. insertPara $ti shift ;
  1018. insert $ti shift -string "        if \[file isfile \$file\] \{"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1019. insertPara $ti shift ;
  1020. insert $ti shift -string "            exec xedit \$file &"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1021. insertPara $ti shift ;
  1022. insert $ti shift -string "        \} else \{"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1023. insertPara $ti shift ;
  1024. insert $ti shift -string "            puts stdout \"can't browse \$file\""  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1025. insertPara $ti shift ;
  1026. insert $ti shift -string "        \}"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1027. insertPara $ti shift ;
  1028. insert $ti shift -string "    \}"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1029. insertPara $ti shift ;
  1030. insert $ti shift -string "\}"  -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1031. tiformat $ti 30 1 30 2 -color Blue -pointsize 18 -bold 0 -italic 0 -underline 0;
  1032. set ti;
  1033. set ti [new - textitem "-774 -1476 -718.9999 -1442.728" -look TextBox];
  1034. tiformat $ti 0 0 0 1 -revert 1;
  1035. insert $ti shift -revert 1;
  1036. tlconfig $ti cursor  -look BHeading;
  1037. insert $ti shift -revert 1;
  1038. set ti;
  1039.  
  1040. view active 15note
  1041. orientation - v
  1042. icon - 158.02273 40 0.48358586
  1043. set ti [new - textitem "45 468 558 669.3584" -look TextBox];
  1044. tiformat $ti 0 0 0 1 -revert 1;
  1045. insert $ti shift -revert 1;
  1046. tlconfig $ti cursor  -look Heading;
  1047. insert $ti shift -revert 1;
  1048. insert $ti shift -string "Groups of commands:" ;
  1049. insertPara $ti shift ;
  1050. tlconfig $ti cursor  -look BSubheading;
  1051. insert $ti shift -string "Create widgets." ;
  1052. insertPara $ti shift ;
  1053. insert $ti shift -string "Initialize directory and listbox." ;
  1054. insertPara $ti shift ;
  1055. insert $ti shift -string "Create bindings." ;
  1056. insertPara $ti shift ;
  1057. insert $ti shift -string "Browser procedure." ;
  1058. set ti;
  1059.  
  1060. view active 16slide
  1061. backg - 2
  1062. set ti [new - textitem "45 162 585 648.83408" -look TextBox];
  1063. tiformat $ti 0 0 0 1 -revert 1;
  1064. insert $ti shift -revert 1;
  1065. tlconfig $ti cursor  -look Heading;
  1066. insert $ti shift -revert 1;
  1067. insert $ti shift -string "Commercial presentation package:" ;
  1068. insertPara $ti shift ;
  1069. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1070. insert $ti shift -string "Presentation = sequence of slides." ;
  1071. insertPara $ti shift ;
  1072. tlconfig $ti cursor -plook { -color Red};
  1073. insert $ti shift -string "Text, graphics, images." ;
  1074. insertPara $ti shift ;
  1075. tlconfig $ti cursor -plook { -color Red};
  1076. insert $ti shift -string "Backgrounds, slides, notes." ;
  1077. insertPara $ti shift ;
  1078. tlconfig $ti cursor -plook { -color Red};
  1079. insert $ti shift -string "Postscript output, on-line slide shows." ;
  1080. insertPara $ti shift ;
  1081. tlconfig $ti cursor  -look Heading;
  1082. insertPara $ti shift ;
  1083. insert $ti shift -string "Implemented using Tcl and Tk:" ;
  1084. insertPara $ti shift ;
  1085. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1086. insert $ti shift -string "29000 lines of new C code." ;
  1087. insertPara $ti shift ;
  1088. tlconfig $ti cursor -plook { -color Red};
  1089. insert $ti shift -string "1 new widget for displaying slides." ;
  1090. insertPara $ti shift ;
  1091. tlconfig $ti cursor -plook { -color Red};
  1092. insert $ti shift -string "~30 other Tcl commands for manipulating presentations." ;
  1093. insertPara $ti shift ;
  1094. tlconfig $ti cursor -plook { -color Red};
  1095. insert $ti shift -string "11000 lines of Tcl scripts." ;
  1096. set ti;
  1097. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1098. tiformat $ti 0 0 0 1 -revert 1;
  1099. insert $ti shift -revert 1;
  1100. tlconfig $ti cursor  -look Title;
  1101. insert $ti shift -revert 1;
  1102. insert $ti shift -string "Perspecta Presents!" ;
  1103. set ti;
  1104.  
  1105. view active 16note
  1106. orientation - v
  1107. icon - 151.06818 40 0.50631313
  1108. set ti [new - textitem "45 486 576 564.518" -look TextBox];
  1109. tiformat $ti 0 0 0 1 -revert 1;
  1110. insert $ti shift -revert 1;
  1111. tlconfig $ti cursor  -look BHeading;
  1112. insert $ti shift -revert 1;
  1113. insert $ti shift -string "Talk was made with ppres." ;
  1114. insertPara $ti shift ;
  1115. insert $ti shift -string "Mention brochure availability." ;
  1116. set ti;
  1117.  
  1118. view active 17slide
  1119. backg - 2
  1120. set ti [new - textitem "45 144 585 684.2456" -look TextBox];
  1121. tiformat $ti 0 0 0 1 -revert 1;
  1122. insert $ti shift -revert 1;
  1123. tlconfig $ti cursor -plook { -color Red} -look 1.Heading;
  1124. insert $ti shift -revert 1;
  1125. insert $ti shift -string "Powertext: text created by Tcl script, not typed by user." ;
  1126. insertPara $ti shift ;
  1127. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1128. insert $ti shift -string "Slide numbers." ;
  1129. insertPara $ti shift ;
  1130. tlconfig $ti cursor -plook { -color Red};
  1131. insert $ti shift -string "Bullet numbers." ;
  1132. insertPara $ti shift ;
  1133. tlconfig $ti cursor -plook { -color Red};
  1134. insert $ti shift -string "Update values from database?" ;
  1135. insertPara $ti shift ;
  1136. tlconfig $ti cursor -plook { -color Red} -look 1.Heading;
  1137. insert $ti shift -string "File format = Tcl script.  To load, just execute file." ;
  1138. insertPara $ti shift ;
  1139. tlconfig $ti cursor -plook { -color Red};
  1140. insert $ti shift -string "Selection exchanged as Tcl script (selectively copy backgrounds, looks, etc.)" ;
  1141. insertPara $ti shift ;
  1142. tlconfig $ti cursor -plook { -color Red};
  1143. insert $ti shift -string "Undo/redo:" ;
  1144. insertPara $ti shift ;
  1145. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1146. insert $ti shift -string "Undo/redo script pairs saved in log file." ;
  1147. insertPara $ti shift ;
  1148. tlconfig $ti cursor -plook { -color Red};
  1149. insert $ti shift -string "Infinite-level undo/redo." ;
  1150. insertPara $ti shift ;
  1151. tlconfig $ti cursor -plook { -color Red};
  1152. insert $ti shift -string "Recovery after crashes." ;
  1153. insertPara $ti shift ;
  1154. tlconfig $ti cursor -plook { -color Red} -look 1.Heading;
  1155. insert $ti shift -string "Slide shows, etc. etc." ;
  1156. set ti;
  1157. new - line "72 270 54 270 54 180" -look Drawing -fg Green -width 1.00 -arrow head
  1158. new - line "270 225 576 225 576 675 576 693" -look Drawing -fg Green -width 1.00 -arrow head
  1159. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1160. tiformat $ti 0 0 0 1 -revert 1;
  1161. insert $ti shift -revert 1;
  1162. tlconfig $ti cursor  -look Title;
  1163. insert $ti shift -revert 1;
  1164. insert $ti shift -string "Uses of Tcl in Perspecta Presents!" ;
  1165. set ti;
  1166.  
  1167. view active 17note
  1168. orientation - v
  1169. icon - 154.54545 40 0.49494949
  1170.  
  1171. view active 18slide
  1172. backg - 2
  1173. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1174. tiformat $ti 0 0 0 1 -revert 1;
  1175. insert $ti shift -revert 1;
  1176. tlconfig $ti cursor  -look Title;
  1177. insert $ti shift -revert 1;
  1178. insert $ti shift -string "Composing Applications" ;
  1179. set ti;
  1180. set ti [new - textitem "45 171 585 632.47376" -look TextBox];
  1181. tiformat $ti 0 0 0 1 -revert 1;
  1182. insert $ti shift -revert 1;
  1183. tlconfig $ti cursor  -look Heading;
  1184. insert $ti shift -revert 1;
  1185. insert $ti shift -string "The problem:" ;
  1186. insertPara $ti shift ;
  1187. tlconfig $ti cursor -plook { -color Red} -look BSubheading -paraspace 1.75;
  1188. insert $ti shift -string "Only communication between applications is via selection." ;
  1189. insertPara $ti shift ;
  1190. tlconfig $ti cursor -plook { -color Red};
  1191. insert $ti shift -string "Result: monolithic applications." ;
  1192. insertPara $ti shift ;
  1193. tlconfig $ti cursor  -look Heading -paraspace 3.00;
  1194. insert $ti shift -string "The solution: " ;
  1195. insert $ti shift -family Courier -color Red -bold 1 -italic 0 -underline 0;
  1196. insert $ti shift -string "send"  -family Courier -color Red -bold 1 -italic 0 -underline 0;
  1197. insert $ti shift -family -1 -color -1 -bold -1 -italic -1 -underline -1;
  1198. insert $ti shift -string " command" ;
  1199. insertPara $ti shift ;
  1200. tlconfig $ti cursor -plook { -color Red} -look BSubheading -paraspace 1.75;
  1201. insert $ti shift -string "send appName command"  -family Courier -color Green -bold 1;
  1202. insertPara $ti shift  -family -1;
  1203. tlconfig $ti cursor -plook { -color Red};
  1204. insert $ti shift -string "Implemented using X11 properties." ;
  1205. insertPara $ti shift ;
  1206. tlconfig $ti cursor -plook { -color Red};
  1207. insert $ti shift -string "Any Tk application can invoke anything in any other Tk application: interface or actions." ;
  1208. insertPara $ti shift ;
  1209. tlconfig $ti cursor -plook { -color Red};
  1210. insert $ti shift -string "Result: powerful communication." ;
  1211. set ti;
  1212.  
  1213. view active 18note
  1214. orientation - v
  1215. icon - 154.54545 40 0.49494949
  1216. set ti [new - textitem "36 477 585 600.764" -look TextBox];
  1217. tiformat $ti 0 0 0 1 -revert 1;
  1218. insert $ti shift -revert 1;
  1219. tlconfig $ti cursor  -look BHeading;
  1220. insert $ti shift -revert 1;
  1221. insert $ti shift -string "Selection requires manual intervention." ;
  1222. insertPara $ti shift ;
  1223. insert $ti shift -string "Editor/debugger as bad example." ;
  1224. insertPara $ti shift ;
  1225. insert $ti shift -string "Send = RPC." ;
  1226. set ti;
  1227.  
  1228. view active 19slide
  1229. backg - 2
  1230. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1231. tiformat $ti 0 0 0 1 -revert 1;
  1232. insert $ti shift -revert 1;
  1233. tlconfig $ti cursor  -look Title;
  1234. insert $ti shift -revert 1;
  1235. insert $ti shift -string "Composing Applications, cont'd" ;
  1236. set ti;
  1237. set ti [new - textitem "45 153 585 669.45128" -look TextBox];
  1238. tiformat $ti 0 0 0 1 -revert 1;
  1239. insert $ti shift -revert 1;
  1240. tlconfig $ti cursor  -look Heading;
  1241. insert $ti shift -revert 1;
  1242. insert $ti shift -string "Examples:" ;
  1243. insertPara $ti shift ;
  1244. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1245. insert $ti shift -string "Debugger sends command to editor: highlight line of execution." ;
  1246. insertPara $ti shift ;
  1247. tlconfig $ti cursor -plook { -color Red};
  1248. insert $ti shift -string "User-interface editor sends commands to modify interface of live application." ;
  1249. insertPara $ti shift ;
  1250. tlconfig $ti cursor -plook { -color Red};
  1251. insert $ti shift -string "Multi-media: send " ;
  1252. insert $ti shift -family Courier;
  1253. insert $ti shift -string "record"  -family Courier;
  1254. insert $ti shift -family -1;
  1255. insert $ti shift -string ", " ;
  1256. insert $ti shift -family Courier;
  1257. insert $ti shift -string "play"  -family Courier;
  1258. insert $ti shift -family -1;
  1259. insert $ti shift -string " commands to audio and video applications." ;
  1260. insertPara $ti shift ;
  1261. tlconfig $ti cursor -plook { -color Red};
  1262. insert $ti shift -string "Spreadsheets: cell sends commands to database to fetch current value." ;
  1263. insertPara $ti shift ;
  1264. tlconfig $ti cursor  -look Heading -paraspace 2.50;
  1265. insert $ti shift -string "Revolutionary results:" ;
  1266. insertPara $ti shift ;
  1267. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1268. insert $ti shift -string "Build complex systems as collections of specialized but reusable " ;
  1269. insert $ti shift -color Red;
  1270. insert $ti shift -string "hypertools"  -color Red;
  1271. insert $ti shift -color -1;
  1272. insert $ti shift -string "." ;
  1273. insertPara $ti shift ;
  1274. tlconfig $ti cursor -plook { -color Red};
  1275. insert $ti shift -string "Easy to create " ;
  1276. insert $ti shift -color Red;
  1277. insert $ti shift -string "active objects"  -color Red;
  1278. insert $ti shift -color -1;
  1279. insert $ti shift -string ": embedded Tcl commands.  Hypertext, hypermedia easy." ;
  1280. set ti;
  1281.  
  1282. view active 19note
  1283. orientation - v
  1284. icon - 158.02273 40 0.48358586
  1285. set ti [new - textitem "45 495 585 528.272" -look TextBox];
  1286. tiformat $ti 0 0 0 1 -revert 1;
  1287. insert $ti shift -revert 1;
  1288. tlconfig $ti cursor  -look BHeading;
  1289. insert $ti shift -revert 1;
  1290. insert $ti shift -string "Revolutionary ideas not new, just much easier." ;
  1291. set ti;
  1292.  
  1293. view active 20slide
  1294. backg - 2
  1295. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1296. tiformat $ti 0 0 0 1 -revert 1;
  1297. insert $ti shift -revert 1;
  1298. tlconfig $ti cursor  -look Title;
  1299. insert $ti shift -revert 1;
  1300. insert $ti shift -string "Status" ;
  1301. set ti;
  1302. set ti [new - textitem "45 144 585 443.288" -look TextBox];
  1303. tiformat $ti 0 0 0 1 -revert 1;
  1304. insert $ti shift -revert 1;
  1305. tlconfig $ti cursor  -look Heading;
  1306. insert $ti shift -revert 1;
  1307. insert $ti shift -string "Tcl:" ;
  1308. insertPara $ti shift ;
  1309. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1310. insert $ti shift -string "20000 lines C code." ;
  1311. insertPara $ti shift ;
  1312. tlconfig $ti cursor -plook { -color Red};
  1313. insert $ti shift -string "First released January 1990." ;
  1314. insertPara $ti shift ;
  1315. tlconfig $ti cursor  -look Heading -paraspace 2.00;
  1316. insert $ti shift -string "Tk:" ;
  1317. insertPara $ti shift ;
  1318. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1319. insert $ti shift -string "Intrinsics: 21500 lines C code." ;
  1320. insertPara $ti shift ;
  1321. tlconfig $ti cursor -plook { -color Red};
  1322. insert $ti shift -string "Motif-like widgets: 34000 lines C code." ;
  1323. insertPara $ti shift ;
  1324. tlconfig $ti cursor  -look Subheading;
  1325. set ti;
  1326. set ti [new - textitem "144 405 261 520.8752" -look TextBox];
  1327. tiformat $ti 0 0 0 1 -revert 1;
  1328. insert $ti shift -revert 1;
  1329. tlconfig $ti cursor  -look Text;
  1330. insert $ti shift -revert 1;
  1331. insert $ti shift -string "Buttons" ;
  1332. insertPara $ti shift ;
  1333. insert $ti shift -color Red;
  1334. insert $ti shift -string "Canvases"  -color Red;
  1335. insertPara $ti shift ;
  1336. insert $ti shift -color -1;
  1337. insert $ti shift -string "Entries" ;
  1338. insertPara $ti shift ;
  1339. insert $ti shift -string "Frames" ;
  1340. set ti;
  1341. set ti [new - textitem "270 405 387 520.8752" -look TextBox];
  1342. tiformat $ti 0 0 0 1 -revert 1;
  1343. insert $ti shift -revert 1;
  1344. tlconfig $ti cursor  -look Text;
  1345. insert $ti shift -revert 1;
  1346. insert $ti shift -string "Labels" ;
  1347. insertPara $ti shift ;
  1348. insert $ti shift -string "Listboxes" ;
  1349. insertPara $ti shift ;
  1350. insert $ti shift -string "Menus" ;
  1351. insertPara $ti shift ;
  1352. insert $ti shift -string "Messages" ;
  1353. set ti;
  1354. set ti [new - textitem "396 405 522 491.8688" -look TextBox];
  1355. tiformat $ti 0 0 0 1 -revert 1;
  1356. insert $ti shift -revert 1;
  1357. tlconfig $ti cursor  -look Text;
  1358. insert $ti shift -revert 1;
  1359. insert $ti shift -string "Scales" ;
  1360. insertPara $ti shift ;
  1361. insert $ti shift -string "Scrollbars" ;
  1362. insertPara $ti shift ;
  1363. insert $ti shift -color Red;
  1364. insert $ti shift -string "Texts"  -color Red;
  1365. set ti;
  1366. set ti [new - textitem "45 531 576 663.8816" -look TextBox];
  1367. tiformat $ti 0 0 0 1 -revert 1;
  1368. insert $ti shift -revert 1;
  1369. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1370. insert $ti shift -revert 1;
  1371. insert $ti shift -string "First released March 1991." ;
  1372. insertPara $ti shift ;
  1373. tlconfig $ti cursor  -look Heading -paraspace 2.00;
  1374. insert $ti shift -string "User community:" ;
  1375. insertPara $ti shift ;
  1376. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1377. insert $ti shift -string "5000-10000 (as of January 1993)." ;
  1378. set ti;
  1379.  
  1380. view active 20note
  1381. orientation - v
  1382. icon - 154.54545 40 0.49494949
  1383. set ti [new - textitem "36 486 585 602.3312" -look TextBox];
  1384. tiformat $ti 0 0 0 1 -revert 1;
  1385. insert $ti shift -revert 1;
  1386. tlconfig $ti cursor  -look Heading;
  1387. insert $ti shift -revert 1;
  1388. insert $ti shift -string "Fancy widgets:" ;
  1389. insertPara $ti shift ;
  1390. tlconfig $ti cursor  -look BSubheading;
  1391. insert $ti shift -string "Structured graphics (canvases)." ;
  1392. insertPara $ti shift ;
  1393. insert $ti shift -string "Hypertext (text)." ;
  1394. set ti;
  1395.  
  1396. view active 21slide
  1397. backg - 2
  1398. set ti [new - title "45 63.5 567 109.456" -look TextBox];
  1399. tiformat $ti 0 0 0 1 -revert 1;
  1400. insert $ti shift -revert 1;
  1401. tlconfig $ti cursor  -look Title;
  1402. insert $ti shift -revert 1;
  1403. insert $ti shift -string "Conclusions" ;
  1404. set ti;
  1405. set ti [new - textitem "45 162 585 615.374" -look TextBox];
  1406. tiformat $ti 0 0 0 1 -revert 1;
  1407. insert $ti shift -revert 1;
  1408. tlconfig $ti cursor  -look Heading;
  1409. insert $ti shift -revert 1;
  1410. insert $ti shift -string "Power from programming:" ;
  1411. insertPara $ti shift ;
  1412. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1413. insert $ti shift -string "High-level programming for power, flexibility." ;
  1414. insertPara $ti shift ;
  1415. tlconfig $ti cursor -plook { -color Red};
  1416. insert $ti shift -string "Extensibility." ;
  1417. insertPara $ti shift ;
  1418. tlconfig $ti cursor -plook { -color Red};
  1419. insert $ti shift -string "One language for many things." ;
  1420. insertPara $ti shift ;
  1421. tlconfig $ti cursor  -look Heading -paraspace 2.50;
  1422. insert $ti shift -string "Power from composition:" ;
  1423. insertPara $ti shift ;
  1424. tlconfig $ti cursor -plook { -color Red} -look BSubheading;
  1425. insert $ti shift -string "Widgets within an application." ;
  1426. insertPara $ti shift ;
  1427. tlconfig $ti cursor -plook { -color Red};
  1428. insert $ti shift -string "Send between applications." ;
  1429. insertPara $ti shift ;
  1430. tlconfig $ti cursor  -look Heading -paraspace 2.50;
  1431. insert $ti shift -color Red;
  1432. insert $ti shift -string "Tcl + Tk = shell of 1990's?"  -color Red;
  1433. insertPara $ti shift  -color -1;
  1434. insert $ti shift -string "Wanted: application developers." ;
  1435. set ti;
  1436.  
  1437. view active 21note
  1438. orientation - v
  1439. icon - 151.06818 40 0.50631313
  1440. set ti [new - textitem "45 486 585 634.352" -look TextBox];
  1441. tiformat $ti 0 0 0 1 -revert 1;
  1442. insert $ti shift -revert 1;
  1443. tlconfig $ti cursor  -look BHeading;
  1444. insert $ti shift -revert 1;
  1445. insert $ti shift -string "Can recast any application by writing a Tcl script as its front-end." ;
  1446. insertPara $ti shift ;
  1447. insert $ti shift -string "1st-level benefit: within application." ;
  1448. insertPara $ti shift ;
  1449. insert $ti shift -string "2nd-level benefit: hypertools." ;
  1450. set ti;
  1451.  
  1452. MakeWindow slide 21 0 .views.1 683x842+3+1
  1453. SpotConfig .views.1 0 2 1 on
  1454. UpdateTitles; set generateName 2
  1455.