home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / TCL2 Port Package 1.6 / *TCL source.diff < prev    next >
Encoding:
Text File  |  1994-11-30  |  40.9 KB  |  2,056 lines  |  [DIFf/DIFf]
  1. r(Supplementary Info)
  2. fCApplication AE fns.doc
  3. i
  4. fCClipboard AE fns.doc
  5. i
  6. fCDocument AE fns.doc
  7. i
  8. fCEnvirons.doc
  9. i
  10. fCFileElement.doc
  11. i
  12. fConverting To TCL 2.0.doc
  13. i
  14. fCPICTGridDirector.doc
  15. i
  16. fCSwitchboard AE fns.doc
  17. i
  18. fCWindow AE fns.doc
  19. i
  20. fResource TMPLs.doc
  21. i
  22. fUsing CSaver with CList.doc
  23. i
  24. fUsing CSaver.doc
  25. i
  26. o
  27. rApple Event Classes
  28. fCAppleEvent.cp
  29. x187929299,103534475
  30. c0,23
  31. a#include <AERegistry.h>                    // •• CW TCL
  32. c24,631
  33. e
  34. fCAppleEvent.h
  35. x275804591,150468527
  36. c0,17
  37. a#include "TCL.h"                    // •• CW TCL
  38. c18,109
  39. e
  40. fCAppleEventObject.cpp
  41. x159157317,531256377
  42. c0,1882
  43. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  44. a    catch_all_()                        // •• CW TCL
  45. a    {                                    // •• CW TCL
  46. a        err = gLastError;                // •• CW TCL
  47. a        msg = gLastMessage;                // •• CW TCL
  48. a    }                                    // •• CW TCL
  49. a#else                                    // •• CW TCL
  50. c1883,1892
  51. a#endif                                    // •• CW TCL
  52. c1893,2155
  53. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  54. a    catch_all_()                        // •• CW TCL
  55. a    {                                    // •• CW TCL
  56. a        err = gLastError;                // •• CW TCL
  57. a    }                                    // •• CW TCL
  58. a#else                                    // •• CW TCL
  59. c2156,2163
  60. a#endif                                    // •• CW TCL
  61. c2164,2215
  62. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  63. a    catch_all_()                        // •• CW TCL
  64. a    {                                    // •• CW TCL
  65. a        err = gLastError;                // •• CW TCL
  66. a    }                                    // •• CW TCL
  67. a#else                                    // •• CW TCL
  68. c2216,2223
  69. a#endif                                    // •• CW TCL
  70. c2224,2253
  71. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  72. a    catch_all_()                        // •• CW TCL
  73. a    {                                    // •• CW TCL
  74. a        err = gLastError;                // •• CW TCL
  75. a    }                                    // •• CW TCL
  76. a#else                                    // •• CW TCL
  77. c2254,2261
  78. a#endif                                    // •• CW TCL
  79. c2262,2283
  80. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  81. a    catch_all_()                        // •• CW TCL
  82. a    {                                    // •• CW TCL
  83. a        err = gLastError;                // •• CW TCL
  84. a    }                                    // •• CW TCL
  85. a#else                                    // •• CW TCL
  86. c2284,2291
  87. a#endif                                    // •• CW TCL
  88. c2292,2315
  89. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  90. a    catch_all_()                        // •• CW TCL
  91. a    {                                    // •• CW TCL
  92. a        err = gLastError;                // •• CW TCL
  93. a    }                                    // •• CW TCL
  94. a#else                                    // •• CW TCL
  95. c2316,2323
  96. a#endif                                    // •• CW TCL
  97. c2324,2344
  98. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  99. a    catch_all_()                        // •• CW TCL
  100. a    {                                    // •• CW TCL
  101. a        err = gLastError;                // •• CW TCL
  102. a    }                                    // •• CW TCL
  103. a#else                                    // •• CW TCL
  104. c2345,2352
  105. a#endif                                    // •• CW TCL
  106. c2353,2370
  107. e
  108. fCAppleEventObject.h
  109. x466510104,170689210
  110. c0,20
  111. a#ifndef __AEOBJECTS__                        // •• CW TCL
  112. a#include <AEObjects.h>                        // •• CW TCL
  113. a#endif                                        // •• CW TCL
  114. a#include "TCL.h"                            // •• CW TCL: removed <>
  115. c22,234
  116. e
  117. fCAppleEventSender.cpp
  118. x300293970,263959070
  119. c0,13
  120. a#include "Exceptions.h"                        // •• CW TCL: removed <>
  121. c15,17
  122. a#include "CSwitchboard.h"                    // •• CW TCL: removed <>
  123. a#include "CWatchDesc.h"                        // •• CW TCL: removed <>
  124. a#include "Global.h"                            // •• CW TCL: added missing header
  125. c20,294
  126. e
  127. fCAppleEventSender.h
  128. i
  129. fCFileElement.cpp
  130. x393777530,77640254
  131. c0,24
  132. a#include "TCLpstring.h"                        // •• CW TCL: added missing header
  133. c25,230
  134. e
  135. fCFileElement.h
  136. x2124713,389083163
  137. c0,21
  138. a//#ifdef BR_USE_NEW_HELPER                        // •• CW TCL
  139. a//class CFileElement TCL_AUTO_DESTRUCT_OBJECT , public CAppleEventObject
  140. a//#else                                            // •• CW TCL
  141. aclass CFileElement : public CAppleEventObject
  142. a//#endif                                        // •• CW TCL
  143. c23,55
  144. e
  145. fCProperty.cpp
  146. x448828269,96316305
  147. c0,12
  148. a#ifdef __MWERKS__                        // •• CW TCL
  149. a#include <AERegistry.h>                    // •• CW TCL: added missing header
  150. a#endif                                    // •• CW TCL
  151. c13,150
  152. e
  153. fCProperty.h
  154. x249114375,359604295
  155. c0,18
  156. a//#ifdef BR_USE_NEW_HELPER                        // •• CW TCL
  157. a//class CProperty TCL_AUTO_DESTRUCT_OBJECT , public CAppleEventObject
  158. a//#else                                            // •• CW TCL
  159. aclass CProperty : public CAppleEventObject        // •• CW TCL
  160. a//#endif                                        // •• CW TCL
  161. c20,47
  162. e
  163. fCWatchDesc.cpp
  164. x37982565,344393039
  165. c0,13
  166. a#ifdef __MWERKS__                    // •• CW TCL
  167. a#include "Global.h"                    // •• CW TCL: added missing header
  168. a#endif                                // •• CW TCL
  169. c14,37
  170. e
  171. fCWatchDesc.h
  172. i
  173. o
  174. rBedrock Exception Library
  175. fBEL #includes.cpp
  176. i
  177. rBRCommon
  178. fBRCommon.h
  179. i
  180. fBRMacWin.h
  181. i
  182. fBRMath.h
  183. i
  184. fBRPriMem.h
  185. i
  186. fBRPriStr.h
  187. i
  188. fBRStdDef.h
  189. i
  190. o
  191. rBRDebug
  192. fBRDbgStr.h
  193. i
  194. fBRPriDeb.h.bed
  195. i
  196. o
  197. rBRExcLib
  198. rHeaders
  199. fBRAutoDe.h
  200. i
  201. fBRBedExc.h
  202. i
  203. fBRBreakC.h
  204. i
  205. fBRDelSta.h
  206. i
  207. fBRExcDef.h
  208. i
  209. fBRExcept.h
  210. i
  211. fBRExcLib.h
  212. i
  213. fBRExcLog.h
  214. i
  215. fBRExcRun.h
  216. i
  217. fBRExcTas.h
  218. i
  219. fBRNewHel.h
  220. i
  221. fBROnStac.h
  222. i
  223. fBRPostEx.h
  224. i
  225. fBRPriDeb.h
  226. i
  227. fBRSExcep.h
  228. i
  229. fBRSExcLo.h
  230. i
  231. fBRSPostE.h
  232. i
  233. fBRTryBlo.h
  234. i
  235. o
  236. o
  237. rBRRunTyp
  238. fBRClaInf.h
  239. i
  240. fBRClaInf.h.bed
  241. i
  242. fBRClaInf.h.tcl
  243. i
  244. fBRRunTyp.h
  245. i
  246. o
  247. rBRTaskG
  248. fBRBedTas.h
  249. i
  250. fBRTaskG.h
  251. i
  252. o
  253. rSource
  254. fBRAutoDe.cpp
  255. i
  256. fBRBedExc.cpp
  257. i
  258. fBrBedTas.cpp
  259. i
  260. fBRBreakC.cpp
  261. i
  262. fBRClaInf.cpp
  263. i
  264. fBRDelSta.cpp
  265. i
  266. fBRExcept.cpp
  267. i
  268. fBRExcLog.cpp
  269. i
  270. fBRExcRun.cpp
  271. i
  272. fBRExcTas.cpp
  273. i
  274. fBRNewHel.cpp
  275. i
  276. fBRPostEx.cpp
  277. i
  278. fBRPriMem.cpp
  279. i
  280. fBRPriStr.cpp
  281. i
  282. fBRTryBlo.cpp
  283. i
  284. o
  285. o
  286. rControl Classes
  287. fCArrowPopupPane.cp
  288. i
  289. fCArrowPopupPane.h
  290. i
  291. fCButton.cp
  292. i
  293. fCButton.h
  294. i
  295. fCCheckBox.cp
  296. i
  297. fCCheckBox.h
  298. i
  299. fCGroupButton.cpp
  300. x378000304,464772974
  301. c0,24
  302. c26,58
  303. a        if (member(anEnclosure, CGroupButtonEnclosure)) {        // •• CW TCL: fix casting bug
  304. a            CWindow        *w = (CWindow*) anEnclosure;            // •• CW TCL
  305. a            itsGroupEnclosure = (CGroupButtonEnclosure*) w;        // •• CW TCL
  306. a        }                                                        // •• CW TCL
  307. c61,158
  308. a    stream >> (short&) groupID;                // •• CW TCL: must cast to reference
  309. c160,161
  310. e
  311. fCGroupButton.h
  312. x432023668,157191324
  313. c0,0
  314. a#include "TCL.h"                    // •• CW TCL: added missing header
  315. c1,42
  316. e
  317. fCGroupButtonEnclosure.cpp
  318. x70211160,286652831
  319. c0,14
  320. a#ifdef __MWERKS__                        // •• CW TCL 1.6
  321. a#include "CPtrArray.tem"                // •• CW TCL 1.6
  322. a#endif                                    // •• CW TCL 1.6
  323. c17,17
  324. c27,27
  325. c16,83
  326. e
  327. fCGroupButtonEnclosure.h
  328. i
  329. fCIconPane.cp
  330. i
  331. fCIconPane.h
  332. i
  333. fCPopupMenu.cp
  334. i
  335. fCPopupMenu.h
  336. i
  337. fCPopupPane.cp
  338. x445732101,160278290
  339. c0,37
  340. aTCL_DEFINE_CLASS_D1(CPopupPane, CPane);        // •• CW TCL: sometimes need dynamic refs
  341. c39,39
  342. c39,366
  343. a    stream >> (CCollaborator*&) itsMenu;            // •• CW TCL: must cast to reference
  344. c368,369
  345. e
  346. fCPopupPane.h
  347. i
  348. fCRadioControl.cp
  349. i
  350. fCRadioControl.h
  351. i
  352. fCRadioGroupPane.cp
  353. x195280440,184651060
  354. c0,187
  355. a    stream >> (CCollaborator*&) currentStation;        // •• CW TCL: must cast to reference
  356. c189,190
  357. e
  358. fCRadioGroupPane.h
  359. i
  360. fCStdPopupPane.cp
  361. x41918582,415775780
  362. c0,48
  363. c50,335
  364. a#ifdef __INSTALL_MENU_HOOK__                                        // •• CW TCL
  365. c336,336
  366. a#else                                                                // •• CW TCL
  367. a        newWidth = titleWidth + titleGap + itsMenu->GetWidth()        // •• CW TCL
  368. a                    + kArrowWidth + kArrowRightInset;                // •• CW TCL
  369. a#endif                                                                // •• CW TCL
  370. c339,339
  371. c337,685
  372. a    stream >> (CCollaborator*&) itsPopupBox;        // •• CW TCL: must cast to reference
  373. c687,689
  374. e
  375. fCStdPopupPane.h
  376. i
  377. o
  378. rCore Classes
  379. rCore Headers
  380. fCApplication.h
  381. x136048323,39959883
  382. c0,239
  383. a#ifndef TCL_NO_PATCHES                        // •• CW TCL
  384. c2,2
  385. c244,244
  386. c241,246
  387. c2,2
  388. a#endif // #ifndef TCL_NO_PATCHES            // •• CW TCL
  389. e
  390. fCArray.h
  391. i
  392. fCArrayIterator.h
  393. i
  394. fCBartender.h
  395. i
  396. fCBureaucrat.h
  397. i
  398. fCChore.h
  399. i
  400. fCClipboard.h
  401. i
  402. fCCollaborator.h
  403. i
  404. fCCollection.h
  405. i
  406. fCControl.h
  407. i
  408. fCDecorator.h
  409. i
  410. fCDesktop.h
  411. i
  412. fCDirector.h
  413. i
  414. fCDirectorOwner.h
  415. i
  416. fCDocument.h
  417. i
  418. fCEnvironment.h
  419. i
  420. fCEnvirons.h
  421. i
  422. fCError.h
  423. i
  424. fCFile.h
  425. i
  426. fCMBarChore.h
  427. i
  428. fCMouseTask.h
  429. i
  430. fCommands.h
  431. i
  432. fConstants.h
  433. i
  434. fCPane.h
  435. i
  436. fCPaneBorder.h
  437. i
  438. fCPanorama.h
  439. i
  440. fCPicture.h
  441. i
  442. fCPrinter.h
  443. i
  444. fCRunArray.h
  445. i
  446. fCScrollBar.h
  447. i
  448. fCScrollPane.h
  449. i
  450. fCSizeBox.h
  451. i
  452. fCSwitchboard.h
  453. i
  454. fCTask.h
  455. i
  456. fCView.h
  457. x99354561,485716930
  458. c0,42
  459. a#ifndef __MWERKS__                        // •• CW TCL 1.6: why was this there, anyway?
  460. c43,43
  461. a#endif                                    // •• CW TCL 1.6
  462. c44,170
  463. e
  464. fCVoidPtrArray.h
  465. i
  466. fCVoidPtrArrayIterator.h
  467. i
  468. fCWindow.h
  469. i
  470. fGlobal.h
  471. i
  472. o
  473. rCore Sources
  474. fCApplication.asm
  475. x339079643,235419597
  476. c0,18
  477. a#ifndef __MWERKS__                                // •• CW TCL
  478. c19,29
  479. a#endif // #ifndef __MWERKS__                    // •• CW TCL
  480. c30,46
  481. a#ifdef __MWERKS__                            // •• CW TCL
  482. aasm
  483. a#endif                                        // •• CW TCL
  484. c47,48
  485. a#ifndef __MWERKS__                            // •• CW TCL
  486. c49,50
  487. a#endif                                        // •• CW TCL: also changed ';' comments to '//'
  488. a             clr.l        -(sp)                // reserve some space
  489. a            movem.l        a0-a5/d0-d7, -(sp)    // save the regs
  490. a             move.w      64(sp), d7          // get seg#
  491. c54,57
  492. a             move.b      #kAllocCanFail, -(sp) // this allocation
  493. a             jsr            SetAllocation        // can fail
  494. a             move.b      d0, d6                // save old canFail flag
  495. c61,62
  496. a             clr.l        -(sp)                // do a GetResource on
  497. a             move.l      #'CODE', -(sp)      // the code segment
  498. c65,66
  499. a             movea.l       (sp)+, a3            // save the handle
  500. c62,62
  501. a             move.b      d6, -(sp)            // restore old allocation
  502. c70,73
  503. a             jsr            FailNIL                // returns if OK
  504. c68,68
  505. a             move.l        origLoadSeg, 56(sp) // store original LoadSeg on stack
  506. a             movem.l        (sp)+, a0-a5/d0-d7  // restore regs
  507. a             rts                                // return to original LoadSeg
  508. a#ifndef __MWERKS__                            // •• CW TCL
  509. c79,79
  510. a#endif                                        // •• CW TCL
  511. c80,82
  512. e
  513. fCApplication.cp
  514. x236347372,340717846
  515. c0,59
  516. a#include "TCLpstring.h"                    // •• CW TCL: added missing header
  517. c60,72
  518. a#ifdef __MWERKS__                        // •• CW TCL 1.6
  519. a#include "CPtrArray.tem"                // •• CW TCL 1.6
  520. a#endif                                    // •• CW TCL 1.6
  521. c74,74
  522. c74,74
  523. c73,92
  524. a#ifndef __MWERKS__                        // •• CW TCL: not needed
  525. c93,93
  526. a#endif // ## ifndef __MWERKS__            // •• CW TCL
  527. c102,103
  528. c96,503
  529. a#ifndef TCL_NO_PATCHES                    // •• CW TCL: okay, mostly no patches
  530. c504,506
  531. a#endif                                    // •• CW TCL
  532. c528,528
  533. c512,512
  534. c512,512
  535. c532,532
  536. c511,523
  537. a#ifndef TCL_NO_PATCHES                        // •• CW TCL
  538. c524,525
  539. a#endif                                        // •• CW TCL
  540. c530,530
  541. c555,555
  542. c590,590
  543. c529,1259
  544. a#ifndef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  545. c1287,1287
  546. a#else                                    // •• CW TCL
  547. a        catch_all_()                    // •• CW TCL
  548. a#endif                                    // •• CW TCL
  549. c1275,1275
  550. a#ifndef TCL_USE_PP_EXCEPTIONS                    // •• CW TCL
  551. c1298,1301
  552. a#else                                            // •• CW TCL
  553. a            short err = gLastError;                // •• CW TCL
  554. a            if (err != kSilentErr)                // •• CW TCL
  555. a                ErrorAlert(err, gLastMessage);    // •• CW TCL
  556. a            HiliteMenu(0);                        // •• CW TCL
  557. a#endif                                            // •• CW TCL
  558. c1286,1286
  559. c1303,1304
  560. c1271,1271
  561. c1270,1286
  562. a#ifndef TCL_USE_PP_EXCEPTIONS                    // •• CW TCL
  563. c1260,1261
  564. c1289,1302
  565. a#else                                            // •• CW TCL
  566. a        catch_all_()                            // •• CW TCL
  567. c1329,1329
  568. a            short err = gLastError;                // •• CW TCL
  569. a            if (err != kSilentErr)                // •• CW TCL
  570. a                ErrorAlert(err, gLastMessage);    // •• CW TCL
  571. a            HiliteMenu(0);                        // •• CW TCL
  572. a        }                                        // •• CW TCL
  573. a#endif                                            // •• CW TCL
  574. c1267,1268
  575. c1319,1322
  576. c1309,1332
  577. a            while (iter.Next((void*&) chore))
  578. c1719,1719
  579. c1335,2421
  580. a            while (iter.Next((void*&) doc))
  581. c2459,2459
  582. c833,833
  583. c2425,2457
  584. a            while (iter.Next((void*&) doc))
  585. c2459,2465
  586. a#if defined(__MWERKS__) && !defined(TCL_POWER_PC) \
  587. a            && !defined(TCL_NO_PATCHES)                    // •• CW TCL
  588. a#include "CApplication.asm"                                // •• CW TCL
  589. a#endif                                                    // •• CW TCL
  590. c2466,2466
  591. e
  592. fCArray.cp
  593. i
  594. fCArrayIterator.cp
  595. i
  596. fCBartender.cp
  597. i
  598. fCBureaucrat.cp
  599. x423204698,305092752
  600. c0,407
  601. a    stream >> (CCollaborator*&) itsSupervisor;        // •• CW TCL: must cast to reference (ARM 5.4)
  602. c409,414
  603. e
  604. fCChore.cp
  605. i
  606. fCClipboard.cp
  607. x46095218,51208012
  608. c0,41
  609. a#include "TCLUtilities.h"                // •• CW TCL
  610. c42,889
  611. e
  612. fCCollaborator.cp
  613. x115295655,83800899
  614. c0,35
  615. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  616. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  617. a#endif                                        // •• CW TCL 1.6
  618. c38,38
  619. c38,38
  620. c50,52
  621. c39,78
  622. a        while (iter.Next((void*&) aDependent))            // •• CW TCL: must cast to reference
  623. c80,88
  624. a        while (iter.Next((void*&) aProvider))            // •• CW TCL: must cast to reference
  625. c90,260
  626. a        while (iter.Next((void*&) aDependent))                // •• CW TCL: must cast to reference
  627. c262,311
  628. e
  629. fCCollection.cp
  630. i
  631. fCControl.cp
  632. i
  633. fCDecorator.cp
  634. i
  635. fCDesktop.cp
  636. x14033706,448038787
  637. c0,49
  638. a#include "TCLUtilities.h"                // •• CW TCL
  639. c50,80
  640. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  641. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  642. a#endif                                        // •• CW TCL 1.6
  643. c82,82
  644. c81,855
  645. a                LMSetCurActivate((WindowRef) frontWind);
  646. c857,1136
  647. a    return (CWindow*) itsWindows->NthItem(index);        // •• CW TCL: added cast
  648. c1138,1172
  649. a    return (CWindow*) itsWindows->FindItem1(fun, param);    // •• CW TCL: added typecast
  650. c1174,1211
  651. e
  652. fCDirector.cp
  653. i
  654. fCDirectorOwner.cp
  655. x431357368,322791397
  656. c0,26
  657. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  658. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  659. a#endif                                        // •• CW TCL 1.6
  660. c27,27
  661. c30,30
  662. c42,42
  663. c29,219
  664. e
  665. fCDocument.cp
  666. x168085748,331599082
  667. c0,37
  668. a#include "TCLpstring.h"                        // •• CW TCL
  669. c38,1273
  670. e
  671. fCEnvironment.cp
  672. i
  673. fCEnvirons.cpp
  674. x213819161,408618949
  675. c0,37
  676. a#include "Global.h"                    // •• CW TCL: added missing header
  677. c38,234
  678. e
  679. fCError.cp
  680. i
  681. fCFile.cp
  682. i
  683. fCMBarChore.cp
  684. i
  685. fCMouseTask.cp
  686. i
  687. fCPane.cp
  688. x372250152,50868231
  689. c0,19
  690. a#include "Constants.h"                    // •• CW TCL: added missing header
  691. c20,40
  692. a#ifdef __MWERKS__                        // •• CW TCL 1.6
  693. a#include "CStream.tem"                    // •• CW TCL 1.6
  694. a#endif                                    // •• CW TCL 1.6
  695. c41,41
  696. c44,44
  697. c62,64
  698. c45,2019
  699. a    stream >> (CCollaborator*&) itsEnclosure;        // •• CW TCL: must cast to reference
  700. c2021,2038
  701. e
  702. fCPaneBorder.cp
  703. i
  704. fCPanorama.cp
  705. i
  706. fCPicture.cp
  707. i
  708. fCPrinter.cp
  709. i
  710. fCRunArray.cp
  711. i
  712. fCScrollBar.cp
  713. i
  714. fCScrollPane.cp
  715. x44455257,460932787
  716. c0,696
  717. a    stream >> (CCollaborator*&) subview;            // •• CW TCL: must cast to reference
  718. c698,703
  719. e
  720. fCSizeBox.cp
  721. i
  722. fCSwitchboard.cp
  723. i
  724. fCTask.cp
  725. i
  726. fCView.cp
  727. x53752456,431239443
  728. c0,70
  729. a#ifdef __MWERKS__                            // •• CW TCL 1.6
  730. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  731. a#endif                                        // •• CW TCL 1.6
  732. c73,73
  733. c85,87
  734. c74,621
  735. a#if TCL_CW_VERSION>=5
  736. a    unsigned long    balloonOptions;                // •• CW TCL: to match new Univ Hdrs
  737. c690,690
  738. c622,622
  739. c693,693
  740. c623,1302
  741. a        stream >> (CCollaborator*&) view;        // •• CW TCL: must cast to reference
  742. c35,35
  743. c82,82
  744. e
  745. fCVoidPtrArray.cp
  746. i
  747. fCVoidPtrArrayIterator.cp
  748. i
  749. fCWindow.cp
  750. i
  751. fGlobalVars.cp
  752. i
  753. o
  754. o
  755. rDialog Classes
  756. fCDialog.cp
  757. x133693018,125795098
  758. c0,600
  759. a    stream >> (CCollaborator*&) defaultBtn;        // •• CW TCL: must cast to reference type
  760. a    stream >> (CCollaborator*&) itsPanorama;    // •• CW TCL:    (ARM 5.4, p69)
  761. c603,604
  762. e
  763. fCDialog.h
  764. i
  765. fCDialogDirector.cp
  766. x232436939,145467584
  767. c0,39
  768. a#include "TCL.h"                            // •• CW TCL: added missing header
  769. c40,44
  770. aTCL_DEFINE_CLASS_M1(CDialogDirector, CDirector)    // •• CW TCL: added RTTI info
  771. c47,47
  772. c47,47
  773. c59,59
  774. c46,146
  775. a    itsGopher = gopherInfo.firstGopher? (CBureaucrat*) (gopherInfo.firstGopher)
  776. a                            : (CBureaucrat*) itsDialog;        // •• CW TCL: added typecasts
  777. c151,151
  778. c279,284
  779. c155,168
  780. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  781. a        catch_all_()                    // •• CW TCL: substitute untyped exceptions
  782. c170,171
  783. a            if (gLastError != kSilentErr)
  784. a                ErrorAlert(gLastError, gLastMessage);
  785. c174,174
  786. a#else                                    // •• CW TCL
  787. c169,174
  788. a#endif                                    // •• CW TCL
  789. c175,276
  790. a    itsGopher = gopherInfo.firstGopher? (CBureaucrat*) (gopherInfo.firstGopher)
  791. a                            : (CBureaucrat*) itsDialog;        // •• CW TCL: added typecasts
  792. c281,281
  793. c149,154
  794. c285,337
  795. e
  796. fCDialogDirector.h
  797. x63186064,74653758
  798. c0,26
  799. a    TCL_DECLARE_CLASS
  800. c28,28
  801. c27,46
  802. e
  803. fCDialogText.cp
  804. i
  805. fCDialogText.h
  806. i
  807. fCDLOGDialog.cp
  808. x203969931,503841338
  809. c0,47
  810. a#ifndef __MWERKS__                        // •• CW TCL
  811. a    #define PtoCstr(p) p2cstr(p)
  812. a#endif                                    // •• CW TCL
  813. c48,49
  814. a    #ifndef __MWERKS__                    // •• CW TCL
  815. c50,50
  816. a    #endif                                // •• CW TCL
  817. c51,408
  818. a    return foundView? (CView*) foundView : (CView*) itsPanorama;    // •• CW TCL: added typecasts
  819. c410,889
  820. e
  821. fCDLOGDialog.h
  822. i
  823. fCDLOGDirector.cp
  824. i
  825. fCDLOGDirector.h
  826. i
  827. fCIntegerText.cp
  828. i
  829. fCIntegerText.h
  830. i
  831. o
  832. rFile Classes
  833. fCDataFile.cp
  834. i
  835. fCDataFile.h
  836. i
  837. fCPictFile.cp
  838. i
  839. fCPictFile.h
  840. i
  841. fCPNTGFile.cp
  842. i
  843. fCPNTGFile.h
  844. i
  845. fCResFile.cp
  846. i
  847. fCResFile.h
  848. i
  849. o
  850. rFW/Tearoffs
  851. fCCharGrid.cp
  852. i
  853. fCCharGrid.h
  854. i
  855. fCFWDesktop.cp
  856. i
  857. fCFWDesktop.h
  858. i
  859. fCGridSelector.cp
  860. i
  861. fCGridSelector.h
  862. i
  863. fCMenuDefProc.cp
  864. i
  865. fCMenuDefProc.h
  866. i
  867. fCPaneMDEF.cp
  868. i
  869. fCPaneMDEF.h
  870. i
  871. fCPatternGrid.cp
  872. i
  873. fCPatternGrid.h
  874. i
  875. fCSelector.cp
  876. i
  877. fCSelector.h
  878. i
  879. fCSelectorMDEF.cp
  880. i
  881. fCSelectorMDEF.h
  882. i
  883. fCTearChore.cp
  884. i
  885. fCTearChore.h
  886. i
  887. fCTearOffMenu.cp
  888. i
  889. fCTearOffMenu.h
  890. i
  891. fGenericMDEF.cp
  892. i
  893. fGenericMDEF.h
  894. i
  895. rWindoid WDEF ƒ
  896. fWindoidWDEF.c
  897. i
  898. fWindoidWDEF.h
  899. i
  900. o
  901. o
  902. rMore Classes
  903. fCBitMap.cp
  904. i
  905. fCBitMap.h
  906. i
  907. fCBitMapPane.cp
  908. x101386957,314291598
  909. c0,14
  910. a#include "CBitMapPane.h"            // •• CW TCL: removed <>
  911. a#include "Global.h"                    // •• CW TCL: removed <>
  912. c17,19
  913. a#ifdef __MWERKS__                    // •• CW TCL 1.6
  914. a#include "CStream.tem"                // •• CW TCL 1.6
  915. a#endif                                // •• CW TCL 1.6
  916. c19,219
  917. e
  918. fCBitMapPane.h
  919. i
  920. fCStack.cp
  921. i
  922. fCStack.h
  923. i
  924. fCTextEnvirons.cp
  925. i
  926. fCTextEnvirons.h
  927. i
  928. o
  929. rObject I/O
  930. rHeaders
  931. fCBufferedStream.h
  932. x180971000,254244695
  933. c0,11
  934. a#include "CStream.h"                // •• CW TCL: removed <>
  935. c13,68
  936. e
  937. fCCountingStream.h
  938. x216268539,371314418
  939. c0,11
  940. a#include "CStream.h"                    // •• CW TCL: removed <>
  941. c13,40
  942. e
  943. fCFileStream.h
  944. x317632818,314636043
  945. c0,11
  946. a#include "CBufferedStream.h"            // •• CW TCL: removed <>
  947. a#include "CDataFile.h"
  948. c14,50
  949. e
  950. fCHandleStream.h
  951. i
  952. fCSaver.h
  953. i
  954. fCSaver.tem
  955. x23808943,231487679
  956. c0,179
  957. a    GetObject(*aStream, (T*&) itsContents);            // •• CW TCL 1.6: cast to reference
  958. c181,435
  959. e
  960. fCStream.h
  961. x522878674,16017289
  962. c0,17
  963. a#include <stddef.h>                    // •• CW TCL: for size_t definition
  964. c18,166
  965. c170,190
  966. e
  967. fCString.h
  968. i
  969. fReference.h
  970. i
  971. fStreamResources.h
  972. i
  973. o
  974. rSource
  975. fCBufferedStream.cp
  976. x208576433,177168525
  977. c0,18
  978. a#include "CBufferedStream.h"            // •• CW TCL: removed <>
  979. c20,20
  980. a#include "CError.h"                        // •• CW TCL: removed <>
  981. a#include "TCLUtilities.h"                // •• CW TCL: removed <>
  982. a#include "Global.h"                        // •• CW TCL: removed <>
  983. a#include "StreamResources.h"            // •• CW TCL: removed <>
  984. a#include "Exceptions.h"                    // •• CW TCL: removed <>
  985. c26,451
  986. e
  987. fCCountingStream.cp
  988. i
  989. fCFileStream.cp
  990. x48190746,530471242
  991. c0,30
  992. a#include "CFileStream.h"                // •• CW TCL: removed <>
  993. c32,32
  994. a#include "CError.h"                        // •• CW TCL: removed <>
  995. a#include "TCLUtilities.h"                // •• CW TCL: removed <>
  996. a#include "Global.h"                        // •• CW TCL: removed <>
  997. a#include "StreamResources.h"            // •• CW TCL: removed <>
  998. a#include "Exceptions.h"                    // •• CW TCL: removed <>
  999. c38,311
  1000. e
  1001. fCHandleStream.cp
  1002. x253842250,534441876
  1003. c0,18
  1004. a#include "CHandleStream.h"                // •• CW TCL: removed <>
  1005. c20,20
  1006. a#include "CError.h"                        // •• CW TCL: removed <>
  1007. a#include "TCLUtilities.h"                // •• CW TCL: removed <>
  1008. a#include "Global.h"                        // •• CW TCL: removed <>
  1009. a#include "StreamResources.h"            // •• CW TCL: removed <>
  1010. a#include "Exceptions.h"                    // •• CW TCL: removed <>
  1011. c26,254
  1012. e
  1013. fCSaver.cp
  1014. x174129995,338772096
  1015. c0,23
  1016. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  1017. c25,25
  1018. a#endif                                        // •• CW TCL
  1019. e
  1020. fCStream.cp
  1021. x30510677,182738730
  1022. c0,25
  1023. a#ifndef __MWERKS__                        // •• CW TCL
  1024. c26,26
  1025. a#else                                    // •• CW TCL
  1026. a#ifndef TCL_POWER_PC                    // •• CW TCL
  1027. a#include <ThinkSANE.h>                    // •• CW TCL: Symantec's version of <SANE.h> is different
  1028. a#endif                                    // •• CW TCL:      grrr....
  1029. a#endif                                    // •• CW TCL
  1030. c27,33
  1031. a//#include <Pascal.h>                    // •• CW TCL: <Pascal.h> not used
  1032. c35,37
  1033. c39,893
  1034. c893,914
  1035. a    GetObject(*this, (CCollaborator*&) obj);            // •• CW TCL: must cast to reference
  1036. c916,919
  1037. c918,918
  1038. c920,1004
  1039. e
  1040. fCString.cpp
  1041. x218598635,86469228
  1042. c0,10
  1043. a#include "TCL.h"                    // •• CW TCL: added missing header
  1044. c11,65
  1045. aBoolean pstreq(const char *s, const unsigned char *str)        // •• CW TCL 1.6: corrected prototype
  1046. c67,67
  1047. a    const char *end = s + str[0], *dst = s;                    // •• CW TCL 1.6: added const
  1048. c69,172
  1049. e
  1050. o
  1051. o
  1052. rPrecompiled Headers
  1053. o
  1054. rTable Classes
  1055. fCArrayPane.cp
  1056. x130191239,105905681
  1057. c0,278
  1058. a    stream >> (CCollaborator*&) itsArray;            // •• CW TCL: must cast to reference
  1059. c280,283
  1060. e
  1061. fCArrayPane.h
  1062. i
  1063. fCTable.cp
  1064. x527556286,121287104
  1065. c0,2011
  1066. a#if TCL_CW_VERSION==4                            // •• CW TCL
  1067. a                saveBorder = new CPaneBorder(*itsScrollPane->GetBorder());
  1068. a#else                                            // •• CW TCL
  1069. c2012,2013
  1070. a#endif                                            // •• CW TCL
  1071. c2014,2257
  1072. a    stream >> (CCollaborator*&) itsRows >> (CCollaborator*&) itsCols;
  1073. a                                            // •• CW TCL: must cast to reference
  1074. c2259,2260
  1075. e
  1076. fCTable.h
  1077. i
  1078. fCTableDragger.cp
  1079. i
  1080. fCTableDragger.h
  1081. i
  1082. o
  1083. fTCL #includes.cpp
  1084. x71226469,76803282
  1085. c0,12
  1086. a#ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL: optional replacement of BEL
  1087. c13,13
  1088. a#endif                                // •• CW TCL
  1089. c14,92
  1090. a#ifndef __MWERKS__                            // •• CW TCL: already included
  1091. c93,93
  1092. a#endif                                        // •• CW TCL
  1093. c94,104
  1094. a#ifdef Length                                // •• CW TCL: for new Univ Headers
  1095. a#undef Length                                // •• CW TCL
  1096. a#endif                                        // •• CW TCL
  1097. c111,111
  1098. c105,122
  1099. a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  1100. c123,131
  1101. a#endif                                        // •• CW TCL
  1102. c134,134
  1103. c199,199
  1104. c136,136
  1105. c135,139
  1106. a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  1107. a#ifndef TCL_NO_PRECOMPILED_TEMPLATES        // •• CW TCL
  1108. c140,152
  1109. a#ifndef TCL_NO_PRECOMPILED_WATCHDESC        // •• CW TCL
  1110. c153,153
  1111. a#endif                                        // •• CW TCL
  1112. c154,196
  1113. a#endif // #ifndef TCL_NO_PRECOMPILED_TEMPLATES        // •• CW TCL
  1114. a#endif // TCL_NO_PRECOMPILED_CLASS                    // •• CW TCL
  1115. c198,199
  1116. e
  1117. rTCL Libraries
  1118. rTCL Library headers
  1119. fCException.h
  1120. x425801894,18067076
  1121. c0,10
  1122. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1123. c15,15
  1124. c11,33
  1125. c2,2
  1126. a#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL
  1127. e
  1128. fExceptions.h
  1129. x523586618,196990769
  1130. c0,11
  1131. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL: replace header if using PowerPlant exceptions
  1132. a#include "Exceptions_PP.h"
  1133. a#else                                    // •• CW TCL
  1134. c15,15
  1135. c12,20
  1136. a#include "TCLClassInfo.h"            // •• CW TCL: removed <>
  1137. c22,70
  1138. a#ifndef TCL_NO_DEBUGGER_CALLS            // •• CW TCL
  1139. c71,73
  1140. a#else                                    // •• CW TCL
  1141. a#define _TCL_DEBUG_CATCH ((void)0);
  1142. a#endif                                    // •• CW TCL
  1143. c74,110
  1144. a#include "BRExcDef.h"                // •• CW TCL: removed <>
  1145. c112,298
  1146. avoid _TCL_CheckPtr(const void *ptr);                        // •• CW TCL 1.6: corrected prototype
  1147. avoid _TCL_CheckObjectPtr(const void* ptr);                    // •• CW TCL 1.6
  1148. c301,343
  1149. c342,342
  1150. a#endif // #ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1151. e
  1152. fLongCoordinates.h
  1153. i
  1154. fLongQD.h
  1155. i
  1156. fOSChecks.h
  1157. i
  1158. fqsort++.h
  1159. i
  1160. fTBUtilities.h
  1161. i
  1162. fTCL.h
  1163. i
  1164. fTCLClassInfo.h
  1165. x31239216,475724982
  1166. c0,14
  1167. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL: new problems
  1168. c19,19
  1169. a                                                    // •• CW TCL: added prototypes
  1170. c15,15
  1171. a        void* _TCLNew##name(); \
  1172. c16,20
  1173. a        void* _TCLNew##name##_##T(); \
  1174. c21,25
  1175. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
  1176. c34,34
  1177. c15,15
  1178. a        void* _TCLNew##name(); \
  1179. c16,16
  1180. a        BR_CClassInfo BR_SHARED_DATA \
  1181. a            _##name##_gClassInfo(#name, sizeof(name), _##name##_gAncestors); \
  1182. a        BR_CClassInfo& name::BedStaticGetClassInfo() { return _##name##_gClassInfo; } \
  1183. a        BR_ClassReference* name::BedGetAncestors() { return _##name##_gAncestors; }
  1184. c34,34
  1185. a                                                    // for now, there’s no template support...
  1186. c34,34
  1187. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL
  1188. c34,34
  1189. c33,33
  1190. c28,150
  1191. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  1192. c151,151
  1193. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  1194. a#define member(p, T) ((p)->BedVirtualGetClassInfo()->IsKindOf(&T::BedStaticGetClassInfo()))
  1195. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
  1196. c1,1
  1197. c153,153
  1198. e
  1199. fTCLCoordUtil.h
  1200. x435541449,297364550
  1201. c0,10
  1202. a#ifndef TCL_NO_TEMPLATES                        // •• CW TCL
  1203. c17,17
  1204. c11,45
  1205. c2,2
  1206. a#else                                    // •• CW TCL
  1207. c2,2
  1208. a#define TCLScale(unscaled, scaleFactor) (unscaled * scaleFactor)
  1209. a#define TCLUnscale(scaled, scaleFactor) ((scaled + scaleFactor - 1) / scaleFactor)
  1210. a#define TCLCenter(low, high) ((low + high) >> 1)
  1211. a#define TCLDimension(low, high) (high - low)
  1212. a#define TCLDelta(newValue, oldValue) (newValue - oldValue)
  1213. c2,2
  1214. a#endif                                    // •• CW TCL
  1215. e
  1216. fTCLFolderUtilities.h
  1217. i
  1218. fTCLForceReferences.h
  1219. i
  1220. fTCLNulls.h
  1221. i
  1222. fTCLpstring.h
  1223. i
  1224. fTCLUtilities.h
  1225. i
  1226. z6720,Exceptions_PP.h
  1227. // ______________________________________________________________________
  1228. //
  1229. //  Exceptions_PP.h
  1230. //  TCL 2.0 CodeWarrior port
  1231. //
  1232. //
  1233.  
  1234. #pragma once
  1235.  
  1236.  
  1237. // ______________________________________________________________________
  1238. //
  1239. //    This file stands in the place of the TCL’s Exceptions.h file.
  1240. //    It provides a wrapper for PowerPlant’s exception handling routines
  1241. //    within the TCL. Most of the TCL macros are implemented; a few
  1242. //    that cannot be duplicated are defined to cause compile-time errors.
  1243. //
  1244. //    Limitations:
  1245. //
  1246. //      *    You may not use the typed exception handling which was added
  1247. //        in TCL 2.0. The macros catch_, catch_reference_, and
  1248. //        catch_no_instance_ are not permitted. You must use
  1249. //        catch_all_ instead.
  1250. //
  1251. //      *    You may not reference the global variables gAskFailure,
  1252. //        gBreakFailure, _gTCLBreakCatch, _gTCLBreakFailure, or
  1253. //        _gTCLBreakAssert. These variables do not exist in this
  1254. //        implementation. The macros which access these variables are
  1255. //        implemented.
  1256. //
  1257. //      *    The PowerPlant header <UException.h> must be installed
  1258. //        in the CodeWarrior compiler folder. The file <UException.cp>
  1259. //        must be added to the project.
  1260. //
  1261. //      *    If the __TCL_DEBUG__ macro is defined, the PowerPlant header
  1262. //        <UDebugging.h> must also be installed in the CodeWarrior
  1263. //        compiler folder. The file <UDebugging.cp> must be added
  1264. //        to the project.
  1265. //
  1266. //      *    Your source may not use the throw_(exception) macro. Error
  1267. //        reporting must take place through the standard Fail___ routines.
  1268. //        The throw_same_() macro is permitted.
  1269. //
  1270. //
  1271. //    Usage notes:
  1272. //
  1273. //      *    If the __TCL_DEBUG__ macro is defined, the PowerPlant macro
  1274. //        Debug_Throw is also defined. This enables the source-level
  1275. //        exception debugging mechanism built into the PowerPlant
  1276. //        library.
  1277. //
  1278. //      *    There are two options for handling assertions: You may use
  1279. //        the TCL-style assertion-failed dialog, or you may use the
  1280. //        PowerPlant-style debugger break. PowerPlant handling is the
  1281. //        default. To enable the TCL handling, comment out the macro
  1282. //        TCL_SOURCE_ASSERT below.
  1283. // 
  1284.  
  1285. #define TCL_SOURCE_ASSERT
  1286.  
  1287.  
  1288. // ______________________________________________________________________
  1289. //
  1290. // bring in the PowerPlant exception library (and a few other definitions)
  1291. //
  1292.  
  1293. #ifdef __TCL_DEBUG__
  1294. #define Debug_Throw
  1295. #define Debug_Signal
  1296. #endif
  1297.  
  1298. #include <UException.h>
  1299.  
  1300. #include <Types.h>
  1301. #include <AppleEvents.h>
  1302.  
  1303.  
  1304. // ______________________________________________________________________
  1305. //
  1306. // TCL global error variables
  1307. //
  1308.  
  1309. extern short    gLastError;                // last error code that caused failure
  1310. extern long        gLastMessage;            // last message code associated with failure
  1311.  
  1312. #define kSilentErr    1                // pass to Failure to fail without any user alert
  1313.  
  1314.  
  1315. // ______________________________________________________________________
  1316. //
  1317. // TCL failure routines
  1318. //
  1319.  
  1320. pascal void Failure(short error, long message);
  1321. pascal void Fail(short error);
  1322. pascal void FailEvent();
  1323. pascal void FailEventMsg(long message);
  1324.  
  1325. pascal void FailMemError();
  1326. pascal void FailResError();
  1327. pascal void FailNIL(void *p);
  1328. pascal void FailOSErr( short error);
  1329. pascal void FailNILRes(void* p);
  1330.  
  1331. pascal void    Success();
  1332.  
  1333. pascal long SpecifyMsg(short strListID, short strIndex);
  1334. pascal void SetFailInfo(short newError, long newMessage);
  1335.  
  1336.  
  1337. // ______________________________________________________________________
  1338. //
  1339. // exception debugging macros
  1340. //
  1341.  
  1342. #ifdef Debug_Signal
  1343.  
  1344. #define _TCL_DEBUG_CATCH \
  1345.     SignalPStr_("\pEntering catch block")
  1346. #define TCL_BREAK_ON_CATCH(bool) \
  1347.     (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1348. #define TCL_ASK_ON_FAIL(bool) \
  1349.     (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1350. #define TCL_BREAK_ON_ASSERT(bool) \
  1351.     (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1352.  
  1353. #else
  1354.  
  1355. #define _TCL_DEBUG_CATCH ((void) 0)
  1356. #define TCL_BREAK_ON_CATCH(bool) ((void) 0)
  1357. #define TCL_ASK_ON_FAIL(bool) ((void) 0)
  1358. #define TCL_BREAK_ON_ASSERT(bool) ((void) 0)
  1359.  
  1360. #endif
  1361.  
  1362.  
  1363. #ifdef Debug_Throw
  1364.  
  1365. #define TCL_BREAK_ON_FAILURE(bool) \
  1366.     (gDebugThrow = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1367.  
  1368. #else
  1369.  
  1370. #define TCL_BREAK_ON_FAILURE(bool) ((void) 0)
  1371.  
  1372. #endif
  1373.  
  1374. void __TCL_DebugCStr(const char *msg);
  1375.  
  1376.  
  1377. // ______________________________________________________________________
  1378. //
  1379. // exception handling macros
  1380. //
  1381.  
  1382. #define TRY Try_
  1383.  
  1384. #define CATCH \
  1385.     Catch_(_PP_Err) \
  1386.     char __TCL_propagate = 1;
  1387.  
  1388. #define ENDTRY \
  1389.     if (__TCL_propagate) \
  1390.         Throw_('same'); \
  1391.     EndCatch_
  1392.  
  1393. #define NO_PROPAGATE \
  1394.     __TCL_propagate = 0
  1395.  
  1396.  
  1397. #define try_ Try_
  1398.  
  1399. #define catch_(class, error) ***Error
  1400. #define catch_reference_(class, error) ***Error
  1401. #define catch_no_instance_(class, error) ***Error
  1402.  
  1403. #define catch_all_() \
  1404.     Catch_(_PP_Err)
  1405.  
  1406. #define end_try_ EndCatch_
  1407.  
  1408. #define throw_(exception) ***Error
  1409.  
  1410. #define throw_same_() \
  1411.     Throw_('same')                    // why not?
  1412.  
  1413. #define TCL_EXCEPTION_CLASS ***Error
  1414.  
  1415. #define TCL_NEW(class, init) new class##init
  1416.  
  1417. #define TCL_END_CONSTRUCTOR
  1418.  
  1419. #define TCL_START_DESTRUCTOR
  1420.  
  1421. #define TCL_AUTO_DESTRUCT_OBJECT
  1422.  
  1423.  
  1424. // ______________________________________________________________________
  1425. //
  1426. // Failure() message strings defined by the TCL
  1427. //
  1428.  
  1429. enum {
  1430.     excMsgNullObject = 1,
  1431.     excMsgLookupFailed,
  1432.     excNewByNameFailed,
  1433.     excPrintJobTooBig,
  1434.     excExceedTELimit,
  1435.  
  1436.     excAEStrTooBig,
  1437.     excAEUserCanceled,
  1438.     excUnknownException,
  1439.     excBadFileType,
  1440.  
  1441.     excLastTCLException = excBadFileType
  1442. };
  1443.  
  1444.  
  1445. // ______________________________________________________________________
  1446. //
  1447. // Assertion macros
  1448. //
  1449.  
  1450. #ifdef __TCL_DEBUG__
  1451.  
  1452. short _TCL_assertion_failed(char *conditionStr,  char *fileName, int lineNum);
  1453. void _TCL_CheckHandle(const Handle);
  1454. void _TCL_CheckResource(const Handle);
  1455. void _TCL_CheckPtr(const void *ptr);                // •• CW TCL 1.6: corrected prototype
  1456. void _TCL_CheckObjectPtr(const void* ptr);            // •• CW TCL 1.6
  1457. void _TCL_CheckDesc(const AEDesc*);
  1458.  
  1459. #ifdef TCL_SOURCE_ASSERT
  1460.     #define TCL_ASSERT(condition) Assert_(condition)
  1461. #else
  1462.     #define TCL_ASSERT(condition) \
  1463.         ((void) ((condition)) || (_TCL_assertion_failed(#condition, __FILE__, __LINE__),1))
  1464. #endif // #ifdef TCL_SOURCE_ASSERT
  1465.  
  1466. #define TCL_ASSERT_HANDLE(H)         _TCL_CheckHandle((Handle) H)
  1467. #define TCL_ASSERT_RESOURCE(H)        _TCL_CheckResource((Handle) H)
  1468. #define TCL_ASSERT_PTR(P)            _TCL_CheckPtr((Ptr) P)
  1469. #define TCL_ASSERT_OBJECT_PTR(P)    _TCL_CheckObjectPtr(P)
  1470. #define TCL_ASSERT_DESC(P)            _TCL_CheckDesc(P)
  1471.  
  1472. #else // #ifdef __TCL_DEBUG__
  1473.  
  1474. #define TCL_ASSERT(condition)        ((void)0)
  1475. #define TCL_ASSERT_HANDLE(H)        ((void)0)
  1476. #define TCL_ASSERT_RESOURCE(H)        ((void)0)
  1477. #define TCL_ASSERT_PTR(P)            ((void)0)
  1478. #define TCL_ASSERT_OBJECT_PTR(P)    ((void)0)
  1479. #define TCL_ASSERT_DESC(P)            ((void)0)
  1480.  
  1481. #endif // #ifdef __TCL_DEBUG__
  1482.  
  1483.  
  1484. #undef ASSERT
  1485.  
  1486. #define ASSERT(condition) TCL_ASSERT(condition)
  1487. o
  1488. rTCL Library sources
  1489. falloc.cp
  1490. x331161373,108651653
  1491. c0,18
  1492. a#ifndef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1493. c19,19
  1494. a#endif                                            // •• CW TCL 1.6
  1495. c20,23
  1496. a#ifdef __MWERKS__                                // •• CW TCL
  1497. a#define TCL_NO_INSPECTOR                        // •• CW TCL
  1498. aBoolean __MMPrimitiveAllocate = 0;                // •• CW TCL 1.6
  1499. a#endif                                            // •• CW TCL
  1500. c27,27
  1501. c24,33
  1502. a#ifdef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1503. a#define OPERATOR_NEW _cw_operator_new            // •• CW TCL 1.6
  1504. a#define OPERATOR_DELETE _cw_operator_delete        // •• CW TCL 1.6
  1505. avoid *OPERATOR_NEW(size_t, void *p);            // •• CW TCL 1.6
  1506. avoid *OPERATOR_NEW(size_t size);                // •• CW TCL 1.6
  1507. avoid OPERATOR_DELETE(void *ptr);                // •• CW TCL 1.6
  1508. c38,38
  1509. c38,38
  1510. a#ifdef TCL_POWER_PC                                // •• CW TCL 1.6
  1511. a#include <NewPPC.cp>                            // •• CW TCL 1.6
  1512. a#else                                            // •• CW TCL 1.6
  1513. a#include <New68K.cp>                            // •• CW TCL 1.6
  1514. a#endif // TCL_POWER_PC                            // •• CW TCL 1.6
  1515. a#endif // __MWERKS__                            // •• CW TCL 1.6
  1516. c38,38
  1517. c34,38
  1518. a#ifndef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1519. c39,48
  1520. a#else                                            // •• CW TCL
  1521. a    p = OPERATOR_NEW(objSize);                    // •• CW TCL
  1522. a#endif                                            // •• CW TCL
  1523. c55,55
  1524. c50,72
  1525. a#ifndef TCL_USE_MW_OPER_NEW                        // •• CW TCL 1.6
  1526. c73,73
  1527. a#else                                            // •• CW TCL
  1528. a    OPERATOR_DELETE(objStorage);                // •• CW TCL
  1529. a#endif                                            // •• CW TCL
  1530. c63,63
  1531. e
  1532. fExceptions.asm
  1533. x92298649,119445813
  1534. c0,14
  1535. a#ifndef TCL_USE_PP_EXCEPTIONS            // •• CW TCL: don’t use this file
  1536. c18,18
  1537. c15,241
  1538. a#endif // #ifndef TCP_USE_PP_EXCEPTIONS            // •• CW TCL
  1539. c2,2
  1540. c2,2
  1541. e
  1542. fExceptions.cp
  1543. x45848174,530601535
  1544. c0,51
  1545. a#ifndef __MWERKS__                            // •• CW TCL: not available in CodeWarrior
  1546. c52,52
  1547. a#endif                                        // •• CW TCL
  1548. c53,55
  1549. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1550. c56,56
  1551. c58,58
  1552. a#endif                                        // •• CW TCL
  1553. c59,70
  1554. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1555. c71,87
  1556. a#endif                                        // •• CW TCL
  1557. c88,94
  1558. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1559. c95,96
  1560. a#endif                                        // •• CW TCL
  1561. c97,112
  1562. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL: this stuff is covered by PP
  1563. c113,161
  1564. a#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL
  1565. c162,179
  1566. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1567. c180,180
  1568. a#endif                                        // •• CW TCL
  1569. c181,196
  1570. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1571. c197,197
  1572. a#endif                                        // •• CW TCL
  1573. c198,213
  1574. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1575. c214,214
  1576. a#endif                                        // •• CW TCL
  1577. c215,236
  1578. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1579. c237,237
  1580. a#endif                                        // •• CW TCL
  1581. c238,256
  1582. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1583. c257,257
  1584. a#endif                                        // •• CW TCL
  1585. c258,309
  1586. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1587. c310,310
  1588. a#endif                                        // •• CW TCL
  1589. c311,325
  1590. a#elif defined(TCL_USE_PP_EXCEPTIONS)        // •• CW TCL: PP exceptions
  1591. c325,325
  1592. a    gLastError = err;                        // •• CW TCL
  1593. a    gLastMessage = message;                    // •• CW TCL
  1594. a    Throw_('err ');                            // ??? perhaps define a constant
  1595. c327,327
  1596. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL: if we got here, there was no handler
  1597. a    DebugStr("\pFailure: No handler");        // •• CW TCL
  1598. a#endif                                        // •• CW TCL
  1599. a    ErrorAlert(err, message);                // •• CW TCL
  1600. a    if (gApplication) gApplication->Exit();    // •• CW TCL
  1601. a    ExitToShell();                            // •• CW TCL
  1602. c327,327
  1603. c326,347
  1604. a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
  1605. c348,348
  1606. a#endif                                                // •• CW TCL
  1607. c466,466
  1608. c462,462
  1609. c351,433
  1610. a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
  1611. c434,434
  1612. a#endif                                                // •• CW TCL
  1613. c437,437
  1614. c32,32
  1615. c445,445
  1616. c438,463
  1617. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1618. c464,464
  1619. a#endif                                        // •• CW TCL
  1620. c146,146
  1621. c34,35
  1622. c468,606
  1623. a#ifdef __MWERKS__                        // •• CW TCL
  1624. a#define pascal
  1625. a#endif                                    // •• CW TCL
  1626. c607,705
  1627. e
  1628. fLongCoordinates.cp
  1629. i
  1630. fLongQD.cp
  1631. i
  1632. fOSChecks.cp
  1633. x194725325,165592014
  1634. c0,38
  1635. a// #if !defined(TCL_POWER_PC)                // •• CW TCL: this *is* useful, folks!
  1636. c40,78
  1637. a// #endif                                // •• CW TCL
  1638. c80,136
  1639. a#ifdef __MWERKS__                            // •• CW TCL
  1640. astatic void AsmCacheFlush()                    // •• CW TCL
  1641. a    ONEWORDINLINE(_CacheFlushTrap);            // •• CW TCL
  1642. a#endif                                        // •• CW TCL
  1643. c137,141
  1644. c2,2
  1645. a#ifndef TCL_POWER_PC                        // •• CW TCL
  1646. a        AsmCacheFlush();
  1647. a#else                                        // •• CW TCL
  1648. a        CallOSTrapUniversalProc(GetOSTrapAddress(_CacheFlushTrap), kRegisterBased);
  1649. a#endif                                        // •• CW TCL
  1650. a        
  1651. c143,144
  1652. e
  1653. fqsort++.cp
  1654. i
  1655. fTBUtilities.cp
  1656. x268546175,167648630
  1657. c0,151
  1658. a    PaintOne((WindowRef) macWindow, gUtilRgn);        // Draw newly exposed region
  1659. c153,157
  1660. a    CalcVisBehind((WindowRef) macWindow, ((WindowPeek)macWindow)->strucRgn);
  1661. c159,436
  1662. a#if TCL_CW_VERSION>=5                        // •• CW TCL: Univ Hdrs 2.0
  1663. a    EvQElPtr    qEvt = (EvQElPtr) LMGetEventQueue()->qHead;
  1664. a#else                                        // •• CW TCL
  1665. c437,437
  1666. a#endif                                        // •• CW TCL
  1667. c438,594
  1668. e
  1669. fTCLCoordUtilities.cpp
  1670. i
  1671. fTCLFolderUtilities.cp
  1672. x51707376,463242224
  1673. c0,10
  1674. a#include "TCL.h"                    // •• CW TCL
  1675. c11,471
  1676. e
  1677. fTCLpstring.cp
  1678. x154155038,140285453
  1679. c0,13
  1680. a//#include <BDC.h>                        // •• CW TCL: didn’t really need this anyway
  1681. c15,102
  1682. e
  1683. fTCLUtilities.asm
  1684. i
  1685. fTCLUtilities.cp
  1686. i
  1687. o
  1688. o
  1689. fTCL Version.note
  1690. i
  1691. rTemplates
  1692. fCList.cpp
  1693. i
  1694. fCList.h
  1695. i
  1696. fCList.tem
  1697. i
  1698. fCListIterator.cp
  1699. i
  1700. fCListIterator.h
  1701. i
  1702. fCList_CView.cpp
  1703. x389682597,418442484
  1704. c0,2
  1705. a#ifndef __MWERKS__                            // •• CW TCL 1.6
  1706. c3,6
  1707. a#else                                        // •• CW TCL 1.6
  1708. aclass CList<CView>;                            // •• CW TCL 1.6
  1709. aclass CList<CWindow>;                        // •• CW TCL 1.6
  1710. a#endif                                        // •• CW TCL 1.6
  1711. c7,10
  1712. c2,2
  1713. a#include "CPtrArray.tem"                    // •• CW TCL 1.6
  1714. c11,11
  1715. a#include "CStream.tem"                        // •• CW TCL 1.6
  1716. a#include "PutObject1.tem"                    // •• CW TCL 1.6
  1717. e
  1718. fCPtrArray.cp
  1719. i
  1720. fCPtrArray.h
  1721. i
  1722. fCPtrArray.tem
  1723. i
  1724. fCPtrArrayIterator.cpp
  1725. i
  1726. fCPtrArrayIterator.h
  1727. i
  1728. fCPtrArray_CChore.cpp
  1729. x279271734,237362088
  1730. c0,2
  1731. a#ifndef __MWERKS__                            // •• CW TCL 1.6
  1732. c3,5
  1733. a#else                                        // •• CW TCL 1.6
  1734. aclass CPtrArray<CChore>;                    // •• CW TCL 1.6
  1735. a#endif                                        // •• CW TCL 1.6
  1736. c6,9
  1737. e
  1738. fCPtrArray_CDirector.cpp
  1739. x270739850,305329320
  1740. c0,2
  1741. a#ifndef __MWERKS__                            // •• CW TCL 1.6
  1742. c3,5
  1743. a#else                                        // •• CW TCL 1.6
  1744. aclass CPtrArray<CDirector>;                    // •• CW TCL 1.6
  1745. a#endif                                        // •• CW TCL 1.6
  1746. c6,9
  1747. e
  1748. fCPtrArray_CView.cpp
  1749. x444711567,255748985
  1750. c0,3
  1751. a#ifndef __MWERKS__                                // •• CW TCL 1.6
  1752. c4,9
  1753. a#else                                            // •• CW TCL 1.6
  1754. aclass CPtrArray<CCollaborator>;                    // •• CW TCL 1.6
  1755. aclass CPtrArray<CView>;                            // •• CW TCL 1.6
  1756. aclass CPtrArray<CWindow>;                        // •• CW TCL 1.6
  1757. aclass CPtrArray<CGroupButton>;                    // •• CW TCL 1.6
  1758. a#endif                                            // •• CW TCL 1.6
  1759. c10,16
  1760. e
  1761. fCStream.tem
  1762. x151535939,151535947
  1763. c0,49
  1764. a    
  1765. c51,106
  1766. e
  1767. fCStream_CBitMap.cpp
  1768. x490631420,182514836
  1769. c0,2
  1770. a#ifndef __MWERKS__                            // •• CW TCL 1.6
  1771. c3,6
  1772. a#else                                        // •• CW TCL 1.6
  1773. aCStream& PutObject(CStream&, CBitMap*);        // •• CW TCL 1.6
  1774. aCStream& GetObject(CStream&, CBitMap*&);    // •• CW TCL 1.6
  1775. a#endif                                        // •• CW TCL 1.6
  1776. c7,8
  1777. e
  1778. fCStream_CCollaborator.cpp
  1779. x535514564,227789260
  1780. c0,2
  1781. a#ifndef __MWERKS__                                // •• CW TCL 1.6
  1782. c3,10
  1783. a#else                                            // •• CW TCL 1.6
  1784. aCStream& PutObject(CStream&, CCollaborator*);    // •• CW TCL 1.6
  1785. aCStream& GetObject(CStream&, CCollaborator*&);    // •• CW TCL 1.6
  1786. aCStream& PutObject(CStream&, CView*);            // •• CW TCL 1.6
  1787. aCStream& GetObject(CStream&, CView*&);            // •• CW TCL 1.6
  1788. aCStream& PutObject(CStream&, CWindow*);            // •• CW TCL 1.6
  1789. aCStream& GetObject(CStream&, CWindow*&);        // •• CW TCL 1.6
  1790. a#endif                                            // •• CW TCL 1.6
  1791. c11,12
  1792. e
  1793. fCStream_CEnvironment.cpp
  1794. x518521852,46506296
  1795. c0,2
  1796. a#ifndef __MWERKS__                                // •• CW TCL 1.6
  1797. c3,6
  1798. a#else                                            // •• CW TCL 1.6
  1799. aCStream& PutObject(CStream&, CEnvironment*);    // •• CW TCL 1.6
  1800. aCStream& GetObject(CStream&, CEnvironment*&);    // •• CW TCL 1.6
  1801. a#endif                                            // •• CW TCL 1.6
  1802. c7,8
  1803. e
  1804. fCStream_CEnvirons.cpp
  1805. x164286842,492019026
  1806. c0,2
  1807. a#ifndef __MWERKS__                                // •• CW TCL 1.6
  1808. c3,6
  1809. a#else                                            // •• CW TCL 1.6
  1810. aCStream& PutObject(CStream&, CEnvirons*);        // •• CW TCL 1.6
  1811. aCStream& GetObject(CStream&, CEnvirons*&);        // •• CW TCL 1.6
  1812. a#endif                                            // •• CW TCL 1.6
  1813. c7,8
  1814. e
  1815. fCStream_CPaneBorder.cpp
  1816. x469483124,268904974
  1817. c0,2
  1818. a#ifndef __MWERKS__                                    // •• CW TCL 1.6
  1819. c3,6
  1820. a#else                                                // •• CW TCL 1.6
  1821. aCStream& PutObject(CStream&, CPaneBorder*);            // •• CW TCL 1.6
  1822. aCStream& GetObject(CStream&, CPaneBorder*&);        // •• CW TCL 1.6
  1823. a#endif                                                // •• CW TCL 1.6
  1824. c7,8
  1825. e
  1826. fPutObject1.cpp
  1827. x492085006,457137980
  1828. c0,2
  1829. a#ifndef __MWERKS__                                // •• CW TCL 1.6
  1830. c3,6
  1831. a#else                                            // •• CW TCL 1.6
  1832. avoid PutObject1(CView*, long);                    // •• CW TCL 1.6
  1833. avoid PutObject1(CWindow*, long);                // •• CW TCL 1.6
  1834. a#endif                                            // •• CW TCL 1.6
  1835. c7,8
  1836. a#include "CStream.tem"                            // •• CW TCL 1.6
  1837. e
  1838. fPutObject1.tem
  1839. i
  1840. o
  1841. rText Classes
  1842. fCAbstractText.cp
  1843. i
  1844. fCAbstractText.h
  1845. i
  1846. fCEditText.cp
  1847. i
  1848. fCEditText.h
  1849. i
  1850. fCStyleTEClipboard.cp
  1851. i
  1852. fCStyleTEClipboard.h
  1853. i
  1854. fCStyleTEEditTask.cp
  1855. i
  1856. fCStyleTEEditTask.h
  1857. i
  1858. fCStyleTEStyleTask.cp
  1859. i
  1860. fCStyleTEStyleTask.h
  1861. i
  1862. fCStyleText.cp
  1863. i
  1864. fCStyleText.h
  1865. i
  1866. fCTextEditTask.cp
  1867. i
  1868. fCTextEditTask.h
  1869. i
  1870. fCTextStyleTask.cp
  1871. i
  1872. fCTextStyleTask.h
  1873. i
  1874. o
  1875. rVisual Architect Library
  1876. fCColorTextEnvirons.cp
  1877. i
  1878. fCColorTextEnvirons.h
  1879. i
  1880. fCFloatDirector.cp
  1881. i
  1882. fCFloatDirector.h
  1883. i
  1884. fCGridMDEF.cp
  1885. i
  1886. fCGridMDEF.h
  1887. i
  1888. fCIconButton.cp
  1889. i
  1890. fCIconButton.h
  1891. i
  1892. fCLine.cp
  1893. i
  1894. fCLine.h
  1895. i
  1896. fCPICTGrid.cp
  1897. i
  1898. fCPICTGrid.h
  1899. i
  1900. fCPICTGridDirector.cp
  1901. i
  1902. fCPICTGridDirector.h
  1903. i
  1904. fCPICTSelector.cp
  1905. i
  1906. fCPICTSelector.h
  1907. i
  1908. fCPictureButton.cp
  1909. i
  1910. fCPictureButton.h
  1911. i
  1912. fCPolyButton.cp
  1913. i
  1914. fCPolyButton.h
  1915. i
  1916. fCRectOvalButton.cp
  1917. i
  1918. fCRectOvalButton.h
  1919. i
  1920. fCRoundRectButton.cp
  1921. i
  1922. fCRoundRectButton.h
  1923. i
  1924. fCSelectorDirector.cp
  1925. i
  1926. fCSelectorDirector.h
  1927. i
  1928. fCShapeButton.cp
  1929. i
  1930. fCShapeButton.h
  1931. i
  1932. fCStaticText.cp
  1933. i
  1934. fCStaticText.h
  1935. i
  1936. fCSubviewDisplayer.cp
  1937. i
  1938. fCSubviewDisplayer.h
  1939. i
  1940. fCSwissArmyButton.cp
  1941. i
  1942. fCSwissArmyButton.h
  1943. i
  1944. fCTearOffDirector.cp
  1945. i
  1946. fCTearOffDirector.h
  1947. i
  1948. fDialogFunctions.cp
  1949. i
  1950. fDialogFunctions.h
  1951. i
  1952. fViewUtilities.cp
  1953. i
  1954. fViewUtilities.h
  1955. i
  1956. o
  1957. z2484,CW TCLHeaders.pch
  1958. //
  1959. // TCL 2.0 CodeWarrior port
  1960. //
  1961. //    Precompiled headers
  1962. //
  1963. //    Use this file to build the precompiled header file, instead
  1964. //    of “TCL #includes.cpp” provided by Symantec.
  1965. //
  1966. //    UPDATED FOR CodeWarrior CW/5
  1967. //    Eric Scouten, 29 Nov 1994
  1968. //
  1969.  
  1970.  
  1971. // prevent multiple compilations
  1972.  
  1973. #ifndef CW_TCL_HDR
  1974. #define CW_TCL_HDR
  1975.  
  1976.  
  1977. // use Metrowerks’ standard precompiled header file
  1978.  
  1979. #ifdef powerc
  1980.     #include <MacHeadersPPC++>
  1981.     #pragma precompile_target "CW TCLHeadersPPC"
  1982. #else
  1983.     #include <MacHeaders68K++>
  1984.     #pragma precompile_target "CW TCLHeaders68K"
  1985. #endif    
  1986.  
  1987.  
  1988. #undef TRUE                        // redefined in <THINK.h>
  1989. #undef FALSE
  1990. #pragma cplusplus on            // wonder why this is necessary?
  1991.  
  1992.  
  1993. //________________________________________________________________________
  1994. //
  1995. // several new conditional compilation macros for the CodeWarrior port
  1996. //
  1997.  
  1998. #define TCL_CW_VERSION 5
  1999.     // Set this macro to the current release number of CodeWarrior
  2000.     // (currently CW/5). As features are added to CodeWarrior, this
  2001.     // macro will be used to maintain compatibility with older
  2002.     // versions.
  2003.     //
  2004.     // NOTE: There is no support for compilation under CW/4 or earlier.
  2005.  
  2006. #if TCL_CW_VERSION==5
  2007. #define TCL_NO_PRECOMPILED_TEMPLATES
  2008. #endif
  2009.     // In CW/5 it is not possible to precompile template definitions. *sigh*
  2010.     // This restriction should be lifted for CW/6.
  2011.  
  2012. //#define TCL_USE_MW_OPER_NEW
  2013.     // Flag to use the optional Metrowerks implementation of "operator new".
  2014.     // Disable to route new/delete directly to NewPtr/DisposePtr, for easier
  2015.     // debugging.
  2016.     
  2017. #define TCL_NO_DEBUGGER_CALLS
  2018.     // Because all the Debugger() calls aren’t trapped by CW’s source-level
  2019.     // debugger. It’s just plain annoying to drop into MacsBug all the
  2020.     // time (especially in PPC code)!
  2021.     
  2022. #define TCL_NO_PATCHES
  2023.     // Because LoadSeg_Patch doesn’t work with CW. Applies only
  2024.     // to 68K builds.
  2025.  
  2026. #define TCL_USE_PP_EXCEPTIONS
  2027.     // Optional switch to use the PowerPlant exception library instead of Bedrock
  2028.     // Exception Library. Requires UException and UDebugging from PowerPlant.
  2029.     // (Added in 1.2 port.)
  2030.  
  2031.  
  2032. //________________________________________________________________________
  2033. //
  2034. // include the TCL standard headers
  2035. //
  2036.  
  2037. #include "TCL #includes.cpp"
  2038.  
  2039. //#ifndef TCL_NO_PRECOMPILED_CLASS
  2040. //#include "CSizeBox.h"                    // •• CW TCL temporary
  2041. //#endif
  2042.  
  2043.  
  2044. // (dis)allow object I/O (you may comment this out when you pre-compile)
  2045.  
  2046. #define TCL_OBJECT_IO
  2047.  
  2048.  
  2049. // make sure to prevent attempts at including precompiled headers again
  2050.  
  2051. #undef TCL_PCH
  2052.  
  2053.  
  2054. #endif  // #ifndef CW_TCL_HDR
  2055. o
  2056.