home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Developers / CW TCL port package / *TCL source.diff < prev    next >
Encoding:
Text File  |  1994-07-17  |  57.8 KB  |  2,707 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. x309072200,253797511
  223. c0,15
  224. a#ifdef TCL_POWER_PC                        // •• CW TCL
  225. a    int _BR_BedIsOnStack(void *);        // •• CW TCL
  226. a#else                                    // •• CW TCL
  227. c16,17
  228. c39,39
  229. a#ifdef __MWERKS__                        // •• CW TCL
  230. c39,39
  231. aextern "C" {
  232. c39,39
  233. a    #if USES68KINLINES
  234. a    #pragma parameter __D0 _BR_BedIsOnStack(__A0)
  235. a    #endif
  236. c21,21
  237. a        NINEWORDINLINE(0x7000, 0xBFC8, 0x6408, 0xB1F8, 0x0908, 0x6202, 0x7001, 0x4880, 0x48C0);
  238. a    
  239. c23,23
  240. c39,39
  241. a#else // #ifdef __MWERKS__                // •• CW TCL
  242. c39,39
  243. c42,44
  244. c21,23
  245. c39,39
  246. a#endif // #ifdef __MWERKS__                // •• CW TCL
  247. c48,48
  248. c25,154
  249. e
  250. fBRPostEx.h
  251. i
  252. fBRPriDeb.h
  253. x242883629,259231245
  254. c0,107
  255. a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
  256. c108,108
  257. a#else                                                // •• CW TCL
  258. a#define BR_PRIMITIVE_DEBUGGER_BREAK() ((void)0)        // •• CW TCL
  259. a#endif                                                // •• CW TCL
  260. c109,178
  261. e
  262. fBRSExcep.h
  263. i
  264. fBRSExcLo.h
  265. i
  266. fBRSPostE.h
  267. i
  268. fBRTryBlo.h
  269. i
  270. o
  271. o
  272. rBRRunTyp
  273. fBRClaInf.h
  274. x531390750,36021818
  275. c0,23
  276. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL: this macro is irrelevant in
  277. a//                                                //        the DR/3 port, we want any reference
  278. a//                                                //        to it to cause a compilation error
  279. c24,26
  280. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE
  281. c27,173
  282. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  283. c174,180
  284. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  285. c175,175
  286. c179,179
  287. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
  288. c184,184
  289. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  290. c182,183
  291. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  292. c182,182
  293. a    _##name##_gAncestors
  294. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
  295. c196,196
  296. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  297. c245,245
  298. c190,191
  299. c188,195
  300. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  301. c186,186
  302. a        BR_CClassInfo BR_SHARED_DATA \
  303. a            _##name##_gClassInfo(#name, sizeof(name), _##name##_gAncestors); \
  304. a        BR_CClassInfo& name::BedStaticGetClassInfo() { return _##name##_gClassInfo; } \
  305. a        BR_ClassReference* name::BedGetAncestors() { return _##name##_gAncestors; }
  306. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
  307. c202,202
  308. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  309. c197,235
  310. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  311. c197,197
  312. a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
  313. c199,203
  314. a    extern BR_CClassInfo _##ancestor##_gClassInfo; \
  315. a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
  316. c199,199
  317. a        &_##ancestor##_gClassInfo, \
  318. c200,202
  319. c210,210
  320. a    extern BR_CClassInfo _##ancestor1##_gClassInfo; \
  321. a    extern BR_CClassInfo _##ancestor2##_gClassInfo; \
  322. a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
  323. c199,199
  324. a        &_##ancestor1##_gClassInfo, \
  325. a        &_##ancestor2##_gClassInfo, \
  326. c200,202
  327. c218,218
  328. a    extern BR_CClassInfo _##ancestor1##_gClassInfo; \
  329. a    extern BR_CClassInfo _##ancestor2##_gClassInfo; \
  330. a    extern BR_CClassInfo _##ancestor3##_gClassInfo; \
  331. a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
  332. c199,199
  333. a        &_##ancestor1##_gClassInfo, \
  334. a        &_##ancestor2##_gClassInfo, \
  335. a        &_##ancestor3##_gClassInfo, \
  336. c200,202
  337. c227,227
  338. a    extern BR_CClassInfo _##ancestor1##_gClassInfo; \
  339. a    extern BR_CClassInfo _##ancestor2##_gClassInfo; \
  340. a    extern BR_CClassInfo _##ancestor3##_gClassInfo; \
  341. a    extern BR_CClassInfo _##ancestor4##_gClassInfo; \
  342. a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
  343. c199,199
  344. a        &_##ancestor1##_gClassInfo, \
  345. a        &_##ancestor2##_gClassInfo, \
  346. a        &_##ancestor3##_gClassInfo, \
  347. a        &_##ancestor4##_gClassInfo, \
  348. c200,201
  349. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  350. c265,265
  351. c237,244
  352. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL
  353. c174,174
  354. c246,259
  355. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL
  356. c246,247
  357. a        static BR_CClassInfo& BedStaticGetClassInfo(); \
  358. a        static BR_ClassReference* BedGetAncestors();
  359. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE    // •• CW TCL
  360. c291,291
  361. c261,331
  362. e
  363. fBRClaInf.h.bed
  364. i
  365. fBRClaInf.h.tcl
  366. i
  367. fBRRunTyp.h
  368. i
  369. o
  370. rBRTaskG
  371. fBRBedTas.h
  372. i
  373. fBRTaskG.h
  374. i
  375. o
  376. rSource
  377. fBRAutoDe.cpp
  378. i
  379. fBRBedExc.cpp
  380. i
  381. fBrBedTas.cpp
  382. i
  383. fBRBreakC.cpp
  384. i
  385. fBRClaInf.cpp
  386. x531482884,160843861
  387. c0,92
  388. a        
  389. a        if (ancestors == 0)                            // •• CW TCL: sometimes ancerstors isn't filled in
  390. a            return FALSE;                            // •• CW TCL
  391. c93,136
  392. e
  393. fBRDelSta.cpp
  394. i
  395. fBRExcept.cpp
  396. i
  397. fBRExcLog.cpp
  398. i
  399. fBRExcRun.cpp
  400. i
  401. fBRExcTas.cpp
  402. i
  403. fBRNewHel.cpp
  404. i
  405. fBRPostEx.cpp
  406. i
  407. fBRPriMem.cpp
  408. i
  409. fBRPriStr.cpp
  410. i
  411. fBRTryBlo.cpp
  412. i
  413. o
  414. o
  415. rControl Classes
  416. fCArrowPopupPane.cp
  417. i
  418. fCArrowPopupPane.h
  419. i
  420. fCButton.cp
  421. i
  422. fCButton.h
  423. i
  424. fCCheckBox.cp
  425. i
  426. fCCheckBox.h
  427. i
  428. fCGroupButton.cpp
  429. x378000304,464772975
  430. c0,58
  431. a        if (member(anEnclosure, CGroupButtonEnclosure)) {        // •• CW TCL: fix casting bug
  432. a            CWindow        *w = (CWindow*) anEnclosure;            // •• CW TCL
  433. a            itsGroupEnclosure = (CGroupButtonEnclosure*) w;        // •• CW TCL
  434. a        }                                                        // •• CW TCL
  435. c61,158
  436. a    stream >> (short&) groupID;                // •• CW TCL: must cast to reference
  437. c160,161
  438. e
  439. fCGroupButton.h
  440. x432023668,157191324
  441. c0,0
  442. a#include "TCL.h"                    // •• CW TCL: added missing header
  443. c1,42
  444. e
  445. fCGroupButtonEnclosure.cpp
  446. i
  447. fCGroupButtonEnclosure.h
  448. x180100340,38685562
  449. c0,14
  450. a#ifndef TCL_NO_TEMPLATES                            // •• CW TCL
  451. c15,15
  452. a#else                                                // •• CW TCL
  453. aTM_DECLARE_CPtrArray(CGroupButton)                    // •• CW TCL
  454. atypedef CPtrArray_CGroupButton CGroupButtonList;    // •• CW TCL
  455. a#endif                                                // •• CW TCL
  456. c16,31
  457. e
  458. fCIconPane.cp
  459. i
  460. fCIconPane.h
  461. i
  462. fCPopupMenu.cp
  463. i
  464. fCPopupMenu.h
  465. i
  466. fCPopupPane.cp
  467. x445732101,160278290
  468. c0,37
  469. aTCL_DEFINE_CLASS_D1(CPopupPane, CPane);        // •• CW TCL: sometimes need dynamic refs
  470. c39,39
  471. c39,366
  472. a    stream >> (CCollaborator*&) itsMenu;            // •• CW TCL: must cast to reference
  473. c368,369
  474. e
  475. fCPopupPane.h
  476. i
  477. fCRadioControl.cp
  478. i
  479. fCRadioControl.h
  480. i
  481. fCRadioGroupPane.cp
  482. x195280440,184651060
  483. c0,187
  484. a    stream >> (CCollaborator*&) currentStation;        // •• CW TCL: must cast to reference
  485. c189,190
  486. e
  487. fCRadioGroupPane.h
  488. i
  489. fCStdPopupPane.cp
  490. x41918582,415775780
  491. c0,48
  492. c50,335
  493. a#ifdef __INSTALL_MENU_HOOK__                                        // •• CW TCL
  494. c336,336
  495. a#else                                                                // •• CW TCL
  496. a        newWidth = titleWidth + titleGap + itsMenu->GetWidth()        // •• CW TCL
  497. a                    + kArrowWidth + kArrowRightInset;                // •• CW TCL
  498. a#endif                                                                // •• CW TCL
  499. c339,339
  500. c337,685
  501. a    stream >> (CCollaborator*&) itsPopupBox;        // •• CW TCL: must cast to reference
  502. c687,689
  503. e
  504. fCStdPopupPane.h
  505. i
  506. o
  507. rCore Classes
  508. rCore Headers
  509. fCApplication.h
  510. x136048323,177489741
  511. c0,42
  512. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  513. c43,43
  514. a#else                                        // •• CW TCL
  515. a#include "CPtrArray.h"                        // •• CW TCL
  516. aTM_DECLARE_CPtrArray(CChore)                // •• CW TCL
  517. atypedef CPtrArray_CChore CChoreList;        // •• CW TCL
  518. a#endif                                        // •• CW TCL
  519. c44,239
  520. a#ifndef TCL_NO_PATCHES                        // •• CW TCL
  521. c2,2
  522. c244,244
  523. c241,246
  524. c2,2
  525. a#endif // #ifndef TCL_NO_PATCHES            // •• CW TCL
  526. e
  527. fCArray.h
  528. i
  529. fCArrayIterator.h
  530. i
  531. fCBartender.h
  532. i
  533. fCBureaucrat.h
  534. i
  535. fCChore.h
  536. i
  537. fCClipboard.h
  538. i
  539. fCCollaborator.h
  540. x514491359,238556033
  541. c0,13
  542. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  543. a#define CCollaboratorList CPtrArray_CCollaborator
  544. a#endif                                    // •• CW TCL
  545. c15,15
  546. c14,15
  547. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  548. aclass CCollaborator;                    // •• CW TCL
  549. aCW_Decl_StreamCalls(CCollaborator)        // •• CW TCL
  550. a#endif                                    // •• CW TCL
  551. c18,18
  552. c16,69
  553. e
  554. fCCollection.h
  555. i
  556. fCControl.h
  557. i
  558. fCDecorator.h
  559. i
  560. fCDesktop.h
  561. x382519935,490103801
  562. c0,16
  563. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  564. c17,17
  565. a#else                                        // •• CW TCL
  566. aTM_DECLARE_CPtrArray(CWindow)                // •• CW TCL
  567. aTM_DECLARE_CList(CWindow)                    // •• CW TCL
  568. atypedef CList_CWindow CWindowList;            // •• CW TCL
  569. a#endif                                        // •• CW TCL
  570. c18,84
  571. e
  572. fCDirector.h
  573. i
  574. fCDirectorOwner.h
  575. x230669666,293325232
  576. c0,21
  577. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  578. c22,22
  579. a#else                                        // •• CW TCL
  580. aTM_DECLARE_CPtrArray(CDirector)                // •• CW TCL
  581. atypedef CPtrArray_CDirector CDirectorList;    // •• CW TCL
  582. a#endif                                        // •• CW TCL
  583. c23,49
  584. e
  585. fCDocument.h
  586. i
  587. fCEnvironment.h
  588. i
  589. fCEnvirons.h
  590. x438491764,141564737
  591. c0,15
  592. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  593. aclass CEnvirons;                        // •• CW TCL
  594. aCW_Decl_StreamCalls(CEnvirons)            // •• CW TCL
  595. a#endif                                    // •• CW TCL
  596. c18,18
  597. c16,64
  598. e
  599. fCError.h
  600. i
  601. fCFile.h
  602. i
  603. fCMBarChore.h
  604. i
  605. fCMouseTask.h
  606. i
  607. fCommands.h
  608. i
  609. fConstants.h
  610. i
  611. fCPane.h
  612. i
  613. fCPaneBorder.h
  614. x521993175,370672830
  615. c0,35
  616. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  617. aclass CPaneBorder;                        // •• CW TCL
  618. aCW_Decl_StreamCalls(CPaneBorder)        // •• CW TCL
  619. a#endif                                    // •• CW TCL
  620. c39,39
  621. c36,115
  622. e
  623. fCPanorama.h
  624. i
  625. fCPicture.h
  626. i
  627. fCPrinter.h
  628. i
  629. fCRunArray.h
  630. i
  631. fCScrollBar.h
  632. i
  633. fCScrollPane.h
  634. i
  635. fCSizeBox.h
  636. i
  637. fCSwitchboard.h
  638. i
  639. fCTask.h
  640. i
  641. fCView.h
  642. x99354561,386222255
  643. c0,46
  644. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  645. c47,47
  646. a#else                                    // •• CW TCL
  647. aTM_DECLARE_CPtrArray(CView)                // •• CW TCL
  648. aTM_DECLARE_CList(CView)                    // •• CW TCL
  649. atypedef CList_CView CViewList;            // •• CW TCL
  650. a#endif                                    // •• CW TCL
  651. c48,170
  652. e
  653. fCVoidPtrArray.h
  654. i
  655. fCVoidPtrArrayIterator.h
  656. i
  657. fCWindow.h
  658. i
  659. fGlobal.h
  660. i
  661. o
  662. rCore Sources
  663. fCApplication.asm
  664. x339079643,235419597
  665. c0,18
  666. a#ifndef __MWERKS__                                // •• CW TCL
  667. c19,29
  668. a#endif // #ifndef __MWERKS__                    // •• CW TCL
  669. c30,46
  670. a#ifdef __MWERKS__                            // •• CW TCL
  671. aasm
  672. a#endif                                        // •• CW TCL
  673. c47,48
  674. a#ifndef __MWERKS__                            // •• CW TCL
  675. c49,50
  676. a#endif                                        // •• CW TCL: also changed ';' comments to '//'
  677. a             clr.l        -(sp)                // reserve some space
  678. a            movem.l        a0-a5/d0-d7, -(sp)    // save the regs
  679. a             move.w      64(sp), d7          // get seg#
  680. c54,57
  681. a             move.b      #kAllocCanFail, -(sp) // this allocation
  682. a             jsr            SetAllocation        // can fail
  683. a             move.b      d0, d6                // save old canFail flag
  684. c61,62
  685. a             clr.l        -(sp)                // do a GetResource on
  686. a             move.l      #'CODE', -(sp)      // the code segment
  687. c65,66
  688. a             movea.l       (sp)+, a3            // save the handle
  689. c62,62
  690. a             move.b      d6, -(sp)            // restore old allocation
  691. c70,73
  692. a             jsr            FailNIL                // returns if OK
  693. c68,68
  694. a             move.l        origLoadSeg, 56(sp) // store original LoadSeg on stack
  695. a             movem.l        (sp)+, a0-a5/d0-d7  // restore regs
  696. a             rts                                // return to original LoadSeg
  697. a#ifndef __MWERKS__                            // •• CW TCL
  698. c79,79
  699. a#endif                                        // •• CW TCL
  700. c80,82
  701. e
  702. fCApplication.cp
  703. x236347372,124276174
  704. c0,59
  705. a#include "TCLpstring.h"                    // •• CW TCL: added missing header
  706. c60,92
  707. a#ifndef __MWERKS__                        // •• CW TCL: not needed
  708. c93,93
  709. a#endif // ## ifndef __MWERKS__            // •• CW TCL
  710. c94,503
  711. a#ifndef TCL_NO_PATCHES                    // •• CW TCL: okay, mostly no patches
  712. c504,506
  713. a#endif                                    // •• CW TCL
  714. c507,523
  715. a#ifndef TCL_NO_PATCHES                        // •• CW TCL
  716. c524,525
  717. a#endif                                        // •• CW TCL
  718. c526,1259
  719. a#ifndef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  720. c1260,1260
  721. a#else                                    // •• CW TCL
  722. a        catch_all_()                    // •• CW TCL
  723. a#endif                                    // •• CW TCL
  724. c1261,1261
  725. a#ifndef TCL_USE_PP_EXCEPTIONS                    // •• CW TCL
  726. c1262,1265
  727. a#else                                            // •• CW TCL
  728. a            short err = gLastError;                // •• CW TCL
  729. a            if (err != kSilentErr)                // •• CW TCL
  730. a                ErrorAlert(err, gLastMessage);    // •• CW TCL
  731. a            HiliteMenu(0);                        // •• CW TCL
  732. a#endif                                            // •• CW TCL
  733. c1266,1286
  734. a#ifndef TCL_USE_PP_EXCEPTIONS                    // •• CW TCL
  735. c1287,1302
  736. a#else                                            // •• CW TCL
  737. a        catch_all_()                            // •• CW TCL
  738. c1329,1329
  739. a            short err = gLastError;                // •• CW TCL
  740. a            if (err != kSilentErr)                // •• CW TCL
  741. a                ErrorAlert(err, gLastMessage);    // •• CW TCL
  742. a            HiliteMenu(0);                        // •• CW TCL
  743. a        }                                        // •• CW TCL
  744. a#endif                                            // •• CW TCL
  745. c1267,1268
  746. c1319,1322
  747. c1309,1332
  748. a            while (iter.Next((void*&) chore))
  749. c1334,2421
  750. a            while (iter.Next((void*&) doc))
  751. c2423,2457
  752. a            while (iter.Next((void*&) doc))
  753. c2459,2465
  754. a#if defined(__MWERKS__) && !defined(TCL_POWER_PC) \
  755. a            && !defined(TCL_NO_PATCHES)                    // •• CW TCL
  756. a#include "CApplication.asm"                                // •• CW TCL
  757. a#endif                                                    // •• CW TCL
  758. c2465,2465
  759. e
  760. fCArray.cp
  761. i
  762. fCArrayIterator.cp
  763. i
  764. fCBartender.cp
  765. i
  766. fCBureaucrat.cp
  767. x423204698,305092752
  768. c0,407
  769. a    stream >> (CCollaborator*&) itsSupervisor;        // •• CW TCL: must cast to reference (ARM 5.4)
  770. c409,414
  771. e
  772. fCChore.cp
  773. i
  774. fCClipboard.cp
  775. x46095218,51208012
  776. c0,41
  777. a#include "TCLUtilities.h"                // •• CW TCL
  778. c42,889
  779. e
  780. fCCollaborator.cp
  781. x115295655,227346797
  782. c0,30
  783. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  784. aTM_DECLARE_CPtrArray(CCollaborator)        // •• CW TCL
  785. aTM_DEFINE_CPtrArray(CCollaborator)        // •• CW TCL
  786. a#else                                    // •• CW TCL
  787. c31,33
  788. a#endif                                    // •• CW TCL
  789. c34,78
  790. a        while (iter.Next((void*&) aDependent))            // •• CW TCL: must cast to reference
  791. c80,88
  792. a        while (iter.Next((void*&) aProvider))            // •• CW TCL: must cast to reference
  793. c90,260
  794. a        while (iter.Next((void*&) aDependent))                // •• CW TCL: must cast to reference
  795. c262,311
  796. e
  797. fCCollection.cp
  798. i
  799. fCControl.cp
  800. i
  801. fCDecorator.cp
  802. i
  803. fCDesktop.cp
  804. x14033706,229445060
  805. c0,49
  806. a#include "TCLUtilities.h"                // •• CW TCL
  807. c50,1136
  808. a    return (CWindow*) itsWindows->NthItem(index);        // •• CW TCL: added cast
  809. c1138,1172
  810. a    return (CWindow*) itsWindows->FindItem1(fun, param);    // •• CW TCL: added typecast
  811. c1174,1211
  812. e
  813. fCDirector.cp
  814. i
  815. fCDirectorOwner.cp
  816. i
  817. fCDocument.cp
  818. x168085748,331599082
  819. c0,37
  820. a#include "TCLpstring.h"                        // •• CW TCL
  821. c38,1273
  822. e
  823. fCEnvironment.cp
  824. i
  825. fCEnvirons.cpp
  826. x213819161,408618949
  827. c0,37
  828. a#include "Global.h"                    // •• CW TCL: added missing header
  829. c38,234
  830. e
  831. fCError.cp
  832. i
  833. fCFile.cp
  834. i
  835. fCMBarChore.cp
  836. i
  837. fCMouseTask.cp
  838. i
  839. fCPane.cp
  840. x372250152,517634574
  841. c0,19
  842. a#include "Constants.h"                    // •• CW TCL: added missing header
  843. c20,2019
  844. a    stream >> (CCollaborator*&) itsEnclosure;        // •• CW TCL: must cast to reference
  845. c2021,2038
  846. e
  847. fCPaneBorder.cp
  848. i
  849. fCPanorama.cp
  850. i
  851. fCPicture.cp
  852. i
  853. fCPrinter.cp
  854. i
  855. fCRunArray.cp
  856. i
  857. fCScrollBar.cp
  858. i
  859. fCScrollPane.cp
  860. x44455257,460932787
  861. c0,696
  862. a    stream >> (CCollaborator*&) subview;            // •• CW TCL: must cast to reference
  863. c698,703
  864. e
  865. fCSizeBox.cp
  866. i
  867. fCSwitchboard.cp
  868. i
  869. fCTask.cp
  870. i
  871. fCView.cp
  872. x53752456,474191742
  873. c0,1302
  874. a        stream >> (CCollaborator*&) view;        // •• CW TCL: must cast to reference
  875. c1304,1305
  876. e
  877. fCVoidPtrArray.cp
  878. i
  879. fCVoidPtrArrayIterator.cp
  880. i
  881. fCWindow.cp
  882. i
  883. fGlobalVars.cp
  884. i
  885. o
  886. o
  887. rDialog Classes
  888. fCDialog.cp
  889. x133693018,125795098
  890. c0,600
  891. a    stream >> (CCollaborator*&) defaultBtn;        // •• CW TCL: must cast to reference type
  892. a    stream >> (CCollaborator*&) itsPanorama;    // •• CW TCL:    (ARM 5.4, p69)
  893. c603,604
  894. e
  895. fCDialog.h
  896. i
  897. fCDialogDirector.cp
  898. x232436939,145467584
  899. c0,39
  900. a#include "TCL.h"                            // •• CW TCL: added missing header
  901. c40,44
  902. aTCL_DEFINE_CLASS_M1(CDialogDirector, CDirector)    // •• CW TCL: added RTTI info
  903. c47,47
  904. c47,47
  905. c59,59
  906. c46,146
  907. a    itsGopher = gopherInfo.firstGopher? (CBureaucrat*) (gopherInfo.firstGopher)
  908. a                            : (CBureaucrat*) itsDialog;        // •• CW TCL: added typecasts
  909. c151,151
  910. c279,284
  911. c155,168
  912. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
  913. a        catch_all_()                    // •• CW TCL: substitute untyped exceptions
  914. c170,171
  915. a            if (gLastError != kSilentErr)
  916. a                ErrorAlert(gLastError, gLastMessage);
  917. c174,174
  918. a#else                                    // •• CW TCL
  919. c169,174
  920. a#endif                                    // •• CW TCL
  921. c175,276
  922. a    itsGopher = gopherInfo.firstGopher? (CBureaucrat*) (gopherInfo.firstGopher)
  923. a                            : (CBureaucrat*) itsDialog;        // •• CW TCL: added typecasts
  924. c281,281
  925. c149,154
  926. c285,337
  927. e
  928. fCDialogDirector.h
  929. x63186064,86121510
  930. c0,26
  931. a    TCL_DECLARE_CLASS;
  932. c28,28
  933. c27,46
  934. e
  935. fCDialogText.cp
  936. i
  937. fCDialogText.h
  938. i
  939. fCDLOGDialog.cp
  940. x203969931,503841338
  941. c0,47
  942. a#ifndef __MWERKS__                        // •• CW TCL
  943. a    #define PtoCstr(p) p2cstr(p)
  944. a#endif                                    // •• CW TCL
  945. c48,49
  946. a    #ifndef __MWERKS__                    // •• CW TCL
  947. c50,50
  948. a    #endif                                // •• CW TCL
  949. c51,408
  950. a    return foundView? (CView*) foundView : (CView*) itsPanorama;    // •• CW TCL: added typecasts
  951. c410,889
  952. e
  953. fCDLOGDialog.h
  954. i
  955. fCDLOGDirector.cp
  956. i
  957. fCDLOGDirector.h
  958. i
  959. fCIntegerText.cp
  960. i
  961. fCIntegerText.h
  962. i
  963. o
  964. rFile Classes
  965. fCDataFile.cp
  966. i
  967. fCDataFile.h
  968. i
  969. fCPictFile.cp
  970. i
  971. fCPictFile.h
  972. i
  973. fCPNTGFile.cp
  974. i
  975. fCPNTGFile.h
  976. i
  977. fCResFile.cp
  978. i
  979. fCResFile.h
  980. i
  981. o
  982. rFW/Tearoffs
  983. fCCharGrid.cp
  984. i
  985. fCCharGrid.h
  986. i
  987. fCFWDesktop.cp
  988. i
  989. fCFWDesktop.h
  990. i
  991. fCGridSelector.cp
  992. i
  993. fCGridSelector.h
  994. i
  995. fCMenuDefProc.cp
  996. i
  997. fCMenuDefProc.h
  998. i
  999. fCPaneMDEF.cp
  1000. i
  1001. fCPaneMDEF.h
  1002. i
  1003. fCPatternGrid.cp
  1004. i
  1005. fCPatternGrid.h
  1006. i
  1007. fCSelector.cp
  1008. i
  1009. fCSelector.h
  1010. i
  1011. fCSelectorMDEF.cp
  1012. i
  1013. fCSelectorMDEF.h
  1014. i
  1015. fCTearChore.cp
  1016. i
  1017. fCTearChore.h
  1018. i
  1019. fCTearOffMenu.cp
  1020. i
  1021. fCTearOffMenu.h
  1022. i
  1023. fGenericMDEF.cp
  1024. i
  1025. fGenericMDEF.h
  1026. i
  1027. rWindoid WDEF ƒ
  1028. fWindoidWDEF.c
  1029. i
  1030. fWindoidWDEF.h
  1031. i
  1032. o
  1033. o
  1034. rMore Classes
  1035. fCBitMap.cp
  1036. i
  1037. fCBitMap.h
  1038. x393829702,463503481
  1039. c0,18
  1040. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  1041. aclass CBitMap;                            // •• CW TCL
  1042. aCW_Decl_StreamCalls(CBitMap)            // •• CW TCL
  1043. a#endif                                    // •• CW TCL
  1044. c21,21
  1045. c19,70
  1046. e
  1047. fCBitMapPane.cp
  1048. x101386957,276862049
  1049. c0,14
  1050. a#include "CBitMapPane.h"            // •• CW TCL: removed <>
  1051. a#include "Global.h"                    // •• CW TCL: removed <>
  1052. c17,219
  1053. e
  1054. fCBitMapPane.h
  1055. i
  1056. fCStack.cp
  1057. i
  1058. fCStack.h
  1059. i
  1060. fCTextEnvirons.cp
  1061. i
  1062. fCTextEnvirons.h
  1063. i
  1064. o
  1065. rObject I/O
  1066. rHeaders
  1067. fCBufferedStream.h
  1068. x180971000,254244695
  1069. c0,11
  1070. a#include "CStream.h"                // •• CW TCL: removed <>
  1071. c13,68
  1072. e
  1073. fCCountingStream.h
  1074. x216268539,371314418
  1075. c0,11
  1076. a#include "CStream.h"                    // •• CW TCL: removed <>
  1077. c13,40
  1078. e
  1079. fCFileStream.h
  1080. x317632818,314636043
  1081. c0,11
  1082. a#include "CBufferedStream.h"            // •• CW TCL: removed <>
  1083. a#include "CDataFile.h"
  1084. c14,50
  1085. e
  1086. fCHandleStream.h
  1087. i
  1088. fCSaver.h
  1089. x422705738,288296256
  1090. c0,16
  1091. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  1092. a#include "CSaver.tm.h"                    // __TEMPLATE__ CSaver.tm.h CSaver.tem
  1093. a                                        // •• CW TCL: macros for compatibility
  1094. a#define CW_Decl_Saver(T) TM_DECLARE_CSaver(T)
  1095. a#define CW_Inst_Saver(T) TM_DEFINE_CSaver(T)
  1096. a#else                                    // •• CW TCL
  1097. c17,58
  1098. c2,2
  1099. a#endif                                        // •• CW TCL
  1100. c2,2
  1101. e
  1102. fCSaver.tem
  1103. i
  1104. fCStream.h
  1105. x522878674,71224321
  1106. c0,17
  1107. a#include <stddef.h>                    // •• CW TCL: for size_t definition
  1108. c18,166
  1109. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  1110. c167,176
  1111. a#else                                        // •• CW TCL
  1112. c178,178
  1113. a#define CW_Decl_StreamCalls(T) \
  1114. a    CStream& GetObject(CStream&, T*&); \
  1115. a    CStream& PutObject(CStream&, T*); \
  1116. a    void PutObjectReference (CStream&, T*); \
  1117. a    void PutObject1(T* obj, long stream);
  1118. c178,178
  1119. c180,180
  1120. a// template instantiations copied from <CStream.tem>
  1121. c180,180
  1122. a#ifndef MAXCLASSNAMELEN
  1123. a#define MAXCLASSNAMELEN 255
  1124. c13,13
  1125. a#define CW_Inst_StreamCalls(T) \
  1126. aCStream& PutObject (CStream& stream, T* obj) { \
  1127. a    if (!stream.PutReference(obj)) { \
  1128. a        stream.AddReference(obj); \
  1129. a        stream.PutClassName(TCL_CLASSNAME_FROM_POINTER(obj)); \
  1130. a        obj->PutTo(stream); \
  1131. a    } \
  1132. a    return stream; \
  1133. a} \
  1134. a    \
  1135. aCStream& GetObject (CStream& stream, T*& obj) { \
  1136. a    char name[MAXCLASSNAMELEN+1]; \
  1137. a        \
  1138. a    stream.GetClassName(name, MAXCLASSNAMELEN); \
  1139. a        \
  1140. a    if (strlen(name) == 0) \
  1141. a        obj = (T*) stream.GetReference(); \
  1142. a    else { \
  1143. a        obj = (T*) new_by_name(name); \
  1144. a        if (obj == NULL) \
  1145. a        { \
  1146. a            Failure(paramErr, excNewByNameFailed); \
  1147. a        } \
  1148. a        try_ { \
  1149. a            stream.AddReference(obj); \
  1150. a            obj->GetFrom(stream); \
  1151. a        } \
  1152. a        catch_all_() { \
  1153. a            delete obj; \
  1154. a            obj = NULL; \
  1155. a            throw_same_(); \
  1156. a        } \
  1157. a        end_try_ \
  1158. a    } \
  1159. a    return stream; \
  1160. a} \
  1161. a    \
  1162. avoid PutObjectReference (CStream& stream, T* obj) { \
  1163. a    stream.PutObjectReference(obj); \
  1164. a} \
  1165. avoid PutObject1(T* obj, long stream) { \
  1166. a    PutObject(* (CStream*) stream, obj); \
  1167. a}
  1168. c186,186
  1169. a#endif  // #ifdef TCL_NO_TEMPLATES            // •• CW TCL
  1170. c186,186
  1171. c177,190
  1172. e
  1173. fCString.h
  1174. i
  1175. fReference.h
  1176. i
  1177. fStreamResources.h
  1178. i
  1179. z5097,CSaver.tm.h
  1180. // CSaver.tm.h
  1181. //
  1182. // Macro template file
  1183. // Generated by Template Munger
  1184.  
  1185.  
  1186. #define TM_DECLARE_CSaver(T) \
  1187. class CSaver_ ## T : public CDocument { \
  1188.     TCL_DECLARE_CLASS; \
  1189. public: \
  1190.     T                    *itsContents; \
  1191.     CSaver_ ## T() { itsContents = NULL; } \
  1192.     CSaver_ ## T(Boolean printable); \
  1193.     ~CSaver_ ## T(); \
  1194.     virtual void        NewFile(); \
  1195.     virtual void        OpenFile(SFReply *macSFReply); \
  1196.     virtual Boolean        DoSave(); \
  1197.     virtual Boolean        DoSaveAs(SFReply *macSFReply); \
  1198.     virtual void        DoRevert(); \
  1199. protected: \
  1200.     virtual void        MakeNewWindow(void) = 0; \
  1201.     virtual void        ReadDocument(); \
  1202.     virtual void        WriteDocument(); \
  1203.     virtual void        MakeNewContents(void) = 0; \
  1204.     virtual void        ReadContents(CFileStream *aStream); \
  1205.     virtual void        WriteContents(CFileStream *aStream); \
  1206.     virtual void        ContentsToWindow(); \
  1207.     virtual void        WindowToContents(); \
  1208.     virtual void        ExistingFile(); \
  1209.     virtual OSType        NewFileType(); \
  1210.     virtual void        PositionWindow(); \
  1211.     virtual void        MakeWindowName(Str255 name); \
  1212. };
  1213.  
  1214.  
  1215.  
  1216. #define TM_DEFINE_CSaver(T) \
  1217. extern    CApplication *gApplication; \
  1218. extern    CDecorator    *gDecorator; \
  1219. extern    OSType        gSignature; \
  1220. TCL_DEFINE_CLASS_M1(CSaver_ ## T, CDocument); \
  1221. CSaver_ ## T::CSaver_ ## T( \
  1222.     Boolean            printable) \
  1223.     : CDocument(printable) \
  1224. { \
  1225.     itsContents = NULL; \
  1226.     TCL_END_CONSTRUCTOR \
  1227. } \
  1228. CSaver_ ## T::~CSaver_ ## T() \
  1229. { \
  1230.     TCL_START_DESTRUCTOR \
  1231.     TCLForgetObject(itsContents); \
  1232. } \
  1233. void CSaver_ ## T::NewFile() \
  1234. { \
  1235.     Str255            title; \
  1236.     MakeNewWindow(); \
  1237.     MakeNewContents(); \
  1238.     ContentsToWindow(); \
  1239.     PositionWindow(); \
  1240.     MakeWindowName(title); \
  1241.     itsWindow->SetTitle(title); \
  1242.     SetChanged(FALSE); \
  1243.     itsWindow->Select(); \
  1244. } \
  1245. void    CSaver_ ## T::OpenFile( \
  1246.     SFReply        *macSFReply) \
  1247. { \
  1248.     CDataFile    *theFile = NULL; \
  1249.     FSSpec        spec; \
  1250.     theFile = TCL_NEW(CDataFile,()); \
  1251.     try_ \
  1252.     { \
  1253.         theFile->IDataFile(); \
  1254.         theFile->SFSpecify(macSFReply); \
  1255.         theFile->GetFSSpec(&spec); \
  1256.         FailOpen(&spec); \
  1257.         theFile->Open(fsRdWrPerm); \
  1258.         itsFile = theFile; \
  1259.     } \
  1260.     catch_all_() \
  1261.     { \
  1262.         TCLForgetObject(theFile); \
  1263.         throw_same_(); \
  1264.     } \
  1265.     end_try_ \
  1266.     ReadDocument(); \
  1267. } \
  1268. void    CSaver_ ## T::MakeWindowName( \
  1269.     Str255        newName) \
  1270. { \
  1271.     Str31        count; \
  1272.     if (itsFile != NULL) \
  1273.         itsFile->GetName(newName); \
  1274.     else \
  1275.     { \
  1276.         itsWindow->GetTitle(newName); \
  1277.         if (Length(newName) == 0) \
  1278.             GetIndString(newName, STRcommon, strUNTITLED); \
  1279.         NumToString(gDecorator->GetWCount(), count); \
  1280.         ConcatPStrings(newName, (unsigned char *)"\p "); \
  1281.         ConcatPStrings(newName, count); \
  1282.     } \
  1283. } \
  1284. void    CSaver_ ## T::PositionWindow() \
  1285. { \
  1286.     gDecorator->PlaceNewWindow(itsWindow); \
  1287. } \
  1288. void    CSaver_ ## T::ReadContents( \
  1289.     CFileStream        *aStream) \
  1290. { \
  1291.     GetObject(*aStream, (T*) itsContents); \
  1292. } \
  1293. void    CSaver_ ## T::ReadDocument() \
  1294. { \
  1295.     CFileStream        *theStream = NULL; \
  1296.     Str255            theName; \
  1297.     theStream = NewInputFileStream((CDataFile*) itsFile); \
  1298.     try_ \
  1299.     { \
  1300.         ReadContents(theStream); \
  1301.            SetChanged(FALSE); \
  1302.         delete theStream; \
  1303.     } \
  1304.     catch_all_() \
  1305.     { \
  1306.         delete theStream; \
  1307.         throw_same_(); \
  1308.     } \
  1309.     end_try_ \
  1310.     if (itsWindow == NULL) \
  1311.         MakeNewWindow(); \
  1312.     ContentsToWindow(); \
  1313.     PositionWindow(); \
  1314.     MakeWindowName(theName); \
  1315.     itsWindow->SetTitle(theName); \
  1316.     itsWindow->Select(); \
  1317. } \
  1318. void    CSaver_ ## T::WriteContents( \
  1319.     CFileStream        *aStream) \
  1320. { \
  1321.     PutObject(*aStream, itsContents); \
  1322. } \
  1323. void    CSaver_ ## T::WriteDocument() \
  1324. { \
  1325.     CFileStream        * volatile theStream = NULL; \
  1326.     try_ \
  1327.     { \
  1328.         gApplication->SetCriticalOperation(TRUE); \
  1329.         WindowToContents(); \
  1330.         theStream = NewOutputFileStream((CDataFile*) itsFile); \
  1331.         WriteContents(theStream); \
  1332.         theStream->Close(); \
  1333.         SetChanged(FALSE); \
  1334.         delete theStream; \
  1335.         gApplication->SetCriticalOperation(FALSE); \
  1336.     } \
  1337.     catch_all_() \
  1338.     { \
  1339.         delete theStream; \
  1340.         gApplication->SetCriticalOperation(FALSE); \
  1341.         throw_same_(); \
  1342.     } \
  1343.     end_try_ \
  1344. } \
  1345. Boolean CSaver_ ## T::DoSave() \
  1346. { \
  1347.     if (itsFile == NULL) \
  1348.         return DoSaveFileAs(); \
  1349.     else \
  1350.     { \
  1351.         WriteDocument(); \
  1352.         return TRUE; \
  1353.     } \
  1354. } \
  1355. OSType    CSaver_ ## T::NewFileType() \
  1356. { \
  1357.     return gApplication->sfFileTypes[0]; \
  1358. } \
  1359. Boolean CSaver_ ## T::DoSaveAs( \
  1360.     SFReply        *macSFReply) \
  1361. { \
  1362.     OSErr        theError; \
  1363.     CDataFile    *theFile = NULL; \
  1364.     FSSpec        spec; \
  1365.     TCLForgetObject(itsFile); \
  1366.     theFile = TCL_NEW(CDataFile,()); \
  1367.     try_ \
  1368.     { \
  1369.         theFile->IDataFile(); \
  1370.         theFile->SFSpecify(macSFReply); \
  1371.         theFile->GetFSSpec(&spec); \
  1372.         FailOpen(&spec); \
  1373.         itsFile = theFile; \
  1374.         if (theFile->ExistsOnDisk()) \
  1375.             ExistingFile(); \
  1376.         itsFile->CreateNew(gSignature, NewFileType()); \
  1377.         theFile->Open(fsRdWrPerm); \
  1378.         itsWindow->SetTitle(macSFReply->fName); \
  1379.     } \
  1380.     catch_all_() \
  1381.     { \
  1382.         TCLForgetObject(theFile); \
  1383.         throw_same_(); \
  1384.     } \
  1385.     end_try_ \
  1386.     itsFile = theFile; \
  1387.     return DoSave() ; \
  1388. } \
  1389. void CSaver_ ## T::DoRevert() \
  1390. { \
  1391.     TCLForgetObject(itsWindow); \
  1392.     TCLForgetObject(itsContents); \
  1393.     delete itsContents; \
  1394.     itsGopher = this; \
  1395.     if (itsFile != NULL) \
  1396.         ReadDocument(); \
  1397.     else \
  1398.         NewFile(); \
  1399. } \
  1400. void CSaver_ ## T::ContentsToWindow() \
  1401. { \
  1402. } \
  1403. void CSaver_ ## T::WindowToContents() \
  1404. { \
  1405. } \
  1406. void CSaver_ ## T::ExistingFile() \
  1407. { \
  1408.     itsFile->ThrowOut(); \
  1409. }
  1410.  
  1411. o
  1412. rSource
  1413. fCBufferedStream.cp
  1414. x208576433,177168525
  1415. c0,18
  1416. a#include "CBufferedStream.h"            // •• CW TCL: removed <>
  1417. c20,20
  1418. a#include "CError.h"                        // •• CW TCL: removed <>
  1419. a#include "TCLUtilities.h"                // •• CW TCL: removed <>
  1420. a#include "Global.h"                        // •• CW TCL: removed <>
  1421. a#include "StreamResources.h"            // •• CW TCL: removed <>
  1422. a#include "Exceptions.h"                    // •• CW TCL: removed <>
  1423. c26,451
  1424. e
  1425. fCCountingStream.cp
  1426. i
  1427. fCFileStream.cp
  1428. x48190746,530471242
  1429. c0,30
  1430. a#include "CFileStream.h"                // •• CW TCL: removed <>
  1431. c32,32
  1432. a#include "CError.h"                        // •• CW TCL: removed <>
  1433. a#include "TCLUtilities.h"                // •• CW TCL: removed <>
  1434. a#include "Global.h"                        // •• CW TCL: removed <>
  1435. a#include "StreamResources.h"            // •• CW TCL: removed <>
  1436. a#include "Exceptions.h"                    // •• CW TCL: removed <>
  1437. c38,311
  1438. e
  1439. fCHandleStream.cp
  1440. x253842250,534441876
  1441. c0,18
  1442. a#include "CHandleStream.h"                // •• CW TCL: removed <>
  1443. c20,20
  1444. a#include "CError.h"                        // •• CW TCL: removed <>
  1445. a#include "TCLUtilities.h"                // •• CW TCL: removed <>
  1446. a#include "Global.h"                        // •• CW TCL: removed <>
  1447. a#include "StreamResources.h"            // •• CW TCL: removed <>
  1448. a#include "Exceptions.h"                    // •• CW TCL: removed <>
  1449. c26,254
  1450. e
  1451. fCSaver.cp
  1452. x174129995,338772096
  1453. c0,23
  1454. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  1455. c25,25
  1456. a#endif                                        // •• CW TCL
  1457. e
  1458. fCStream.cp
  1459. x30510677,182738728
  1460. c0,25
  1461. a#ifndef __MWERKS__                        // •• CW TCL
  1462. c26,26
  1463. a#else                                    // •• CW TCL
  1464. a#ifndef TCL_POWER_PC                    // •• CW TCL
  1465. a#include <ThinkSANE.h>                    // •• CW TCL: Symantec's version of <SANE.h> is different
  1466. a#endif                                    // •• CW TCL:      grrr....
  1467. a#endif                                    // •• CW TCL
  1468. c27,33
  1469. a//#include <Pascal.h>                    // •• CW TCL: <Pascal.h> not used
  1470. c35,37
  1471. c39,914
  1472. a    GetObject(*this, (CCollaborator*&) obj);            // •• CW TCL: must cast to reference
  1473. c916,1004
  1474. e
  1475. fCString.cpp
  1476. x218598635,480637375
  1477. c0,10
  1478. a#include "TCL.h"                    // •• CW TCL: added missing header
  1479. c11,172
  1480. e
  1481. o
  1482. o
  1483. rPrecompiled Headers
  1484. o
  1485. rTable Classes
  1486. fCArrayPane.cp
  1487. x130191239,105905681
  1488. c0,278
  1489. a    stream >> (CCollaborator*&) itsArray;            // •• CW TCL: must cast to reference
  1490. c280,283
  1491. e
  1492. fCArrayPane.h
  1493. i
  1494. fCTable.cp
  1495. x527556286,121287104
  1496. c0,2011
  1497. a#if TCL_CW_VERSION==4                            // •• CW TCL
  1498. a                saveBorder = new CPaneBorder(*itsScrollPane->GetBorder());
  1499. a#else                                            // •• CW TCL
  1500. c2012,2013
  1501. a#endif                                            // •• CW TCL
  1502. c2014,2257
  1503. a    stream >> (CCollaborator*&) itsRows >> (CCollaborator*&) itsCols;
  1504. a                                            // •• CW TCL: must cast to reference
  1505. c2259,2260
  1506. e
  1507. fCTable.h
  1508. i
  1509. fCTableDragger.cp
  1510. i
  1511. fCTableDragger.h
  1512. i
  1513. o
  1514. fTCL #includes.cpp
  1515. x71226469,368803127
  1516. c0,12
  1517. a#ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL: optional replacement of BEL
  1518. c13,13
  1519. a#endif                                // •• CW TCL
  1520. c14,92
  1521. a#ifndef __MWERKS__                            // •• CW TCL: already included
  1522. c93,93
  1523. a#endif                                        // •• CW TCL
  1524. c94,122
  1525. a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  1526. c123,131
  1527. a#endif                                        // •• CW TCL
  1528. c132,139
  1529. a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  1530. c140,152
  1531. a#ifndef TCL_NO_PRECOMPILED_WATCHDESC        // •• CW TCL
  1532. c153,153
  1533. a#endif                                        // •• CW TCL
  1534. c154,196
  1535. a#endif // TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  1536. c197,199
  1537. e
  1538. rTCL Libraries
  1539. rTCL Library headers
  1540. fCException.h
  1541. x425801894,18067076
  1542. c0,10
  1543. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1544. c15,15
  1545. c11,33
  1546. c2,2
  1547. a#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL
  1548. e
  1549. fExceptions.h
  1550. x523586618,97991376
  1551. c0,11
  1552. a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL: replace header if using PowerPlant exceptions
  1553. a#include "Exceptions_PP.h"
  1554. a#else                                    // •• CW TCL
  1555. c15,15
  1556. c12,20
  1557. a#include "TCLClassInfo.h"            // •• CW TCL: removed <>
  1558. c22,70
  1559. a#ifndef TCL_NO_DEBUGGER_CALLS            // •• CW TCL
  1560. c71,73
  1561. a#else                                    // •• CW TCL
  1562. a#define _TCL_DEBUG_CATCH ((void)0);
  1563. a#endif                                    // •• CW TCL
  1564. c74,110
  1565. a#include "BRExcDef.h"                // •• CW TCL: removed <>
  1566. c112,343
  1567. c8,8
  1568. a#endif // #ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1569. e
  1570. fLongCoordinates.h
  1571. i
  1572. fLongQD.h
  1573. i
  1574. fOSChecks.h
  1575. i
  1576. fqsort++.h
  1577. i
  1578. fTBUtilities.h
  1579. i
  1580. fTCL.h
  1581. i
  1582. fTCLClassInfo.h
  1583. x31239216,475724982
  1584. c0,14
  1585. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL: new problems
  1586. c19,19
  1587. a                                                    // •• CW TCL: added prototypes
  1588. c15,15
  1589. a        void* _TCLNew##name(); \
  1590. c16,20
  1591. a        void* _TCLNew##name##_##T(); \
  1592. c21,25
  1593. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
  1594. c34,34
  1595. c15,15
  1596. a        void* _TCLNew##name(); \
  1597. c16,16
  1598. a        BR_CClassInfo BR_SHARED_DATA \
  1599. a            _##name##_gClassInfo(#name, sizeof(name), _##name##_gAncestors); \
  1600. a        BR_CClassInfo& name::BedStaticGetClassInfo() { return _##name##_gClassInfo; } \
  1601. a        BR_ClassReference* name::BedGetAncestors() { return _##name##_gAncestors; }
  1602. c34,34
  1603. a                                                    // for now, there’s no template support...
  1604. c34,34
  1605. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL
  1606. c34,34
  1607. c33,33
  1608. c28,150
  1609. a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  1610. c151,151
  1611. a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
  1612. a#define member(p, T) ((p)->BedVirtualGetClassInfo()->IsKindOf(&T::BedStaticGetClassInfo()))
  1613. a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
  1614. c1,1
  1615. c153,153
  1616. e
  1617. fTCLCoordUtil.h
  1618. x435541449,297364550
  1619. c0,10
  1620. a#ifndef TCL_NO_TEMPLATES                        // •• CW TCL
  1621. c17,17
  1622. c11,45
  1623. c2,2
  1624. a#else                                    // •• CW TCL
  1625. c2,2
  1626. a#define TCLScale(unscaled, scaleFactor) (unscaled * scaleFactor)
  1627. a#define TCLUnscale(scaled, scaleFactor) ((scaled + scaleFactor - 1) / scaleFactor)
  1628. a#define TCLCenter(low, high) ((low + high) >> 1)
  1629. a#define TCLDimension(low, high) (high - low)
  1630. a#define TCLDelta(newValue, oldValue) (newValue - oldValue)
  1631. c2,2
  1632. a#endif                                    // •• CW TCL
  1633. e
  1634. fTCLFolderUtilities.h
  1635. i
  1636. fTCLForceReferences.h
  1637. i
  1638. fTCLNulls.h
  1639. i
  1640. fTCLpstring.h
  1641. i
  1642. fTCLUtilities.h
  1643. i
  1644. z6611,Exceptions_PP.h
  1645. // ______________________________________________________________________
  1646. //
  1647. //  Exceptions_PP.h
  1648. //  TCL 2.0 CodeWarrior port
  1649. //
  1650. //
  1651.  
  1652. #pragma once
  1653.  
  1654.  
  1655. // ______________________________________________________________________
  1656. //
  1657. //    This file stands in the place of the TCL’s Exceptions.h file.
  1658. //    It provides a wrapper for PowerPlant’s exception handling routines
  1659. //    within the TCL. Most of the TCL macros are implemented; a few
  1660. //    that cannot be duplicated are defined to cause compile-time errors.
  1661. //
  1662. //    Limitations:
  1663. //
  1664. //      *    You may not use the typed exception handling which was added
  1665. //        in TCL 2.0. The macros catch_, catch_reference_, and
  1666. //        catch_no_instance_ are not permitted. You must use
  1667. //        catch_all_ instead.
  1668. //
  1669. //      *    You may not reference the global variables gAskFailure,
  1670. //        gBreakFailure, _gTCLBreakCatch, _gTCLBreakFailure, or
  1671. //        _gTCLBreakAssert. These variables do not exist in this
  1672. //        implementation. The macros which access these variables are
  1673. //        implemented.
  1674. //
  1675. //      *    The PowerPlant header <UException.h> must be installed
  1676. //        in the CodeWarrior compiler folder. The file <UException.cp>
  1677. //        must be added to the project.
  1678. //
  1679. //      *    If the __TCL_DEBUG__ macro is defined, the PowerPlant header
  1680. //        <UDebugging.h> must also be installed in the CodeWarrior
  1681. //        compiler folder. The file <UDebugging.cp> must be added
  1682. //        to the project.
  1683. //
  1684. //      *    Your source may not use the throw_(exception) macro. Error
  1685. //        reporting must take place through the standard Fail___ routines.
  1686. //        The throw_same_() macro is permitted.
  1687. //
  1688. //
  1689. //    Usage notes:
  1690. //
  1691. //      *    If the __TCL_DEBUG__ macro is defined, the PowerPlant macro
  1692. //        Debug_Throw is also defined. This enables the source-level
  1693. //        exception debugging mechanism built into the PowerPlant
  1694. //        library.
  1695. //
  1696. //      *    There are two options for handling assertions: You may use
  1697. //        the TCL-style assertion-failed dialog, or you may use the
  1698. //        PowerPlant-style debugger break. PowerPlant handling is the
  1699. //        default. To enable the TCL handling, comment out the macro
  1700. //        TCL_SOURCE_ASSERT below.
  1701. // 
  1702.  
  1703. #define TCL_SOURCE_ASSERT
  1704.  
  1705.  
  1706. // ______________________________________________________________________
  1707. //
  1708. // bring in the PowerPlant exception library (and a few other definitions)
  1709. //
  1710.  
  1711. #ifdef __TCL_DEBUG__
  1712. #define Debug_Throw
  1713. #define Debug_Signal
  1714. #endif
  1715.  
  1716. #include <UException.h>
  1717.  
  1718. #include <Types.h>
  1719. #include <AppleEvents.h>
  1720.  
  1721.  
  1722. // ______________________________________________________________________
  1723. //
  1724. // TCL global error variables
  1725. //
  1726.  
  1727. extern short    gLastError;                // last error code that caused failure
  1728. extern long        gLastMessage;            // last message code associated with failure
  1729.  
  1730. #define kSilentErr    1                // pass to Failure to fail without any user alert
  1731.  
  1732.  
  1733. // ______________________________________________________________________
  1734. //
  1735. // TCL failure routines
  1736. //
  1737.  
  1738. pascal void Failure(short error, long message);
  1739. pascal void Fail(short error);
  1740. pascal void FailEvent();
  1741. pascal void FailEventMsg(long message);
  1742.  
  1743. pascal void FailMemError();
  1744. pascal void FailResError();
  1745. pascal void FailNIL(void *p);
  1746. pascal void FailOSErr( short error);
  1747. pascal void FailNILRes(void* p);
  1748.  
  1749. pascal void    Success();
  1750.  
  1751. pascal long SpecifyMsg(short strListID, short strIndex);
  1752. pascal void SetFailInfo(short newError, long newMessage);
  1753.  
  1754.  
  1755. // ______________________________________________________________________
  1756. //
  1757. // exception debugging macros
  1758. //
  1759.  
  1760. #ifdef Debug_Signal
  1761.  
  1762. #define _TCL_DEBUG_CATCH \
  1763.     SignalPStr_("\pEntering catch block")
  1764. #define TCL_BREAK_ON_CATCH(bool) \
  1765.     (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1766. #define TCL_ASK_ON_FAIL(bool) \
  1767.     (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1768. #define TCL_BREAK_ON_ASSERT(bool) \
  1769.     (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1770.  
  1771. #else
  1772.  
  1773. #define _TCL_DEBUG_CATCH ((void) 0)
  1774. #define TCL_BREAK_ON_CATCH(bool) ((void) 0)
  1775. #define TCL_ASK_ON_FAIL(bool) ((void) 0)
  1776. #define TCL_BREAK_ON_ASSERT(bool) ((void) 0)
  1777.  
  1778. #endif
  1779.  
  1780.  
  1781. #ifdef Debug_Throw
  1782.  
  1783. #define TCL_BREAK_ON_FAILURE(bool) \
  1784.     (gDebugThrow = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
  1785.  
  1786. #else
  1787.  
  1788. #define TCL_BREAK_ON_FAILURE(bool) ((void) 0)
  1789.  
  1790. #endif
  1791.  
  1792.  
  1793. // ______________________________________________________________________
  1794. //
  1795. // exception handling macros
  1796. //
  1797.  
  1798. #define TRY Try_
  1799.  
  1800. #define CATCH \
  1801.     Catch_(_PP_Err) \
  1802.     char __TCL_propagate = 1;
  1803.  
  1804. #define ENDTRY \
  1805.     if (__TCL_propagate) \
  1806.         Throw_('same'); \
  1807.     EndCatch_
  1808.  
  1809. #define NO_PROPAGATE \
  1810.     __TCL_propagate = 0
  1811.  
  1812.  
  1813. #define try_ Try_
  1814.  
  1815. #define catch_(class, error) ***Error
  1816. #define catch_reference_(class, error) ***Error
  1817. #define catch_no_instance_(class, error) ***Error
  1818.  
  1819. #define catch_all_() \
  1820.     Catch_(_PP_Err)
  1821.  
  1822. #define end_try_ EndCatch_
  1823.  
  1824. #define throw_(exception) ***Error
  1825.  
  1826. #define throw_same_() \
  1827.     Throw_('same')                    // why not?
  1828.  
  1829. #define TCL_EXCEPTION_CLASS ***Error
  1830.  
  1831. #define TCL_NEW(class, init) new class##init
  1832.  
  1833. #define TCL_END_CONSTRUCTOR
  1834.  
  1835. #define TCL_START_DESTRUCTOR
  1836.  
  1837. #define TCL_AUTO_DESTRUCT_OBJECT
  1838.  
  1839.  
  1840. // ______________________________________________________________________
  1841. //
  1842. // Failure() message strings defined by the TCL
  1843. //
  1844.  
  1845. enum {
  1846.     excMsgNullObject = 1,
  1847.     excMsgLookupFailed,
  1848.     excNewByNameFailed,
  1849.     excPrintJobTooBig,
  1850.     excExceedTELimit,
  1851.  
  1852.     excAEStrTooBig,
  1853.     excAEUserCanceled,
  1854.     excUnknownException,
  1855.     excBadFileType,
  1856.  
  1857.     excLastTCLException = excBadFileType
  1858. };
  1859.  
  1860.  
  1861. // ______________________________________________________________________
  1862. //
  1863. // Assertion macros
  1864. //
  1865.  
  1866. #ifdef __TCL_DEBUG__
  1867.  
  1868. short _TCL_assertion_failed(char *conditionStr,  char *fileName, int lineNum);
  1869. void _TCL_CheckHandle(const Handle);
  1870. void _TCL_CheckResource(const Handle);
  1871. void _TCL_CheckPtr(const Ptr);
  1872. void _TCL_CheckObjectPtr(const void *);
  1873. void _TCL_CheckDesc(const AEDesc*);
  1874.  
  1875. #ifdef TCL_SOURCE_ASSERT
  1876.     #define TCL_ASSERT(condition) Assert_(condition)
  1877. #else
  1878.     #define TCL_ASSERT(condition) \
  1879.         ((void) ((condition)) || (_TCL_assertion_failed(#condition, __FILE__, __LINE__),1))
  1880. #endif // #ifdef TCL_SOURCE_ASSERT
  1881.  
  1882. #define TCL_ASSERT_HANDLE(H)         _TCL_CheckHandle((Handle) H)
  1883. #define TCL_ASSERT_RESOURCE(H)        _TCL_CheckResource((Handle) H)
  1884. #define TCL_ASSERT_PTR(P)            _TCL_CheckPtr((Ptr) P)
  1885. #define TCL_ASSERT_OBJECT_PTR(P)    _TCL_CheckObjectPtr(P)
  1886. #define TCL_ASSERT_DESC(P)            _TCL_CheckDesc(P)
  1887.  
  1888. #else // #ifdef __TCL_DEBUG__
  1889.  
  1890. #define TCL_ASSERT(condition)        ((void)0)
  1891. #define TCL_ASSERT_HANDLE(H)        ((void)0)
  1892. #define TCL_ASSERT_RESOURCE(H)        ((void)0)
  1893. #define TCL_ASSERT_PTR(P)            ((void)0)
  1894. #define TCL_ASSERT_OBJECT_PTR(P)    ((void)0)
  1895. #define TCL_ASSERT_DESC(P)            ((void)0)
  1896.  
  1897. #endif // #ifdef __TCL_DEBUG__
  1898.  
  1899.  
  1900. #undef ASSERT
  1901.  
  1902. #define ASSERT(condition) TCL_ASSERT(condition)
  1903. o
  1904. rTCL Library sources
  1905. falloc.cp
  1906. x331161373,425383237
  1907. c0,18
  1908. a#ifndef __MWERKS__                    // •• CW TCL
  1909. c19,19
  1910. a#endif                                // •• CW TCL
  1911. c20,23
  1912. a#ifdef __MWERKS__                    // •• CW TCL
  1913. a#define TCL_NO_INSPECTOR            // •• CW TCL
  1914. a#endif                                // •• CW TCL
  1915. c27,27
  1916. c24,33
  1917. a#ifdef __MWERKS__                    // •• CW TCL: I like the MW implementation better
  1918. a#define OPERATOR_NEW _cw_operator_new
  1919. a#define OPERATOR_DELETE _cw_operator_delete
  1920. aBoolean __MMPrimitiveAllocate = 0;
  1921. c38,38
  1922. a#if TCL_CW_VERSION>2
  1923. a#ifdef TCL_POWER_PC
  1924. a#include <NewPPC.cp>
  1925. a#else
  1926. a#include <New68K.cp>
  1927. a#endif // TCL_POWER_PC
  1928. a#else // TCL_CW_VERSION>2
  1929. a#include <New.cp>
  1930. a#endif // TCL_CW_VERSION>2
  1931. a#endif // __MWERKS__
  1932. c38,38
  1933. c34,38
  1934. a#ifndef __MWERKS__                    // •• CW TCL
  1935. c39,48
  1936. a#else                                // •• CW TCL
  1937. a    p = OPERATOR_NEW(objSize);        // •• CW TCL
  1938. a#endif                                // •• CW TCL
  1939. c55,55
  1940. c50,72
  1941. a#ifndef __MWERKS__                    // •• CW TCL
  1942. c73,73
  1943. a#else                                // •• CW TCL
  1944. a    OPERATOR_DELETE(objStorage);    // •• CW TCL
  1945. a#endif                                // •• CW TCL
  1946. c63,63
  1947. e
  1948. fExceptions.asm
  1949. x92298649,119445813
  1950. c0,14
  1951. a#ifndef TCL_USE_PP_EXCEPTIONS            // •• CW TCL: don’t use this file
  1952. c18,18
  1953. c15,241
  1954. a#endif // #ifndef TCP_USE_PP_EXCEPTIONS            // •• CW TCL
  1955. c2,2
  1956. c2,2
  1957. e
  1958. fExceptions.cp
  1959. x45848174,530601535
  1960. c0,51
  1961. a#ifndef __MWERKS__                            // •• CW TCL: not available in CodeWarrior
  1962. c52,52
  1963. a#endif                                        // •• CW TCL
  1964. c53,55
  1965. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1966. c56,56
  1967. c58,58
  1968. a#endif                                        // •• CW TCL
  1969. c59,70
  1970. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1971. c71,87
  1972. a#endif                                        // •• CW TCL
  1973. c88,94
  1974. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
  1975. c95,96
  1976. a#endif                                        // •• CW TCL
  1977. c97,112
  1978. a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL: this stuff is covered by PP
  1979. c113,161
  1980. a#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL
  1981. c162,179
  1982. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1983. c180,180
  1984. a#endif                                        // •• CW TCL
  1985. c181,196
  1986. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1987. c197,197
  1988. a#endif                                        // •• CW TCL
  1989. c198,213
  1990. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1991. c214,214
  1992. a#endif                                        // •• CW TCL
  1993. c215,236
  1994. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1995. c237,237
  1996. a#endif                                        // •• CW TCL
  1997. c238,256
  1998. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  1999. c257,257
  2000. a#endif                                        // •• CW TCL
  2001. c258,309
  2002. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  2003. c310,310
  2004. a#endif                                        // •• CW TCL
  2005. c311,325
  2006. a#elif defined(TCL_USE_PP_EXCEPTIONS)        // •• CW TCL: PP exceptions
  2007. c325,325
  2008. a    gLastError = err;                        // •• CW TCL
  2009. a    gLastMessage = message;                    // •• CW TCL
  2010. a    Throw_('err ');                            // ??? perhaps define a constant
  2011. c327,327
  2012. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL: if we got here, there was no handler
  2013. a    DebugStr("\pFailure: No handler");        // •• CW TCL
  2014. a#endif                                        // •• CW TCL
  2015. a    ErrorAlert(err, message);                // •• CW TCL
  2016. a    if (gApplication) gApplication->Exit();    // •• CW TCL
  2017. a    ExitToShell();                            // •• CW TCL
  2018. c327,327
  2019. c326,347
  2020. a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
  2021. c348,348
  2022. a#endif                                                // •• CW TCL
  2023. c466,466
  2024. c462,462
  2025. c351,433
  2026. a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
  2027. c434,434
  2028. a#endif                                                // •• CW TCL
  2029. c437,437
  2030. c32,32
  2031. c445,445
  2032. c438,463
  2033. a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
  2034. c464,464
  2035. a#endif                                        // •• CW TCL
  2036. c146,146
  2037. c34,35
  2038. c468,606
  2039. a#ifdef __MWERKS__                        // •• CW TCL
  2040. a#define pascal
  2041. a#endif                                    // •• CW TCL
  2042. c607,705
  2043. e
  2044. fLongCoordinates.cp
  2045. i
  2046. fLongQD.cp
  2047. i
  2048. fOSChecks.cp
  2049. x194725325,165592014
  2050. c0,38
  2051. a// #if !defined(TCL_POWER_PC)                // •• CW TCL: this *is* useful, folks!
  2052. c40,78
  2053. a// #endif                                // •• CW TCL
  2054. c80,136
  2055. a#ifdef __MWERKS__                            // •• CW TCL
  2056. astatic void AsmCacheFlush()                    // •• CW TCL
  2057. a    ONEWORDINLINE(_CacheFlushTrap);            // •• CW TCL
  2058. a#endif                                        // •• CW TCL
  2059. c137,141
  2060. c2,2
  2061. a#ifndef TCL_POWER_PC                        // •• CW TCL
  2062. a        AsmCacheFlush();
  2063. a#else                                        // •• CW TCL
  2064. a        CallOSTrapUniversalProc(GetOSTrapAddress(_CacheFlushTrap), kRegisterBased);
  2065. a#endif                                        // •• CW TCL
  2066. a        
  2067. c143,144
  2068. e
  2069. fqsort++.cp
  2070. i
  2071. fTBUtilities.cp
  2072. i
  2073. fTCLCoordUtilities.cpp
  2074. i
  2075. fTCLFolderUtilities.cp
  2076. x51707376,463242224
  2077. c0,10
  2078. a#include "TCL.h"                    // •• CW TCL
  2079. c11,471
  2080. e
  2081. fTCLpstring.cp
  2082. x154155038,140285453
  2083. c0,13
  2084. a//#include <BDC.h>                        // •• CW TCL: didn’t really need this anyway
  2085. c15,102
  2086. e
  2087. fTCLUtilities.asm
  2088. i
  2089. fTCLUtilities.cp
  2090. i
  2091. o
  2092. o
  2093. fTCL Version.note
  2094. i
  2095. rTemplates
  2096. fCList.cpp
  2097. i
  2098. fCList.h
  2099. x436858680,371746308
  2100. c0,15
  2101. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  2102. c21,21
  2103. a#include "CList.tm.h"                    // __TEMPLATE__ CList.tm.h CList.tem
  2104. a                                        // •• CW TCL: macros for compatibility
  2105. a#define CW_Decl_List(T) TM_DECLARE_CList(T)
  2106. a#define CW_Inst_List(T) TM_DEFINE_CList(T)
  2107. c21,21
  2108. a#else                                    // •• CW TCL
  2109. c21,21
  2110. c16,29
  2111. c2,2
  2112. a#endif                                    // •• CW TCL
  2113. e
  2114. fCList.tem
  2115. x452291692,260980316
  2116. c0,10
  2117. a#ifdef TCL_NO_TEMPLATES                            // •• CW TCL
  2118. aTCL_DEFINE_CLASS_D1(CList<T>, CPtrArray<T>)        // •• CW TCL
  2119. a#endif                                            // •• CW TCL
  2120. c13,13
  2121. c13,13
  2122. c28,28
  2123. c12,63
  2124. e
  2125. fCListIterator.cp
  2126. i
  2127. fCListIterator.h
  2128. x259111585,509371016
  2129. c0,15
  2130. c2,2
  2131. a#ifdef TCL_NO_TEMPLATES                        // •• CW TCL
  2132. a#define TM_DECLARE_CListIterator(T) TM_DECLARE_CPtrArrayIterator(T)
  2133. a#define TM_DEFINE_CListIterator(T) TM_DEFINE_CPtrArrayIterator(T)
  2134. a#define CW_Decl_ListIterator(T) TM_DECLARE_CPtrArrayIterator(T)
  2135. a#define CW_Inst_ListIterator(T) TM_DEFINE_CPtrArrayIterator(T)
  2136. a#endif
  2137. e
  2138. fCList_CView.cpp
  2139. x389682597,345475041
  2140. c0,2
  2141. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2142. c4,4
  2143. c3,11
  2144. c2,2
  2145. a#else // TCL_NO_TEMPLATES                // •• CW TCL
  2146. c2,2
  2147. a// the CPtrArray<CView> classes are declared in CView.h
  2148. c2,2
  2149. a#ifdef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  2150. aTM_DECLARE_CPtrArray(CWindow)            // •• CW TCL
  2151. aTM_DECLARE_CList(CWindow)                // •• CW TCL
  2152. a#endif                                    // •• CW TCL
  2153. c2,2
  2154. aTM_DEFINE_CList(CView)                    // •• CW TCL
  2155. aTM_DEFINE_CList(CWindow)                // •• CW TCL
  2156. c2,2
  2157. a#endif // TCL_NO_TEMPLATES                // •• CW TCL
  2158. e
  2159. fCPtrArray.cp
  2160. i
  2161. fCPtrArray.h
  2162. x239546626,418320274
  2163. c0,12
  2164. a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
  2165. a#include "CPtrArray.tm.h"                // __TEMPLATE__ CPtrArray.tm.h CPtrArray.tem
  2166. a                                        // •• CW TCL: macros for compatibility
  2167. a#define CW_Decl_PtrArray(T) TM_DECLARE_CPtrArray(T)
  2168. a#define CW_Inst_PtrArray(T) TM_DEFINE_CPtrArray(T)
  2169. c13,13
  2170. a#else                                    // •• CW TCL
  2171. c18,18
  2172. c14,70
  2173. c2,2
  2174. a#endif                                        // •• CW TCL
  2175. e
  2176. fCPtrArray.tem
  2177. x497712413,515835586
  2178. c0,10
  2179. a#ifdef TCL_NO_TEMPLATES                                // •• CW TCL
  2180. aTCL_DEFINE_CLASS_D1(CPtrArray<T>, CVoidPtrArray)    // •• CW TCL
  2181. a#endif                                                // •• CW TCL
  2182. c13,13
  2183. c24,24
  2184. c12,58
  2185. e
  2186. fCPtrArrayIterator.cpp
  2187. i
  2188. fCPtrArrayIterator.h
  2189. x84413241,188098615
  2190. c0,20
  2191. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  2192. c21,21
  2193. a#endif                                        // •• CW TCL
  2194. c22,22
  2195. a#ifdef TCL_NO_TEMPLATES                        // •• CW TCL
  2196. a#include "CPtrArrayIterator.tm.h"            // __TEMPLATE__ CPtrArrayIterator.tm.h
  2197. a//    •• not yet sure what to do about forward class defn
  2198. a#else                                        // •• CW TCL
  2199. c29,29
  2200. c23,32
  2201. c2,2
  2202. a#endif                                        // •• CW TCL
  2203. e
  2204. fCPtrArray_CChore.cpp
  2205. x279271734,273724484
  2206. c0,2
  2207. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2208. c4,4
  2209. c3,9
  2210. c2,2
  2211. a#else // TCL_NO_TEMPLATES                // •• CW TCL
  2212. c2,2
  2213. a#ifdef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  2214. aTM_DECLARE_CPtrArray(CChore)            // •• CW TCL
  2215. a#endif                                    // •• CW TCL
  2216. aTM_DEFINE_CPtrArray(CChore)                // •• CW TCL
  2217. c2,2
  2218. a#endif // TCL_NO_TEMPLATES                // •• CW TCL
  2219. e
  2220. fCPtrArray_CDirector.cpp
  2221. x270739850,317019412
  2222. c0,2
  2223. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2224. c4,4
  2225. c3,9
  2226. c2,2
  2227. a#else // TCL_NO_TEMPLATES                // •• CW TCL
  2228. c2,2
  2229. a// declared in "CDirectorOwner.h"
  2230. aTM_DEFINE_CPtrArray(CDirector)            // •• CW TCL
  2231. c2,2
  2232. a#endif // TCL_NO_TEMPLATES                // •• CW TCL
  2233. e
  2234. fCPtrArray_CView.cpp
  2235. x444711567,396007560
  2236. c0,3
  2237. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2238. c5,5
  2239. c4,16
  2240. c3,3
  2241. a#else // TCL_NO_TEMPLATES                // •• CW TCL
  2242. c3,3
  2243. a//TM_DECLARE_CPtrArray(CCollaborator)        // •• CW TCL
  2244. a//TM_DECLARE_CPtrArray(CView)            // •• CW TCL: declared in CView.h
  2245. a#ifdef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
  2246. aTM_DECLARE_CPtrArray(CWindow)            // •• CW TCL
  2247. a#endif                                    // •• CW TCL
  2248. a//TM_DECLARE_CPtrArray(CGroupButton)    // •• CW TCL: declared in CGroupButtonEnclosure.h
  2249. c3,3
  2250. a//TM_DEFINE_CPtrArray(CCollaborator)        // •• CW TCL
  2251. aTM_DEFINE_CPtrArray(CView)                // •• CW TCL
  2252. aTM_DEFINE_CPtrArray(CWindow)            // •• CW TCL
  2253. aTM_DEFINE_CPtrArray(CGroupButton)        // •• CW TCL
  2254. c3,3
  2255. a#endif // TCL_NO_TEMPLATES                // •• CW TCL
  2256. e
  2257. fCStream.tem
  2258. i
  2259. fCStream_CBitMap.cpp
  2260. x490631420,348567754
  2261. c0,2
  2262. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2263. c4,4
  2264. c3,8
  2265. c2,2
  2266. a#else                                    // •• CW TCL
  2267. c2,2
  2268. a#include <string.h>                        // •• CW TCL
  2269. aCW_Inst_StreamCalls(CBitMap)            // •• CW TCL
  2270. c2,2
  2271. a#endif                                    // •• CW TCL
  2272. e
  2273. fCStream_CCollaborator.cpp
  2274. x535514564,296266691
  2275. c0,2
  2276. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2277. c4,4
  2278. c3,12
  2279. c2,2
  2280. a#else                                    // •• CW TCL
  2281. c2,2
  2282. a#include <string.h>                        // •• CW TCL
  2283. aCW_Decl_StreamCalls(CWindow)            // •• CW TCL
  2284. c2,2
  2285. aCW_Inst_StreamCalls(CCollaborator)        // •• CW TCL
  2286. aCW_Inst_StreamCalls(CView)                // •• CW TCL
  2287. aCW_Inst_StreamCalls(CWindow)            // •• CW TCL
  2288. c2,2
  2289. a#endif                                    // •• CW TCL
  2290. e
  2291. fCStream_CEnvironment.cpp
  2292. x518521852,326007118
  2293. c0,2
  2294. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2295. c4,4
  2296. c3,8
  2297. c2,2
  2298. a#else                                    // •• CW TCL
  2299. c2,2
  2300. a#include <string.h>                        // •• CW TCL
  2301. aCW_Inst_StreamCalls(CEnvironment)        // •• CW TCL
  2302. c2,2
  2303. a#endif                                    // •• CW TCL
  2304. e
  2305. fCStream_CEnvirons.cpp
  2306. x164286842,244569494
  2307. c0,2
  2308. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2309. c4,4
  2310. c3,8
  2311. c2,2
  2312. a#else                                    // •• CW TCL
  2313. c2,2
  2314. a#include <string.h>                        // •• CW TCL
  2315. aCW_Inst_StreamCalls(CEnvirons)            // •• CW TCL
  2316. c2,2
  2317. a#endif                                    // •• CW TCL
  2318. e
  2319. fCStream_CPaneBorder.cpp
  2320. x469483124,443388664
  2321. c0,2
  2322. a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
  2323. c4,4
  2324. c3,8
  2325. c2,2
  2326. a#else                                    // •• CW TCL
  2327. c2,2
  2328. a#include <string.h>                        // •• CW TCL
  2329. aCW_Inst_StreamCalls(CPaneBorder)        // •• CW TCL
  2330. c2,2
  2331. a#endif                                    // •• CW TCL
  2332. e
  2333. fPutObject1.cpp
  2334. x492085006,119850694
  2335. c0,2
  2336. a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
  2337. c4,4
  2338. c3,8
  2339. c2,2
  2340. a#endif                                        // •• CW TCL
  2341. e
  2342. fPutObject1.tem
  2343. i
  2344. z942,CList.tm.h
  2345. // CList.tm.h
  2346. //
  2347. // Macro template file
  2348. // Generated by Template Munger
  2349.  
  2350.  
  2351. #define TM_DECLARE_CList(T) \
  2352. class CList_ ## T : public CPtrArray_ ## T \
  2353. { \
  2354.   public: \
  2355.     TCL_DECLARE_CLASS \
  2356.     CList_ ## T(short blockSize = 3) : CPtrArray_ ## T(blockSize) {} \
  2357.     virtual void *Copy() { return TCL_NEW(CList_ ## T,(*this)); } \
  2358.     virtual void        PutItems(CStream& stream); \
  2359.     virtual void        GetItems(CStream& stream); \
  2360. };
  2361.  
  2362.  
  2363.  
  2364. #define TM_DEFINE_CList(T) \
  2365. TCL_DEFINE_CLASS_D1(CList_ ## T, CPtrArray_ ## T) \
  2366. void    CList_ ## T::PutItems(CStream& stream) \
  2367. { \
  2368.     extern void PutObject1(T*, long); \
  2369.     DoForEach1(PutObject1, (long) &stream); \
  2370. } \
  2371. void    CList_ ## T::GetItems(CStream& stream) \
  2372. { \
  2373.     long    num; \
  2374.     T*        obj; \
  2375.     items = (LongHandle) hItems; \
  2376.     num = numItems; \
  2377.     numItems = 0; \
  2378.     try_ \
  2379.     { \
  2380.         while (num--) \
  2381.         { \
  2382.             GetObject(stream, obj); \
  2383.             Add(obj); \
  2384.         } \
  2385.     } \
  2386.     catch_all_() \
  2387.     { \
  2388.         DisposeItems(); \
  2389.         throw_same_(); \
  2390.     } \
  2391.     end_try_ \
  2392. }
  2393. z3351,CPtrArray.tm.h
  2394. // CPtrArray.tm.h
  2395. //
  2396. // Macro template file
  2397. // Generated by Template Munger
  2398.  
  2399.  
  2400. #define TM_DECLARE_CPtrArray(T) \
  2401. class CPtrArray_ ## T : public CVoidPtrArray \
  2402. { \
  2403.   public: \
  2404.     TCL_DECLARE_CLASS \
  2405.     CPtrArray_ ## T(short blockSize = 3); \
  2406.     virtual void *Copy() { return TCL_NEW(CPtrArray_ ## T,(*this)); } \
  2407.     void IList() {} \
  2408.     typedef void (*EachFunc)(T* obj); \
  2409.     typedef void (*EachFunc1)(T* obj, long param); \
  2410.     typedef Boolean (*TestFunc)(T* obj); \
  2411.     typedef Boolean (*TestFunc1)(T* obj, long param); \
  2412.     void        DisposeAll(); \
  2413.     void        DisposeItems(); \
  2414.     void        Add(T* theObject) { CVoidPtrArray::Add(theObject); } \
  2415.     void        Remove(T* theObject) { CVoidPtrArray::Remove(theObject); } \
  2416.     void        SetArrayItem(T* theObject, long index) { CVoidPtrArray::SetArrayItem(theObject, index); } \
  2417.     Boolean        Includes(T* theObject) { return CVoidPtrArray::Includes(theObject); } \
  2418.     void        DoForEach(EachFunc f) { CVoidPtrArray::DoForEach((vEachFunc)f); } \
  2419.     void        DoForEach1(EachFunc1 f, long l) { CVoidPtrArray::DoForEach1((vEachFunc1)f,l); } \
  2420.     T*            FindItem(TestFunc f) { return (T*)CVoidPtrArray::FindItem((vTestFunc)f); } \
  2421.     T*            FindItem1(TestFunc1 f, long param) { return (T*)CVoidPtrArray::FindItem1((vTestFunc1)f,param); } \
  2422.     long        Offset(T* theObject) { return CVoidPtrArray::Offset(theObject); } \
  2423.     void        Append(T* theObject) { CVoidPtrArray::Add(theObject); } \
  2424.     void        Prepend(T* theObject) { CVoidPtrArray::InsertAt(theObject,1); } \
  2425.     void        InsertAfter(T* theObject, T* afterObject) { CVoidPtrArray::InsertAfter(theObject, afterObject); } \
  2426.     void        InsertAt(T* theObject, long index) { CVoidPtrArray::InsertAt(theObject, index); } \
  2427.     void        BringFront(T* theObject) { CVoidPtrArray::BringFront(theObject); } \
  2428.     void        SendBack(T* theObject) { CVoidPtrArray::SendBack(theObject); } \
  2429.     void        MoveUp(T* theObject) { CVoidPtrArray::MoveUp(theObject); } \
  2430.     void        MoveDown(T* theObject) { CVoidPtrArray::MoveDown(theObject); } \
  2431.     void        MoveToIndex(T* theObject, long index) { CVoidPtrArray::MoveToIndex(theObject, index); } \
  2432.     T*            FirstItem(void) { return (T*)CVoidPtrArray::FirstItem(); } \
  2433.     T*            LastItem(void) { return (T*)CVoidPtrArray::LastItem(); } \
  2434.     T*            NthItem(long n) { return (T*)CVoidPtrArray::NthItem(n); } \
  2435.     long        FindIndex(T* theObject) { return CVoidPtrArray::FindIndex(theObject); } \
  2436.     T*            FirstSuccess(TestFunc testFunc) { return (T*)CVoidPtrArray::FirstSuccess((vTestFunc)testFunc); } \
  2437.     T*            FirstSuccess1(TestFunc1 testFunc, long param) { return (T*)CVoidPtrArray::FirstSuccess1((vTestFunc1)testFunc,param); } \
  2438.     T*            LastSuccess(TestFunc testFunc) { return (T*)CVoidPtrArray::LastSuccess((vTestFunc)testFunc); } \
  2439.     T*            LastSuccess1(TestFunc1 testFunc, long param) { return (T*)CVoidPtrArray::LastSuccess1((vTestFunc1)testFunc, param); } \
  2440. };
  2441.  
  2442.  
  2443.  
  2444. #define TM_DEFINE_CPtrArray(T) \
  2445. TCL_DEFINE_CLASS_D1(CPtrArray_ ## T, CVoidPtrArray) \
  2446. CPtrArray_ ## T::CPtrArray_ ## T(short theBlockSize) \
  2447.  : CVoidPtrArray(theBlockSize) \
  2448. { \
  2449. } \
  2450. void CPtrArray_ ## T::DisposeAll() \
  2451. { \
  2452.     DisposeItems(); \
  2453.     TCLForgetThis(); \
  2454. } \
  2455. void CPtrArray_ ## T::DisposeItems() \
  2456. { \
  2457.     for (long i = 0; i < numItems; i++) \
  2458.     { \
  2459.         T* itemToPurge = (T*) (*items)[i]; \
  2460.         (*items)[i] = 0; \
  2461.         TCLForgetObject(itemToPurge); \
  2462.         long index = i+1; \
  2463.         BroadcastChange(arrayDeleteElement, &index); \
  2464.     } \
  2465.     numItems = 0; \
  2466.     if (slots >  blockSize) \
  2467.         Resize(blockSize); \
  2468. }
  2469. z444,CPtrArrayIterator.tm.h
  2470. // CPtrArrayIterator.tm.h
  2471. //
  2472. // Macro template file
  2473. // Generated by Template Munger
  2474.  
  2475.  
  2476. #define TM_DECLARE_CPtrArrayIterator(T) \
  2477. class CPtrArrayIterator_ ## T : public CArrayIterator \
  2478. { \
  2479. public: \
  2480.     CPtrArrayIterator_ ## T(CPtrArray_ ## T *array, CursorPosition start) \
  2481.         : CArrayIterator(array, start) {} \
  2482.     Boolean    Next(T *&item) { return CArrayIterator::Next(&item); } \
  2483.     Boolean    Prev(T *&item) { return CArrayIterator::Prev(&item); } \
  2484. };
  2485. o
  2486. rText Classes
  2487. fCAbstractText.cp
  2488. i
  2489. fCAbstractText.h
  2490. i
  2491. fCEditText.cp
  2492. i
  2493. fCEditText.h
  2494. i
  2495. fCStyleTEClipboard.cp
  2496. i
  2497. fCStyleTEClipboard.h
  2498. i
  2499. fCStyleTEEditTask.cp
  2500. i
  2501. fCStyleTEEditTask.h
  2502. i
  2503. fCStyleTEStyleTask.cp
  2504. i
  2505. fCStyleTEStyleTask.h
  2506. i
  2507. fCStyleText.cp
  2508. i
  2509. fCStyleText.h
  2510. i
  2511. fCTextEditTask.cp
  2512. i
  2513. fCTextEditTask.h
  2514. i
  2515. fCTextStyleTask.cp
  2516. i
  2517. fCTextStyleTask.h
  2518. i
  2519. o
  2520. rVisual Architect Library
  2521. fCColorTextEnvirons.cp
  2522. i
  2523. fCColorTextEnvirons.h
  2524. i
  2525. fCFloatDirector.cp
  2526. i
  2527. fCFloatDirector.h
  2528. i
  2529. fCGridMDEF.cp
  2530. i
  2531. fCGridMDEF.h
  2532. i
  2533. fCIconButton.cp
  2534. i
  2535. fCIconButton.h
  2536. i
  2537. fCLine.cp
  2538. i
  2539. fCLine.h
  2540. i
  2541. fCPICTGrid.cp
  2542. i
  2543. fCPICTGrid.h
  2544. i
  2545. fCPICTGridDirector.cp
  2546. i
  2547. fCPICTGridDirector.h
  2548. i
  2549. fCPICTSelector.cp
  2550. i
  2551. fCPICTSelector.h
  2552. i
  2553. fCPictureButton.cp
  2554. i
  2555. fCPictureButton.h
  2556. i
  2557. fCPolyButton.cp
  2558. i
  2559. fCPolyButton.h
  2560. i
  2561. fCRectOvalButton.cp
  2562. i
  2563. fCRectOvalButton.h
  2564. i
  2565. fCRoundRectButton.cp
  2566. i
  2567. fCRoundRectButton.h
  2568. i
  2569. fCSelectorDirector.cp
  2570. i
  2571. fCSelectorDirector.h
  2572. i
  2573. fCShapeButton.cp
  2574. i
  2575. fCShapeButton.h
  2576. i
  2577. fCStaticText.cp
  2578. i
  2579. fCStaticText.h
  2580. i
  2581. fCSubviewDisplayer.cp
  2582. i
  2583. fCSubviewDisplayer.h
  2584. i
  2585. fCSwissArmyButton.cp
  2586. i
  2587. fCSwissArmyButton.h
  2588. i
  2589. fCTearOffDirector.cp
  2590. i
  2591. fCTearOffDirector.h
  2592. i
  2593. fDialogFunctions.cp
  2594. i
  2595. fDialogFunctions.h
  2596. i
  2597. fViewUtilities.cp
  2598. i
  2599. fViewUtilities.h
  2600. i
  2601. o
  2602. z2874,CW TCLHeaders.cp
  2603. //
  2604. // TCL 2.0 CodeWarrior port
  2605. //
  2606. //    Precompiled headers
  2607. //
  2608. //    Use this file to build the precompiled header file, instead
  2609. //    of “TCL #includes.cpp” provided by Symantec.
  2610. //
  2611. //    Eric Scouten, 27 May 1994
  2612. //
  2613.  
  2614.  
  2615. // prevent multiple compilations
  2616.  
  2617. #ifndef CW_TCL_HDR
  2618. #define CW_TCL_HDR
  2619.  
  2620.  
  2621. // use Metrowerks’ standard precompiled header file
  2622.  
  2623. #include <MacHeaders.c>
  2624.  
  2625. #undef TRUE                        // redefined in <THINK.h>
  2626. #undef FALSE
  2627.  
  2628. #pragma cplusplus on            // wonder why this is necessary?
  2629.  
  2630.  
  2631. //________________________________________________________________________
  2632. //
  2633. // several new conditional compilation macros for the CodeWarrior port
  2634. //
  2635.  
  2636. #define TCL_CW_VERSION 4
  2637.     // Set this macro to the current release number of CodeWarrior
  2638.     // (currently CW/4. As features are added to CodeWarrior, this
  2639.     // macro will be used to maintain compatibility with older
  2640.     // versions. NOTE: There is no support for compilation under DR/1.
  2641.  
  2642. #define TCL_NO_TEMPLATES
  2643.     // This macro triggers the macro substitutions for the TCL templated
  2644.     // classes (CPtrArray<>, CList<>, helper methods for CStream). This
  2645.     // macro must remain defined until CodeWarrior supports templates.
  2646.  
  2647. #if TCL_CW_VERSION<4
  2648. //                        •• The precompiled headers may get too large.
  2649. //                        •• Unless you have 24MB RAM, you may not be able to
  2650. //                        •• use the full precompiled headers.
  2651. #define TCL_NO_PRECOMPILED_CLASS
  2652. #endif
  2653.     // Needed for compilation under DR/2 since class definitions aren’t
  2654.     // permitted in precompiled headers (can be commented out in DR/3).
  2655.  
  2656. #if TCL_CW_VERSION>=3
  2657. #define TCL_NO_MULTIPLE_STATIC_INHERITANCE
  2658. #endif
  2659.     // Workaround for a new bug (feature-?) in DR/3. A static member field
  2660.     // with the same name cannot be multiply inherited. (However, a static member
  2661.     // function can be. :) )
  2662.  
  2663. #define TCL_NO_DEBUGGER_CALLS
  2664.     // Because all the Debugger() calls aren’t trapped by CW’s source-level
  2665.     // debugger. It’s just plain annoying to drop into MacsBug all the
  2666.     // time (especially in PPC code)!
  2667.     
  2668. #define TCL_NO_PATCHES
  2669.     // Because LoadSeg_Patch doesn’t seem to work under CW. Applies only
  2670.     // to 68K builds.
  2671.  
  2672. #define TCL_NO_PRECOMPILED_WATCHDESC
  2673.     // Some strange errors occur when precompiling this header.
  2674.  
  2675. #if TCL_CW_VERSION>=3
  2676. #define TCL_USE_PP_EXCEPTIONS
  2677. #endif
  2678.     // Optional switch to use the PowerPlant exception library instead of Bedrock
  2679.     // Exception Library. Requires UException and UDebugging from PowerPlant DR/3.
  2680.     // (Added in 1.2 port.)
  2681.  
  2682.  
  2683. //________________________________________________________________________
  2684. //
  2685. // include the TCL standard headers
  2686. //
  2687.  
  2688. #include "TCL #includes.cpp"
  2689.  
  2690. #ifndef TCL_NO_PRECOMPILED_CLASS
  2691. #include "CSizeBox.h"                    // •• CW TCL temporary
  2692. #endif
  2693.  
  2694.  
  2695. // (dis)allow object I/O (you may comment this out when you pre-compile)
  2696.  
  2697. #define TCL_OBJECT_IO
  2698.  
  2699.  
  2700. // make sure to prevent attempts at including precompiled headers again
  2701.  
  2702. #undef TCL_PCH
  2703.  
  2704.  
  2705. #endif  // #ifndef CW_TCL_HDR
  2706. o
  2707.