home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / Framework.tcl < prev    next >
Encoding:
Text File  |  1997-06-06  |  154.0 KB  |  4,833 lines
  1. # import of Forte (V2.0) Framework library into ObjectTeam
  2.  
  3. OTShRegister::importTool
  4.  
  5. #-----------------------------------CDM----------------------------------------
  6.  
  7. foreach name {
  8.  4GLClassType
  9.  4GLCommandShell
  10.  4GLException
  11.  4GLExternalRef
  12.  4GLHashFuncs
  13.  4GLInterfaceClassType
  14.  4GLNullBinary
  15.  4GLNullBoolean
  16.  4GLNullDateTime
  17.  4GLNullDecimal
  18.  4GLNullImageData
  19.  4GLNullInteger
  20.  4GLNullInterval
  21.  4GLNullReal
  22.  4GLNullString
  23.  4GLObject
  24.  4GLSystemResourceException
  25.  4GLSystemRsrcExcept
  26.  AbortTransaction
  27.  ActivityCollector
  28.  ActivityManager
  29.  ActivityNotification
  30.  ActivityNotify
  31.  ActivityRegistration
  32.  ActivityServiceTask
  33.  ActivitySource
  34.  ActivitySourceHandle
  35.  ActivityType
  36.  AddrFixUp
  37.  AddrToId
  38.  Alarm
  39.  AlarmId
  40.  AlarmSTask
  41.  AlarmTask
  42.  AllocObj
  43.  Allocator
  44.  AnyType
  45.  AppEnvironment
  46.  Application
  47.  ApplicationDesc
  48.  ArithmeticException
  49.  Array
  50.  ArrayIterator
  51.  ArrayNotification
  52.  Binary
  53.  BinaryData
  54.  BinaryNullable
  55.  BitMap
  56.  BitMask
  57.  Boolean
  58.  BooleanData
  59.  BooleanNullable
  60.  CNM
  61.  CNMDump
  62.  CNMEntry
  63.  CNMEntryHashFunc
  64.  CNMEventNotification
  65.  CNMParentObject
  66.  CNMRegisteredTask
  67.  CNMRemoteNotifier
  68.  CNMWaitController
  69.  CNMWaitControllerHashFunc
  70.  CNMWaitIndicator
  71.  Cache
  72.  CancelException
  73.  ChangeNotification
  74.  CharStream
  75.  ClassId
  76.  ClassType
  77.  CodesetConv
  78.  ColorTable
  79.  CommandDesc
  80.  CommandProcessor
  81.  CommandShell
  82.  CompComp
  83.  CompileLocaleDef
  84.  CompiledLOM
  85.  ConditionVariable
  86.  ConditionVariablePT
  87.  ConditionVariableSTh
  88.  Configuration
  89.  ConfigurationProxy
  90.  Container
  91.  ConvertParser
  92.  Counter
  93.  CounterProxy
  94.  DOGServiceInitiator
  95.  Data
  96.  DataFormat
  97.  DataNotification
  98.  DataValue
  99.  DatatypeException
  100.  DateFormat
  101.  DateTime
  102.  DateTimeData
  103.  DateTimeNullable
  104.  DeSerializeDriver
  105.  DeSerializeObject
  106.  Decimal
  107.  DecimalData
  108.  DecimalNullable
  109.  DefectException
  110.  DeferredInterruptQueue
  111.  DirectoryFile
  112.  DispObjGen
  113.  DispObjInitiator
  114.  DispatchableObject
  115.  DistAccessException
  116.  DogNotification
  117.  DoubleData
  118.  DoubleNullable
  119.  DumpObject
  120.  DurableLock
  121.  DurableLockRef
  122.  DynScope
  123.  DynamicArray
  124.  DynamicLibrary
  125.  DynamicLibraryException
  126.  DynamicLibraryInterface
  127.  ECPartition
  128.  ECRemoteId
  129.  ECSetHashFunc
  130.  ECTask
  131.  ECTaskSet
  132.  ECWait
  133.  ECWaitHashFunc
  134.  EasyStream
  135.  ErrorDesc
  136.  ErrorDescriptor
  137.  ErrorManager
  138.  EventConsumer
  139.  EventHandlerInfo
  140.  EventId
  141.  EventInstance
  142.  EventManager
  143.  EventNotification
  144.  Exception
  145.  ExistenceException
  146.  ExternalConnection
  147.  ExternalConnectionProxy
  148.  ExternalRef
  149.  FOName
  150.  FONameHashFunc
  151.  FONameHashNode
  152.  FSSessProxy
  153.  File
  154.  FileDeSerializeKey
  155.  FileDeSerializeValue
  156.  FileProxy
  157.  FileResourceException
  158.  FileSerialKeyDesc
  159.  FileSerializeKey
  160.  FileSerializeValue
  161.  FileSysProxy
  162.  FileSystem
  163.  FileSystemCmd
  164.  FileSystemSess
  165.  ForeignObjectManager
  166.  FullXactId
  167.  GenericArray
  168.  GenericException
  169.  GenericHashNode
  170.  GenericHashTable
  171.  GenericNode
  172.  HashAddrNode
  173.  HashFuncs
  174.  HashLongNode
  175.  HashNode
  176.  HashOvrAddr
  177.  HashOvrChain
  178.  HashOvrLong
  179.  HashTable
  180.  Heap
  181.  HeapIterator
  182.  ImageData
  183.  ImageDescriptor
  184.  ImageNullable
  185.  ImplementationException
  186.  IndexedCollection
  187.  Instrument
  188.  InstrumentProxy
  189.  IntTaskCallerSTh
  190.  Integer
  191.  IntegerData
  192.  IntegerNullable
  193.  InterTaskQueue
  194.  InterTaskQueuePT
  195.  InterTaskQueueSTh
  196.  InternalServiceTask
  197.  InterpreterState
  198.  Interrupt
  199.  InterruptException
  200.  Interval
  201.  IntervalData
  202.  IntervalNullable
  203.  InvalidStateException
  204.  InvalidValueException
  205.  Iterator
  206.  IteratorIterator
  207.  LEM
  208.  LLelement
  209.  LLiterator
  210.  LOM
  211.  LOMTask
  212.  LargeArray
  213.  LineIOStream
  214.  LinkedList
  215.  ListElement
  216.  LocaleDesc
  217.  LogStream
  218.  Logger
  219.  LoggerMonitor
  220.  LomTaskInitiator
  221.  MachStk
  222.  Map
  223.  MapChangeNote
  224.  MapClassAccess
  225.  MappedObject
  226.  Member
  227.  MemoryStream
  228.  MessageId
  229.  MetaDDEObject
  230.  MsgCatalog
  231.  MsgCatalogProxy
  232.  Mutex
  233.  MutexPT
  234.  MutexSTh
  235.  NameHashFunc
  236.  NameList
  237.  NamedElement
  238.  NativeLangMgr
  239.  NullBinary
  240.  NullBoolean
  241.  NullDateTime
  242.  NullDecimal
  243.  NullImageData
  244.  NullInteger
  245.  NullInterval
  246.  NullReal
  247.  NullString
  248.  Numeric
  249.  NumericData
  250.  NumericFormat
  251.  Object
  252.  ObjectCache
  253.  ObjectKeyHashNode
  254.  ObjectManager
  255.  Ols
  256.  OpEnv
  257.  OperatingSystem
  258.  Page
  259.  Param
  260.  PartShutInitiator
  261.  Partition
  262.  PartitionId
  263.  PartitionStateMonitor
  264.  PatriciaNode
  265.  PatriciaTree
  266.  PatriciaTreeIterator
  267.  ProtectionException
  268.  Proxy
  269.  ProxyName
  270.  Queue
  271.  RandomNumber
  272.  RasterImageDescriptor
  273.  Real
  274.  Record
  275.  RemoteAccessException
  276.  RemoteFileSystem
  277.  RemoteTask
  278.  RemoteTaskId
  279.  ReportedChange
  280.  ResourceException
  281.  ResourceManager
  282.  Response
  283.  SMAgent
  284.  Scope
  285.  ScopeId
  286.  SeekStream
  287.  Semaphore
  288.  SerializationException
  289.  SerializeDriver
  290.  SerializeObject
  291.  Session
  292.  SessionManager
  293.  SetSubjectEvent
  294.  Shell
  295.  SourceHandleFD
  296.  State
  297.  StateProxy
  298.  StaticDynamicLibrary
  299.  StopWatch
  300.  Stream
  301.  StreamProxy
  302.  String
  303.  StringFormat
  304.  Synchronization
  305.  Synchronizer
  306.  SystemException
  307.  SystemManager
  308.  SystemResource
  309.  SystemResourceException
  310.  Task
  311.  TaskDesc
  312.  TaskHandle
  313.  TaskId
  314.  TaskInitiator
  315.  TaskMTh
  316.  TaskManager
  317.  TaskManagerMTh
  318.  TaskManagerPT
  319.  TaskManagerSTh
  320.  TaskQueueSTh
  321.  TaskSTh
  322.  TaskStateMonitor
  323.  TaskTable
  324.  TextData
  325.  TextEncodedDSDriver
  326.  TextEncodedFile
  327.  TextNullable
  328.  Timer
  329.  TimerProxy
  330.  Trace
  331.  TransactionDesc
  332.  UUID
  333.  UUIDByScpIdNode
  334.  UUIDGenerator
  335.  UUIDHash
  336.  UUIDTable
  337.  UsageException
  338.  UserException
  339.  UserTimer
  340.  Wait
  341.  WaitStmtHeader
  342.  Win3DynamicLibrary
  343.  WindowList
  344.  Xact
  345.  XactCoordinator
  346.  XactDetached
  347.  XactHandle
  348.  XactId
  349.  XactIdEntry
  350.  XactIdHashTable
  351.  XactLockHashTable
  352.  XactLockHeader
  353.  XactLockList
  354.  XactLockManager
  355.  XactLockOwner
  356.  XactLockRequest
  357.  XactLockStatus
  358.  XactLog
  359.  XactLogHashEntry
  360.  XactLogHashTable
  361.  XactLogManager
  362.  XactLogOwner
  363.  XactLogRoot
  364.  XactManager
  365.  XactMessage
  366.  XactMsgContext
  367.  XactMsgData
  368.  XactNotification
  369.  XactParticipant
  370.  XactResourceManager
  371.  XlateDriver
  372.  XlateObject
  373.  threadStacks } {
  374.     set msg ""
  375.     if {[catch {
  376.     set diag ""
  377.     set row ""
  378.     set diag [CDM new $name "Framework" "" "" "" "" "" 1 1]
  379.     set row [$diag addRow method 0.0]
  380.     $row setLabel "name_type" "\$create"
  381.     $diag save
  382.     } msg]} {
  383.     puts stderr "\nAn error occurred while importing Class '$name'"
  384.     puts stderr $msg
  385.     }
  386. }
  387.  
  388.  
  389. #-----------------------------------CAD----------------------------------------
  390.  
  391.  
  392. set msg ""
  393. if {[catch {
  394. set diag ""
  395. set diag [CAD new ActivityNotifyTree "Framework" "" "" "" "" "" 1 1]
  396.  
  397. set node1827 [$diag addNode cad_class 0.0 100.0 152.0 36.0]
  398. $node1827 setLabel "name" "ExternalConnection"
  399. $node1827 setProp "is_folded" "1"
  400. $node1827 setScope "name" "cl" "scopePhase"
  401.  
  402. set node1828 [$diag addNode cad_class 16.0 0.0 120.0 36.0]
  403. $node1828 setLabel "name" "ActivityNotify"
  404. $node1828 setProp "is_folded" "1"
  405. $node1828 setScope "name" "cl" "scopePhase"
  406.  
  407. set node1826 [$diag addRake generalization $node1828 $node1827 76.0 36.0 76.0 100.0 68.0]
  408.  
  409. set conn1829 [$node1826 getInConn]
  410. set segm1830 [$conn1829 getFirstSegm]
  411.  
  412. set conn1831 [$node1826 getFirstOutConn]
  413. set segm1832 [$conn1831 getFirstSegm]
  414.  
  415. $diag save
  416. } msg]} {
  417.     puts stderr "\nAn error occurred while importing"
  418.     puts stderr $msg
  419. }
  420.  
  421.  
  422. set msg ""
  423. if {[catch {
  424. set diag ""
  425. set diag [CAD new ActivitySourceHandleTree "Framework" "" "" "" "" "" 1 1]
  426.  
  427. set node1113 [$diag addNode cad_class 0.0 100.0 133.0 36.0]
  428. $node1113 setLabel "name" "SourceHandleFD"
  429. $node1113 setProp "is_folded" "1"
  430. $node1113 setScope "name" "cl" "scopePhase"
  431.  
  432. set node1114 [$diag addNode cad_class 0.0 0.0 165.0 36.0]
  433. $node1114 setLabel "name" "ActivitySourceHandle"
  434. $node1114 setProp "is_folded" "1"
  435. $node1114 setScope "name" "cl" "scopePhase"
  436.  
  437. set node1112 [$diag addRake generalization $node1114 $node1113 82.5 36.0 66.5 100.0 68.0]
  438.  
  439. set conn1115 [$node1112 getInConn]
  440. set segm1116 [$conn1115 getFirstSegm]
  441.  
  442. set conn1117 [$node1112 getFirstOutConn]
  443. set segm1118 [$conn1117 getFirstSegm]
  444.  
  445. $diag save
  446. } msg]} {
  447.     puts stderr "\nAn error occurred while importing"
  448.     puts stderr $msg
  449. }
  450.  
  451.  
  452. set msg ""
  453. if {[catch {
  454. set diag ""
  455. set diag [CAD new AllocObjTree "Framework" "" "" "" "" "" 1 1]
  456.  
  457. set node1728 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  458. $node1728 setLabel "name" "MachStk"
  459. $node1728 setProp "is_folded" "1"
  460. $node1728 setScope "name" "cl" "scopePhase"
  461.  
  462. set node1729 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  463. $node1729 setLabel "name" "AllocObj"
  464. $node1729 setProp "is_folded" "1"
  465. $node1729 setScope "name" "cl" "scopePhase"
  466.  
  467. set node1727 [$diag addRake generalization $node1729 $node1728 60.0 36.0 60.0 100.0 68.0]
  468.  
  469. set conn1730 [$node1727 getInConn]
  470. set segm1731 [$conn1730 getFirstSegm]
  471.  
  472. set conn1732 [$node1727 getFirstOutConn]
  473. set segm1733 [$conn1732 getFirstSegm]
  474.  
  475. $diag save
  476. } msg]} {
  477.     puts stderr "\nAn error occurred while importing"
  478.     puts stderr $msg
  479. }
  480.  
  481.  
  482. set msg ""
  483. if {[catch {
  484. set diag ""
  485. set diag [CAD new AllocatorTree "Framework" "" "" "" "" "" 1 1]
  486.  
  487. set node1737 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  488. $node1737 setLabel "name" "threadStacks"
  489. $node1737 setProp "is_folded" "1"
  490. $node1737 setScope "name" "cl" "scopePhase"
  491.  
  492. set node1738 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  493. $node1738 setLabel "name" "Allocator"
  494. $node1738 setProp "is_folded" "1"
  495. $node1738 setScope "name" "cl" "scopePhase"
  496.  
  497. set node1736 [$diag addRake generalization $node1738 $node1737 60.0 36.0 60.0 100.0 68.0]
  498.  
  499. set conn1739 [$node1736 getInConn]
  500. set segm1740 [$conn1739 getFirstSegm]
  501.  
  502. set conn1741 [$node1736 getFirstOutConn]
  503. set segm1742 [$conn1741 getFirstSegm]
  504.  
  505. $diag save
  506. } msg]} {
  507.     puts stderr "\nAn error occurred while importing"
  508.     puts stderr $msg
  509. }
  510.  
  511.  
  512. set msg ""
  513. if {[catch {
  514. set diag ""
  515. set diag [CAD new ApplicationTree "Framework" "" "" "" "" "" 1 1]
  516.  
  517. set node887 [$diag addNode cad_class 152.0 100.0 140.0 36.0]
  518. $node887 setLabel "name" "CompileLocaleDef"
  519. $node887 setProp "is_folded" "1"
  520. $node887 setScope "name" "cl" "scopePhase"
  521.  
  522. set node889 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  523. $node889 setLabel "name" "CompComp"
  524. $node889 setProp "is_folded" "1"
  525. $node889 setScope "name" "cl" "scopePhase"
  526.  
  527. set node890 [$diag addNode cad_class 86.0 0.0 120.0 36.0]
  528. $node890 setLabel "name" "Application"
  529. $node890 setProp "is_folded" "1"
  530. $node890 setScope "name" "cl" "scopePhase"
  531.  
  532. set node888 [$diag addRake generalization $node890 $node887 146.0 36.0 222.0 100.0 68.0]
  533.  
  534. set conn891 [$node888 getInConn]
  535. set segm892 [$conn891 getFirstSegm]
  536.  
  537. set conn893 [$node888 getFirstOutConn]
  538. set segm894 [$conn893 getFirstSegm]
  539.  
  540. set conn895 [$diag addConn generalization_conn $node888 $node889 60.0 68.0 60.0 100.0]
  541. set segm896 [$conn895 getFirstSegm]
  542.  
  543. $diag save
  544. } msg]} {
  545.     puts stderr "\nAn error occurred while importing"
  546.     puts stderr $msg
  547. }
  548.  
  549.  
  550. set msg ""
  551. if {[catch {
  552. set diag ""
  553. set diag [CAD new BinaryDataTree "Framework" "" "" "" "" "" 1 1]
  554.  
  555. set node1688 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  556. $node1688 setLabel "name" "NullBinary"
  557. $node1688 setProp "is_folded" "1"
  558. $node1688 setScope "name" "cl" "scopePhase"
  559.  
  560. set node1689 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  561. $node1689 setLabel "name" "BinaryData"
  562. $node1689 setProp "is_folded" "1"
  563. $node1689 setScope "name" "cl" "scopePhase"
  564.  
  565. set node1687 [$diag addRake generalization $node1689 $node1688 60.0 36.0 60.0 100.0 68.0]
  566.  
  567. set conn1690 [$node1687 getInConn]
  568. set segm1691 [$conn1690 getFirstSegm]
  569.  
  570. set conn1692 [$node1687 getFirstOutConn]
  571. set segm1693 [$conn1692 getFirstSegm]
  572.  
  573. $diag save
  574. } msg]} {
  575.     puts stderr "\nAn error occurred while importing"
  576.     puts stderr $msg
  577. }
  578.  
  579.  
  580. set msg ""
  581. if {[catch {
  582. set diag ""
  583. set diag [CAD new BinaryNullableTree "Framework" "" "" "" "" "" 1 1]
  584.  
  585. set node1764 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  586. $node1764 setLabel "name" "4GLNullBinary"
  587. $node1764 setProp "is_folded" "1"
  588. $node1764 setScope "name" "cl" "scopePhase"
  589.  
  590. set node1765 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  591. $node1765 setLabel "name" "BinaryNullable"
  592. $node1765 setProp "is_folded" "1"
  593. $node1765 setScope "name" "cl" "scopePhase"
  594.  
  595. set node1763 [$diag addRake generalization $node1765 $node1764 60.0 36.0 60.0 100.0 68.0]
  596.  
  597. set conn1766 [$node1763 getInConn]
  598. set segm1767 [$conn1766 getFirstSegm]
  599.  
  600. set conn1768 [$node1763 getFirstOutConn]
  601. set segm1769 [$conn1768 getFirstSegm]
  602.  
  603. $diag save
  604. } msg]} {
  605.     puts stderr "\nAn error occurred while importing"
  606.     puts stderr $msg
  607. }
  608.  
  609.  
  610. set msg ""
  611. if {[catch {
  612. set diag ""
  613. set diag [CAD new BooleanDataTree "Framework" "" "" "" "" "" 1 1]
  614.  
  615. set node1384 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  616. $node1384 setLabel "name" "NullBoolean"
  617. $node1384 setProp "is_folded" "1"
  618. $node1384 setScope "name" "cl" "scopePhase"
  619.  
  620. set node1385 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  621. $node1385 setLabel "name" "BooleanData"
  622. $node1385 setProp "is_folded" "1"
  623. $node1385 setScope "name" "cl" "scopePhase"
  624.  
  625. set node1383 [$diag addRake generalization $node1385 $node1384 60.0 36.0 60.0 100.0 68.0]
  626.  
  627. set conn1386 [$node1383 getInConn]
  628. set segm1387 [$conn1386 getFirstSegm]
  629.  
  630. set conn1388 [$node1383 getFirstOutConn]
  631. set segm1389 [$conn1388 getFirstSegm]
  632.  
  633. $diag save
  634. } msg]} {
  635.     puts stderr "\nAn error occurred while importing"
  636.     puts stderr $msg
  637. }
  638.  
  639.  
  640. set msg ""
  641. if {[catch {
  642. set diag ""
  643. set diag [CAD new BooleanNullableTree "Framework" "" "" "" "" "" 1 1]
  644.  
  645. set node1746 [$diag addNode cad_class 0.0 100.0 127.0 36.0]
  646. $node1746 setLabel "name" "4GLNullBoolean"
  647. $node1746 setProp "is_folded" "1"
  648. $node1746 setScope "name" "cl" "scopePhase"
  649.  
  650. set node1747 [$diag addNode cad_class 0.0 0.0 129.0 36.0]
  651. $node1747 setLabel "name" "BooleanNullable"
  652. $node1747 setProp "is_folded" "1"
  653. $node1747 setScope "name" "cl" "scopePhase"
  654.  
  655. set node1745 [$diag addRake generalization $node1747 $node1746 64.5 36.0 63.5 100.0 68.0]
  656.  
  657. set conn1748 [$node1745 getInConn]
  658. set segm1749 [$conn1748 getFirstSegm]
  659.  
  660. set conn1750 [$node1745 getFirstOutConn]
  661. set segm1751 [$conn1750 getFirstSegm]
  662.  
  663. $diag save
  664. } msg]} {
  665.     puts stderr "\nAn error occurred while importing"
  666.     puts stderr $msg
  667. }
  668.  
  669.  
  670. set msg ""
  671. if {[catch {
  672. set diag ""
  673. set diag [CAD new ChangeNotificationTree "Framework" "" "" "" "" "" 1 1]
  674.  
  675. set node1159 [$diag addNode cad_class 329.0 100.0 169.0 36.0]
  676. $node1159 setLabel "name" "CNMEventNotification"
  677. $node1159 setProp "is_folded" "1"
  678. $node1159 setScope "name" "cl" "scopePhase"
  679.  
  680. set node1160 [$diag addNode cad_class 165.0 100.0 132.0 36.0]
  681. $node1160 setLabel "name" "MapChangeNote"
  682. $node1160 setProp "is_folded" "1"
  683. $node1160 setScope "name" "cl" "scopePhase"
  684.  
  685. set node1162 [$diag addNode cad_class 0.0 100.0 133.0 36.0]
  686. $node1162 setLabel "name" "ArrayNotification"
  687. $node1162 setProp "is_folded" "1"
  688. $node1162 setScope "name" "cl" "scopePhase"
  689.  
  690. set node1163 [$diag addNode cad_class 174.5 0.0 149.0 36.0]
  691. $node1163 setLabel "name" "ChangeNotification"
  692. $node1163 setProp "is_folded" "1"
  693. $node1163 setScope "name" "cl" "scopePhase"
  694.  
  695. set node1161 [$diag addRake generalization $node1163 $node1159 249.0 36.0 413.5 100.0 68.0]
  696.  
  697. set conn1164 [$node1161 getInConn]
  698. set segm1165 [$conn1164 getFirstSegm]
  699.  
  700. set conn1166 [$node1161 getFirstOutConn]
  701. set segm1167 [$conn1166 getFirstSegm]
  702.  
  703. set conn1168 [$diag addConn generalization_conn $node1161 $node1160 231.0 68.0 231.0 100.0]
  704. set segm1169 [$conn1168 getFirstSegm]
  705.  
  706. set conn1170 [$diag addConn generalization_conn $node1161 $node1162 66.5 68.0 66.5 100.0]
  707. set segm1171 [$conn1170 getFirstSegm]
  708.  
  709. $diag save
  710. } msg]} {
  711.     puts stderr "\nAn error occurred while importing"
  712.     puts stderr $msg
  713. }
  714.  
  715.  
  716. set msg ""
  717. if {[catch {
  718. set diag ""
  719. set diag [CAD new CommandShellTree "Framework" "" "" "" "" "" 1 1]
  720.  
  721. set node1150 [$diag addNode cad_class 0.0 100.0 147.0 36.0]
  722. $node1150 setLabel "name" "4GLCommandShell"
  723. $node1150 setProp "is_folded" "1"
  724. $node1150 setScope "name" "cl" "scopePhase"
  725.  
  726. set node1151 [$diag addNode cad_class 13.5 0.0 120.0 36.0]
  727. $node1151 setLabel "name" "CommandShell"
  728. $node1151 setProp "is_folded" "1"
  729. $node1151 setScope "name" "cl" "scopePhase"
  730.  
  731. set node1149 [$diag addRake generalization $node1151 $node1150 73.5 36.0 73.5 100.0 68.0]
  732.  
  733. set conn1152 [$node1149 getInConn]
  734. set segm1153 [$conn1152 getFirstSegm]
  735.  
  736. set conn1154 [$node1149 getFirstOutConn]
  737. set segm1155 [$conn1154 getFirstSegm]
  738.  
  739. $diag save
  740. } msg]} {
  741.     puts stderr "\nAn error occurred while importing"
  742.     puts stderr $msg
  743. }
  744.  
  745.  
  746. set msg ""
  747. if {[catch {
  748. set diag ""
  749. set diag [CAD new DataFormatTree "Framework" "" "" "" "" "" 1 1]
  750.  
  751. set node1072 [$diag addNode cad_class 306.0 100.0 120.0 36.0]
  752. $node1072 setLabel "name" "DateFormat"
  753. $node1072 setProp "is_folded" "1"
  754. $node1072 setScope "name" "cl" "scopePhase"
  755.  
  756. set node1073 [$diag addNode cad_class 154.0 100.0 120.0 36.0]
  757. $node1073 setLabel "name" "StringFormat"
  758. $node1073 setProp "is_folded" "1"
  759. $node1073 setScope "name" "cl" "scopePhase"
  760.  
  761. set node1075 [$diag addNode cad_class 0.0 100.0 122.0 36.0]
  762. $node1075 setLabel "name" "NumericFormat"
  763. $node1075 setProp "is_folded" "1"
  764. $node1075 setScope "name" "cl" "scopePhase"
  765.  
  766. set node1076 [$diag addNode cad_class 153.0 0.0 120.0 36.0]
  767. $node1076 setLabel "name" "DataFormat"
  768. $node1076 setProp "is_folded" "1"
  769. $node1076 setScope "name" "cl" "scopePhase"
  770.  
  771. set node1074 [$diag addRake generalization $node1076 $node1072 213.0 36.0 366.0 100.0 68.0]
  772.  
  773. set conn1077 [$node1074 getInConn]
  774. set segm1078 [$conn1077 getFirstSegm]
  775.  
  776. set conn1079 [$node1074 getFirstOutConn]
  777. set segm1080 [$conn1079 getFirstSegm]
  778.  
  779. set conn1081 [$diag addConn generalization_conn $node1074 $node1073 214.0 68.0 214.0 100.0]
  780. set segm1082 [$conn1081 getFirstSegm]
  781.  
  782. set conn1083 [$diag addConn generalization_conn $node1074 $node1075 61.0 68.0 61.0 100.0]
  783. set segm1084 [$conn1083 getFirstSegm]
  784.  
  785. $diag save
  786. } msg]} {
  787.     puts stderr "\nAn error occurred while importing"
  788.     puts stderr $msg
  789. }
  790.  
  791.  
  792. set msg ""
  793. if {[catch {
  794. set diag ""
  795. set diag [CAD new DataValueTree "Framework" "" "" "" "" "" 1 1]
  796.  
  797. set node1207 [$diag addNode cad_class 1064.0 100.0 120.0 36.0]
  798. $node1207 setLabel "name" "BitMask"
  799. $node1207 setProp "is_folded" "1"
  800. $node1207 setScope "name" "cl" "scopePhase"
  801.  
  802. set node1208 [$diag addNode cad_class 912.0 100.0 120.0 36.0]
  803. $node1208 setLabel "name" "Binary"
  804. $node1208 setProp "is_folded" "1"
  805. $node1208 setScope "name" "cl" "scopePhase"
  806.  
  807. set node1210 [$diag addNode cad_class 760.0 200.0 120.0 36.0]
  808. $node1210 setLabel "name" "NullImageData"
  809. $node1210 setProp "is_folded" "1"
  810. $node1210 setScope "name" "cl" "scopePhase"
  811.  
  812. set node1211 [$diag addNode cad_class 760.0 100.0 120.0 36.0]
  813. $node1211 setLabel "name" "ImageData"
  814. $node1211 setProp "is_folded" "1"
  815. $node1211 setScope "name" "cl" "scopePhase"
  816.  
  817. set node1212 [$diag addNode cad_class 608.0 100.0 120.0 36.0]
  818. $node1212 setLabel "name" "Interval"
  819. $node1212 setProp "is_folded" "1"
  820. $node1212 setScope "name" "cl" "scopePhase"
  821.  
  822. set node1213 [$diag addNode cad_class 456.0 100.0 120.0 36.0]
  823. $node1213 setLabel "name" "DateTime"
  824. $node1213 setProp "is_folded" "1"
  825. $node1213 setScope "name" "cl" "scopePhase"
  826.  
  827. set node1214 [$diag addNode cad_class 304.0 100.0 120.0 36.0]
  828. $node1214 setLabel "name" "Numeric"
  829. $node1214 setProp "is_folded" "1"
  830. $node1214 setScope "name" "cl" "scopePhase"
  831.  
  832. set node1215 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  833. $node1215 setLabel "name" "Boolean"
  834. $node1215 setProp "is_folded" "1"
  835. $node1215 setScope "name" "cl" "scopePhase"
  836.  
  837. set node1217 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  838. $node1217 setLabel "name" "String"
  839. $node1217 setProp "is_folded" "1"
  840. $node1217 setScope "name" "cl" "scopePhase"
  841.  
  842. set node1218 [$diag addNode cad_class 532.0 0.0 120.0 36.0]
  843. $node1218 setLabel "name" "DataValue"
  844. $node1218 setProp "is_folded" "1"
  845. $node1218 setScope "name" "cl" "scopePhase"
  846.  
  847. set node1209 [$diag addRake generalization $node1211 $node1210 820.0 136.0 820.0 200.0 168.0]
  848.  
  849. set conn1219 [$node1209 getInConn]
  850. set segm1220 [$conn1219 getFirstSegm]
  851.  
  852. set conn1221 [$node1209 getFirstOutConn]
  853. set segm1222 [$conn1221 getFirstSegm]
  854.  
  855. set node1216 [$diag addRake generalization $node1218 $node1207 592.0 36.0 1124.0 100.0 68.0]
  856.  
  857. set conn1223 [$node1216 getInConn]
  858. set segm1224 [$conn1223 getFirstSegm]
  859.  
  860. set conn1225 [$node1216 getFirstOutConn]
  861. set segm1226 [$conn1225 getFirstSegm]
  862.  
  863. set conn1227 [$diag addConn generalization_conn $node1216 $node1208 972.0 68.0 972.0 100.0]
  864. set segm1228 [$conn1227 getFirstSegm]
  865.  
  866. set conn1229 [$diag addConn generalization_conn $node1216 $node1211 820.0 68.0 820.0 100.0]
  867. set segm1230 [$conn1229 getFirstSegm]
  868.  
  869. set conn1231 [$diag addConn generalization_conn $node1216 $node1212 668.0 68.0 668.0 100.0]
  870. set segm1232 [$conn1231 getFirstSegm]
  871.  
  872. set conn1233 [$diag addConn generalization_conn $node1216 $node1213 516.0 68.0 516.0 100.0]
  873. set segm1234 [$conn1233 getFirstSegm]
  874.  
  875. set conn1235 [$diag addConn generalization_conn $node1216 $node1214 364.0 68.0 364.0 100.0]
  876. set segm1236 [$conn1235 getFirstSegm]
  877.  
  878. set conn1237 [$diag addConn generalization_conn $node1216 $node1215 212.0 68.0 212.0 100.0]
  879. set segm1238 [$conn1237 getFirstSegm]
  880.  
  881. set conn1239 [$diag addConn generalization_conn $node1216 $node1217 60.0 68.0 60.0 100.0]
  882. set segm1240 [$conn1239 getFirstSegm]
  883.  
  884. $diag save
  885. } msg]} {
  886.     puts stderr "\nAn error occurred while importing"
  887.     puts stderr $msg
  888. }
  889.  
  890.  
  891. set msg ""
  892. if {[catch {
  893. set diag ""
  894. set diag [CAD new DateTimeDataTree "Framework" "" "" "" "" "" 1 1]
  895.  
  896. set node1440 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  897. $node1440 setLabel "name" "NullDateTime"
  898. $node1440 setProp "is_folded" "1"
  899. $node1440 setScope "name" "cl" "scopePhase"
  900.  
  901. set node1441 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  902. $node1441 setLabel "name" "DateTimeData"
  903. $node1441 setProp "is_folded" "1"
  904. $node1441 setScope "name" "cl" "scopePhase"
  905.  
  906. set node1439 [$diag addRake generalization $node1441 $node1440 60.0 36.0 60.0 100.0 68.0]
  907.  
  908. set conn1442 [$node1439 getInConn]
  909. set segm1443 [$conn1442 getFirstSegm]
  910.  
  911. set conn1444 [$node1439 getFirstOutConn]
  912. set segm1445 [$conn1444 getFirstSegm]
  913.  
  914. $diag save
  915. } msg]} {
  916.     puts stderr "\nAn error occurred while importing"
  917.     puts stderr $msg
  918. }
  919.  
  920.  
  921. set msg ""
  922. if {[catch {
  923. set diag ""
  924. set diag [CAD new DateTimeNullableTree "Framework" "" "" "" "" "" 1 1]
  925.  
  926. set node1773 [$diag addNode cad_class 0.0 100.0 134.0 36.0]
  927. $node1773 setLabel "name" "4GLNullDateTime"
  928. $node1773 setProp "is_folded" "1"
  929. $node1773 setScope "name" "cl" "scopePhase"
  930.  
  931. set node1774 [$diag addNode cad_class 0.0 0.0 136.0 36.0]
  932. $node1774 setLabel "name" "DateTimeNullable"
  933. $node1774 setProp "is_folded" "1"
  934. $node1774 setScope "name" "cl" "scopePhase"
  935.  
  936. set node1772 [$diag addRake generalization $node1774 $node1773 68.0 36.0 67.0 100.0 68.0]
  937.  
  938. set conn1775 [$node1772 getInConn]
  939. set segm1776 [$conn1775 getFirstSegm]
  940.  
  941. set conn1777 [$node1772 getFirstOutConn]
  942. set segm1778 [$conn1777 getFirstSegm]
  943.  
  944. $diag save
  945. } msg]} {
  946.     puts stderr "\nAn error occurred while importing"
  947.     puts stderr $msg
  948. }
  949.  
  950.  
  951. set msg ""
  952. if {[catch {
  953. set diag ""
  954. set diag [CAD new DecimalDataTree "Framework" "" "" "" "" "" 1 1]
  955.  
  956. set node1431 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  957. $node1431 setLabel "name" "NullDecimal"
  958. $node1431 setProp "is_folded" "1"
  959. $node1431 setScope "name" "cl" "scopePhase"
  960.  
  961. set node1432 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  962. $node1432 setLabel "name" "DecimalData"
  963. $node1432 setProp "is_folded" "1"
  964. $node1432 setScope "name" "cl" "scopePhase"
  965.  
  966. set node1430 [$diag addRake generalization $node1432 $node1431 60.0 36.0 60.0 100.0 68.0]
  967.  
  968. set conn1433 [$node1430 getInConn]
  969. set segm1434 [$conn1433 getFirstSegm]
  970.  
  971. set conn1435 [$node1430 getFirstOutConn]
  972. set segm1436 [$conn1435 getFirstSegm]
  973.  
  974. $diag save
  975. } msg]} {
  976.     puts stderr "\nAn error occurred while importing"
  977.     puts stderr $msg
  978. }
  979.  
  980.  
  981. set msg ""
  982. if {[catch {
  983. set diag ""
  984. set diag [CAD new DecimalNullableTree "Framework" "" "" "" "" "" 1 1]
  985.  
  986. set node1755 [$diag addNode cad_class 0.0 100.0 125.0 36.0]
  987. $node1755 setLabel "name" "4GLNullDecimal"
  988. $node1755 setProp "is_folded" "1"
  989. $node1755 setScope "name" "cl" "scopePhase"
  990.  
  991. set node1756 [$diag addNode cad_class 0.0 0.0 127.0 36.0]
  992. $node1756 setLabel "name" "DecimalNullable"
  993. $node1756 setProp "is_folded" "1"
  994. $node1756 setScope "name" "cl" "scopePhase"
  995.  
  996. set node1754 [$diag addRake generalization $node1756 $node1755 63.5 36.0 62.5 100.0 68.0]
  997.  
  998. set conn1757 [$node1754 getInConn]
  999. set segm1758 [$conn1757 getFirstSegm]
  1000.  
  1001. set conn1759 [$node1754 getFirstOutConn]
  1002. set segm1760 [$conn1759 getFirstSegm]
  1003.  
  1004. $diag save
  1005. } msg]} {
  1006.     puts stderr "\nAn error occurred while importing"
  1007.     puts stderr $msg
  1008. }
  1009.  
  1010.  
  1011. set msg ""
  1012. if {[catch {
  1013. set diag ""
  1014. set diag [CAD new DispatchableObjectTree "Framework" "" "" "" "" "" 1 1]
  1015.  
  1016. set node784 [$diag addNode cad_class 494.0 100.0 120.0 36.0]
  1017. $node784 setLabel "name" "RemoteTask"
  1018. $node784 setProp "is_folded" "1"
  1019. $node784 setScope "name" "cl" "scopePhase"
  1020.  
  1021. set node785 [$diag addNode cad_class 342.0 100.0 120.0 36.0]
  1022. $node785 setLabel "name" "XactMessage"
  1023. $node785 setProp "is_folded" "1"
  1024. $node785 setScope "name" "cl" "scopePhase"
  1025.  
  1026. set node786 [$diag addNode cad_class 156.0 100.0 154.0 36.0]
  1027. $node786 setLabel "name" "CNMRemoteNotifier"
  1028. $node786 setProp "is_folded" "1"
  1029. $node786 setScope "name" "cl" "scopePhase"
  1030.  
  1031. set node788 [$diag addNode cad_class 0.0 100.0 124.0 36.0]
  1032. $node788 setLabel "name" "DogNotification"
  1033. $node788 setProp "is_folded" "1"
  1034. $node788 setScope "name" "cl" "scopePhase"
  1035.  
  1036. set node789 [$diag addNode cad_class 231.0 0.0 152.0 36.0]
  1037. $node789 setLabel "name" "DispatchableObject"
  1038. $node789 setProp "is_folded" "1"
  1039. $node789 setScope "name" "cl" "scopePhase"
  1040.  
  1041. set node787 [$diag addRake generalization $node789 $node784 307.0 36.0 554.0 100.0 68.0]
  1042.  
  1043. set conn790 [$node787 getInConn]
  1044. set segm791 [$conn790 getFirstSegm]
  1045.  
  1046. set conn792 [$node787 getFirstOutConn]
  1047. set segm793 [$conn792 getFirstSegm]
  1048.  
  1049. set conn794 [$diag addConn generalization_conn $node787 $node785 402.0 68.0 402.0 100.0]
  1050. set segm795 [$conn794 getFirstSegm]
  1051.  
  1052. set conn796 [$diag addConn generalization_conn $node787 $node786 233.0 68.0 233.0 100.0]
  1053. set segm797 [$conn796 getFirstSegm]
  1054.  
  1055. set conn798 [$diag addConn generalization_conn $node787 $node788 62.0 68.0 62.0 100.0]
  1056. set segm799 [$conn798 getFirstSegm]
  1057.  
  1058. $diag save
  1059. } msg]} {
  1060.     puts stderr "\nAn error occurred while importing"
  1061.     puts stderr $msg
  1062. }
  1063.  
  1064.  
  1065. set msg ""
  1066. if {[catch {
  1067. set diag ""
  1068. set diag [CAD new DoubleDataTree "Framework" "" "" "" "" "" 1 1]
  1069.  
  1070. set node1401 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1071. $node1401 setLabel "name" "NullReal"
  1072. $node1401 setProp "is_folded" "1"
  1073. $node1401 setScope "name" "cl" "scopePhase"
  1074.  
  1075. set node1402 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  1076. $node1402 setLabel "name" "DoubleData"
  1077. $node1402 setProp "is_folded" "1"
  1078. $node1402 setScope "name" "cl" "scopePhase"
  1079.  
  1080. set node1400 [$diag addRake generalization $node1402 $node1401 60.0 36.0 60.0 100.0 68.0]
  1081.  
  1082. set conn1403 [$node1400 getInConn]
  1083. set segm1404 [$conn1403 getFirstSegm]
  1084.  
  1085. set conn1405 [$node1400 getFirstOutConn]
  1086. set segm1406 [$conn1405 getFirstSegm]
  1087.  
  1088. $diag save
  1089. } msg]} {
  1090.     puts stderr "\nAn error occurred while importing"
  1091.     puts stderr $msg
  1092. }
  1093.  
  1094.  
  1095. set msg ""
  1096. if {[catch {
  1097. set diag ""
  1098. set diag [CAD new DoubleNullableTree "Framework" "" "" "" "" "" 1 1]
  1099.  
  1100. set node1809 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1101. $node1809 setLabel "name" "4GLNullReal"
  1102. $node1809 setProp "is_folded" "1"
  1103. $node1809 setScope "name" "cl" "scopePhase"
  1104.  
  1105. set node1810 [$diag addNode cad_class 0.0 0.0 122.0 36.0]
  1106. $node1810 setLabel "name" "DoubleNullable"
  1107. $node1810 setProp "is_folded" "1"
  1108. $node1810 setScope "name" "cl" "scopePhase"
  1109.  
  1110. set node1808 [$diag addRake generalization $node1810 $node1809 61.0 36.0 60.0 100.0 68.0]
  1111.  
  1112. set conn1811 [$node1808 getInConn]
  1113. set segm1812 [$conn1811 getFirstSegm]
  1114.  
  1115. set conn1813 [$node1808 getFirstOutConn]
  1116. set segm1814 [$conn1813 getFirstSegm]
  1117.  
  1118. $diag save
  1119. } msg]} {
  1120.     puts stderr "\nAn error occurred while importing"
  1121.     puts stderr $msg
  1122. }
  1123.  
  1124.  
  1125. set msg ""
  1126. if {[catch {
  1127. set diag ""
  1128. set diag [CAD new DynamicLibraryTree "Framework" "" "" "" "" "" 1 1]
  1129.  
  1130. set node1136 [$diag addNode cad_class 387.0 100.0 184.0 36.0]
  1131. $node1136 setLabel "name" "DynamicLibraryInterface"
  1132. $node1136 setProp "is_folded" "1"
  1133. $node1136 setScope "name" "cl" "scopePhase"
  1134.  
  1135. set node1137 [$diag addNode cad_class 191.0 100.0 164.0 36.0]
  1136. $node1137 setLabel "name" "StaticDynamicLibrary"
  1137. $node1137 setProp "is_folded" "1"
  1138. $node1137 setScope "name" "cl" "scopePhase"
  1139.  
  1140. set node1139 [$diag addNode cad_class 0.0 100.0 159.0 36.0]
  1141. $node1139 setLabel "name" "Win3DynamicLibrary"
  1142. $node1139 setProp "is_folded" "1"
  1143. $node1139 setScope "name" "cl" "scopePhase"
  1144.  
  1145. set node1140 [$diag addNode cad_class 223.5 0.0 124.0 36.0]
  1146. $node1140 setLabel "name" "DynamicLibrary"
  1147. $node1140 setProp "is_folded" "1"
  1148. $node1140 setScope "name" "cl" "scopePhase"
  1149.  
  1150. set node1138 [$diag addRake generalization $node1140 $node1136 285.5 36.0 479.0 100.0 68.0]
  1151.  
  1152. set conn1141 [$node1138 getInConn]
  1153. set segm1142 [$conn1141 getFirstSegm]
  1154.  
  1155. set conn1143 [$node1138 getFirstOutConn]
  1156. set segm1144 [$conn1143 getFirstSegm]
  1157.  
  1158. set conn1145 [$diag addConn generalization_conn $node1138 $node1137 273.0 68.0 273.0 100.0]
  1159. set segm1146 [$conn1145 getFirstSegm]
  1160.  
  1161. set conn1147 [$diag addConn generalization_conn $node1138 $node1139 79.5 68.0 79.5 100.0]
  1162. set segm1148 [$conn1147 getFirstSegm]
  1163.  
  1164. $diag save
  1165. } msg]} {
  1166.     puts stderr "\nAn error occurred while importing"
  1167.     puts stderr $msg
  1168. }
  1169.  
  1170.  
  1171. set msg ""
  1172. if {[catch {
  1173. set diag ""
  1174. set diag [CAD new ErrorDescTree "Framework" "" "" "" "" "" 1 1]
  1175.  
  1176. set node1532 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1177. $node1532 setLabel "name" "Exception"
  1178. $node1532 setProp "is_folded" "1"
  1179. $node1532 setScope "name" "cl" "scopePhase"
  1180.  
  1181. set node1533 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  1182. $node1533 setLabel "name" "ErrorDesc"
  1183. $node1533 setProp "is_folded" "1"
  1184. $node1533 setScope "name" "cl" "scopePhase"
  1185.  
  1186. set node1531 [$diag addRake generalization $node1533 $node1532 60.0 36.0 60.0 100.0 68.0]
  1187.  
  1188. set conn1534 [$node1531 getInConn]
  1189. set segm1535 [$conn1534 getFirstSegm]
  1190.  
  1191. set conn1536 [$node1531 getFirstOutConn]
  1192. set segm1537 [$conn1536 getFirstSegm]
  1193.  
  1194. $diag save
  1195. } msg]} {
  1196.     puts stderr "\nAn error occurred while importing"
  1197.     puts stderr $msg
  1198. }
  1199.  
  1200.  
  1201. set msg ""
  1202. if {[catch {
  1203. set diag ""
  1204. set diag [CAD new EventConsumerTree "Framework" "" "" "" "" "" 1 1]
  1205.  
  1206. set node1000 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  1207. $node1000 setLabel "name" "ECTaskSet"
  1208. $node1000 setProp "is_folded" "1"
  1209. $node1000 setScope "name" "cl" "scopePhase"
  1210.  
  1211. set node1002 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1212. $node1002 setLabel "name" "ECTask"
  1213. $node1002 setProp "is_folded" "1"
  1214. $node1002 setScope "name" "cl" "scopePhase"
  1215.  
  1216. set node1003 [$diag addNode cad_class 73.0 0.0 126.0 36.0]
  1217. $node1003 setLabel "name" "EventConsumer"
  1218. $node1003 setProp "is_folded" "1"
  1219. $node1003 setScope "name" "cl" "scopePhase"
  1220.  
  1221. set node1001 [$diag addRake generalization $node1003 $node1000 136.0 36.0 212.0 100.0 68.0]
  1222.  
  1223. set conn1004 [$node1001 getInConn]
  1224. set segm1005 [$conn1004 getFirstSegm]
  1225.  
  1226. set conn1006 [$node1001 getFirstOutConn]
  1227. set segm1007 [$conn1006 getFirstSegm]
  1228.  
  1229. set conn1008 [$diag addConn generalization_conn $node1001 $node1002 60.0 68.0 60.0 100.0]
  1230. set segm1009 [$conn1008 getFirstSegm]
  1231.  
  1232. $diag save
  1233. } msg]} {
  1234.     puts stderr "\nAn error occurred while importing"
  1235.     puts stderr $msg
  1236. }
  1237.  
  1238.  
  1239. set msg ""
  1240. if {[catch {
  1241. set diag ""
  1242. set diag [CAD new EventNotificationTree "Framework" "" "" "" "" "" 1 1]
  1243.  
  1244. set node824 [$diag addNode cad_class 0.0 100.0 130.0 36.0]
  1245. $node824 setLabel "name" "SetSubjectEvent"
  1246. $node824 setProp "is_folded" "1"
  1247. $node824 setScope "name" "cl" "scopePhase"
  1248.  
  1249. set node825 [$diag addNode cad_class 0.0 0.0 134.0 36.0]
  1250. $node825 setLabel "name" "EventNotification"
  1251. $node825 setProp "is_folded" "1"
  1252. $node825 setScope "name" "cl" "scopePhase"
  1253.  
  1254. set node823 [$diag addRake generalization $node825 $node824 67.0 36.0 65.0 100.0 68.0]
  1255.  
  1256. set conn826 [$node823 getInConn]
  1257. set segm827 [$conn826 getFirstSegm]
  1258.  
  1259. set conn828 [$node823 getFirstOutConn]
  1260. set segm829 [$conn828 getFirstSegm]
  1261.  
  1262. $diag save
  1263. } msg]} {
  1264.     puts stderr "\nAn error occurred while importing"
  1265.     puts stderr $msg
  1266. }
  1267.  
  1268.  
  1269. set msg ""
  1270. if {[catch {
  1271. set diag ""
  1272. set diag [CAD new ExternalConnectionTree "Framework" "" "" "" "" "" 1 1]
  1273.  
  1274. set node1268 [$diag addNode cad_class 0.0 100.0 192.0 36.0]
  1275. $node1268 setLabel "name" "ExternalConnectionProxy"
  1276. $node1268 setProp "is_folded" "1"
  1277. $node1268 setScope "name" "cl" "scopePhase"
  1278.  
  1279. set node1269 [$diag addNode cad_class 20.0 0.0 152.0 36.0]
  1280. $node1269 setLabel "name" "ExternalConnection"
  1281. $node1269 setProp "is_folded" "1"
  1282. $node1269 setScope "name" "cl" "scopePhase"
  1283.  
  1284. set node1267 [$diag addRake generalization $node1269 $node1268 96.0 36.0 96.0 100.0 68.0]
  1285.  
  1286. set conn1270 [$node1267 getInConn]
  1287. set segm1271 [$conn1270 getFirstSegm]
  1288.  
  1289. set conn1272 [$node1267 getFirstOutConn]
  1290. set segm1273 [$conn1272 getFirstSegm]
  1291.  
  1292. $diag save
  1293. } msg]} {
  1294.     puts stderr "\nAn error occurred while importing"
  1295.     puts stderr $msg
  1296. }
  1297.  
  1298.  
  1299. set msg ""
  1300. if {[catch {
  1301. set diag ""
  1302. set diag [CAD new FileSystemSessTree "Framework" "" "" "" "" "" 1 1]
  1303.  
  1304. set node1252 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1305. $node1252 setLabel "name" "FSSessProxy"
  1306. $node1252 setProp "is_folded" "1"
  1307. $node1252 setScope "name" "cl" "scopePhase"
  1308.  
  1309. set node1253 [$diag addNode cad_class 0.0 0.0 125.0 36.0]
  1310. $node1253 setLabel "name" "FileSystemSess"
  1311. $node1253 setProp "is_folded" "1"
  1312. $node1253 setScope "name" "cl" "scopePhase"
  1313.  
  1314. set node1251 [$diag addRake generalization $node1253 $node1252 62.5 36.0 60.0 100.0 68.0]
  1315.  
  1316. set conn1254 [$node1251 getInConn]
  1317. set segm1255 [$conn1254 getFirstSegm]
  1318.  
  1319. set conn1256 [$node1251 getFirstOutConn]
  1320. set segm1257 [$conn1256 getFirstSegm]
  1321.  
  1322. $diag save
  1323. } msg]} {
  1324.     puts stderr "\nAn error occurred while importing"
  1325.     puts stderr $msg
  1326. }
  1327.  
  1328.  
  1329. set msg ""
  1330. if {[catch {
  1331. set diag ""
  1332. set diag [CAD new FileSystemTree "Framework" "" "" "" "" "" 1 1]
  1333.  
  1334. set node1260 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1335. $node1260 setLabel "name" "FileSysProxy"
  1336. $node1260 setProp "is_folded" "1"
  1337. $node1260 setScope "name" "cl" "scopePhase"
  1338.  
  1339. set node1261 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  1340. $node1261 setLabel "name" "FileSystem"
  1341. $node1261 setProp "is_folded" "1"
  1342. $node1261 setScope "name" "cl" "scopePhase"
  1343.  
  1344. set node1259 [$diag addRake generalization $node1261 $node1260 60.0 36.0 60.0 100.0 68.0]
  1345.  
  1346. set conn1262 [$node1259 getInConn]
  1347. set segm1263 [$conn1262 getFirstSegm]
  1348.  
  1349. set conn1264 [$node1259 getFirstOutConn]
  1350. set segm1265 [$conn1264 getFirstSegm]
  1351.  
  1352. $diag save
  1353. } msg]} {
  1354.     puts stderr "\nAn error occurred while importing"
  1355.     puts stderr $msg
  1356. }
  1357.  
  1358.  
  1359. set msg ""
  1360. if {[catch {
  1361. set diag ""
  1362. set diag [CAD new GenericArrayTree "Framework" "" "" "" "" "" 1 1]
  1363.  
  1364. set node1275 [$diag addNode cad_class 152.0 200.0 120.0 36.0]
  1365. $node1275 setLabel "name" "Heap"
  1366. $node1275 setProp "is_folded" "1"
  1367. $node1275 setScope "name" "cl" "scopePhase"
  1368.  
  1369. set node1277 [$diag addNode cad_class 0.0 200.0 120.0 36.0]
  1370. $node1277 setLabel "name" "LargeArray"
  1371. $node1277 setProp "is_folded" "1"
  1372. $node1277 setScope "name" "cl" "scopePhase"
  1373.  
  1374. set node1279 [$diag addNode cad_class 76.0 100.0 120.0 36.0]
  1375. $node1279 setLabel "name" "DynamicArray"
  1376. $node1279 setProp "is_folded" "1"
  1377. $node1279 setScope "name" "cl" "scopePhase"
  1378.  
  1379. set node1280 [$diag addNode cad_class 76.0 0.0 120.0 36.0]
  1380. $node1280 setLabel "name" "GenericArray"
  1381. $node1280 setProp "is_folded" "1"
  1382. $node1280 setScope "name" "cl" "scopePhase"
  1383.  
  1384. set node1276 [$diag addRake generalization $node1279 $node1275 136.0 136.0 212.0 200.0 168.0]
  1385.  
  1386. set conn1281 [$node1276 getInConn]
  1387. set segm1282 [$conn1281 getFirstSegm]
  1388.  
  1389. set conn1283 [$node1276 getFirstOutConn]
  1390. set segm1284 [$conn1283 getFirstSegm]
  1391.  
  1392. set conn1285 [$diag addConn generalization_conn $node1276 $node1277 60.0 168.0 60.0 200.0]
  1393. set segm1286 [$conn1285 getFirstSegm]
  1394.  
  1395. set node1278 [$diag addRake generalization $node1280 $node1279 136.0 36.0 136.0 100.0 68.0]
  1396.  
  1397. set conn1287 [$node1278 getInConn]
  1398. set segm1288 [$conn1287 getFirstSegm]
  1399.  
  1400. set conn1289 [$node1278 getFirstOutConn]
  1401. set segm1290 [$conn1289 getFirstSegm]
  1402.  
  1403. $diag save
  1404. } msg]} {
  1405.     puts stderr "\nAn error occurred while importing"
  1406.     puts stderr $msg
  1407. }
  1408.  
  1409.  
  1410. set msg ""
  1411. if {[catch {
  1412. set diag ""
  1413. set diag [CAD new GenericExceptionTree "Framework" "" "" "" "" "" 1 1]
  1414.  
  1415. set node1587 [$diag addNode cad_class 3433.0 100.0 168.0 36.0]
  1416. $node1587 setLabel "name" "SerializationException"
  1417. $node1587 setProp "is_folded" "1"
  1418. $node1587 setScope "name" "cl" "scopePhase"
  1419.  
  1420. set node1588 [$diag addNode cad_class 3256.0 100.0 145.0 36.0]
  1421. $node1588 setLabel "name" "DatatypeException"
  1422. $node1588 setProp "is_folded" "1"
  1423. $node1588 setScope "name" "cl" "scopePhase"
  1424.  
  1425. set node1589 [$diag addNode cad_class 3104.0 100.0 120.0 36.0]
  1426. $node1589 setLabel "name" "4GLException"
  1427. $node1589 setProp "is_folded" "1"
  1428. $node1589 setScope "name" "cl" "scopePhase"
  1429.  
  1430. set node1590 [$diag addNode cad_class 2918.0 100.0 154.0 36.0]
  1431. $node1590 setLabel "name" "ArithmeticException"
  1432. $node1590 setProp "is_folded" "1"
  1433. $node1590 setScope "name" "cl" "scopePhase"
  1434.  
  1435. set node1591 [$diag addNode cad_class 2766.0 100.0 120.0 36.0]
  1436. $node1591 setLabel "name" "UserException"
  1437. $node1591 setProp "is_folded" "1"
  1438. $node1591 setScope "name" "cl" "scopePhase"
  1439.  
  1440. set node1592 [$diag addNode cad_class 2603.0 100.0 131.0 36.0]
  1441. $node1592 setLabel "name" "CancelException"
  1442. $node1592 setProp "is_folded" "1"
  1443. $node1592 setScope "name" "cl" "scopePhase"
  1444.  
  1445. set node1593 [$diag addNode cad_class 2406.0 100.0 165.0 36.0]
  1446. $node1593 setLabel "name" "InvalidStateException"
  1447. $node1593 setProp "is_folded" "1"
  1448. $node1593 setScope "name" "cl" "scopePhase"
  1449.  
  1450. set node1594 [$diag addNode cad_class 2238.0 100.0 136.0 36.0]
  1451. $node1594 setLabel "name" "AbortTransaction"
  1452. $node1594 setProp "is_folded" "1"
  1453. $node1594 setScope "name" "cl" "scopePhase"
  1454.  
  1455. set node1595 [$diag addNode cad_class 2062.0 300.0 144.0 36.0]
  1456. $node1595 setLabel "name" "InterruptException"
  1457. $node1595 setProp "is_folded" "1"
  1458. $node1595 setScope "name" "cl" "scopePhase"
  1459.  
  1460. set node1597 [$diag addNode cad_class 1838.0 300.0 192.0 36.0]
  1461. $node1597 setLabel "name" "DynamicLibraryException"
  1462. $node1597 setProp "is_folded" "1"
  1463. $node1597 setScope "name" "cl" "scopePhase"
  1464.  
  1465. set node1598 [$diag addNode cad_class 1955.0 200.0 134.0 36.0]
  1466. $node1598 setLabel "name" "SystemException"
  1467. $node1598 setProp "is_folded" "1"
  1468. $node1598 setScope "name" "cl" "scopePhase"
  1469.  
  1470. set node1599 [$diag addNode cad_class 1679.0 200.0 127.0 36.0]
  1471. $node1599 setLabel "name" "UsageException"
  1472. $node1599 setProp "is_folded" "1"
  1473. $node1599 setScope "name" "cl" "scopePhase"
  1474.  
  1475. set node1601 [$diag addNode cad_class 1458.0 200.0 189.0 36.0]
  1476. $node1601 setLabel "name" "ImplementationException"
  1477. $node1601 setProp "is_folded" "1"
  1478. $node1601 setScope "name" "cl" "scopePhase"
  1479.  
  1480. set node1602 [$diag addNode cad_class 1768.5 100.0 127.0 36.0]
  1481. $node1602 setLabel "name" "DefectException"
  1482. $node1602 setProp "is_folded" "1"
  1483. $node1602 setScope "name" "cl" "scopePhase"
  1484.  
  1485. set node1603 [$diag addNode cad_class 1270.0 100.0 156.0 36.0]
  1486. $node1603 setLabel "name" "ProtectionException"
  1487. $node1603 setProp "is_folded" "1"
  1488. $node1603 setScope "name" "cl" "scopePhase"
  1489.  
  1490. set node1604 [$diag addNode cad_class 1070.0 100.0 168.0 36.0]
  1491. $node1604 setLabel "name" "InvalidValueException"
  1492. $node1604 setProp "is_folded" "1"
  1493. $node1604 setScope "name" "cl" "scopePhase"
  1494.  
  1495. set node1605 [$diag addNode cad_class 889.0 100.0 149.0 36.0]
  1496. $node1605 setLabel "name" "ExistenceException"
  1497. $node1605 setProp "is_folded" "1"
  1498. $node1605 setScope "name" "cl" "scopePhase"
  1499.  
  1500. set node1606 [$diag addNode cad_class 685.0 300.0 172.0 36.0]
  1501. $node1606 setLabel "name" "4GLSystemRsrcExcept"
  1502. $node1606 setProp "is_folded" "1"
  1503. $node1606 setScope "name" "cl" "scopePhase"
  1504.  
  1505. set node1608 [$diag addNode cad_class 425.0 300.0 228.0 36.0]
  1506. $node1608 setLabel "name" "4GLSystemResourceException"
  1507. $node1608 setProp "is_folded" "1"
  1508. $node1608 setScope "name" "cl" "scopePhase"
  1509.  
  1510. set node1609 [$diag addNode cad_class 540.5 200.0 201.0 36.0]
  1511. $node1609 setLabel "name" "SystemResourceException"
  1512. $node1609 setProp "is_folded" "1"
  1513. $node1609 setScope "name" "cl" "scopePhase"
  1514.  
  1515. set node1610 [$diag addNode cad_class 218.0 200.0 175.0 36.0]
  1516. $node1610 setLabel "name" "FileResourceException"
  1517. $node1610 setProp "is_folded" "1"
  1518. $node1610 setScope "name" "cl" "scopePhase"
  1519.  
  1520. set node1612 [$diag addNode cad_class 0.0 300.0 161.0 36.0]
  1521. $node1612 setLabel "name" "DistAccessException"
  1522. $node1612 setProp "is_folded" "1"
  1523. $node1612 setScope "name" "cl" "scopePhase"
  1524.  
  1525. set node1614 [$diag addNode cad_class 0.0 200.0 186.0 36.0]
  1526. $node1614 setLabel "name" "RemoteAccessException"
  1527. $node1614 setProp "is_folded" "1"
  1528. $node1614 setScope "name" "cl" "scopePhase"
  1529.  
  1530. set node1616 [$diag addNode cad_class 353.5 100.0 150.0 36.0]
  1531. $node1616 setLabel "name" "ResourceException"
  1532. $node1616 setProp "is_folded" "1"
  1533. $node1616 setScope "name" "cl" "scopePhase"
  1534.  
  1535. set node1617 [$diag addNode cad_class 1732.0 0.0 137.0 36.0]
  1536. $node1617 setLabel "name" "GenericException"
  1537. $node1617 setProp "is_folded" "1"
  1538. $node1617 setScope "name" "cl" "scopePhase"
  1539.  
  1540. set node1596 [$diag addRake generalization $node1598 $node1595 2022.0 236.0 2134.0 300.0 268.0]
  1541.  
  1542. set conn1618 [$node1596 getInConn]
  1543. set segm1619 [$conn1618 getFirstSegm]
  1544.  
  1545. set conn1620 [$node1596 getFirstOutConn]
  1546. set segm1621 [$conn1620 getFirstSegm]
  1547.  
  1548. set conn1622 [$diag addConn generalization_conn $node1596 $node1597 1934.0 268.0 1934.0 300.0]
  1549. set segm1623 [$conn1622 getFirstSegm]
  1550.  
  1551. set node1600 [$diag addRake generalization $node1602 $node1598 1832.0 136.0 2022.0 200.0 168.0]
  1552.  
  1553. set conn1624 [$node1600 getInConn]
  1554. set segm1625 [$conn1624 getFirstSegm]
  1555.  
  1556. set conn1626 [$node1600 getFirstOutConn]
  1557. set segm1627 [$conn1626 getFirstSegm]
  1558.  
  1559. set conn1628 [$diag addConn generalization_conn $node1600 $node1599 1742.5 168.0 1742.5 200.0]
  1560. set segm1629 [$conn1628 getFirstSegm]
  1561.  
  1562. set conn1630 [$diag addConn generalization_conn $node1600 $node1601 1552.5 168.0 1552.5 200.0]
  1563. set segm1631 [$conn1630 getFirstSegm]
  1564.  
  1565. set node1607 [$diag addRake generalization $node1609 $node1606 641.0 236.0 771.0 300.0 268.0]
  1566.  
  1567. set conn1632 [$node1607 getInConn]
  1568. set segm1633 [$conn1632 getFirstSegm]
  1569.  
  1570. set conn1634 [$node1607 getFirstOutConn]
  1571. set segm1635 [$conn1634 getFirstSegm]
  1572.  
  1573. set conn1636 [$diag addConn generalization_conn $node1607 $node1608 539.0 268.0 539.0 300.0]
  1574. set segm1637 [$conn1636 getFirstSegm]
  1575.  
  1576. set node1611 [$diag addRake generalization $node1614 $node1612 93.0 236.0 80.5 300.0 268.0]
  1577.  
  1578. set conn1638 [$node1611 getInConn]
  1579. set segm1639 [$conn1638 getFirstSegm]
  1580.  
  1581. set conn1640 [$node1611 getFirstOutConn]
  1582. set segm1641 [$conn1640 getFirstSegm]
  1583.  
  1584. set node1613 [$diag addRake generalization $node1616 $node1609 428.5 136.0 641.0 200.0 168.0]
  1585.  
  1586. set conn1642 [$node1613 getInConn]
  1587. set segm1643 [$conn1642 getFirstSegm]
  1588.  
  1589. set conn1644 [$node1613 getFirstOutConn]
  1590. set segm1645 [$conn1644 getFirstSegm]
  1591.  
  1592. set conn1646 [$diag addConn generalization_conn $node1613 $node1610 305.5 168.0 305.5 200.0]
  1593. set segm1647 [$conn1646 getFirstSegm]
  1594.  
  1595. set conn1648 [$diag addConn generalization_conn $node1613 $node1614 93.0 168.0 93.0 200.0]
  1596. set segm1649 [$conn1648 getFirstSegm]
  1597.  
  1598. set node1615 [$diag addRake generalization $node1617 $node1587 1800.5 36.0 3517.0 100.0 68.0]
  1599.  
  1600. set conn1650 [$node1615 getInConn]
  1601. set segm1651 [$conn1650 getFirstSegm]
  1602.  
  1603. set conn1652 [$node1615 getFirstOutConn]
  1604. set segm1653 [$conn1652 getFirstSegm]
  1605.  
  1606. set conn1654 [$diag addConn generalization_conn $node1615 $node1588 3328.5 68.0 3328.5 100.0]
  1607. set segm1655 [$conn1654 getFirstSegm]
  1608.  
  1609. set conn1656 [$diag addConn generalization_conn $node1615 $node1589 3164.0 68.0 3164.0 100.0]
  1610. set segm1657 [$conn1656 getFirstSegm]
  1611.  
  1612. set conn1658 [$diag addConn generalization_conn $node1615 $node1590 2995.0 68.0 2995.0 100.0]
  1613. set segm1659 [$conn1658 getFirstSegm]
  1614.  
  1615. set conn1660 [$diag addConn generalization_conn $node1615 $node1591 2826.0 68.0 2826.0 100.0]
  1616. set segm1661 [$conn1660 getFirstSegm]
  1617.  
  1618. set conn1662 [$diag addConn generalization_conn $node1615 $node1592 2668.5 68.0 2668.5 100.0]
  1619. set segm1663 [$conn1662 getFirstSegm]
  1620.  
  1621. set conn1664 [$diag addConn generalization_conn $node1615 $node1593 2488.5 68.0 2488.5 100.0]
  1622. set segm1665 [$conn1664 getFirstSegm]
  1623.  
  1624. set conn1666 [$diag addConn generalization_conn $node1615 $node1594 2306.0 68.0 2306.0 100.0]
  1625. set segm1667 [$conn1666 getFirstSegm]
  1626.  
  1627. set conn1668 [$diag addConn generalization_conn $node1615 $node1602 1832.0 68.0 1832.0 100.0]
  1628. set segm1669 [$conn1668 getFirstSegm]
  1629.  
  1630. set conn1670 [$diag addConn generalization_conn $node1615 $node1603 1348.0 68.0 1348.0 100.0]
  1631. set segm1671 [$conn1670 getFirstSegm]
  1632.  
  1633. set conn1672 [$diag addConn generalization_conn $node1615 $node1604 1154.0 68.0 1154.0 100.0]
  1634. set segm1673 [$conn1672 getFirstSegm]
  1635.  
  1636. set conn1674 [$diag addConn generalization_conn $node1615 $node1605 963.5 68.0 963.5 100.0]
  1637. set segm1675 [$conn1674 getFirstSegm]
  1638.  
  1639. set conn1676 [$diag addConn generalization_conn $node1615 $node1616 428.5 68.0 428.5 100.0]
  1640. set segm1677 [$conn1676 getFirstSegm]
  1641.  
  1642. $diag save
  1643. } msg]} {
  1644.     puts stderr "\nAn error occurred while importing"
  1645.     puts stderr $msg
  1646. }
  1647.  
  1648.  
  1649. set msg ""
  1650. if {[catch {
  1651. set diag ""
  1652. set diag [CAD new GenericHashNodeTree "Framework" "" "" "" "" "" 1 1]
  1653.  
  1654. set node858 [$diag addNode cad_class 524.0 100.0 147.0 36.0]
  1655. $node858 setLabel "name" "UUIDByScpIdNode"
  1656. $node858 setProp "is_folded" "1"
  1657. $node858 setScope "name" "cl" "scopePhase"
  1658.  
  1659. set node859 [$diag addNode cad_class 345.0 200.0 147.0 36.0]
  1660. $node859 setLabel "name" "FONameHashNode"
  1661. $node859 setProp "is_folded" "1"
  1662. $node859 setScope "name" "cl" "scopePhase"
  1663.  
  1664. set node860 [$diag addNode cad_class 154.0 200.0 159.0 36.0]
  1665. $node860 setLabel "name" "ObjectKeyHashNode"
  1666. $node860 setProp "is_folded" "1"
  1667. $node860 setScope "name" "cl" "scopePhase"
  1668.  
  1669. set node862 [$diag addNode cad_class 0.0 200.0 122.0 36.0]
  1670. $node862 setLabel "name" "HashLongNode"
  1671. $node862 setProp "is_folded" "1"
  1672. $node862 setScope "name" "cl" "scopePhase"
  1673.  
  1674. set node864 [$diag addNode cad_class 186.0 100.0 120.0 36.0]
  1675. $node864 setLabel "name" "HashNode"
  1676. $node864 setProp "is_folded" "1"
  1677. $node864 setScope "name" "cl" "scopePhase"
  1678.  
  1679. set node865 [$diag addNode cad_class 265.0 0.0 141.0 36.0]
  1680. $node865 setLabel "name" "GenericHashNode"
  1681. $node865 setProp "is_folded" "1"
  1682. $node865 setScope "name" "cl" "scopePhase"
  1683.  
  1684. set node861 [$diag addRake generalization $node864 $node859 246.0 136.0 418.5 200.0 168.0]
  1685.  
  1686. set conn866 [$node861 getInConn]
  1687. set segm867 [$conn866 getFirstSegm]
  1688.  
  1689. set conn868 [$node861 getFirstOutConn]
  1690. set segm869 [$conn868 getFirstSegm]
  1691.  
  1692. set conn870 [$diag addConn generalization_conn $node861 $node860 233.5 168.0 233.5 200.0]
  1693. set segm871 [$conn870 getFirstSegm]
  1694.  
  1695. set conn872 [$diag addConn generalization_conn $node861 $node862 61.0 168.0 61.0 200.0]
  1696. set segm873 [$conn872 getFirstSegm]
  1697.  
  1698. set node863 [$diag addRake generalization $node865 $node858 335.5 36.0 597.5 100.0 68.0]
  1699.  
  1700. set conn874 [$node863 getInConn]
  1701. set segm875 [$conn874 getFirstSegm]
  1702.  
  1703. set conn876 [$node863 getFirstOutConn]
  1704. set segm877 [$conn876 getFirstSegm]
  1705.  
  1706. set conn878 [$diag addConn generalization_conn $node863 $node864 246.0 68.0 246.0 100.0]
  1707. set segm879 [$conn878 getFirstSegm]
  1708.  
  1709. $diag save
  1710. } msg]} {
  1711.     puts stderr "\nAn error occurred while importing"
  1712.     puts stderr $msg
  1713. }
  1714.  
  1715.  
  1716. set msg ""
  1717. if {[catch {
  1718. set diag ""
  1719. set diag [CAD new GenericHashTableTree "Framework" "" "" "" "" "" 1 1]
  1720.  
  1721. set node1178 [$diag addNode cad_class 304.0 100.0 120.0 36.0]
  1722. $node1178 setLabel "name" "HashOvrLong"
  1723. $node1178 setProp "is_folded" "1"
  1724. $node1178 setScope "name" "cl" "scopePhase"
  1725.  
  1726. set node1179 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  1727. $node1179 setLabel "name" "HashOvrAddr"
  1728. $node1179 setProp "is_folded" "1"
  1729. $node1179 setScope "name" "cl" "scopePhase"
  1730.  
  1731. set node1181 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1732. $node1181 setLabel "name" "HashOvrChain"
  1733. $node1181 setProp "is_folded" "1"
  1734. $node1181 setScope "name" "cl" "scopePhase"
  1735.  
  1736. set node1182 [$diag addNode cad_class 141.5 0.0 141.0 36.0]
  1737. $node1182 setLabel "name" "GenericHashTable"
  1738. $node1182 setProp "is_folded" "1"
  1739. $node1182 setScope "name" "cl" "scopePhase"
  1740.  
  1741. set node1180 [$diag addRake generalization $node1182 $node1178 212.0 36.0 364.0 100.0 68.0]
  1742.  
  1743. set conn1183 [$node1180 getInConn]
  1744. set segm1184 [$conn1183 getFirstSegm]
  1745.  
  1746. set conn1185 [$node1180 getFirstOutConn]
  1747. set segm1186 [$conn1185 getFirstSegm]
  1748.  
  1749. set conn1187 [$diag addConn generalization_conn $node1180 $node1179 212.0 68.0 212.0 100.0]
  1750. set segm1188 [$conn1187 getFirstSegm]
  1751.  
  1752. set conn1189 [$diag addConn generalization_conn $node1180 $node1181 60.0 68.0 60.0 100.0]
  1753. set segm1190 [$conn1189 getFirstSegm]
  1754.  
  1755. $diag save
  1756. } msg]} {
  1757.     puts stderr "\nAn error occurred while importing"
  1758.     puts stderr $msg
  1759. }
  1760.  
  1761.  
  1762. set msg ""
  1763. if {[catch {
  1764. set diag ""
  1765. set diag [CAD new HashFuncsTree "Framework" "" "" "" "" "" 1 1]
  1766.  
  1767. set node1 [$diag addNode cad_class 1408.0 100.0 120.0 36.0]
  1768. $node1 setLabel "name" "UUIDHash"
  1769. $node1 setProp "is_folded" "1"
  1770. $node1 setScope "name" "cl" "scopePhase"
  1771.  
  1772. set node2 [$diag addNode cad_class 1256.0 100.0 120.0 36.0]
  1773. $node2 setLabel "name" "4GLHashFuncs"
  1774. $node2 setProp "is_folded" "1"
  1775. $node2 setScope "name" "cl" "scopePhase"
  1776.  
  1777. set node3 [$diag addNode cad_class 1104.0 100.0 120.0 36.0]
  1778. $node3 setLabel "name" "PartitionId"
  1779. $node3 setProp "is_folded" "1"
  1780. $node3 setScope "name" "cl" "scopePhase"
  1781.  
  1782. set node4 [$diag addNode cad_class 927.0 100.0 145.0 36.0]
  1783. $node4 setLabel "name" "FONameHashFunc"
  1784. $node4 setProp "is_folded" "1"
  1785. $node4 setScope "name" "cl" "scopePhase"
  1786.  
  1787. set node5 [$diag addNode cad_class 759.0 100.0 136.0 36.0]
  1788. $node5 setLabel "name" "ECWaitHashFunc"
  1789. $node5 setProp "is_folded" "1"
  1790. $node5 setScope "name" "cl" "scopePhase"
  1791.  
  1792. set node6 [$diag addNode cad_class 599.0 100.0 128.0 36.0]
  1793. $node6 setLabel "name" "ECSetHashFunc"
  1794. $node6 setProp "is_folded" "1"
  1795. $node6 setScope "name" "cl" "scopePhase"
  1796.  
  1797. set node7 [$diag addNode cad_class 345.0 100.0 222.0 36.0]
  1798. $node7 setLabel "name" "CNMWaitControllerHashFunc"
  1799. $node7 setProp "is_folded" "1"
  1800. $node7 setScope "name" "cl" "scopePhase"
  1801.  
  1802. set node8 [$diag addNode cad_class 156.0 100.0 157.0 36.0]
  1803. $node8 setLabel "name" "CNMEntryHashFunc"
  1804. $node8 setProp "is_folded" "1"
  1805. $node8 setScope "name" "cl" "scopePhase"
  1806.  
  1807. set node10 [$diag addNode cad_class 0.0 100.0 124.0 36.0]
  1808. $node10 setLabel "name" "NameHashFunc"
  1809. $node10 setProp "is_folded" "1"
  1810. $node10 setScope "name" "cl" "scopePhase"
  1811.  
  1812. set node11 [$diag addNode cad_class 704.0 0.0 120.0 36.0]
  1813. $node11 setLabel "name" "HashFuncs"
  1814. $node11 setProp "is_folded" "1"
  1815. $node11 setScope "name" "cl" "scopePhase"
  1816.  
  1817. set node9 [$diag addRake generalization $node11 $node1 764.0 36.0 1468.0 100.0 68.0]
  1818.  
  1819. set conn12 [$node9 getInConn]
  1820. set segm13 [$conn12 getFirstSegm]
  1821.  
  1822. set conn14 [$node9 getFirstOutConn]
  1823. set segm15 [$conn14 getFirstSegm]
  1824.  
  1825. set conn16 [$diag addConn generalization_conn $node9 $node2 1316.0 68.0 1316.0 100.0]
  1826. set segm17 [$conn16 getFirstSegm]
  1827.  
  1828. set conn18 [$diag addConn generalization_conn $node9 $node3 1164.0 68.0 1164.0 100.0]
  1829. set segm19 [$conn18 getFirstSegm]
  1830.  
  1831. set conn20 [$diag addConn generalization_conn $node9 $node4 999.5 68.0 999.5 100.0]
  1832. set segm21 [$conn20 getFirstSegm]
  1833.  
  1834. set conn22 [$diag addConn generalization_conn $node9 $node5 827.0 68.0 827.0 100.0]
  1835. set segm23 [$conn22 getFirstSegm]
  1836.  
  1837. set conn24 [$diag addConn generalization_conn $node9 $node6 663.0 68.0 663.0 100.0]
  1838. set segm25 [$conn24 getFirstSegm]
  1839.  
  1840. set conn26 [$diag addConn generalization_conn $node9 $node7 456.0 68.0 456.0 100.0]
  1841. set segm27 [$conn26 getFirstSegm]
  1842.  
  1843. set conn28 [$diag addConn generalization_conn $node9 $node8 234.5 68.0 234.5 100.0]
  1844. set segm29 [$conn28 getFirstSegm]
  1845.  
  1846. set conn30 [$diag addConn generalization_conn $node9 $node10 62.0 68.0 62.0 100.0]
  1847. set segm31 [$conn30 getFirstSegm]
  1848.  
  1849. $diag save
  1850. } msg]} {
  1851.     puts stderr "\nAn error occurred while importing"
  1852.     puts stderr $msg
  1853. }
  1854.  
  1855.  
  1856. set msg ""
  1857. if {[catch {
  1858. set diag ""
  1859. set diag [CAD new ImageDescriptorTree "Framework" "" "" "" "" "" 1 1]
  1860.  
  1861. set node1129 [$diag addNode cad_class 0.0 100.0 176.0 36.0]
  1862. $node1129 setLabel "name" "RasterImageDescriptor"
  1863. $node1129 setProp "is_folded" "1"
  1864. $node1129 setScope "name" "cl" "scopePhase"
  1865.  
  1866. set node1130 [$diag addNode cad_class 23.0 0.0 130.0 36.0]
  1867. $node1130 setLabel "name" "ImageDescriptor"
  1868. $node1130 setProp "is_folded" "1"
  1869. $node1130 setScope "name" "cl" "scopePhase"
  1870.  
  1871. set node1128 [$diag addRake generalization $node1130 $node1129 88.0 36.0 88.0 100.0 68.0]
  1872.  
  1873. set conn1131 [$node1128 getInConn]
  1874. set segm1132 [$conn1131 getFirstSegm]
  1875.  
  1876. set conn1133 [$node1128 getFirstOutConn]
  1877. set segm1134 [$conn1133 getFirstSegm]
  1878.  
  1879. $diag save
  1880. } msg]} {
  1881.     puts stderr "\nAn error occurred while importing"
  1882.     puts stderr $msg
  1883. }
  1884.  
  1885.  
  1886. set msg ""
  1887. if {[catch {
  1888. set diag ""
  1889. set diag [CAD new ImageNullableTree "Framework" "" "" "" "" "" 1 1]
  1890.  
  1891. set node1782 [$diag addNode cad_class 0.0 100.0 143.0 36.0]
  1892. $node1782 setLabel "name" "4GLNullImageData"
  1893. $node1782 setProp "is_folded" "1"
  1894. $node1782 setScope "name" "cl" "scopePhase"
  1895.  
  1896. set node1783 [$diag addNode cad_class 11.5 0.0 120.0 36.0]
  1897. $node1783 setLabel "name" "ImageNullable"
  1898. $node1783 setProp "is_folded" "1"
  1899. $node1783 setScope "name" "cl" "scopePhase"
  1900.  
  1901. set node1781 [$diag addRake generalization $node1783 $node1782 71.5 36.0 71.5 100.0 68.0]
  1902.  
  1903. set conn1784 [$node1781 getInConn]
  1904. set segm1785 [$conn1784 getFirstSegm]
  1905.  
  1906. set conn1786 [$node1781 getFirstOutConn]
  1907. set segm1787 [$conn1786 getFirstSegm]
  1908.  
  1909. $diag save
  1910. } msg]} {
  1911.     puts stderr "\nAn error occurred while importing"
  1912.     puts stderr $msg
  1913. }
  1914.  
  1915.  
  1916. set msg ""
  1917. if {[catch {
  1918. set diag ""
  1919. set diag [CAD new InstrumentTree "Framework" "" "" "" "" "" 1 1]
  1920.  
  1921. set node1026 [$diag addNode cad_class 639.0 100.0 130.0 36.0]
  1922. $node1026 setLabel "name" "InstrumentProxy"
  1923. $node1026 setProp "is_folded" "1"
  1924. $node1026 setScope "name" "cl" "scopePhase"
  1925.  
  1926. set node1028 [$diag addNode cad_class 456.0 200.0 151.0 36.0]
  1927. $node1028 setLabel "name" "ConfigurationProxy"
  1928. $node1028 setProp "is_folded" "1"
  1929. $node1028 setScope "name" "cl" "scopePhase"
  1930.  
  1931. set node1029 [$diag addNode cad_class 471.5 100.0 120.0 36.0]
  1932. $node1029 setLabel "name" "Configuration"
  1933. $node1029 setProp "is_folded" "1"
  1934. $node1029 setScope "name" "cl" "scopePhase"
  1935.  
  1936. set node1031 [$diag addNode cad_class 304.0 200.0 120.0 36.0]
  1937. $node1031 setLabel "name" "StateProxy"
  1938. $node1031 setProp "is_folded" "1"
  1939. $node1031 setScope "name" "cl" "scopePhase"
  1940.  
  1941. set node1032 [$diag addNode cad_class 304.0 100.0 120.0 36.0]
  1942. $node1032 setLabel "name" "State"
  1943. $node1032 setProp "is_folded" "1"
  1944. $node1032 setScope "name" "cl" "scopePhase"
  1945.  
  1946. set node1034 [$diag addNode cad_class 152.0 200.0 120.0 36.0]
  1947. $node1034 setLabel "name" "TimerProxy"
  1948. $node1034 setProp "is_folded" "1"
  1949. $node1034 setScope "name" "cl" "scopePhase"
  1950.  
  1951. set node1035 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  1952. $node1035 setLabel "name" "Timer"
  1953. $node1035 setProp "is_folded" "1"
  1954. $node1035 setScope "name" "cl" "scopePhase"
  1955.  
  1956. set node1037 [$diag addNode cad_class 0.0 200.0 120.0 36.0]
  1957. $node1037 setLabel "name" "CounterProxy"
  1958. $node1037 setProp "is_folded" "1"
  1959. $node1037 setScope "name" "cl" "scopePhase"
  1960.  
  1961. set node1039 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  1962. $node1039 setLabel "name" "Counter"
  1963. $node1039 setProp "is_folded" "1"
  1964. $node1039 setScope "name" "cl" "scopePhase"
  1965.  
  1966. set node1040 [$diag addNode cad_class 324.5 0.0 120.0 36.0]
  1967. $node1040 setLabel "name" "Instrument"
  1968. $node1040 setProp "is_folded" "1"
  1969. $node1040 setScope "name" "cl" "scopePhase"
  1970.  
  1971. set node1027 [$diag addRake generalization $node1029 $node1028 531.5 136.0 531.5 200.0 168.0]
  1972.  
  1973. set conn1041 [$node1027 getInConn]
  1974. set segm1042 [$conn1041 getFirstSegm]
  1975.  
  1976. set conn1043 [$node1027 getFirstOutConn]
  1977. set segm1044 [$conn1043 getFirstSegm]
  1978.  
  1979. set node1030 [$diag addRake generalization $node1032 $node1031 364.0 136.0 364.0 200.0 168.0]
  1980.  
  1981. set conn1045 [$node1030 getInConn]
  1982. set segm1046 [$conn1045 getFirstSegm]
  1983.  
  1984. set conn1047 [$node1030 getFirstOutConn]
  1985. set segm1048 [$conn1047 getFirstSegm]
  1986.  
  1987. set node1033 [$diag addRake generalization $node1035 $node1034 212.0 136.0 212.0 200.0 168.0]
  1988.  
  1989. set conn1049 [$node1033 getInConn]
  1990. set segm1050 [$conn1049 getFirstSegm]
  1991.  
  1992. set conn1051 [$node1033 getFirstOutConn]
  1993. set segm1052 [$conn1051 getFirstSegm]
  1994.  
  1995. set node1036 [$diag addRake generalization $node1039 $node1037 60.0 136.0 60.0 200.0 168.0]
  1996.  
  1997. set conn1053 [$node1036 getInConn]
  1998. set segm1054 [$conn1053 getFirstSegm]
  1999.  
  2000. set conn1055 [$node1036 getFirstOutConn]
  2001. set segm1056 [$conn1055 getFirstSegm]
  2002.  
  2003. set node1038 [$diag addRake generalization $node1040 $node1026 384.5 36.0 704.0 100.0 68.0]
  2004.  
  2005. set conn1057 [$node1038 getInConn]
  2006. set segm1058 [$conn1057 getFirstSegm]
  2007.  
  2008. set conn1059 [$node1038 getFirstOutConn]
  2009. set segm1060 [$conn1059 getFirstSegm]
  2010.  
  2011. set conn1061 [$diag addConn generalization_conn $node1038 $node1029 531.5 68.0 531.5 100.0]
  2012. set segm1062 [$conn1061 getFirstSegm]
  2013.  
  2014. set conn1063 [$diag addConn generalization_conn $node1038 $node1032 364.0 68.0 364.0 100.0]
  2015. set segm1064 [$conn1063 getFirstSegm]
  2016.  
  2017. set conn1065 [$diag addConn generalization_conn $node1038 $node1035 212.0 68.0 212.0 100.0]
  2018. set segm1066 [$conn1065 getFirstSegm]
  2019.  
  2020. set conn1067 [$diag addConn generalization_conn $node1038 $node1039 60.0 68.0 60.0 100.0]
  2021. set segm1068 [$conn1067 getFirstSegm]
  2022.  
  2023. $diag save
  2024. } msg]} {
  2025.     puts stderr "\nAn error occurred while importing"
  2026.     puts stderr $msg
  2027. }
  2028.  
  2029.  
  2030. set msg ""
  2031. if {[catch {
  2032. set diag ""
  2033. set diag [CAD new IntegerDataTree "Framework" "" "" "" "" "" 1 1]
  2034.  
  2035. set node1394 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  2036. $node1394 setLabel "name" "NullInteger"
  2037. $node1394 setProp "is_folded" "1"
  2038. $node1394 setScope "name" "cl" "scopePhase"
  2039.  
  2040. set node1395 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  2041. $node1395 setLabel "name" "IntegerData"
  2042. $node1395 setProp "is_folded" "1"
  2043. $node1395 setScope "name" "cl" "scopePhase"
  2044.  
  2045. set node1393 [$diag addRake generalization $node1395 $node1394 60.0 36.0 60.0 100.0 68.0]
  2046.  
  2047. set conn1396 [$node1393 getInConn]
  2048. set segm1397 [$conn1396 getFirstSegm]
  2049.  
  2050. set conn1398 [$node1393 getFirstOutConn]
  2051. set segm1399 [$conn1398 getFirstSegm]
  2052.  
  2053. $diag save
  2054. } msg]} {
  2055.     puts stderr "\nAn error occurred while importing"
  2056.     puts stderr $msg
  2057. }
  2058.  
  2059.  
  2060. set msg ""
  2061. if {[catch {
  2062. set diag ""
  2063. set diag [CAD new IntegerNullableTree "Framework" "" "" "" "" "" 1 1]
  2064.  
  2065. set node1791 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  2066. $node1791 setLabel "name" "4GLNullInteger"
  2067. $node1791 setProp "is_folded" "1"
  2068. $node1791 setScope "name" "cl" "scopePhase"
  2069.  
  2070. set node1792 [$diag addNode cad_class 0.0 0.0 121.0 36.0]
  2071. $node1792 setLabel "name" "IntegerNullable"
  2072. $node1792 setProp "is_folded" "1"
  2073. $node1792 setScope "name" "cl" "scopePhase"
  2074.  
  2075. set node1790 [$diag addRake generalization $node1792 $node1791 60.5 36.0 60.0 100.0 68.0]
  2076.  
  2077. set conn1793 [$node1790 getInConn]
  2078. set segm1794 [$conn1793 getFirstSegm]
  2079.  
  2080. set conn1795 [$node1790 getFirstOutConn]
  2081. set segm1796 [$conn1795 getFirstSegm]
  2082.  
  2083. $diag save
  2084. } msg]} {
  2085.     puts stderr "\nAn error occurred while importing"
  2086.     puts stderr $msg
  2087. }
  2088.  
  2089.  
  2090. set msg ""
  2091. if {[catch {
  2092. set diag ""
  2093. set diag [CAD new IntervalDataTree "Framework" "" "" "" "" "" 1 1]
  2094.  
  2095. set node1449 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  2096. $node1449 setLabel "name" "NullInterval"
  2097. $node1449 setProp "is_folded" "1"
  2098. $node1449 setScope "name" "cl" "scopePhase"
  2099.  
  2100. set node1450 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  2101. $node1450 setLabel "name" "IntervalData"
  2102. $node1450 setProp "is_folded" "1"
  2103. $node1450 setScope "name" "cl" "scopePhase"
  2104.  
  2105. set node1448 [$diag addRake generalization $node1450 $node1449 60.0 36.0 60.0 100.0 68.0]
  2106.  
  2107. set conn1451 [$node1448 getInConn]
  2108. set segm1452 [$conn1451 getFirstSegm]
  2109.  
  2110. set conn1453 [$node1448 getFirstOutConn]
  2111. set segm1454 [$conn1453 getFirstSegm]
  2112.  
  2113. $diag save
  2114. } msg]} {
  2115.     puts stderr "\nAn error occurred while importing"
  2116.     puts stderr $msg
  2117. }
  2118.  
  2119.  
  2120. set msg ""
  2121. if {[catch {
  2122. set diag ""
  2123. set diag [CAD new IntervalNullableTree "Framework" "" "" "" "" "" 1 1]
  2124.  
  2125. set node1800 [$diag addNode cad_class 0.0 100.0 122.0 36.0]
  2126. $node1800 setLabel "name" "4GLNullInterval"
  2127. $node1800 setProp "is_folded" "1"
  2128. $node1800 setScope "name" "cl" "scopePhase"
  2129.  
  2130. set node1801 [$diag addNode cad_class 0.0 0.0 124.0 36.0]
  2131. $node1801 setLabel "name" "IntervalNullable"
  2132. $node1801 setProp "is_folded" "1"
  2133. $node1801 setScope "name" "cl" "scopePhase"
  2134.  
  2135. set node1799 [$diag addRake generalization $node1801 $node1800 62.0 36.0 61.0 100.0 68.0]
  2136.  
  2137. set conn1802 [$node1799 getInConn]
  2138. set segm1803 [$conn1802 getFirstSegm]
  2139.  
  2140. set conn1804 [$node1799 getFirstOutConn]
  2141. set segm1805 [$conn1804 getFirstSegm]
  2142.  
  2143. $diag save
  2144. } msg]} {
  2145.     puts stderr "\nAn error occurred while importing"
  2146.     puts stderr $msg
  2147. }
  2148.  
  2149.  
  2150. set msg ""
  2151. if {[catch {
  2152. set diag ""
  2153. set diag [CAD new IteratorTree "Framework" "" "" "" "" "" 1 1]
  2154.  
  2155. set node830 [$diag addNode cad_class 456.0 100.0 149.0 36.0]
  2156. $node830 setLabel "name" "PatriciaTreeIterator"
  2157. $node830 setProp "is_folded" "1"
  2158. $node830 setScope "name" "cl" "scopePhase"
  2159.  
  2160. set node831 [$diag addNode cad_class 304.0 100.0 120.0 36.0]
  2161. $node831 setLabel "name" "IteratorIterator"
  2162. $node831 setProp "is_folded" "1"
  2163. $node831 setScope "name" "cl" "scopePhase"
  2164.  
  2165. set node832 [$diag addNode cad_class 152.0 200.0 120.0 36.0]
  2166. $node832 setLabel "name" "LLiterator"
  2167. $node832 setProp "is_folded" "1"
  2168. $node832 setScope "name" "cl" "scopePhase"
  2169.  
  2170. set node834 [$diag addNode cad_class 0.0 200.0 120.0 36.0]
  2171. $node834 setLabel "name" "HeapIterator"
  2172. $node834 setProp "is_folded" "1"
  2173. $node834 setScope "name" "cl" "scopePhase"
  2174.  
  2175. set node836 [$diag addNode cad_class 76.0 100.0 120.0 36.0]
  2176. $node836 setLabel "name" "ArrayIterator"
  2177. $node836 setProp "is_folded" "1"
  2178. $node836 setScope "name" "cl" "scopePhase"
  2179.  
  2180. set node837 [$diag addNode cad_class 242.5 0.0 120.0 36.0]
  2181. $node837 setLabel "name" "Iterator"
  2182. $node837 setProp "is_folded" "1"
  2183. $node837 setScope "name" "cl" "scopePhase"
  2184.  
  2185. set node833 [$diag addRake generalization $node836 $node832 136.0 136.0 212.0 200.0 168.0]
  2186.  
  2187. set conn838 [$node833 getInConn]
  2188. set segm839 [$conn838 getFirstSegm]
  2189.  
  2190. set conn840 [$node833 getFirstOutConn]
  2191. set segm841 [$conn840 getFirstSegm]
  2192.  
  2193. set conn842 [$diag addConn generalization_conn $node833 $node834 60.0 168.0 60.0 200.0]
  2194. set segm843 [$conn842 getFirstSegm]
  2195.  
  2196. set node835 [$diag addRake generalization $node837 $node830 302.5 36.0 530.5 100.0 68.0]
  2197.  
  2198. set conn844 [$node835 getInConn]
  2199. set segm845 [$conn844 getFirstSegm]
  2200.  
  2201. set conn846 [$node835 getFirstOutConn]
  2202. set segm847 [$conn846 getFirstSegm]
  2203.  
  2204. set conn848 [$diag addConn generalization_conn $node835 $node831 364.0 68.0 364.0 100.0]
  2205. set segm849 [$conn848 getFirstSegm]
  2206.  
  2207. set conn850 [$diag addConn generalization_conn $node835 $node836 136.0 68.0 136.0 100.0]
  2208. set segm851 [$conn850 getFirstSegm]
  2209.  
  2210. $diag save
  2211. } msg]} {
  2212.     puts stderr "\nAn error occurred while importing"
  2213.     puts stderr $msg
  2214. }
  2215.  
  2216.  
  2217. set msg ""
  2218. if {[catch {
  2219. set diag ""
  2220. set diag [CAD new LoggerMonitorTree "Framework" "" "" "" "" "" 1 1]
  2221.  
  2222. set node1415 [$diag addNode cad_class 0.0 100.0 136.0 36.0]
  2223. $node1415 setLabel "name" "OperatingSystem"
  2224. $node1415 setProp "is_folded" "1"
  2225. $node1415 setScope "name" "cl" "scopePhase"
  2226.  
  2227. set node1416 [$diag addNode cad_class 8.0 0.0 120.0 36.0]
  2228. $node1416 setLabel "name" "LoggerMonitor"
  2229. $node1416 setProp "is_folded" "1"
  2230. $node1416 setScope "name" "cl" "scopePhase"
  2231.  
  2232. set node1414 [$diag addRake generalization $node1416 $node1415 68.0 36.0 68.0 100.0 68.0]
  2233.  
  2234. set conn1417 [$node1414 getInConn]
  2235. set segm1418 [$conn1417 getFirstSegm]
  2236.  
  2237. set conn1419 [$node1414 getFirstOutConn]
  2238. set segm1420 [$conn1419 getFirstSegm]
  2239.  
  2240. $diag save
  2241. } msg]} {
  2242.     puts stderr "\nAn error occurred while importing"
  2243.     puts stderr $msg
  2244. }
  2245.  
  2246.  
  2247. set msg ""
  2248. if {[catch {
  2249. set diag ""
  2250. set diag [CAD new MsgCatalogTree "Framework" "" "" "" "" "" 1 1]
  2251.  
  2252. set node1244 [$diag addNode cad_class 0.0 100.0 139.0 36.0]
  2253. $node1244 setLabel "name" "MsgCatalogProxy"
  2254. $node1244 setProp "is_folded" "1"
  2255. $node1244 setScope "name" "cl" "scopePhase"
  2256.  
  2257. set node1245 [$diag addNode cad_class 9.5 0.0 120.0 36.0]
  2258. $node1245 setLabel "name" "MsgCatalog"
  2259. $node1245 setProp "is_folded" "1"
  2260. $node1245 setScope "name" "cl" "scopePhase"
  2261.  
  2262. set node1243 [$diag addRake generalization $node1245 $node1244 69.5 36.0 69.5 100.0 68.0]
  2263.  
  2264. set conn1246 [$node1243 getInConn]
  2265. set segm1247 [$conn1246 getFirstSegm]
  2266.  
  2267. set conn1248 [$node1243 getFirstOutConn]
  2268. set segm1249 [$conn1248 getFirstSegm]
  2269.  
  2270. $diag save
  2271. } msg]} {
  2272.     puts stderr "\nAn error occurred while importing"
  2273.     puts stderr $msg
  2274. }
  2275.  
  2276.  
  2277. set msg ""
  2278. if {[catch {
  2279. set diag ""
  2280. set diag [CAD new NumericDataTree "Framework" "" "" "" "" "" 1 1]
  2281.  
  2282. set node1296 [$diag addNode cad_class 304.0 100.0 120.0 36.0]
  2283. $node1296 setLabel "name" "Decimal"
  2284. $node1296 setProp "is_folded" "1"
  2285. $node1296 setScope "name" "cl" "scopePhase"
  2286.  
  2287. set node1297 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  2288. $node1297 setLabel "name" "Real"
  2289. $node1297 setProp "is_folded" "1"
  2290. $node1297 setScope "name" "cl" "scopePhase"
  2291.  
  2292. set node1299 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  2293. $node1299 setLabel "name" "Integer"
  2294. $node1299 setProp "is_folded" "1"
  2295. $node1299 setScope "name" "cl" "scopePhase"
  2296.  
  2297. set node1300 [$diag addNode cad_class 152.0 0.0 120.0 36.0]
  2298. $node1300 setLabel "name" "NumericData"
  2299. $node1300 setProp "is_folded" "1"
  2300. $node1300 setScope "name" "cl" "scopePhase"
  2301.  
  2302. set node1298 [$diag addRake generalization $node1300 $node1296 212.0 36.0 364.0 100.0 68.0]
  2303.  
  2304. set conn1301 [$node1298 getInConn]
  2305. set segm1302 [$conn1301 getFirstSegm]
  2306.  
  2307. set conn1303 [$node1298 getFirstOutConn]
  2308. set segm1304 [$conn1303 getFirstSegm]
  2309.  
  2310. set conn1305 [$diag addConn generalization_conn $node1298 $node1297 212.0 68.0 212.0 100.0]
  2311. set segm1306 [$conn1305 getFirstSegm]
  2312.  
  2313. set conn1307 [$diag addConn generalization_conn $node1298 $node1299 60.0 68.0 60.0 100.0]
  2314. set segm1308 [$conn1307 getFirstSegm]
  2315.  
  2316. $diag save
  2317. } msg]} {
  2318.     puts stderr "\nAn error occurred while importing"
  2319.     puts stderr $msg
  2320. }
  2321.  
  2322.  
  2323. set msg ""
  2324. if {[catch {
  2325. set diag ""
  2326. set diag [CAD new ObjectTree "Framework" "" "" "" "" "" 1 1]
  2327.  
  2328. set node71 [$diag addNode cad_class 24519.0 100.0 120.0 36.0]
  2329. $node71 setLabel "name" "Wait"
  2330. $node71 setProp "is_folded" "1"
  2331. $node71 setScope "name" "cl" "scopePhase"
  2332.  
  2333. set node72 [$diag addNode cad_class 24335.0 100.0 152.0 36.0]
  2334. $node72 setLabel "name" "ExternalConnection"
  2335. $node72 setProp "is_folded" "1"
  2336. $node72 setScope "name" "cl" "scopePhase"
  2337.  
  2338. set node73 [$diag addNode cad_class 24183.0 100.0 120.0 36.0]
  2339. $node73 setLabel "name" "StopWatch"
  2340. $node73 setProp "is_folded" "1"
  2341. $node73 setScope "name" "cl" "scopePhase"
  2342.  
  2343. set node74 [$diag addNode cad_class 24031.0 100.0 120.0 36.0]
  2344. $node74 setLabel "name" "XactMsgData"
  2345. $node74 setProp "is_folded" "1"
  2346. $node74 setScope "name" "cl" "scopePhase"
  2347.  
  2348. set node75 [$diag addNode cad_class 23869.0 100.0 130.0 36.0]
  2349. $node75 setLabel "name" "XactCoordinator"
  2350. $node75 setProp "is_folded" "1"
  2351. $node75 setScope "name" "cl" "scopePhase"
  2352.  
  2353. set node76 [$diag addNode cad_class 23717.0 100.0 120.0 36.0]
  2354. $node76 setLabel "name" "ListElement"
  2355. $node76 setProp "is_folded" "1"
  2356. $node76 setScope "name" "cl" "scopePhase"
  2357.  
  2358. set node77 [$diag addNode cad_class 23565.0 100.0 120.0 36.0]
  2359. $node77 setLabel "name" "FileSystem"
  2360. $node77 setProp "is_folded" "1"
  2361. $node77 setScope "name" "cl" "scopePhase"
  2362.  
  2363. set node78 [$diag addNode cad_class 23389.0 100.0 144.0 36.0]
  2364. $node78 setLabel "name" "RemoteFileSystem"
  2365. $node78 setProp "is_folded" "1"
  2366. $node78 setScope "name" "cl" "scopePhase"
  2367.  
  2368. set node79 [$diag addNode cad_class 23232.0 100.0 125.0 36.0]
  2369. $node79 setLabel "name" "FileSystemSess"
  2370. $node79 setProp "is_folded" "1"
  2371. $node79 setScope "name" "cl" "scopePhase"
  2372.  
  2373. set node80 [$diag addNode cad_class 23077.0 100.0 123.0 36.0]
  2374. $node80 setLabel "name" "FileSystemCmd"
  2375. $node80 setProp "is_folded" "1"
  2376. $node80 setScope "name" "cl" "scopePhase"
  2377.  
  2378. set node81 [$diag addNode cad_class 22917.0 100.0 128.0 36.0]
  2379. $node81 setLabel "name" "RandomNumber"
  2380. $node81 setProp "is_folded" "1"
  2381. $node81 setScope "name" "cl" "scopePhase"
  2382.  
  2383. set node82 [$diag addNode cad_class 22763.0 100.0 122.0 36.0]
  2384. $node82 setLabel "name" "UUIDGenerator"
  2385. $node82 setProp "is_folded" "1"
  2386. $node82 setScope "name" "cl" "scopePhase"
  2387.  
  2388. set node83 [$diag addNode cad_class 22611.0 100.0 120.0 36.0]
  2389. $node83 setLabel "name" "UUIDTable"
  2390. $node83 setProp "is_folded" "1"
  2391. $node83 setScope "name" "cl" "scopePhase"
  2392.  
  2393. set node84 [$diag addNode cad_class 22459.0 100.0 120.0 36.0]
  2394. $node84 setLabel "name" "UUID"
  2395. $node84 setProp "is_folded" "1"
  2396. $node84 setScope "name" "cl" "scopePhase"
  2397.  
  2398. set node85 [$diag addNode cad_class 22300.0 100.0 127.0 36.0]
  2399. $node85 setLabel "name" "WaitStmtHeader"
  2400. $node85 setProp "is_folded" "1"
  2401. $node85 setScope "name" "cl" "scopePhase"
  2402.  
  2403. set node86 [$diag addNode cad_class 22134.0 100.0 134.0 36.0]
  2404. $node86 setLabel "name" "EventHandlerInfo"
  2405. $node86 setProp "is_folded" "1"
  2406. $node86 setScope "name" "cl" "scopePhase"
  2407.  
  2408. set node87 [$diag addNode cad_class 21981.0 100.0 121.0 36.0]
  2409. $node87 setLabel "name" "NativeLangMgr"
  2410. $node87 setProp "is_folded" "1"
  2411. $node87 setScope "name" "cl" "scopePhase"
  2412.  
  2413. set node88 [$diag addNode cad_class 21829.0 100.0 120.0 36.0]
  2414. $node88 setLabel "name" "LocaleDesc"
  2415. $node88 setProp "is_folded" "1"
  2416. $node88 setScope "name" "cl" "scopePhase"
  2417.  
  2418. set node89 [$diag addNode cad_class 21677.0 100.0 120.0 36.0]
  2419. $node89 setLabel "name" "CodesetConv"
  2420. $node89 setProp "is_folded" "1"
  2421. $node89 setScope "name" "cl" "scopePhase"
  2422.  
  2423. set node90 [$diag addNode cad_class 21516.0 100.0 129.0 36.0]
  2424. $node90 setLabel "name" "ApplicationDesc"
  2425. $node90 setProp "is_folded" "1"
  2426. $node90 setScope "name" "cl" "scopePhase"
  2427.  
  2428. set node91 [$diag addNode cad_class 21364.0 100.0 120.0 36.0]
  2429. $node91 setLabel "name" "MsgCatalog"
  2430. $node91 setProp "is_folded" "1"
  2431. $node91 setScope "name" "cl" "scopePhase"
  2432.  
  2433. set node92 [$diag addNode cad_class 21212.0 100.0 120.0 36.0]
  2434. $node92 setLabel "name" "CommandDesc"
  2435. $node92 setProp "is_folded" "1"
  2436. $node92 setScope "name" "cl" "scopePhase"
  2437.  
  2438. set node93 [$diag addNode cad_class 21004.0 100.0 176.0 36.0]
  2439. $node93 setLabel "name" "ForeignObjectManager"
  2440. $node93 setProp "is_folded" "1"
  2441. $node93 setScope "name" "cl" "scopePhase"
  2442.  
  2443. set node94 [$diag addNode cad_class 20844.0 100.0 128.0 36.0]
  2444. $node94 setLabel "name" "ActivityManager"
  2445. $node94 setProp "is_folded" "1"
  2446. $node94 setScope "name" "cl" "scopePhase"
  2447.  
  2448. set node95 [$diag addNode cad_class 20692.0 100.0 120.0 36.0]
  2449. $node95 setLabel "name" "ActivityType"
  2450. $node95 setProp "is_folded" "1"
  2451. $node95 setScope "name" "cl" "scopePhase"
  2452.  
  2453. set node96 [$diag addNode cad_class 20534.0 100.0 126.0 36.0]
  2454. $node96 setLabel "name" "DurableLockRef"
  2455. $node96 setProp "is_folded" "1"
  2456. $node96 setScope "name" "cl" "scopePhase"
  2457.  
  2458. set node97 [$diag addNode cad_class 20382.0 100.0 120.0 36.0]
  2459. $node97 setLabel "name" "OpEnv"
  2460. $node97 setProp "is_folded" "1"
  2461. $node97 setScope "name" "cl" "scopePhase"
  2462.  
  2463. set node98 [$diag addNode cad_class 20193.0 100.0 157.0 36.0]
  2464. $node98 setLabel "name" "CommandProcessor"
  2465. $node98 setProp "is_folded" "1"
  2466. $node98 setScope "name" "cl" "scopePhase"
  2467.  
  2468. set node99 [$diag addNode cad_class 20035.0 100.0 126.0 36.0]
  2469. $node99 setLabel "name" "MetaDDEObject"
  2470. $node99 setProp "is_folded" "1"
  2471. $node99 setScope "name" "cl" "scopePhase"
  2472.  
  2473. set node100 [$diag addNode cad_class 19883.0 100.0 120.0 36.0]
  2474. $node100 setLabel "name" "BitMap"
  2475. $node100 setProp "is_folded" "1"
  2476. $node100 setScope "name" "cl" "scopePhase"
  2477.  
  2478. set node101 [$diag addNode cad_class 19731.0 100.0 120.0 36.0]
  2479. $node101 setLabel "name" "AlarmId"
  2480. $node101 setProp "is_folded" "1"
  2481. $node101 setScope "name" "cl" "scopePhase"
  2482.  
  2483. set node102 [$diag addNode cad_class 19579.0 100.0 120.0 36.0]
  2484. $node102 setLabel "name" "FOName"
  2485. $node102 setProp "is_folded" "1"
  2486. $node102 setScope "name" "cl" "scopePhase"
  2487.  
  2488. set node103 [$diag addNode cad_class 19427.0 100.0 120.0 36.0]
  2489. $node103 setLabel "name" "Interrupt"
  2490. $node103 setProp "is_folded" "1"
  2491. $node103 setScope "name" "cl" "scopePhase"
  2492.  
  2493. set node104 [$diag addNode cad_class 19275.0 100.0 120.0 36.0]
  2494. $node104 setLabel "name" "SMAgent"
  2495. $node104 setProp "is_folded" "1"
  2496. $node104 setScope "name" "cl" "scopePhase"
  2497.  
  2498. set node105 [$diag addNode cad_class 19123.0 100.0 120.0 36.0]
  2499. $node105 setLabel "name" "CommandShell"
  2500. $node105 setProp "is_folded" "1"
  2501. $node105 setScope "name" "cl" "scopePhase"
  2502.  
  2503. set node106 [$diag addNode cad_class 18964.0 100.0 127.0 36.0]
  2504. $node106 setLabel "name" "SystemManager"
  2505. $node106 setProp "is_folded" "1"
  2506. $node106 setScope "name" "cl" "scopePhase"
  2507.  
  2508. set node107 [$diag addNode cad_class 18812.0 100.0 120.0 36.0]
  2509. $node107 setLabel "name" "ECRemoteId"
  2510. $node107 setProp "is_folded" "1"
  2511. $node107 setScope "name" "cl" "scopePhase"
  2512.  
  2513. set node108 [$diag addNode cad_class 18657.0 100.0 123.0 36.0]
  2514. $node108 setLabel "name" "XactLockOwner"
  2515. $node108 setProp "is_folded" "1"
  2516. $node108 setScope "name" "cl" "scopePhase"
  2517.  
  2518. set node109 [$diag addNode cad_class 18498.0 100.0 127.0 36.0]
  2519. $node109 setLabel "name" "XactLockHeader"
  2520. $node109 setProp "is_folded" "1"
  2521. $node109 setScope "name" "cl" "scopePhase"
  2522.  
  2523. set node110 [$diag addNode cad_class 18316.0 100.0 150.0 36.0]
  2524. $node110 setLabel "name" "XactLockHashTable"
  2525. $node110 setProp "is_folded" "1"
  2526. $node110 setScope "name" "cl" "scopePhase"
  2527.  
  2528. set node111 [$diag addNode cad_class 18148.0 100.0 136.0 36.0]
  2529. $node111 setLabel "name" "XactLockRequest"
  2530. $node111 setProp "is_folded" "1"
  2531. $node111 setScope "name" "cl" "scopePhase"
  2532.  
  2533. set node112 [$diag addNode cad_class 17993.0 100.0 123.0 36.0]
  2534. $node112 setLabel "name" "XactLockStatus"
  2535. $node112 setProp "is_folded" "1"
  2536. $node112 setScope "name" "cl" "scopePhase"
  2537.  
  2538. set node113 [$diag addNode cad_class 17841.0 100.0 120.0 36.0]
  2539. $node113 setLabel "name" "ConvertParser"
  2540. $node113 setProp "is_folded" "1"
  2541. $node113 setScope "name" "cl" "scopePhase"
  2542.  
  2543. set node114 [$diag addNode cad_class 17689.0 100.0 120.0 36.0]
  2544. $node114 setLabel "name" "4GLObject"
  2545. $node114 setProp "is_folded" "1"
  2546. $node114 setScope "name" "cl" "scopePhase"
  2547.  
  2548. set node115 [$diag addNode cad_class 17537.0 100.0 120.0 36.0]
  2549. $node115 setLabel "name" "NamedElement"
  2550. $node115 setProp "is_folded" "1"
  2551. $node115 setScope "name" "cl" "scopePhase"
  2552.  
  2553. set node116 [$diag addNode cad_class 17385.0 100.0 120.0 36.0]
  2554. $node116 setLabel "name" "XactDetached"
  2555. $node116 setProp "is_folded" "1"
  2556. $node116 setScope "name" "cl" "scopePhase"
  2557.  
  2558. set node117 [$diag addNode cad_class 17226.0 100.0 127.0 36.0]
  2559. $node117 setLabel "name" "DataNotification"
  2560. $node117 setProp "is_folded" "1"
  2561. $node117 setScope "name" "cl" "scopePhase"
  2562.  
  2563. set node118 [$diag addNode cad_class 17052.0 100.0 142.0 36.0]
  2564. $node118 setLabel "name" "CNMParentObject"
  2565. $node118 setProp "is_folded" "1"
  2566. $node118 setScope "name" "cl" "scopePhase"
  2567.  
  2568. set node119 [$diag addNode cad_class 16886.0 100.0 134.0 36.0]
  2569. $node119 setLabel "name" "MapClassAccess"
  2570. $node119 setProp "is_folded" "1"
  2571. $node119 setScope "name" "cl" "scopePhase"
  2572.  
  2573. set node120 [$diag addNode cad_class 16720.0 100.0 134.0 36.0]
  2574. $node120 setLabel "name" "ReportedChange"
  2575. $node120 setProp "is_folded" "1"
  2576. $node120 setScope "name" "cl" "scopePhase"
  2577.  
  2578. set node121 [$diag addNode cad_class 16568.0 100.0 120.0 36.0]
  2579. $node121 setLabel "name" "UserTimer"
  2580. $node121 setProp "is_folded" "1"
  2581. $node121 setScope "name" "cl" "scopePhase"
  2582.  
  2583. set node122 [$diag addNode cad_class 16406.0 100.0 130.0 36.0]
  2584. $node122 setLabel "name" "ImageDescriptor"
  2585. $node122 setProp "is_folded" "1"
  2586. $node122 setScope "name" "cl" "scopePhase"
  2587.  
  2588. set node123 [$diag addNode cad_class 16254.0 100.0 120.0 36.0]
  2589. $node123 setLabel "name" "ColorTable"
  2590. $node123 setProp "is_folded" "1"
  2591. $node123 setScope "name" "cl" "scopePhase"
  2592.  
  2593. set node124 [$diag addNode cad_class 16089.0 100.0 133.0 36.0]
  2594. $node124 setLabel "name" "IntTaskCallerSTh"
  2595. $node124 setProp "is_folded" "1"
  2596. $node124 setScope "name" "cl" "scopePhase"
  2597.  
  2598. set node125 [$diag addNode cad_class 15937.0 100.0 120.0 36.0]
  2599. $node125 setLabel "name" "WindowList"
  2600. $node125 setProp "is_folded" "1"
  2601. $node125 setScope "name" "cl" "scopePhase"
  2602.  
  2603. set node126 [$diag addNode cad_class 15785.0 100.0 120.0 36.0]
  2604. $node126 setLabel "name" "ProxyName"
  2605. $node126 setProp "is_folded" "1"
  2606. $node126 setScope "name" "cl" "scopePhase"
  2607.  
  2608. set node127 [$diag addNode cad_class 15633.0 100.0 120.0 36.0]
  2609. $node127 setLabel "name" "Member"
  2610. $node127 setProp "is_folded" "1"
  2611. $node127 setScope "name" "cl" "scopePhase"
  2612.  
  2613. set node128 [$diag addNode cad_class 15481.0 100.0 120.0 36.0]
  2614. $node128 setLabel "name" "NameList"
  2615. $node128 setProp "is_folded" "1"
  2616. $node128 setScope "name" "cl" "scopePhase"
  2617.  
  2618. set node129 [$diag addNode cad_class 15325.0 100.0 124.0 36.0]
  2619. $node129 setLabel "name" "DynamicLibrary"
  2620. $node129 setProp "is_folded" "1"
  2621. $node129 setScope "name" "cl" "scopePhase"
  2622.  
  2623. set node130 [$diag addNode cad_class 15144.0 100.0 149.0 36.0]
  2624. $node130 setLabel "name" "ChangeNotification"
  2625. $node130 setProp "is_folded" "1"
  2626. $node130 setScope "name" "cl" "scopePhase"
  2627.  
  2628. set node131 [$diag addNode cad_class 14992.0 100.0 120.0 36.0]
  2629. $node131 setLabel "name" "GenericNode"
  2630. $node131 setProp "is_folded" "1"
  2631. $node131 setScope "name" "cl" "scopePhase"
  2632.  
  2633. set node132 [$diag addNode cad_class 14807.0 100.0 153.0 36.0]
  2634. $node132 setLabel "name" "ActivityRegistration"
  2635. $node132 setProp "is_folded" "1"
  2636. $node132 setScope "name" "cl" "scopePhase"
  2637.  
  2638. set node133 [$diag addNode cad_class 14628.0 100.0 147.0 36.0]
  2639. $node133 setLabel "name" "ActivityNotification"
  2640. $node133 setProp "is_folded" "1"
  2641. $node133 setScope "name" "cl" "scopePhase"
  2642.  
  2643. set node134 [$diag addNode cad_class 14464.0 100.0 132.0 36.0]
  2644. $node134 setLabel "name" "SessionManager"
  2645. $node134 setProp "is_folded" "1"
  2646. $node134 setScope "name" "cl" "scopePhase"
  2647.  
  2648. set node135 [$diag addNode cad_class 14312.0 100.0 120.0 36.0]
  2649. $node135 setLabel "name" "ObjectCache"
  2650. $node135 setProp "is_folded" "1"
  2651. $node135 setScope "name" "cl" "scopePhase"
  2652.  
  2653. set node136 [$diag addNode cad_class 14160.0 100.0 120.0 36.0]
  2654. $node136 setLabel "name" "Ols"
  2655. $node136 setProp "is_folded" "1"
  2656. $node136 setScope "name" "cl" "scopePhase"
  2657.  
  2658. set node137 [$diag addNode cad_class 14008.0 100.0 120.0 36.0]
  2659. $node137 setLabel "name" "ActivitySource"
  2660. $node137 setProp "is_folded" "1"
  2661. $node137 setScope "name" "cl" "scopePhase"
  2662.  
  2663. set node138 [$diag addNode cad_class 13811.0 100.0 165.0 36.0]
  2664. $node138 setLabel "name" "ActivitySourceHandle"
  2665. $node138 setProp "is_folded" "1"
  2666. $node138 setScope "name" "cl" "scopePhase"
  2667.  
  2668. set node139 [$diag addNode cad_class 13659.0 100.0 120.0 36.0]
  2669. $node139 setLabel "name" "Alarm"
  2670. $node139 setProp "is_folded" "1"
  2671. $node139 setScope "name" "cl" "scopePhase"
  2672.  
  2673. set node140 [$diag addNode cad_class 13496.0 100.0 131.0 36.0]
  2674. $node140 setLabel "name" "ActivityCollector"
  2675. $node140 setProp "is_folded" "1"
  2676. $node140 setScope "name" "cl" "scopePhase"
  2677.  
  2678. set node141 [$diag addNode cad_class 13344.0 100.0 120.0 36.0]
  2679. $node141 setLabel "name" "DataFormat"
  2680. $node141 setProp "is_folded" "1"
  2681. $node141 setScope "name" "cl" "scopePhase"
  2682.  
  2683. set node142 [$diag addNode cad_class 13192.0 100.0 120.0 36.0]
  2684. $node142 setLabel "name" "XlateDriver"
  2685. $node142 setProp "is_folded" "1"
  2686. $node142 setScope "name" "cl" "scopePhase"
  2687.  
  2688. set node143 [$diag addNode cad_class 13040.0 100.0 120.0 36.0]
  2689. $node143 setLabel "name" "Instrument"
  2690. $node143 setProp "is_folded" "1"
  2691. $node143 setScope "name" "cl" "scopePhase"
  2692.  
  2693. set node144 [$diag addNode cad_class 12883.0 100.0 125.0 36.0]
  2694. $node144 setLabel "name" "InterpreterState"
  2695. $node144 setProp "is_folded" "1"
  2696. $node144 setScope "name" "cl" "scopePhase"
  2697.  
  2698. set node145 [$diag addNode cad_class 12731.0 100.0 120.0 36.0]
  2699. $node145 setLabel "name" "CNMDump"
  2700. $node145 setProp "is_folded" "1"
  2701. $node145 setScope "name" "cl" "scopePhase"
  2702.  
  2703. set node146 [$diag addNode cad_class 12574.0 100.0 125.0 36.0]
  2704. $node146 setLabel "name" "XactNotification"
  2705. $node146 setProp "is_folded" "1"
  2706. $node146 setScope "name" "cl" "scopePhase"
  2707.  
  2708. set node147 [$diag addNode cad_class 12422.0 100.0 120.0 36.0]
  2709. $node147 setLabel "name" "Session"
  2710. $node147 setProp "is_folded" "1"
  2711. $node147 setScope "name" "cl" "scopePhase"
  2712.  
  2713. set node148 [$diag addNode cad_class 12270.0 100.0 120.0 36.0]
  2714. $node148 setLabel "name" "Trace"
  2715. $node148 setProp "is_folded" "1"
  2716. $node148 setScope "name" "cl" "scopePhase"
  2717.  
  2718. set node149 [$diag addNode cad_class 12118.0 100.0 120.0 36.0]
  2719. $node149 setLabel "name" "XactLog"
  2720. $node149 setProp "is_folded" "1"
  2721. $node149 setScope "name" "cl" "scopePhase"
  2722.  
  2723. set node150 [$diag addNode cad_class 11966.0 100.0 120.0 36.0]
  2724. $node150 setLabel "name" "XactLogOwner"
  2725. $node150 setProp "is_folded" "1"
  2726. $node150 setScope "name" "cl" "scopePhase"
  2727.  
  2728. set node151 [$diag addNode cad_class 11791.0 100.0 143.0 36.0]
  2729. $node151 setLabel "name" "XactLogHashTable"
  2730. $node151 setProp "is_folded" "1"
  2731. $node151 setScope "name" "cl" "scopePhase"
  2732.  
  2733. set node152 [$diag addNode cad_class 11616.0 100.0 143.0 36.0]
  2734. $node152 setLabel "name" "XactLogHashEntry"
  2735. $node152 setProp "is_folded" "1"
  2736. $node152 setScope "name" "cl" "scopePhase"
  2737.  
  2738. set node153 [$diag addNode cad_class 11454.0 100.0 130.0 36.0]
  2739. $node153 setLabel "name" "XactIdHashTable"
  2740. $node153 setProp "is_folded" "1"
  2741. $node153 setScope "name" "cl" "scopePhase"
  2742.  
  2743. set node154 [$diag addNode cad_class 11301.0 100.0 121.0 36.0]
  2744. $node154 setLabel "name" "XactParticipant"
  2745. $node154 setProp "is_folded" "1"
  2746. $node154 setScope "name" "cl" "scopePhase"
  2747.  
  2748. set node155 [$diag addNode cad_class 11149.0 100.0 120.0 36.0]
  2749. $node155 setLabel "name" "XactIdEntry"
  2750. $node155 setProp "is_folded" "1"
  2751. $node155 setScope "name" "cl" "scopePhase"
  2752.  
  2753. set node156 [$diag addNode cad_class 10997.0 100.0 120.0 36.0]
  2754. $node156 setLabel "name" "TaskQueueSTh"
  2755. $node156 setProp "is_folded" "1"
  2756. $node156 setScope "name" "cl" "scopePhase"
  2757.  
  2758. set node157 [$diag addNode cad_class 10845.0 100.0 120.0 36.0]
  2759. $node157 setLabel "name" "TaskTable"
  2760. $node157 setProp "is_folded" "1"
  2761. $node157 setScope "name" "cl" "scopePhase"
  2762.  
  2763. set node158 [$diag addNode cad_class 10685.0 100.0 128.0 36.0]
  2764. $node158 setLabel "name" "Synchronization"
  2765. $node158 setProp "is_folded" "1"
  2766. $node158 setScope "name" "cl" "scopePhase"
  2767.  
  2768. set node159 [$diag addNode cad_class 10510.0 100.0 143.0 36.0]
  2769. $node159 setLabel "name" "ResourceManager"
  2770. $node159 setProp "is_folded" "1"
  2771. $node159 setScope "name" "cl" "scopePhase"
  2772.  
  2773. set node160 [$diag addNode cad_class 10358.0 100.0 120.0 36.0]
  2774. $node160 setLabel "name" "XactManager"
  2775. $node160 setProp "is_folded" "1"
  2776. $node160 setScope "name" "cl" "scopePhase"
  2777.  
  2778. set node161 [$diag addNode cad_class 10204.0 100.0 122.0 36.0]
  2779. $node161 setLabel "name" "ObjectManager"
  2780. $node161 setProp "is_folded" "1"
  2781. $node161 setScope "name" "cl" "scopePhase"
  2782.  
  2783. set node162 [$diag addNode cad_class 10052.0 100.0 120.0 36.0]
  2784. $node162 setLabel "name" "EventManager"
  2785. $node162 setProp "is_folded" "1"
  2786. $node162 setScope "name" "cl" "scopePhase"
  2787.  
  2788. set node163 [$diag addNode cad_class 9900.0 100.0 120.0 36.0]
  2789. $node163 setLabel "name" "Record"
  2790. $node163 setProp "is_folded" "1"
  2791. $node163 setScope "name" "cl" "scopePhase"
  2792.  
  2793. set node164 [$diag addNode cad_class 9748.0 100.0 120.0 36.0]
  2794. $node164 setLabel "name" "Cache"
  2795. $node164 setProp "is_folded" "1"
  2796. $node164 setScope "name" "cl" "scopePhase"
  2797.  
  2798. set node165 [$diag addNode cad_class 9596.0 100.0 120.0 36.0]
  2799. $node165 setLabel "name" "File"
  2800. $node165 setProp "is_folded" "1"
  2801. $node165 setScope "name" "cl" "scopePhase"
  2802.  
  2803. set node166 [$diag addNode cad_class 9444.0 100.0 120.0 36.0]
  2804. $node166 setLabel "name" "Page"
  2805. $node166 setProp "is_folded" "1"
  2806. $node166 setScope "name" "cl" "scopePhase"
  2807.  
  2808. set node167 [$diag addNode cad_class 9292.0 100.0 120.0 36.0]
  2809. $node167 setLabel "name" "LogStream"
  2810. $node167 setProp "is_folded" "1"
  2811. $node167 setScope "name" "cl" "scopePhase"
  2812.  
  2813. set node168 [$diag addNode cad_class 9140.0 100.0 120.0 36.0]
  2814. $node168 setLabel "name" "LLelement"
  2815. $node168 setProp "is_folded" "1"
  2816. $node168 setScope "name" "cl" "scopePhase"
  2817.  
  2818. set node169 [$diag addNode cad_class 8987.0 100.0 121.0 36.0]
  2819. $node169 setLabel "name" "HashAddrNode"
  2820. $node169 setProp "is_folded" "1"
  2821. $node169 setScope "name" "cl" "scopePhase"
  2822.  
  2823. set node170 [$diag addNode cad_class 8835.0 100.0 120.0 36.0]
  2824. $node170 setLabel "name" "PartitionId"
  2825. $node170 setProp "is_folded" "1"
  2826. $node170 setScope "name" "cl" "scopePhase"
  2827.  
  2828. set node171 [$diag addNode cad_class 8683.0 100.0 120.0 36.0]
  2829. $node171 setLabel "name" "ECPartition"
  2830. $node171 setProp "is_folded" "1"
  2831. $node171 setScope "name" "cl" "scopePhase"
  2832.  
  2833. set node172 [$diag addNode cad_class 8525.0 100.0 126.0 36.0]
  2834. $node172 setLabel "name" "EventConsumer"
  2835. $node172 setProp "is_folded" "1"
  2836. $node172 setScope "name" "cl" "scopePhase"
  2837.  
  2838. set node173 [$diag addNode cad_class 8373.0 100.0 120.0 36.0]
  2839. $node173 setLabel "name" "ECWait"
  2840. $node173 setProp "is_folded" "1"
  2841. $node173 setScope "name" "cl" "scopePhase"
  2842.  
  2843. set node174 [$diag addNode cad_class 8205.0 100.0 136.0 36.0]
  2844. $node174 setLabel "name" "OperatingSystem"
  2845. $node174 setProp "is_folded" "1"
  2846. $node174 setScope "name" "cl" "scopePhase"
  2847.  
  2848. set node175 [$diag addNode cad_class 8021.0 100.0 152.0 36.0]
  2849. $node175 setLabel "name" "CNMWaitController"
  2850. $node175 setProp "is_folded" "1"
  2851. $node175 setScope "name" "cl" "scopePhase"
  2852.  
  2853. set node176 [$diag addNode cad_class 7869.0 100.0 120.0 36.0]
  2854. $node176 setLabel "name" "CNMEntry"
  2855. $node176 setProp "is_folded" "1"
  2856. $node176 setScope "name" "cl" "scopePhase"
  2857.  
  2858. set node177 [$diag addNode cad_class 7679.0 100.0 158.0 36.0]
  2859. $node177 setLabel "name" "CNMRegisteredTask"
  2860. $node177 setProp "is_folded" "1"
  2861. $node177 setScope "name" "cl" "scopePhase"
  2862.  
  2863. set node178 [$diag addNode cad_class 7504.0 100.0 143.0 36.0]
  2864. $node178 setLabel "name" "CNMWaitIndicator"
  2865. $node178 setProp "is_folded" "1"
  2866. $node178 setScope "name" "cl" "scopePhase"
  2867.  
  2868. set node179 [$diag addNode cad_class 7352.0 100.0 120.0 36.0]
  2869. $node179 setLabel "name" "CNM"
  2870. $node179 setProp "is_folded" "1"
  2871. $node179 setScope "name" "cl" "scopePhase"
  2872.  
  2873. set node180 [$diag addNode cad_class 7200.0 100.0 120.0 36.0]
  2874. $node180 setLabel "name" "PatriciaNode"
  2875. $node180 setProp "is_folded" "1"
  2876. $node180 setScope "name" "cl" "scopePhase"
  2877.  
  2878. set node181 [$diag addNode cad_class 7048.0 100.0 120.0 36.0]
  2879. $node181 setLabel "name" "Task"
  2880. $node181 setProp "is_folded" "1"
  2881. $node181 setScope "name" "cl" "scopePhase"
  2882.  
  2883. set node182 [$diag addNode cad_class 6896.0 100.0 120.0 36.0]
  2884. $node182 setLabel "name" "XactHandle"
  2885. $node182 setProp "is_folded" "1"
  2886. $node182 setScope "name" "cl" "scopePhase"
  2887.  
  2888. set node183 [$diag addNode cad_class 6744.0 100.0 120.0 36.0]
  2889. $node183 setLabel "name" "TaskInitiator"
  2890. $node183 setProp "is_folded" "1"
  2891. $node183 setScope "name" "cl" "scopePhase"
  2892.  
  2893. set node184 [$diag addNode cad_class 6592.0 100.0 120.0 36.0]
  2894. $node184 setLabel "name" "TaskManager"
  2895. $node184 setProp "is_folded" "1"
  2896. $node184 setScope "name" "cl" "scopePhase"
  2897.  
  2898. set node185 [$diag addNode cad_class 6429.0 100.0 131.0 36.0]
  2899. $node185 setLabel "name" "AppEnvironment"
  2900. $node185 setProp "is_folded" "1"
  2901. $node185 setScope "name" "cl" "scopePhase"
  2902.  
  2903. set node186 [$diag addNode cad_class 6277.0 100.0 120.0 36.0]
  2904. $node186 setLabel "name" "Application"
  2905. $node186 setProp "is_folded" "1"
  2906. $node186 setScope "name" "cl" "scopePhase"
  2907.  
  2908. set node187 [$diag addNode cad_class 6125.0 100.0 120.0 36.0]
  2909. $node187 setLabel "name" "Logger"
  2910. $node187 setProp "is_folded" "1"
  2911. $node187 setScope "name" "cl" "scopePhase"
  2912.  
  2913. set node188 [$diag addNode cad_class 5973.0 100.0 120.0 36.0]
  2914. $node188 setLabel "name" "Partition"
  2915. $node188 setProp "is_folded" "1"
  2916. $node188 setScope "name" "cl" "scopePhase"
  2917.  
  2918. set node189 [$diag addNode cad_class 5821.0 100.0 120.0 36.0]
  2919. $node189 setLabel "name" "DispObjGen"
  2920. $node189 setProp "is_folded" "1"
  2921. $node189 setScope "name" "cl" "scopePhase"
  2922.  
  2923. set node190 [$diag addNode cad_class 5669.0 100.0 120.0 36.0]
  2924. $node190 setLabel "name" "MappedObject"
  2925. $node190 setProp "is_folded" "1"
  2926. $node190 setScope "name" "cl" "scopePhase"
  2927.  
  2928. set node191 [$diag addNode cad_class 5517.0 100.0 120.0 36.0]
  2929. $node191 setLabel "name" "Map"
  2930. $node191 setProp "is_folded" "1"
  2931. $node191 setScope "name" "cl" "scopePhase"
  2932.  
  2933. set node192 [$diag addNode cad_class 5344.0 100.0 141.0 36.0]
  2934. $node192 setLabel "name" "GenericHashNode"
  2935. $node192 setProp "is_folded" "1"
  2936. $node192 setScope "name" "cl" "scopePhase"
  2937.  
  2938. set node193 [$diag addNode cad_class 5178.0 100.0 134.0 36.0]
  2939. $node193 setLabel "name" "EventNotification"
  2940. $node193 setProp "is_folded" "1"
  2941. $node193 setScope "name" "cl" "scopePhase"
  2942.  
  2943. set node194 [$diag addNode cad_class 5026.0 100.0 120.0 36.0]
  2944. $node194 setLabel "name" "EventInstance"
  2945. $node194 setProp "is_folded" "1"
  2946. $node194 setScope "name" "cl" "scopePhase"
  2947.  
  2948. set node195 [$diag addNode cad_class 4874.0 100.0 120.0 36.0]
  2949. $node195 setLabel "name" "LEM"
  2950. $node195 setProp "is_folded" "1"
  2951. $node195 setScope "name" "cl" "scopePhase"
  2952.  
  2953. set node196 [$diag addNode cad_class 4717.0 100.0 125.0 36.0]
  2954. $node196 setLabel "name" "ErrorDescriptor"
  2955. $node196 setProp "is_folded" "1"
  2956. $node196 setScope "name" "cl" "scopePhase"
  2957.  
  2958. set node197 [$diag addNode cad_class 4565.0 100.0 120.0 36.0]
  2959. $node197 setLabel "name" "ErrorManager"
  2960. $node197 setProp "is_folded" "1"
  2961. $node197 setScope "name" "cl" "scopePhase"
  2962.  
  2963. set node198 [$diag addNode cad_class 4413.0 100.0 120.0 36.0]
  2964. $node198 setLabel "name" "Iterator"
  2965. $node198 setProp "is_folded" "1"
  2966. $node198 setScope "name" "cl" "scopePhase"
  2967.  
  2968. set node199 [$diag addNode cad_class 4261.0 100.0 120.0 36.0]
  2969. $node199 setLabel "name" "Data"
  2970. $node199 setProp "is_folded" "1"
  2971. $node199 setScope "name" "cl" "scopePhase"
  2972.  
  2973. set node200 [$diag addNode cad_class 4109.0 100.0 120.0 36.0]
  2974. $node200 setLabel "name" "Shell"
  2975. $node200 setProp "is_folded" "1"
  2976. $node200 setScope "name" "cl" "scopePhase"
  2977.  
  2978. set node201 [$diag addNode cad_class 3957.0 100.0 120.0 36.0]
  2979. $node201 setLabel "name" "XactId"
  2980. $node201 setProp "is_folded" "1"
  2981. $node201 setScope "name" "cl" "scopePhase"
  2982.  
  2983. set node202 [$diag addNode cad_class 3805.0 100.0 120.0 36.0]
  2984. $node202 setLabel "name" "TaskId"
  2985. $node202 setProp "is_folded" "1"
  2986. $node202 setScope "name" "cl" "scopePhase"
  2987.  
  2988. set node203 [$diag addNode cad_class 3621.0 100.0 152.0 36.0]
  2989. $node203 setLabel "name" "DispatchableObject"
  2990. $node203 setProp "is_folded" "1"
  2991. $node203 setScope "name" "cl" "scopePhase"
  2992.  
  2993. set node204 [$diag addNode cad_class 3469.0 100.0 120.0 36.0]
  2994. $node204 setLabel "name" "HashTable"
  2995. $node204 setProp "is_folded" "1"
  2996. $node204 setScope "name" "cl" "scopePhase"
  2997.  
  2998. set node205 [$diag addNode cad_class 3317.0 100.0 120.0 36.0]
  2999. $node205 setLabel "name" "HashFuncs"
  3000. $node205 setProp "is_folded" "1"
  3001. $node205 setScope "name" "cl" "scopePhase"
  3002.  
  3003. set node206 [$diag addNode cad_class 3165.0 100.0 120.0 36.0]
  3004. $node206 setLabel "name" "AddrToId"
  3005. $node206 setProp "is_folded" "1"
  3006. $node206 setScope "name" "cl" "scopePhase"
  3007.  
  3008. set node207 [$diag addNode cad_class 3013.0 100.0 120.0 36.0]
  3009. $node207 setLabel "name" "AddrFixUp"
  3010. $node207 setProp "is_folded" "1"
  3011. $node207 setScope "name" "cl" "scopePhase"
  3012.  
  3013. set node208 [$diag addNode cad_class 2861.0 100.0 120.0 36.0]
  3014. $node208 setLabel "name" "XlateObject"
  3015. $node208 setProp "is_folded" "1"
  3016. $node208 setScope "name" "cl" "scopePhase"
  3017.  
  3018. set node209 [$diag addNode cad_class 2709.0 200.0 120.0 36.0]
  3019. $node209 setLabel "name" "StreamProxy"
  3020. $node209 setProp "is_folded" "1"
  3021. $node209 setScope "name" "cl" "scopePhase"
  3022.  
  3023. set node210 [$diag addNode cad_class 2557.0 300.0 120.0 36.0]
  3024. $node210 setLabel "name" "CharStream"
  3025. $node210 setProp "is_folded" "1"
  3026. $node210 setScope "name" "cl" "scopePhase"
  3027.  
  3028. set node211 [$diag addNode cad_class 2405.0 400.0 120.0 36.0]
  3029. $node211 setLabel "name" "EasyStream"
  3030. $node211 setProp "is_folded" "1"
  3031. $node211 setScope "name" "cl" "scopePhase"
  3032.  
  3033. set node212 [$diag addNode cad_class 2253.0 400.0 120.0 36.0]
  3034. $node212 setLabel "name" "MemoryStream"
  3035. $node212 setProp "is_folded" "1"
  3036. $node212 setScope "name" "cl" "scopePhase"
  3037.  
  3038. set node213 [$diag addNode cad_class 2101.0 500.0 120.0 36.0]
  3039. $node213 setLabel "name" "FileProxy"
  3040. $node213 setProp "is_folded" "1"
  3041. $node213 setScope "name" "cl" "scopePhase"
  3042.  
  3043. set node214 [$diag addNode cad_class 1940.0 500.0 129.0 36.0]
  3044. $node214 setLabel "name" "TextEncodedFile"
  3045. $node214 setProp "is_folded" "1"
  3046. $node214 setScope "name" "cl" "scopePhase"
  3047.  
  3048. set node216 [$diag addNode cad_class 1788.0 500.0 120.0 36.0]
  3049. $node216 setLabel "name" "DirectoryFile"
  3050. $node216 setProp "is_folded" "1"
  3051. $node216 setScope "name" "cl" "scopePhase"
  3052.  
  3053. set node218 [$diag addNode cad_class 1944.5 400.0 120.0 36.0]
  3054. $node218 setLabel "name" "File"
  3055. $node218 setProp "is_folded" "1"
  3056. $node218 setScope "name" "cl" "scopePhase"
  3057.  
  3058. set node220 [$diag addNode cad_class 2096.5 300.0 120.0 36.0]
  3059. $node220 setLabel "name" "SeekStream"
  3060. $node220 setProp "is_folded" "1"
  3061. $node220 setScope "name" "cl" "scopePhase"
  3062.  
  3063. set node222 [$diag addNode cad_class 2172.5 200.0 120.0 36.0]
  3064. $node222 setLabel "name" "LineIOStream"
  3065. $node222 setProp "is_folded" "1"
  3066. $node222 setScope "name" "cl" "scopePhase"
  3067.  
  3068. set node223 [$diag addNode cad_class 2248.5 100.0 120.0 36.0]
  3069. $node223 setLabel "name" "Stream"
  3070. $node223 setProp "is_folded" "1"
  3071. $node223 setScope "name" "cl" "scopePhase"
  3072.  
  3073. set node225 [$diag addNode cad_class 1574.0 300.0 182.0 36.0]
  3074. $node225 setLabel "name" "DeferredInterruptQueue"
  3075. $node225 setProp "is_folded" "1"
  3076. $node225 setScope "name" "cl" "scopePhase"
  3077.  
  3078. set node226 [$diag addNode cad_class 1605.0 200.0 120.0 36.0]
  3079. $node226 setLabel "name" "Queue"
  3080. $node226 setProp "is_folded" "1"
  3081. $node226 setScope "name" "cl" "scopePhase"
  3082.  
  3083. set node227 [$diag addNode cad_class 1422.0 300.0 120.0 36.0]
  3084. $node227 setLabel "name" "LinkedList"
  3085. $node227 setProp "is_folded" "1"
  3086. $node227 setScope "name" "cl" "scopePhase"
  3087.  
  3088. set node229 [$diag addNode cad_class 1270.0 300.0 120.0 36.0]
  3089. $node229 setLabel "name" "Array"
  3090. $node229 setProp "is_folded" "1"
  3091. $node229 setScope "name" "cl" "scopePhase"
  3092.  
  3093. set node231 [$diag addNode cad_class 1336.0 200.0 140.0 36.0]
  3094. $node231 setLabel "name" "IndexedCollection"
  3095. $node231 setProp "is_folded" "1"
  3096. $node231 setScope "name" "cl" "scopePhase"
  3097.  
  3098. set node232 [$diag addNode cad_class 1453.0 100.0 120.0 36.0]
  3099. $node232 setLabel "name" "Container"
  3100. $node232 setProp "is_folded" "1"
  3101. $node232 setScope "name" "cl" "scopePhase"
  3102.  
  3103. set node233 [$diag addNode cad_class 1118.0 100.0 120.0 36.0]
  3104. $node233 setLabel "name" "Response"
  3105. $node233 setProp "is_folded" "1"
  3106. $node233 setScope "name" "cl" "scopePhase"
  3107.  
  3108. set node235 [$diag addNode cad_class 966.0 200.0 120.0 36.0]
  3109. $node235 setLabel "name" "Param"
  3110. $node235 setProp "is_folded" "1"
  3111. $node235 setScope "name" "cl" "scopePhase"
  3112.  
  3113. set node236 [$diag addNode cad_class 966.0 100.0 120.0 36.0]
  3114. $node236 setLabel "name" "AnyType"
  3115. $node236 setProp "is_folded" "1"
  3116. $node236 setScope "name" "cl" "scopePhase"
  3117.  
  3118. set node237 [$diag addNode cad_class 814.0 300.0 120.0 36.0]
  3119. $node237 setLabel "name" "EventId"
  3120. $node237 setProp "is_folded" "1"
  3121. $node237 setScope "name" "cl" "scopePhase"
  3122.  
  3123. set node239 [$diag addNode cad_class 662.0 300.0 120.0 36.0]
  3124. $node239 setLabel "name" "MessageId"
  3125. $node239 setProp "is_folded" "1"
  3126. $node239 setScope "name" "cl" "scopePhase"
  3127.  
  3128. set node241 [$diag addNode cad_class 738.0 200.0 120.0 36.0]
  3129. $node241 setLabel "name" "ClassId"
  3130. $node241 setProp "is_folded" "1"
  3131. $node241 setScope "name" "cl" "scopePhase"
  3132.  
  3133. set node242 [$diag addNode cad_class 738.0 100.0 120.0 36.0]
  3134. $node242 setLabel "name" "ScopeId"
  3135. $node242 setProp "is_folded" "1"
  3136. $node242 setScope "name" "cl" "scopePhase"
  3137.  
  3138. set node244 [$diag addNode cad_class 510.0 200.0 120.0 36.0]
  3139. $node244 setLabel "name" "CompiledLOM"
  3140. $node244 setProp "is_folded" "1"
  3141. $node244 setScope "name" "cl" "scopePhase"
  3142.  
  3143. set node245 [$diag addNode cad_class 510.0 100.0 120.0 36.0]
  3144. $node245 setLabel "name" "LOM"
  3145. $node245 setProp "is_folded" "1"
  3146. $node245 setScope "name" "cl" "scopePhase"
  3147.  
  3148. set node247 [$diag addNode cad_class 358.0 200.0 120.0 36.0]
  3149. $node247 setLabel "name" "DynScope"
  3150. $node247 setProp "is_folded" "1"
  3151. $node247 setScope "name" "cl" "scopePhase"
  3152.  
  3153. set node248 [$diag addNode cad_class 358.0 100.0 120.0 36.0]
  3154. $node248 setLabel "name" "Scope"
  3155. $node248 setProp "is_folded" "1"
  3156. $node248 setScope "name" "cl" "scopePhase"
  3157.  
  3158. set node249 [$diag addNode cad_class 152.0 200.0 174.0 36.0]
  3159. $node249 setLabel "name" "4GLInterfaceClassType"
  3160. $node249 setProp "is_folded" "1"
  3161. $node249 setScope "name" "cl" "scopePhase"
  3162.  
  3163. set node251 [$diag addNode cad_class 103.0 100.0 120.0 36.0]
  3164. $node251 setLabel "name" "ClassType"
  3165. $node251 setProp "is_folded" "1"
  3166. $node251 setScope "name" "cl" "scopePhase"
  3167.  
  3168. set node252 [$diag addNode cad_class 12259.5 0.0 120.0 36.0]
  3169. $node252 setLabel "name" "Object"
  3170. $node252 setProp "is_folded" "1"
  3171. $node252 setScope "name" "cl" "scopePhase"
  3172.  
  3173. set node254 [$diag addNode cad_class 0.0 200.0 120.0 36.0]
  3174. $node254 setLabel "name" "4GLClassType"
  3175. $node254 setProp "is_folded" "1"
  3176. $node254 setScope "name" "cl" "scopePhase"
  3177.  
  3178. set node215 [$diag addRake generalization $node218 $node213 2004.5 436.0 2161.0 500.0 468.0]
  3179.  
  3180. set conn255 [$node215 getInConn]
  3181. set segm256 [$conn255 getFirstSegm]
  3182.  
  3183. set conn257 [$node215 getFirstOutConn]
  3184. set segm258 [$conn257 getFirstSegm]
  3185.  
  3186. set conn259 [$diag addConn generalization_conn $node215 $node214 2004.5 468.0 2004.5 500.0]
  3187. set segm260 [$conn259 getFirstSegm]
  3188.  
  3189. set conn261 [$diag addConn generalization_conn $node215 $node216 1848.0 468.0 1848.0 500.0]
  3190. set segm262 [$conn261 getFirstSegm]
  3191.  
  3192. set node217 [$diag addRake generalization $node220 $node211 2156.5 336.0 2465.0 400.0 368.0]
  3193.  
  3194. set conn263 [$node217 getInConn]
  3195. set segm264 [$conn263 getFirstSegm]
  3196.  
  3197. set conn265 [$node217 getFirstOutConn]
  3198. set segm266 [$conn265 getFirstSegm]
  3199.  
  3200. set conn267 [$diag addConn generalization_conn $node217 $node212 2313.0 368.0 2313.0 400.0]
  3201. set segm268 [$conn267 getFirstSegm]
  3202.  
  3203. set conn269 [$diag addConn generalization_conn $node217 $node218 2004.5 368.0 2004.5 400.0]
  3204. set segm270 [$conn269 getFirstSegm]
  3205.  
  3206. set node219 [$diag addRake generalization $node222 $node210 2232.5 236.0 2617.0 300.0 268.0]
  3207.  
  3208. set conn271 [$node219 getInConn]
  3209. set segm272 [$conn271 getFirstSegm]
  3210.  
  3211. set conn273 [$node219 getFirstOutConn]
  3212. set segm274 [$conn273 getFirstSegm]
  3213.  
  3214. set conn275 [$diag addConn generalization_conn $node219 $node220 2156.5 268.0 2156.5 300.0]
  3215. set segm276 [$conn275 getFirstSegm]
  3216.  
  3217. set node221 [$diag addRake generalization $node223 $node209 2308.5 136.0 2769.0 200.0 168.0]
  3218.  
  3219. set conn277 [$node221 getInConn]
  3220. set segm278 [$conn277 getFirstSegm]
  3221.  
  3222. set conn279 [$node221 getFirstOutConn]
  3223. set segm280 [$conn279 getFirstSegm]
  3224.  
  3225. set conn281 [$diag addConn generalization_conn $node221 $node222 2232.5 168.0 2232.5 200.0]
  3226. set segm282 [$conn281 getFirstSegm]
  3227.  
  3228. set node224 [$diag addRake generalization $node226 $node225 1665.0 236.0 1665.0 300.0 268.0]
  3229.  
  3230. set conn283 [$node224 getInConn]
  3231. set segm284 [$conn283 getFirstSegm]
  3232.  
  3233. set conn285 [$node224 getFirstOutConn]
  3234. set segm286 [$conn285 getFirstSegm]
  3235.  
  3236. set node228 [$diag addRake generalization $node231 $node227 1406.0 236.0 1482.0 300.0 268.0]
  3237.  
  3238. set conn287 [$node228 getInConn]
  3239. set segm288 [$conn287 getFirstSegm]
  3240.  
  3241. set conn289 [$node228 getFirstOutConn]
  3242. set segm290 [$conn289 getFirstSegm]
  3243.  
  3244. set conn291 [$diag addConn generalization_conn $node228 $node229 1330.0 268.0 1330.0 300.0]
  3245. set segm292 [$conn291 getFirstSegm]
  3246.  
  3247. set node230 [$diag addRake generalization $node232 $node226 1513.0 136.0 1665.0 200.0 168.0]
  3248.  
  3249. set conn293 [$node230 getInConn]
  3250. set segm294 [$conn293 getFirstSegm]
  3251.  
  3252. set conn295 [$node230 getFirstOutConn]
  3253. set segm296 [$conn295 getFirstSegm]
  3254.  
  3255. set conn297 [$diag addConn generalization_conn $node230 $node231 1406.0 168.0 1406.0 200.0]
  3256. set segm298 [$conn297 getFirstSegm]
  3257.  
  3258. set node234 [$diag addRake generalization $node236 $node235 1026.0 136.0 1026.0 200.0 168.0]
  3259.  
  3260. set conn299 [$node234 getInConn]
  3261. set segm300 [$conn299 getFirstSegm]
  3262.  
  3263. set conn301 [$node234 getFirstOutConn]
  3264. set segm302 [$conn301 getFirstSegm]
  3265.  
  3266. set node238 [$diag addRake generalization $node241 $node237 798.0 236.0 874.0 300.0 268.0]
  3267.  
  3268. set conn303 [$node238 getInConn]
  3269. set segm304 [$conn303 getFirstSegm]
  3270.  
  3271. set conn305 [$node238 getFirstOutConn]
  3272. set segm306 [$conn305 getFirstSegm]
  3273.  
  3274. set conn307 [$diag addConn generalization_conn $node238 $node239 722.0 268.0 722.0 300.0]
  3275. set segm308 [$conn307 getFirstSegm]
  3276.  
  3277. set node240 [$diag addRake generalization $node242 $node241 798.0 136.0 798.0 200.0 168.0]
  3278.  
  3279. set conn309 [$node240 getInConn]
  3280. set segm310 [$conn309 getFirstSegm]
  3281.  
  3282. set conn311 [$node240 getFirstOutConn]
  3283. set segm312 [$conn311 getFirstSegm]
  3284.  
  3285. set node243 [$diag addRake generalization $node245 $node244 570.0 136.0 570.0 200.0 168.0]
  3286.  
  3287. set conn313 [$node243 getInConn]
  3288. set segm314 [$conn313 getFirstSegm]
  3289.  
  3290. set conn315 [$node243 getFirstOutConn]
  3291. set segm316 [$conn315 getFirstSegm]
  3292.  
  3293. set node246 [$diag addRake generalization $node248 $node247 418.0 136.0 418.0 200.0 168.0]
  3294.  
  3295. set conn317 [$node246 getInConn]
  3296. set segm318 [$conn317 getFirstSegm]
  3297.  
  3298. set conn319 [$node246 getFirstOutConn]
  3299. set segm320 [$conn319 getFirstSegm]
  3300.  
  3301. set node250 [$diag addRake generalization $node252 $node71 12319.5 36.0 24579.0 100.0 68.0]
  3302.  
  3303. set conn321 [$node250 getInConn]
  3304. set segm322 [$conn321 getFirstSegm]
  3305.  
  3306. set conn323 [$node250 getFirstOutConn]
  3307. set segm324 [$conn323 getFirstSegm]
  3308.  
  3309. set conn325 [$diag addConn generalization_conn $node250 $node72 24411.0 68.0 24411.0 100.0]
  3310. set segm326 [$conn325 getFirstSegm]
  3311.  
  3312. set conn327 [$diag addConn generalization_conn $node250 $node73 24243.0 68.0 24243.0 100.0]
  3313. set segm328 [$conn327 getFirstSegm]
  3314.  
  3315. set conn329 [$diag addConn generalization_conn $node250 $node74 24091.0 68.0 24091.0 100.0]
  3316. set segm330 [$conn329 getFirstSegm]
  3317.  
  3318. set conn331 [$diag addConn generalization_conn $node250 $node75 23934.0 68.0 23934.0 100.0]
  3319. set segm332 [$conn331 getFirstSegm]
  3320.  
  3321. set conn333 [$diag addConn generalization_conn $node250 $node76 23777.0 68.0 23777.0 100.0]
  3322. set segm334 [$conn333 getFirstSegm]
  3323.  
  3324. set conn335 [$diag addConn generalization_conn $node250 $node77 23625.0 68.0 23625.0 100.0]
  3325. set segm336 [$conn335 getFirstSegm]
  3326.  
  3327. set conn337 [$diag addConn generalization_conn $node250 $node78 23461.0 68.0 23461.0 100.0]
  3328. set segm338 [$conn337 getFirstSegm]
  3329.  
  3330. set conn339 [$diag addConn generalization_conn $node250 $node79 23294.5 68.0 23294.5 100.0]
  3331. set segm340 [$conn339 getFirstSegm]
  3332.  
  3333. set conn341 [$diag addConn generalization_conn $node250 $node80 23138.5 68.0 23138.5 100.0]
  3334. set segm342 [$conn341 getFirstSegm]
  3335.  
  3336. set conn343 [$diag addConn generalization_conn $node250 $node81 22981.0 68.0 22981.0 100.0]
  3337. set segm344 [$conn343 getFirstSegm]
  3338.  
  3339. set conn345 [$diag addConn generalization_conn $node250 $node82 22824.0 68.0 22824.0 100.0]
  3340. set segm346 [$conn345 getFirstSegm]
  3341.  
  3342. set conn347 [$diag addConn generalization_conn $node250 $node83 22671.0 68.0 22671.0 100.0]
  3343. set segm348 [$conn347 getFirstSegm]
  3344.  
  3345. set conn349 [$diag addConn generalization_conn $node250 $node84 22519.0 68.0 22519.0 100.0]
  3346. set segm350 [$conn349 getFirstSegm]
  3347.  
  3348. set conn351 [$diag addConn generalization_conn $node250 $node85 22363.5 68.0 22363.5 100.0]
  3349. set segm352 [$conn351 getFirstSegm]
  3350.  
  3351. set conn353 [$diag addConn generalization_conn $node250 $node86 22201.0 68.0 22201.0 100.0]
  3352. set segm354 [$conn353 getFirstSegm]
  3353.  
  3354. set conn355 [$diag addConn generalization_conn $node250 $node87 22041.5 68.0 22041.5 100.0]
  3355. set segm356 [$conn355 getFirstSegm]
  3356.  
  3357. set conn357 [$diag addConn generalization_conn $node250 $node88 21889.0 68.0 21889.0 100.0]
  3358. set segm358 [$conn357 getFirstSegm]
  3359.  
  3360. set conn359 [$diag addConn generalization_conn $node250 $node89 21737.0 68.0 21737.0 100.0]
  3361. set segm360 [$conn359 getFirstSegm]
  3362.  
  3363. set conn361 [$diag addConn generalization_conn $node250 $node90 21580.5 68.0 21580.5 100.0]
  3364. set segm362 [$conn361 getFirstSegm]
  3365.  
  3366. set conn363 [$diag addConn generalization_conn $node250 $node91 21424.0 68.0 21424.0 100.0]
  3367. set segm364 [$conn363 getFirstSegm]
  3368.  
  3369. set conn365 [$diag addConn generalization_conn $node250 $node92 21272.0 68.0 21272.0 100.0]
  3370. set segm366 [$conn365 getFirstSegm]
  3371.  
  3372. set conn367 [$diag addConn generalization_conn $node250 $node93 21092.0 68.0 21092.0 100.0]
  3373. set segm368 [$conn367 getFirstSegm]
  3374.  
  3375. set conn369 [$diag addConn generalization_conn $node250 $node94 20908.0 68.0 20908.0 100.0]
  3376. set segm370 [$conn369 getFirstSegm]
  3377.  
  3378. set conn371 [$diag addConn generalization_conn $node250 $node95 20752.0 68.0 20752.0 100.0]
  3379. set segm372 [$conn371 getFirstSegm]
  3380.  
  3381. set conn373 [$diag addConn generalization_conn $node250 $node96 20597.0 68.0 20597.0 100.0]
  3382. set segm374 [$conn373 getFirstSegm]
  3383.  
  3384. set conn375 [$diag addConn generalization_conn $node250 $node97 20442.0 68.0 20442.0 100.0]
  3385. set segm376 [$conn375 getFirstSegm]
  3386.  
  3387. set conn377 [$diag addConn generalization_conn $node250 $node98 20271.5 68.0 20271.5 100.0]
  3388. set segm378 [$conn377 getFirstSegm]
  3389.  
  3390. set conn379 [$diag addConn generalization_conn $node250 $node99 20098.0 68.0 20098.0 100.0]
  3391. set segm380 [$conn379 getFirstSegm]
  3392.  
  3393. set conn381 [$diag addConn generalization_conn $node250 $node100 19943.0 68.0 19943.0 100.0]
  3394. set segm382 [$conn381 getFirstSegm]
  3395.  
  3396. set conn383 [$diag addConn generalization_conn $node250 $node101 19791.0 68.0 19791.0 100.0]
  3397. set segm384 [$conn383 getFirstSegm]
  3398.  
  3399. set conn385 [$diag addConn generalization_conn $node250 $node102 19639.0 68.0 19639.0 100.0]
  3400. set segm386 [$conn385 getFirstSegm]
  3401.  
  3402. set conn387 [$diag addConn generalization_conn $node250 $node103 19487.0 68.0 19487.0 100.0]
  3403. set segm388 [$conn387 getFirstSegm]
  3404.  
  3405. set conn389 [$diag addConn generalization_conn $node250 $node104 19335.0 68.0 19335.0 100.0]
  3406. set segm390 [$conn389 getFirstSegm]
  3407.  
  3408. set conn391 [$diag addConn generalization_conn $node250 $node105 19183.0 68.0 19183.0 100.0]
  3409. set segm392 [$conn391 getFirstSegm]
  3410.  
  3411. set conn393 [$diag addConn generalization_conn $node250 $node106 19027.5 68.0 19027.5 100.0]
  3412. set segm394 [$conn393 getFirstSegm]
  3413.  
  3414. set conn395 [$diag addConn generalization_conn $node250 $node107 18872.0 68.0 18872.0 100.0]
  3415. set segm396 [$conn395 getFirstSegm]
  3416.  
  3417. set conn397 [$diag addConn generalization_conn $node250 $node108 18718.5 68.0 18718.5 100.0]
  3418. set segm398 [$conn397 getFirstSegm]
  3419.  
  3420. set conn399 [$diag addConn generalization_conn $node250 $node109 18561.5 68.0 18561.5 100.0]
  3421. set segm400 [$conn399 getFirstSegm]
  3422.  
  3423. set conn401 [$diag addConn generalization_conn $node250 $node110 18391.0 68.0 18391.0 100.0]
  3424. set segm402 [$conn401 getFirstSegm]
  3425.  
  3426. set conn403 [$diag addConn generalization_conn $node250 $node111 18216.0 68.0 18216.0 100.0]
  3427. set segm404 [$conn403 getFirstSegm]
  3428.  
  3429. set conn405 [$diag addConn generalization_conn $node250 $node112 18054.5 68.0 18054.5 100.0]
  3430. set segm406 [$conn405 getFirstSegm]
  3431.  
  3432. set conn407 [$diag addConn generalization_conn $node250 $node113 17901.0 68.0 17901.0 100.0]
  3433. set segm408 [$conn407 getFirstSegm]
  3434.  
  3435. set conn409 [$diag addConn generalization_conn $node250 $node114 17749.0 68.0 17749.0 100.0]
  3436. set segm410 [$conn409 getFirstSegm]
  3437.  
  3438. set conn411 [$diag addConn generalization_conn $node250 $node115 17597.0 68.0 17597.0 100.0]
  3439. set segm412 [$conn411 getFirstSegm]
  3440.  
  3441. set conn413 [$diag addConn generalization_conn $node250 $node116 17445.0 68.0 17445.0 100.0]
  3442. set segm414 [$conn413 getFirstSegm]
  3443.  
  3444. set conn415 [$diag addConn generalization_conn $node250 $node117 17289.5 68.0 17289.5 100.0]
  3445. set segm416 [$conn415 getFirstSegm]
  3446.  
  3447. set conn417 [$diag addConn generalization_conn $node250 $node118 17123.0 68.0 17123.0 100.0]
  3448. set segm418 [$conn417 getFirstSegm]
  3449.  
  3450. set conn419 [$diag addConn generalization_conn $node250 $node119 16953.0 68.0 16953.0 100.0]
  3451. set segm420 [$conn419 getFirstSegm]
  3452.  
  3453. set conn421 [$diag addConn generalization_conn $node250 $node120 16787.0 68.0 16787.0 100.0]
  3454. set segm422 [$conn421 getFirstSegm]
  3455.  
  3456. set conn423 [$diag addConn generalization_conn $node250 $node121 16628.0 68.0 16628.0 100.0]
  3457. set segm424 [$conn423 getFirstSegm]
  3458.  
  3459. set conn425 [$diag addConn generalization_conn $node250 $node122 16471.0 68.0 16471.0 100.0]
  3460. set segm426 [$conn425 getFirstSegm]
  3461.  
  3462. set conn427 [$diag addConn generalization_conn $node250 $node123 16314.0 68.0 16314.0 100.0]
  3463. set segm428 [$conn427 getFirstSegm]
  3464.  
  3465. set conn429 [$diag addConn generalization_conn $node250 $node124 16155.5 68.0 16155.5 100.0]
  3466. set segm430 [$conn429 getFirstSegm]
  3467.  
  3468. set conn431 [$diag addConn generalization_conn $node250 $node125 15997.0 68.0 15997.0 100.0]
  3469. set segm432 [$conn431 getFirstSegm]
  3470.  
  3471. set conn433 [$diag addConn generalization_conn $node250 $node126 15845.0 68.0 15845.0 100.0]
  3472. set segm434 [$conn433 getFirstSegm]
  3473.  
  3474. set conn435 [$diag addConn generalization_conn $node250 $node127 15693.0 68.0 15693.0 100.0]
  3475. set segm436 [$conn435 getFirstSegm]
  3476.  
  3477. set conn437 [$diag addConn generalization_conn $node250 $node128 15541.0 68.0 15541.0 100.0]
  3478. set segm438 [$conn437 getFirstSegm]
  3479.  
  3480. set conn439 [$diag addConn generalization_conn $node250 $node129 15387.0 68.0 15387.0 100.0]
  3481. set segm440 [$conn439 getFirstSegm]
  3482.  
  3483. set conn441 [$diag addConn generalization_conn $node250 $node130 15218.5 68.0 15218.5 100.0]
  3484. set segm442 [$conn441 getFirstSegm]
  3485.  
  3486. set conn443 [$diag addConn generalization_conn $node250 $node131 15052.0 68.0 15052.0 100.0]
  3487. set segm444 [$conn443 getFirstSegm]
  3488.  
  3489. set conn445 [$diag addConn generalization_conn $node250 $node132 14883.5 68.0 14883.5 100.0]
  3490. set segm446 [$conn445 getFirstSegm]
  3491.  
  3492. set conn447 [$diag addConn generalization_conn $node250 $node133 14701.5 68.0 14701.5 100.0]
  3493. set segm448 [$conn447 getFirstSegm]
  3494.  
  3495. set conn449 [$diag addConn generalization_conn $node250 $node134 14530.0 68.0 14530.0 100.0]
  3496. set segm450 [$conn449 getFirstSegm]
  3497.  
  3498. set conn451 [$diag addConn generalization_conn $node250 $node135 14372.0 68.0 14372.0 100.0]
  3499. set segm452 [$conn451 getFirstSegm]
  3500.  
  3501. set conn453 [$diag addConn generalization_conn $node250 $node136 14220.0 68.0 14220.0 100.0]
  3502. set segm454 [$conn453 getFirstSegm]
  3503.  
  3504. set conn455 [$diag addConn generalization_conn $node250 $node137 14068.0 68.0 14068.0 100.0]
  3505. set segm456 [$conn455 getFirstSegm]
  3506.  
  3507. set conn457 [$diag addConn generalization_conn $node250 $node138 13893.5 68.0 13893.5 100.0]
  3508. set segm458 [$conn457 getFirstSegm]
  3509.  
  3510. set conn459 [$diag addConn generalization_conn $node250 $node139 13719.0 68.0 13719.0 100.0]
  3511. set segm460 [$conn459 getFirstSegm]
  3512.  
  3513. set conn461 [$diag addConn generalization_conn $node250 $node140 13561.5 68.0 13561.5 100.0]
  3514. set segm462 [$conn461 getFirstSegm]
  3515.  
  3516. set conn463 [$diag addConn generalization_conn $node250 $node141 13404.0 68.0 13404.0 100.0]
  3517. set segm464 [$conn463 getFirstSegm]
  3518.  
  3519. set conn465 [$diag addConn generalization_conn $node250 $node142 13252.0 68.0 13252.0 100.0]
  3520. set segm466 [$conn465 getFirstSegm]
  3521.  
  3522. set conn467 [$diag addConn generalization_conn $node250 $node143 13100.0 68.0 13100.0 100.0]
  3523. set segm468 [$conn467 getFirstSegm]
  3524.  
  3525. set conn469 [$diag addConn generalization_conn $node250 $node144 12945.5 68.0 12945.5 100.0]
  3526. set segm470 [$conn469 getFirstSegm]
  3527.  
  3528. set conn471 [$diag addConn generalization_conn $node250 $node145 12791.0 68.0 12791.0 100.0]
  3529. set segm472 [$conn471 getFirstSegm]
  3530.  
  3531. set conn473 [$diag addConn generalization_conn $node250 $node146 12636.5 68.0 12636.5 100.0]
  3532. set segm474 [$conn473 getFirstSegm]
  3533.  
  3534. set conn475 [$diag addConn generalization_conn $node250 $node147 12482.0 68.0 12482.0 100.0]
  3535. set segm476 [$conn475 getFirstSegm]
  3536.  
  3537. set conn477 [$diag addConn generalization_conn $node250 $node148 12330.0 68.0 12330.0 100.0]
  3538. set segm478 [$conn477 getFirstSegm]
  3539.  
  3540. set conn479 [$diag addConn generalization_conn $node250 $node149 12178.0 68.0 12178.0 100.0]
  3541. set segm480 [$conn479 getFirstSegm]
  3542.  
  3543. set conn481 [$diag addConn generalization_conn $node250 $node150 12026.0 68.0 12026.0 100.0]
  3544. set segm482 [$conn481 getFirstSegm]
  3545.  
  3546. set conn483 [$diag addConn generalization_conn $node250 $node151 11862.5 68.0 11862.5 100.0]
  3547. set segm484 [$conn483 getFirstSegm]
  3548.  
  3549. set conn485 [$diag addConn generalization_conn $node250 $node152 11687.5 68.0 11687.5 100.0]
  3550. set segm486 [$conn485 getFirstSegm]
  3551.  
  3552. set conn487 [$diag addConn generalization_conn $node250 $node153 11519.0 68.0 11519.0 100.0]
  3553. set segm488 [$conn487 getFirstSegm]
  3554.  
  3555. set conn489 [$diag addConn generalization_conn $node250 $node154 11361.5 68.0 11361.5 100.0]
  3556. set segm490 [$conn489 getFirstSegm]
  3557.  
  3558. set conn491 [$diag addConn generalization_conn $node250 $node155 11209.0 68.0 11209.0 100.0]
  3559. set segm492 [$conn491 getFirstSegm]
  3560.  
  3561. set conn493 [$diag addConn generalization_conn $node250 $node156 11057.0 68.0 11057.0 100.0]
  3562. set segm494 [$conn493 getFirstSegm]
  3563.  
  3564. set conn495 [$diag addConn generalization_conn $node250 $node157 10905.0 68.0 10905.0 100.0]
  3565. set segm496 [$conn495 getFirstSegm]
  3566.  
  3567. set conn497 [$diag addConn generalization_conn $node250 $node158 10749.0 68.0 10749.0 100.0]
  3568. set segm498 [$conn497 getFirstSegm]
  3569.  
  3570. set conn499 [$diag addConn generalization_conn $node250 $node159 10581.5 68.0 10581.5 100.0]
  3571. set segm500 [$conn499 getFirstSegm]
  3572.  
  3573. set conn501 [$diag addConn generalization_conn $node250 $node160 10418.0 68.0 10418.0 100.0]
  3574. set segm502 [$conn501 getFirstSegm]
  3575.  
  3576. set conn503 [$diag addConn generalization_conn $node250 $node161 10265.0 68.0 10265.0 100.0]
  3577. set segm504 [$conn503 getFirstSegm]
  3578.  
  3579. set conn505 [$diag addConn generalization_conn $node250 $node162 10112.0 68.0 10112.0 100.0]
  3580. set segm506 [$conn505 getFirstSegm]
  3581.  
  3582. set conn507 [$diag addConn generalization_conn $node250 $node163 9960.0 68.0 9960.0 100.0]
  3583. set segm508 [$conn507 getFirstSegm]
  3584.  
  3585. set conn509 [$diag addConn generalization_conn $node250 $node164 9808.0 68.0 9808.0 100.0]
  3586. set segm510 [$conn509 getFirstSegm]
  3587.  
  3588. set conn511 [$diag addConn generalization_conn $node250 $node165 9656.0 68.0 9656.0 100.0]
  3589. set segm512 [$conn511 getFirstSegm]
  3590.  
  3591. set conn513 [$diag addConn generalization_conn $node250 $node166 9504.0 68.0 9504.0 100.0]
  3592. set segm514 [$conn513 getFirstSegm]
  3593.  
  3594. set conn515 [$diag addConn generalization_conn $node250 $node167 9352.0 68.0 9352.0 100.0]
  3595. set segm516 [$conn515 getFirstSegm]
  3596.  
  3597. set conn517 [$diag addConn generalization_conn $node250 $node168 9200.0 68.0 9200.0 100.0]
  3598. set segm518 [$conn517 getFirstSegm]
  3599.  
  3600. set conn519 [$diag addConn generalization_conn $node250 $node169 9047.5 68.0 9047.5 100.0]
  3601. set segm520 [$conn519 getFirstSegm]
  3602.  
  3603. set conn521 [$diag addConn generalization_conn $node250 $node170 8895.0 68.0 8895.0 100.0]
  3604. set segm522 [$conn521 getFirstSegm]
  3605.  
  3606. set conn523 [$diag addConn generalization_conn $node250 $node171 8743.0 68.0 8743.0 100.0]
  3607. set segm524 [$conn523 getFirstSegm]
  3608.  
  3609. set conn525 [$diag addConn generalization_conn $node250 $node172 8588.0 68.0 8588.0 100.0]
  3610. set segm526 [$conn525 getFirstSegm]
  3611.  
  3612. set conn527 [$diag addConn generalization_conn $node250 $node173 8433.0 68.0 8433.0 100.0]
  3613. set segm528 [$conn527 getFirstSegm]
  3614.  
  3615. set conn529 [$diag addConn generalization_conn $node250 $node174 8273.0 68.0 8273.0 100.0]
  3616. set segm530 [$conn529 getFirstSegm]
  3617.  
  3618. set conn531 [$diag addConn generalization_conn $node250 $node175 8097.0 68.0 8097.0 100.0]
  3619. set segm532 [$conn531 getFirstSegm]
  3620.  
  3621. set conn533 [$diag addConn generalization_conn $node250 $node176 7929.0 68.0 7929.0 100.0]
  3622. set segm534 [$conn533 getFirstSegm]
  3623.  
  3624. set conn535 [$diag addConn generalization_conn $node250 $node177 7758.0 68.0 7758.0 100.0]
  3625. set segm536 [$conn535 getFirstSegm]
  3626.  
  3627. set conn537 [$diag addConn generalization_conn $node250 $node178 7575.5 68.0 7575.5 100.0]
  3628. set segm538 [$conn537 getFirstSegm]
  3629.  
  3630. set conn539 [$diag addConn generalization_conn $node250 $node179 7412.0 68.0 7412.0 100.0]
  3631. set segm540 [$conn539 getFirstSegm]
  3632.  
  3633. set conn541 [$diag addConn generalization_conn $node250 $node180 7260.0 68.0 7260.0 100.0]
  3634. set segm542 [$conn541 getFirstSegm]
  3635.  
  3636. set conn543 [$diag addConn generalization_conn $node250 $node181 7108.0 68.0 7108.0 100.0]
  3637. set segm544 [$conn543 getFirstSegm]
  3638.  
  3639. set conn545 [$diag addConn generalization_conn $node250 $node182 6956.0 68.0 6956.0 100.0]
  3640. set segm546 [$conn545 getFirstSegm]
  3641.  
  3642. set conn547 [$diag addConn generalization_conn $node250 $node183 6804.0 68.0 6804.0 100.0]
  3643. set segm548 [$conn547 getFirstSegm]
  3644.  
  3645. set conn549 [$diag addConn generalization_conn $node250 $node184 6652.0 68.0 6652.0 100.0]
  3646. set segm550 [$conn549 getFirstSegm]
  3647.  
  3648. set conn551 [$diag addConn generalization_conn $node250 $node185 6494.5 68.0 6494.5 100.0]
  3649. set segm552 [$conn551 getFirstSegm]
  3650.  
  3651. set conn553 [$diag addConn generalization_conn $node250 $node186 6337.0 68.0 6337.0 100.0]
  3652. set segm554 [$conn553 getFirstSegm]
  3653.  
  3654. set conn555 [$diag addConn generalization_conn $node250 $node187 6185.0 68.0 6185.0 100.0]
  3655. set segm556 [$conn555 getFirstSegm]
  3656.  
  3657. set conn557 [$diag addConn generalization_conn $node250 $node188 6033.0 68.0 6033.0 100.0]
  3658. set segm558 [$conn557 getFirstSegm]
  3659.  
  3660. set conn559 [$diag addConn generalization_conn $node250 $node189 5881.0 68.0 5881.0 100.0]
  3661. set segm560 [$conn559 getFirstSegm]
  3662.  
  3663. set conn561 [$diag addConn generalization_conn $node250 $node190 5729.0 68.0 5729.0 100.0]
  3664. set segm562 [$conn561 getFirstSegm]
  3665.  
  3666. set conn563 [$diag addConn generalization_conn $node250 $node191 5577.0 68.0 5577.0 100.0]
  3667. set segm564 [$conn563 getFirstSegm]
  3668.  
  3669. set conn565 [$diag addConn generalization_conn $node250 $node192 5414.5 68.0 5414.5 100.0]
  3670. set segm566 [$conn565 getFirstSegm]
  3671.  
  3672. set conn567 [$diag addConn generalization_conn $node250 $node193 5245.0 68.0 5245.0 100.0]
  3673. set segm568 [$conn567 getFirstSegm]
  3674.  
  3675. set conn569 [$diag addConn generalization_conn $node250 $node194 5086.0 68.0 5086.0 100.0]
  3676. set segm570 [$conn569 getFirstSegm]
  3677.  
  3678. set conn571 [$diag addConn generalization_conn $node250 $node195 4934.0 68.0 4934.0 100.0]
  3679. set segm572 [$conn571 getFirstSegm]
  3680.  
  3681. set conn573 [$diag addConn generalization_conn $node250 $node196 4779.5 68.0 4779.5 100.0]
  3682. set segm574 [$conn573 getFirstSegm]
  3683.  
  3684. set conn575 [$diag addConn generalization_conn $node250 $node197 4625.0 68.0 4625.0 100.0]
  3685. set segm576 [$conn575 getFirstSegm]
  3686.  
  3687. set conn577 [$diag addConn generalization_conn $node250 $node198 4473.0 68.0 4473.0 100.0]
  3688. set segm578 [$conn577 getFirstSegm]
  3689.  
  3690. set conn579 [$diag addConn generalization_conn $node250 $node199 4321.0 68.0 4321.0 100.0]
  3691. set segm580 [$conn579 getFirstSegm]
  3692.  
  3693. set conn581 [$diag addConn generalization_conn $node250 $node200 4169.0 68.0 4169.0 100.0]
  3694. set segm582 [$conn581 getFirstSegm]
  3695.  
  3696. set conn583 [$diag addConn generalization_conn $node250 $node201 4017.0 68.0 4017.0 100.0]
  3697. set segm584 [$conn583 getFirstSegm]
  3698.  
  3699. set conn585 [$diag addConn generalization_conn $node250 $node202 3865.0 68.0 3865.0 100.0]
  3700. set segm586 [$conn585 getFirstSegm]
  3701.  
  3702. set conn587 [$diag addConn generalization_conn $node250 $node203 3697.0 68.0 3697.0 100.0]
  3703. set segm588 [$conn587 getFirstSegm]
  3704.  
  3705. set conn589 [$diag addConn generalization_conn $node250 $node204 3529.0 68.0 3529.0 100.0]
  3706. set segm590 [$conn589 getFirstSegm]
  3707.  
  3708. set conn591 [$diag addConn generalization_conn $node250 $node205 3377.0 68.0 3377.0 100.0]
  3709. set segm592 [$conn591 getFirstSegm]
  3710.  
  3711. set conn593 [$diag addConn generalization_conn $node250 $node206 3225.0 68.0 3225.0 100.0]
  3712. set segm594 [$conn593 getFirstSegm]
  3713.  
  3714. set conn595 [$diag addConn generalization_conn $node250 $node207 3073.0 68.0 3073.0 100.0]
  3715. set segm596 [$conn595 getFirstSegm]
  3716.  
  3717. set conn597 [$diag addConn generalization_conn $node250 $node208 2921.0 68.0 2921.0 100.0]
  3718. set segm598 [$conn597 getFirstSegm]
  3719.  
  3720. set conn599 [$diag addConn generalization_conn $node250 $node223 2308.5 68.0 2308.5 100.0]
  3721. set segm600 [$conn599 getFirstSegm]
  3722.  
  3723. set conn601 [$diag addConn generalization_conn $node250 $node232 1513.0 68.0 1513.0 100.0]
  3724. set segm602 [$conn601 getFirstSegm]
  3725.  
  3726. set conn603 [$diag addConn generalization_conn $node250 $node233 1178.0 68.0 1178.0 100.0]
  3727. set segm604 [$conn603 getFirstSegm]
  3728.  
  3729. set conn605 [$diag addConn generalization_conn $node250 $node236 1026.0 68.0 1026.0 100.0]
  3730. set segm606 [$conn605 getFirstSegm]
  3731.  
  3732. set conn607 [$diag addConn generalization_conn $node250 $node242 798.0 68.0 798.0 100.0]
  3733. set segm608 [$conn607 getFirstSegm]
  3734.  
  3735. set conn609 [$diag addConn generalization_conn $node250 $node245 570.0 68.0 570.0 100.0]
  3736. set segm610 [$conn609 getFirstSegm]
  3737.  
  3738. set conn611 [$diag addConn generalization_conn $node250 $node248 418.0 68.0 418.0 100.0]
  3739. set segm612 [$conn611 getFirstSegm]
  3740.  
  3741. set conn613 [$diag addConn generalization_conn $node250 $node251 163.0 68.0 163.0 100.0]
  3742. set segm614 [$conn613 getFirstSegm]
  3743.  
  3744. set node253 [$diag addRake generalization $node251 $node249 163.0 136.0 239.0 200.0 168.0]
  3745.  
  3746. set conn615 [$node253 getInConn]
  3747. set segm616 [$conn615 getFirstSegm]
  3748.  
  3749. set conn617 [$node253 getFirstOutConn]
  3750. set segm618 [$conn617 getFirstSegm]
  3751.  
  3752. set conn619 [$diag addConn generalization_conn $node253 $node254 60.0 168.0 60.0 200.0]
  3753. set segm620 [$conn619 getFirstSegm]
  3754.  
  3755. $diag save
  3756. } msg]} {
  3757.     puts stderr "\nAn error occurred while importing"
  3758.     puts stderr $msg
  3759. }
  3760.  
  3761.  
  3762. set msg ""
  3763. if {[catch {
  3764. set diag ""
  3765. set diag [CAD new PartitionStateMonitorTree "Framework" "" "" "" "" "" 1 1]
  3766.  
  3767. set node1318 [$diag addNode cad_class 977.0 100.0 152.0 36.0]
  3768. $node1318 setLabel "name" "ExternalConnection"
  3769. $node1318 setProp "is_folded" "1"
  3770. $node1318 setScope "name" "cl" "scopePhase"
  3771.  
  3772. set node1319 [$diag addNode cad_class 761.0 100.0 184.0 36.0]
  3773. $node1319 setLabel "name" "DynamicLibraryInterface"
  3774. $node1319 setProp "is_folded" "1"
  3775. $node1319 setScope "name" "cl" "scopePhase"
  3776.  
  3777. set node1320 [$diag addNode cad_class 608.0 100.0 121.0 36.0]
  3778. $node1320 setLabel "name" "NativeLangMgr"
  3779. $node1320 setProp "is_folded" "1"
  3780. $node1320 setScope "name" "cl" "scopePhase"
  3781.  
  3782. set node1321 [$diag addNode cad_class 456.0 100.0 120.0 36.0]
  3783. $node1321 setLabel "name" "XactManager"
  3784. $node1321 setProp "is_folded" "1"
  3785. $node1321 setScope "name" "cl" "scopePhase"
  3786.  
  3787. set node1322 [$diag addNode cad_class 304.0 100.0 120.0 36.0]
  3788. $node1322 setLabel "name" "CNM"
  3789. $node1322 setProp "is_folded" "1"
  3790. $node1322 setScope "name" "cl" "scopePhase"
  3791.  
  3792. set node1323 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  3793. $node1323 setLabel "name" "TaskManager"
  3794. $node1323 setProp "is_folded" "1"
  3795. $node1323 setScope "name" "cl" "scopePhase"
  3796.  
  3797. set node1325 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  3798. $node1325 setLabel "name" "LEM"
  3799. $node1325 setProp "is_folded" "1"
  3800. $node1325 setScope "name" "cl" "scopePhase"
  3801.  
  3802. set node1326 [$diag addNode cad_class 481.5 0.0 166.0 36.0]
  3803. $node1326 setLabel "name" "PartitionStateMonitor"
  3804. $node1326 setProp "is_folded" "1"
  3805. $node1326 setScope "name" "cl" "scopePhase"
  3806.  
  3807. set node1324 [$diag addRake generalization $node1326 $node1318 564.5 36.0 1053.0 100.0 68.0]
  3808.  
  3809. set conn1327 [$node1324 getInConn]
  3810. set segm1328 [$conn1327 getFirstSegm]
  3811.  
  3812. set conn1329 [$node1324 getFirstOutConn]
  3813. set segm1330 [$conn1329 getFirstSegm]
  3814.  
  3815. set conn1331 [$diag addConn generalization_conn $node1324 $node1319 853.0 68.0 853.0 100.0]
  3816. set segm1332 [$conn1331 getFirstSegm]
  3817.  
  3818. set conn1333 [$diag addConn generalization_conn $node1324 $node1320 668.5 68.0 668.5 100.0]
  3819. set segm1334 [$conn1333 getFirstSegm]
  3820.  
  3821. set conn1335 [$diag addConn generalization_conn $node1324 $node1321 516.0 68.0 516.0 100.0]
  3822. set segm1336 [$conn1335 getFirstSegm]
  3823.  
  3824. set conn1337 [$diag addConn generalization_conn $node1324 $node1322 364.0 68.0 364.0 100.0]
  3825. set segm1338 [$conn1337 getFirstSegm]
  3826.  
  3827. set conn1339 [$diag addConn generalization_conn $node1324 $node1323 212.0 68.0 212.0 100.0]
  3828. set segm1340 [$conn1339 getFirstSegm]
  3829.  
  3830. set conn1341 [$diag addConn generalization_conn $node1324 $node1325 60.0 68.0 60.0 100.0]
  3831. set segm1342 [$conn1341 getFirstSegm]
  3832.  
  3833. $diag save
  3834. } msg]} {
  3835.     puts stderr "\nAn error occurred while importing"
  3836.     puts stderr $msg
  3837. }
  3838.  
  3839.  
  3840. set msg ""
  3841. if {[catch {
  3842. set diag ""
  3843. set diag [CAD new PatriciaNodeTree "Framework" "" "" "" "" "" 1 1]
  3844.  
  3845. set node881 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  3846. $node881 setLabel "name" "PatriciaTree"
  3847. $node881 setProp "is_folded" "1"
  3848. $node881 setScope "name" "cl" "scopePhase"
  3849.  
  3850. set node882 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  3851. $node882 setLabel "name" "PatriciaNode"
  3852. $node882 setProp "is_folded" "1"
  3853. $node882 setScope "name" "cl" "scopePhase"
  3854.  
  3855. set node880 [$diag addRake generalization $node882 $node881 60.0 36.0 60.0 100.0 68.0]
  3856.  
  3857. set conn883 [$node880 getInConn]
  3858. set segm884 [$conn883 getFirstSegm]
  3859.  
  3860. set conn885 [$node880 getFirstOutConn]
  3861. set segm886 [$conn885 getFirstSegm]
  3862.  
  3863. $diag save
  3864. } msg]} {
  3865.     puts stderr "\nAn error occurred while importing"
  3866.     puts stderr $msg
  3867. }
  3868.  
  3869.  
  3870. set msg ""
  3871. if {[catch {
  3872. set diag ""
  3873. set diag [CAD new ProxyTree "Framework" "" "" "" "" "" 1 1]
  3874.  
  3875. set node1345 [$diag addNode cad_class 1580.0 100.0 192.0 36.0]
  3876. $node1345 setLabel "name" "ExternalConnectionProxy"
  3877. $node1345 setProp "is_folded" "1"
  3878. $node1345 setScope "name" "cl" "scopePhase"
  3879.  
  3880. set node1346 [$diag addNode cad_class 1428.0 100.0 120.0 36.0]
  3881. $node1346 setLabel "name" "StreamProxy"
  3882. $node1346 setProp "is_folded" "1"
  3883. $node1346 setScope "name" "cl" "scopePhase"
  3884.  
  3885. set node1347 [$diag addNode cad_class 1276.0 100.0 120.0 36.0]
  3886. $node1347 setLabel "name" "FileSysProxy"
  3887. $node1347 setProp "is_folded" "1"
  3888. $node1347 setScope "name" "cl" "scopePhase"
  3889.  
  3890. set node1348 [$diag addNode cad_class 1124.0 100.0 120.0 36.0]
  3891. $node1348 setLabel "name" "FSSessProxy"
  3892. $node1348 setProp "is_folded" "1"
  3893. $node1348 setScope "name" "cl" "scopePhase"
  3894.  
  3895. set node1349 [$diag addNode cad_class 953.0 100.0 139.0 36.0]
  3896. $node1349 setLabel "name" "MsgCatalogProxy"
  3897. $node1349 setProp "is_folded" "1"
  3898. $node1349 setScope "name" "cl" "scopePhase"
  3899.  
  3900. set node1350 [$diag addNode cad_class 801.0 100.0 120.0 36.0]
  3901. $node1350 setLabel "name" "FileProxy"
  3902. $node1350 setProp "is_folded" "1"
  3903. $node1350 setScope "name" "cl" "scopePhase"
  3904.  
  3905. set node1351 [$diag addNode cad_class 639.0 100.0 130.0 36.0]
  3906. $node1351 setLabel "name" "InstrumentProxy"
  3907. $node1351 setProp "is_folded" "1"
  3908. $node1351 setScope "name" "cl" "scopePhase"
  3909.  
  3910. set node1352 [$diag addNode cad_class 487.0 100.0 120.0 36.0]
  3911. $node1352 setLabel "name" "TimerProxy"
  3912. $node1352 setProp "is_folded" "1"
  3913. $node1352 setScope "name" "cl" "scopePhase"
  3914.  
  3915. set node1353 [$diag addNode cad_class 335.0 100.0 120.0 36.0]
  3916. $node1353 setLabel "name" "StateProxy"
  3917. $node1353 setProp "is_folded" "1"
  3918. $node1353 setScope "name" "cl" "scopePhase"
  3919.  
  3920. set node1354 [$diag addNode cad_class 183.0 100.0 120.0 36.0]
  3921. $node1354 setLabel "name" "CounterProxy"
  3922. $node1354 setProp "is_folded" "1"
  3923. $node1354 setScope "name" "cl" "scopePhase"
  3924.  
  3925. set node1356 [$diag addNode cad_class 0.0 100.0 151.0 36.0]
  3926. $node1356 setLabel "name" "ConfigurationProxy"
  3927. $node1356 setProp "is_folded" "1"
  3928. $node1356 setScope "name" "cl" "scopePhase"
  3929.  
  3930. set node1357 [$diag addNode cad_class 826.0 0.0 120.0 36.0]
  3931. $node1357 setLabel "name" "Proxy"
  3932. $node1357 setProp "is_folded" "1"
  3933. $node1357 setScope "name" "cl" "scopePhase"
  3934.  
  3935. set node1355 [$diag addRake generalization $node1357 $node1345 886.0 36.0 1676.0 100.0 68.0]
  3936.  
  3937. set conn1358 [$node1355 getInConn]
  3938. set segm1359 [$conn1358 getFirstSegm]
  3939.  
  3940. set conn1360 [$node1355 getFirstOutConn]
  3941. set segm1361 [$conn1360 getFirstSegm]
  3942.  
  3943. set conn1362 [$diag addConn generalization_conn $node1355 $node1346 1488.0 68.0 1488.0 100.0]
  3944. set segm1363 [$conn1362 getFirstSegm]
  3945.  
  3946. set conn1364 [$diag addConn generalization_conn $node1355 $node1347 1336.0 68.0 1336.0 100.0]
  3947. set segm1365 [$conn1364 getFirstSegm]
  3948.  
  3949. set conn1366 [$diag addConn generalization_conn $node1355 $node1348 1184.0 68.0 1184.0 100.0]
  3950. set segm1367 [$conn1366 getFirstSegm]
  3951.  
  3952. set conn1368 [$diag addConn generalization_conn $node1355 $node1349 1022.5 68.0 1022.5 100.0]
  3953. set segm1369 [$conn1368 getFirstSegm]
  3954.  
  3955. set conn1370 [$diag addConn generalization_conn $node1355 $node1350 861.0 68.0 861.0 100.0]
  3956. set segm1371 [$conn1370 getFirstSegm]
  3957.  
  3958. set conn1372 [$diag addConn generalization_conn $node1355 $node1351 704.0 68.0 704.0 100.0]
  3959. set segm1373 [$conn1372 getFirstSegm]
  3960.  
  3961. set conn1374 [$diag addConn generalization_conn $node1355 $node1352 547.0 68.0 547.0 100.0]
  3962. set segm1375 [$conn1374 getFirstSegm]
  3963.  
  3964. set conn1376 [$diag addConn generalization_conn $node1355 $node1353 395.0 68.0 395.0 100.0]
  3965. set segm1377 [$conn1376 getFirstSegm]
  3966.  
  3967. set conn1378 [$diag addConn generalization_conn $node1355 $node1354 243.0 68.0 243.0 100.0]
  3968. set segm1379 [$conn1378 getFirstSegm]
  3969.  
  3970. set conn1380 [$diag addConn generalization_conn $node1355 $node1356 75.5 68.0 75.5 100.0]
  3971. set segm1381 [$conn1380 getFirstSegm]
  3972.  
  3973. $diag save
  3974. } msg]} {
  3975.     puts stderr "\nAn error occurred while importing"
  3976.     puts stderr $msg
  3977. }
  3978.  
  3979.  
  3980. set msg ""
  3981. if {[catch {
  3982. set diag ""
  3983. set diag [CAD new ResourceManagerTree "Framework" "" "" "" "" "" 1 1]
  3984.  
  3985. set node923 [$diag addNode cad_class 164.0 200.0 139.0 36.0]
  3986. $node923 setLabel "name" "XactLockManager"
  3987. $node923 setProp "is_folded" "1"
  3988. $node923 setScope "name" "cl" "scopePhase"
  3989.  
  3990. set node925 [$diag addNode cad_class 0.0 200.0 132.0 36.0]
  3991. $node925 setLabel "name" "XactLogManager"
  3992. $node925 setProp "is_folded" "1"
  3993. $node925 setScope "name" "cl" "scopePhase"
  3994.  
  3995. set node927 [$diag addNode cad_class 65.0 100.0 173.0 36.0]
  3996. $node927 setLabel "name" "XactResourceManager"
  3997. $node927 setProp "is_folded" "1"
  3998. $node927 setScope "name" "cl" "scopePhase"
  3999.  
  4000. set node928 [$diag addNode cad_class 80.0 0.0 143.0 36.0]
  4001. $node928 setLabel "name" "ResourceManager"
  4002. $node928 setProp "is_folded" "1"
  4003. $node928 setScope "name" "cl" "scopePhase"
  4004.  
  4005. set node924 [$diag addRake generalization $node927 $node923 151.5 136.0 233.5 200.0 168.0]
  4006.  
  4007. set conn929 [$node924 getInConn]
  4008. set segm930 [$conn929 getFirstSegm]
  4009.  
  4010. set conn931 [$node924 getFirstOutConn]
  4011. set segm932 [$conn931 getFirstSegm]
  4012.  
  4013. set conn933 [$diag addConn generalization_conn $node924 $node925 66.0 168.0 66.0 200.0]
  4014. set segm934 [$conn933 getFirstSegm]
  4015.  
  4016. set node926 [$diag addRake generalization $node928 $node927 151.5 36.0 151.5 100.0 68.0]
  4017.  
  4018. set conn935 [$node926 getInConn]
  4019. set segm936 [$conn935 getFirstSegm]
  4020.  
  4021. set conn937 [$node926 getFirstOutConn]
  4022. set segm938 [$conn937 getFirstSegm]
  4023.  
  4024. $diag save
  4025. } msg]} {
  4026.     puts stderr "\nAn error occurred while importing"
  4027.     puts stderr $msg
  4028. }
  4029.  
  4030.  
  4031. set msg ""
  4032. if {[catch {
  4033. set diag ""
  4034. set diag [CAD new SynchronizerTree "Framework" "" "" "" "" "" 1 1]
  4035.  
  4036. set node1558 [$diag addNode cad_class 634.0 100.0 120.0 36.0]
  4037. $node1558 setLabel "name" "DurableLock"
  4038. $node1558 setProp "is_folded" "1"
  4039. $node1558 setScope "name" "cl" "scopePhase"
  4040.  
  4041. set node1559 [$diag addNode cad_class 477.0 100.0 125.0 36.0]
  4042. $node1559 setLabel "name" "InterTaskQueue"
  4043. $node1559 setProp "is_folded" "1"
  4044. $node1559 setScope "name" "cl" "scopePhase"
  4045.  
  4046. set node1560 [$diag addNode cad_class 304.0 100.0 141.0 36.0]
  4047. $node1560 setLabel "name" "ConditionVariable"
  4048. $node1560 setProp "is_folded" "1"
  4049. $node1560 setScope "name" "cl" "scopePhase"
  4050.  
  4051. set node1561 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  4052. $node1561 setLabel "name" "Mutex"
  4053. $node1561 setProp "is_folded" "1"
  4054. $node1561 setScope "name" "cl" "scopePhase"
  4055.  
  4056. set node1563 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4057. $node1563 setLabel "name" "Semaphore"
  4058. $node1563 setProp "is_folded" "1"
  4059. $node1563 setScope "name" "cl" "scopePhase"
  4060.  
  4061. set node1564 [$diag addNode cad_class 317.0 0.0 120.0 36.0]
  4062. $node1564 setLabel "name" "Synchronizer"
  4063. $node1564 setProp "is_folded" "1"
  4064. $node1564 setScope "name" "cl" "scopePhase"
  4065.  
  4066. set node1562 [$diag addRake generalization $node1564 $node1558 377.0 36.0 694.0 100.0 68.0]
  4067.  
  4068. set conn1565 [$node1562 getInConn]
  4069. set segm1566 [$conn1565 getFirstSegm]
  4070.  
  4071. set conn1567 [$node1562 getFirstOutConn]
  4072. set segm1568 [$conn1567 getFirstSegm]
  4073.  
  4074. set conn1569 [$diag addConn generalization_conn $node1562 $node1559 539.5 68.0 539.5 100.0]
  4075. set segm1570 [$conn1569 getFirstSegm]
  4076.  
  4077. set conn1571 [$diag addConn generalization_conn $node1562 $node1560 374.5 68.0 374.5 100.0]
  4078. set segm1572 [$conn1571 getFirstSegm]
  4079.  
  4080. set conn1573 [$diag addConn generalization_conn $node1562 $node1561 212.0 68.0 212.0 100.0]
  4081. set segm1574 [$conn1573 getFirstSegm]
  4082.  
  4083. set conn1575 [$diag addConn generalization_conn $node1562 $node1563 60.0 68.0 60.0 100.0]
  4084. set segm1576 [$conn1575 getFirstSegm]
  4085.  
  4086. $diag save
  4087. } msg]} {
  4088.     puts stderr "\nAn error occurred while importing"
  4089.     puts stderr $msg
  4090. }
  4091.  
  4092.  
  4093. set msg ""
  4094. if {[catch {
  4095. set diag ""
  4096. set diag [CAD new SystemResourceTree "Framework" "" "" "" "" "" 1 1]
  4097.  
  4098. set node1457 [$diag addNode cad_class 2184.0 100.0 152.0 36.0]
  4099. $node1457 setLabel "name" "ExternalConnection"
  4100. $node1457 setProp "is_folded" "1"
  4101. $node1457 setScope "name" "cl" "scopePhase"
  4102.  
  4103. set node1458 [$diag addNode cad_class 2032.0 100.0 120.0 36.0]
  4104. $node1458 setLabel "name" "DynScope"
  4105. $node1458 setProp "is_folded" "1"
  4106. $node1458 setScope "name" "cl" "scopePhase"
  4107.  
  4108. set node1459 [$diag addNode cad_class 1880.0 100.0 120.0 36.0]
  4109. $node1459 setLabel "name" "MutexPT"
  4110. $node1459 setProp "is_folded" "1"
  4111. $node1459 setScope "name" "cl" "scopePhase"
  4112.  
  4113. set node1460 [$diag addNode cad_class 1705.0 100.0 143.0 36.0]
  4114. $node1460 setLabel "name" "InterTaskQueuePT"
  4115. $node1460 setProp "is_folded" "1"
  4116. $node1460 setScope "name" "cl" "scopePhase"
  4117.  
  4118. set node1461 [$diag addNode cad_class 1514.0 100.0 159.0 36.0]
  4119. $node1461 setLabel "name" "ConditionVariablePT"
  4120. $node1461 setProp "is_folded" "1"
  4121. $node1461 setScope "name" "cl" "scopePhase"
  4122.  
  4123. set node1462 [$diag addNode cad_class 1358.0 100.0 124.0 36.0]
  4124. $node1462 setLabel "name" "DynamicLibrary"
  4125. $node1462 setProp "is_folded" "1"
  4126. $node1462 setScope "name" "cl" "scopePhase"
  4127.  
  4128. set node1463 [$diag addNode cad_class 1206.0 100.0 120.0 36.0]
  4129. $node1463 setLabel "name" "Alarm"
  4130. $node1463 setProp "is_folded" "1"
  4131. $node1463 setScope "name" "cl" "scopePhase"
  4132.  
  4133. set node1464 [$diag addNode cad_class 1031.0 200.0 143.0 36.0]
  4134. $node1464 setLabel "name" "InterTaskQueuePT"
  4135. $node1464 setProp "is_folded" "1"
  4136. $node1464 setScope "name" "cl" "scopePhase"
  4137.  
  4138. set node1466 [$diag addNode cad_class 847.0 200.0 152.0 36.0]
  4139. $node1466 setLabel "name" "InterTaskQueueSTh"
  4140. $node1466 setProp "is_folded" "1"
  4141. $node1466 setScope "name" "cl" "scopePhase"
  4142.  
  4143. set node1467 [$diag addNode cad_class 948.0 100.0 125.0 36.0]
  4144. $node1467 setLabel "name" "InterTaskQueue"
  4145. $node1467 setProp "is_folded" "1"
  4146. $node1467 setScope "name" "cl" "scopePhase"
  4147.  
  4148. set node1468 [$diag addNode cad_class 647.0 200.0 168.0 36.0]
  4149. $node1468 setLabel "name" "ConditionVariableSTh"
  4150. $node1468 setProp "is_folded" "1"
  4151. $node1468 setScope "name" "cl" "scopePhase"
  4152.  
  4153. set node1470 [$diag addNode cad_class 456.0 200.0 159.0 36.0]
  4154. $node1470 setLabel "name" "ConditionVariablePT"
  4155. $node1470 setProp "is_folded" "1"
  4156. $node1470 setScope "name" "cl" "scopePhase"
  4157.  
  4158. set node1471 [$diag addNode cad_class 565.0 100.0 141.0 36.0]
  4159. $node1471 setLabel "name" "ConditionVariable"
  4160. $node1471 setProp "is_folded" "1"
  4161. $node1471 setScope "name" "cl" "scopePhase"
  4162.  
  4163. set node1472 [$diag addNode cad_class 304.0 200.0 120.0 36.0]
  4164. $node1472 setLabel "name" "MutexPT"
  4165. $node1472 setProp "is_folded" "1"
  4166. $node1472 setScope "name" "cl" "scopePhase"
  4167.  
  4168. set node1474 [$diag addNode cad_class 152.0 200.0 120.0 36.0]
  4169. $node1474 setLabel "name" "MutexSTh"
  4170. $node1474 setProp "is_folded" "1"
  4171. $node1474 setScope "name" "cl" "scopePhase"
  4172.  
  4173. set node1475 [$diag addNode cad_class 228.0 100.0 120.0 36.0]
  4174. $node1475 setLabel "name" "Mutex"
  4175. $node1475 setProp "is_folded" "1"
  4176. $node1475 setScope "name" "cl" "scopePhase"
  4177.  
  4178. set node1477 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4179. $node1477 setLabel "name" "Task"
  4180. $node1477 setProp "is_folded" "1"
  4181. $node1477 setScope "name" "cl" "scopePhase"
  4182.  
  4183. set node1478 [$diag addNode cad_class 1101.5 0.0 133.0 36.0]
  4184. $node1478 setLabel "name" "SystemResource"
  4185. $node1478 setProp "is_folded" "1"
  4186. $node1478 setScope "name" "cl" "scopePhase"
  4187.  
  4188. set node1465 [$diag addRake generalization $node1467 $node1464 1010.5 136.0 1102.5 200.0 168.0]
  4189.  
  4190. set conn1479 [$node1465 getInConn]
  4191. set segm1480 [$conn1479 getFirstSegm]
  4192.  
  4193. set conn1481 [$node1465 getFirstOutConn]
  4194. set segm1482 [$conn1481 getFirstSegm]
  4195.  
  4196. set conn1483 [$diag addConn generalization_conn $node1465 $node1466 923.0 168.0 923.0 200.0]
  4197. set segm1484 [$conn1483 getFirstSegm]
  4198.  
  4199. set node1469 [$diag addRake generalization $node1471 $node1468 635.5 136.0 731.0 200.0 168.0]
  4200.  
  4201. set conn1485 [$node1469 getInConn]
  4202. set segm1486 [$conn1485 getFirstSegm]
  4203.  
  4204. set conn1487 [$node1469 getFirstOutConn]
  4205. set segm1488 [$conn1487 getFirstSegm]
  4206.  
  4207. set conn1489 [$diag addConn generalization_conn $node1469 $node1470 535.5 168.0 535.5 200.0]
  4208. set segm1490 [$conn1489 getFirstSegm]
  4209.  
  4210. set node1473 [$diag addRake generalization $node1475 $node1472 288.0 136.0 364.0 200.0 168.0]
  4211.  
  4212. set conn1491 [$node1473 getInConn]
  4213. set segm1492 [$conn1491 getFirstSegm]
  4214.  
  4215. set conn1493 [$node1473 getFirstOutConn]
  4216. set segm1494 [$conn1493 getFirstSegm]
  4217.  
  4218. set conn1495 [$diag addConn generalization_conn $node1473 $node1474 212.0 168.0 212.0 200.0]
  4219. set segm1496 [$conn1495 getFirstSegm]
  4220.  
  4221. set node1476 [$diag addRake generalization $node1478 $node1457 1168.0 36.0 2260.0 100.0 68.0]
  4222.  
  4223. set conn1497 [$node1476 getInConn]
  4224. set segm1498 [$conn1497 getFirstSegm]
  4225.  
  4226. set conn1499 [$node1476 getFirstOutConn]
  4227. set segm1500 [$conn1499 getFirstSegm]
  4228.  
  4229. set conn1501 [$diag addConn generalization_conn $node1476 $node1458 2092.0 68.0 2092.0 100.0]
  4230. set segm1502 [$conn1501 getFirstSegm]
  4231.  
  4232. set conn1503 [$diag addConn generalization_conn $node1476 $node1459 1940.0 68.0 1940.0 100.0]
  4233. set segm1504 [$conn1503 getFirstSegm]
  4234.  
  4235. set conn1505 [$diag addConn generalization_conn $node1476 $node1460 1776.5 68.0 1776.5 100.0]
  4236. set segm1506 [$conn1505 getFirstSegm]
  4237.  
  4238. set conn1507 [$diag addConn generalization_conn $node1476 $node1461 1593.5 68.0 1593.5 100.0]
  4239. set segm1508 [$conn1507 getFirstSegm]
  4240.  
  4241. set conn1509 [$diag addConn generalization_conn $node1476 $node1462 1420.0 68.0 1420.0 100.0]
  4242. set segm1510 [$conn1509 getFirstSegm]
  4243.  
  4244. set conn1511 [$diag addConn generalization_conn $node1476 $node1463 1266.0 68.0 1266.0 100.0]
  4245. set segm1512 [$conn1511 getFirstSegm]
  4246.  
  4247. set conn1513 [$diag addConn generalization_conn $node1476 $node1467 1010.5 68.0 1010.5 100.0]
  4248. set segm1514 [$conn1513 getFirstSegm]
  4249.  
  4250. set conn1515 [$diag addConn generalization_conn $node1476 $node1471 635.5 68.0 635.5 100.0]
  4251. set segm1516 [$conn1515 getFirstSegm]
  4252.  
  4253. set conn1517 [$diag addConn generalization_conn $node1476 $node1475 288.0 68.0 288.0 100.0]
  4254. set segm1518 [$conn1517 getFirstSegm]
  4255.  
  4256. set conn1519 [$diag addConn generalization_conn $node1476 $node1477 60.0 68.0 60.0 100.0]
  4257. set segm1520 [$conn1519 getFirstSegm]
  4258.  
  4259. $diag save
  4260. } msg]} {
  4261.     puts stderr "\nAn error occurred while importing"
  4262.     puts stderr $msg
  4263. }
  4264.  
  4265.  
  4266. set msg ""
  4267. if {[catch {
  4268. set diag ""
  4269. set diag [CAD new TaskDescTree "Framework" "" "" "" "" "" 1 1]
  4270.  
  4271. set node1679 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4272. $node1679 setLabel "name" "RemoteTaskId"
  4273. $node1679 setProp "is_folded" "1"
  4274. $node1679 setScope "name" "cl" "scopePhase"
  4275.  
  4276. set node1680 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  4277. $node1680 setLabel "name" "TaskDesc"
  4278. $node1680 setProp "is_folded" "1"
  4279. $node1680 setScope "name" "cl" "scopePhase"
  4280.  
  4281. set node1678 [$diag addRake generalization $node1680 $node1679 60.0 36.0 60.0 100.0 68.0]
  4282.  
  4283. set conn1681 [$node1678 getInConn]
  4284. set segm1682 [$conn1681 getFirstSegm]
  4285.  
  4286. set conn1683 [$node1678 getFirstOutConn]
  4287. set segm1684 [$conn1683 getFirstSegm]
  4288.  
  4289. $diag save
  4290. } msg]} {
  4291.     puts stderr "\nAn error occurred while importing"
  4292.     puts stderr $msg
  4293. }
  4294.  
  4295.  
  4296. set msg ""
  4297. if {[catch {
  4298. set diag ""
  4299. set diag [CAD new TaskHandleTree "Framework" "" "" "" "" "" 1 1]
  4300.  
  4301. set node1538 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  4302. $node1538 setLabel "name" "TaskSTh"
  4303. $node1538 setProp "is_folded" "1"
  4304. $node1538 setScope "name" "cl" "scopePhase"
  4305.  
  4306. set node1540 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4307. $node1540 setLabel "name" "TaskMTh"
  4308. $node1540 setProp "is_folded" "1"
  4309. $node1540 setScope "name" "cl" "scopePhase"
  4310.  
  4311. set node1541 [$diag addNode cad_class 76.0 0.0 120.0 36.0]
  4312. $node1541 setLabel "name" "TaskHandle"
  4313. $node1541 setProp "is_folded" "1"
  4314. $node1541 setScope "name" "cl" "scopePhase"
  4315.  
  4316. set node1539 [$diag addRake generalization $node1541 $node1538 136.0 36.0 212.0 100.0 68.0]
  4317.  
  4318. set conn1542 [$node1539 getInConn]
  4319. set segm1543 [$conn1542 getFirstSegm]
  4320.  
  4321. set conn1544 [$node1539 getFirstOutConn]
  4322. set segm1545 [$conn1544 getFirstSegm]
  4323.  
  4324. set conn1546 [$diag addConn generalization_conn $node1539 $node1540 60.0 68.0 60.0 100.0]
  4325. set segm1547 [$conn1546 getFirstSegm]
  4326.  
  4327. $diag save
  4328. } msg]} {
  4329.     puts stderr "\nAn error occurred while importing"
  4330.     puts stderr $msg
  4331. }
  4332.  
  4333.  
  4334. set msg ""
  4335. if {[catch {
  4336. set diag ""
  4337. set diag [CAD new TaskInitiatorTree "Framework" "" "" "" "" "" 1 1]
  4338.  
  4339. set node939 [$diag addNode cad_class 1623.0 100.0 152.0 36.0]
  4340. $node939 setLabel "name" "InternalServiceTask"
  4341. $node939 setProp "is_folded" "1"
  4342. $node939 setScope "name" "cl" "scopePhase"
  4343.  
  4344. set node940 [$diag addNode cad_class 1462.0 100.0 129.0 36.0]
  4345. $node940 setLabel "name" "XactMsgContext"
  4346. $node940 setProp "is_folded" "1"
  4347. $node940 setScope "name" "cl" "scopePhase"
  4348.  
  4349. set node941 [$diag addNode cad_class 1310.0 100.0 120.0 36.0]
  4350. $node941 setLabel "name" "LOMTask"
  4351. $node941 setProp "is_folded" "1"
  4352. $node941 setScope "name" "cl" "scopePhase"
  4353.  
  4354. set node943 [$diag addNode cad_class 1157.0 200.0 121.0 36.0]
  4355. $node943 setLabel "name" "4GLExternalRef"
  4356. $node943 setProp "is_folded" "1"
  4357. $node943 setScope "name" "cl" "scopePhase"
  4358.  
  4359. set node944 [$diag addNode cad_class 1157.5 100.0 120.0 36.0]
  4360. $node944 setLabel "name" "ExternalRef"
  4361. $node944 setProp "is_folded" "1"
  4362. $node944 setScope "name" "cl" "scopePhase"
  4363.  
  4364. set node945 [$diag addNode cad_class 974.0 100.0 151.0 36.0]
  4365. $node945 setLabel "name" "ActivityServiceTask"
  4366. $node945 setProp "is_folded" "1"
  4367. $node945 setScope "name" "cl" "scopePhase"
  4368.  
  4369. set node946 [$diag addNode cad_class 811.0 100.0 131.0 36.0]
  4370. $node946 setLabel "name" "PartShutInitiator"
  4371. $node946 setProp "is_folded" "1"
  4372. $node946 setScope "name" "cl" "scopePhase"
  4373.  
  4374. set node947 [$diag addNode cad_class 659.0 100.0 120.0 36.0]
  4375. $node947 setLabel "name" "AlarmSTask"
  4376. $node947 setProp "is_folded" "1"
  4377. $node947 setScope "name" "cl" "scopePhase"
  4378.  
  4379. set node948 [$diag addNode cad_class 507.0 100.0 120.0 36.0]
  4380. $node948 setLabel "name" "AlarmTask"
  4381. $node948 setProp "is_folded" "1"
  4382. $node948 setScope "name" "cl" "scopePhase"
  4383.  
  4384. set node949 [$diag addNode cad_class 345.0 100.0 130.0 36.0]
  4385. $node949 setLabel "name" "LomTaskInitiator"
  4386. $node949 setProp "is_folded" "1"
  4387. $node949 setScope "name" "cl" "scopePhase"
  4388.  
  4389. set node950 [$diag addNode cad_class 158.0 100.0 155.0 36.0]
  4390. $node950 setLabel "name" "DOGServiceInitiator"
  4391. $node950 setProp "is_folded" "1"
  4392. $node950 setScope "name" "cl" "scopePhase"
  4393.  
  4394. set node952 [$diag addNode cad_class 0.0 100.0 126.0 36.0]
  4395. $node952 setLabel "name" "DispObjInitiator"
  4396. $node952 setProp "is_folded" "1"
  4397. $node952 setScope "name" "cl" "scopePhase"
  4398.  
  4399. set node953 [$diag addNode cad_class 827.5 0.0 120.0 36.0]
  4400. $node953 setLabel "name" "TaskInitiator"
  4401. $node953 setProp "is_folded" "1"
  4402. $node953 setScope "name" "cl" "scopePhase"
  4403.  
  4404. set node942 [$diag addRake generalization $node944 $node943 1217.5 136.0 1217.5 200.0 168.0]
  4405.  
  4406. set conn954 [$node942 getInConn]
  4407. set segm955 [$conn954 getFirstSegm]
  4408.  
  4409. set conn956 [$node942 getFirstOutConn]
  4410. set segm957 [$conn956 getFirstSegm]
  4411.  
  4412. set node951 [$diag addRake generalization $node953 $node939 887.5 36.0 1699.0 100.0 68.0]
  4413.  
  4414. set conn958 [$node951 getInConn]
  4415. set segm959 [$conn958 getFirstSegm]
  4416.  
  4417. set conn960 [$node951 getFirstOutConn]
  4418. set segm961 [$conn960 getFirstSegm]
  4419.  
  4420. set conn962 [$diag addConn generalization_conn $node951 $node940 1526.5 68.0 1526.5 100.0]
  4421. set segm963 [$conn962 getFirstSegm]
  4422.  
  4423. set conn964 [$diag addConn generalization_conn $node951 $node941 1370.0 68.0 1370.0 100.0]
  4424. set segm965 [$conn964 getFirstSegm]
  4425.  
  4426. set conn966 [$diag addConn generalization_conn $node951 $node944 1217.5 68.0 1217.5 100.0]
  4427. set segm967 [$conn966 getFirstSegm]
  4428.  
  4429. set conn968 [$diag addConn generalization_conn $node951 $node945 1049.5 68.0 1049.5 100.0]
  4430. set segm969 [$conn968 getFirstSegm]
  4431.  
  4432. set conn970 [$diag addConn generalization_conn $node951 $node946 876.5 68.0 876.5 100.0]
  4433. set segm971 [$conn970 getFirstSegm]
  4434.  
  4435. set conn972 [$diag addConn generalization_conn $node951 $node947 719.0 68.0 719.0 100.0]
  4436. set segm973 [$conn972 getFirstSegm]
  4437.  
  4438. set conn974 [$diag addConn generalization_conn $node951 $node948 567.0 68.0 567.0 100.0]
  4439. set segm975 [$conn974 getFirstSegm]
  4440.  
  4441. set conn976 [$diag addConn generalization_conn $node951 $node949 410.0 68.0 410.0 100.0]
  4442. set segm977 [$conn976 getFirstSegm]
  4443.  
  4444. set conn978 [$diag addConn generalization_conn $node951 $node950 235.5 68.0 235.5 100.0]
  4445. set segm979 [$conn978 getFirstSegm]
  4446.  
  4447. set conn980 [$diag addConn generalization_conn $node951 $node952 63.0 68.0 63.0 100.0]
  4448. set segm981 [$conn980 getFirstSegm]
  4449.  
  4450. $diag save
  4451. } msg]} {
  4452.     puts stderr "\nAn error occurred while importing"
  4453.     puts stderr $msg
  4454. }
  4455.  
  4456.  
  4457. set msg ""
  4458. if {[catch {
  4459. set diag ""
  4460. set diag [CAD new TaskManagerTree "Framework" "" "" "" "" "" 1 1]
  4461.  
  4462. set node897 [$diag addNode cad_class 170.0 100.0 135.0 36.0]
  4463. $node897 setLabel "name" "TaskManagerSTh"
  4464. $node897 setProp "is_folded" "1"
  4465. $node897 setScope "name" "cl" "scopePhase"
  4466.  
  4467. set node899 [$diag addNode cad_class 0.0 200.0 126.0 36.0]
  4468. $node899 setLabel "name" "TaskManagerPT"
  4469. $node899 setProp "is_folded" "1"
  4470. $node899 setScope "name" "cl" "scopePhase"
  4471.  
  4472. set node901 [$diag addNode cad_class 0.0 100.0 138.0 36.0]
  4473. $node901 setLabel "name" "TaskManagerMTh"
  4474. $node901 setProp "is_folded" "1"
  4475. $node901 setScope "name" "cl" "scopePhase"
  4476.  
  4477. set node902 [$diag addNode cad_class 92.5 0.0 120.0 36.0]
  4478. $node902 setLabel "name" "TaskManager"
  4479. $node902 setProp "is_folded" "1"
  4480. $node902 setScope "name" "cl" "scopePhase"
  4481.  
  4482. set node898 [$diag addRake generalization $node901 $node899 69.0 136.0 63.0 200.0 168.0]
  4483.  
  4484. set conn903 [$node898 getInConn]
  4485. set segm904 [$conn903 getFirstSegm]
  4486.  
  4487. set conn905 [$node898 getFirstOutConn]
  4488. set segm906 [$conn905 getFirstSegm]
  4489.  
  4490. set node900 [$diag addRake generalization $node902 $node897 152.5 36.0 237.5 100.0 68.0]
  4491.  
  4492. set conn907 [$node900 getInConn]
  4493. set segm908 [$conn907 getFirstSegm]
  4494.  
  4495. set conn909 [$node900 getFirstOutConn]
  4496. set segm910 [$conn909 getFirstSegm]
  4497.  
  4498. set conn911 [$diag addConn generalization_conn $node900 $node901 69.0 68.0 69.0 100.0]
  4499. set segm912 [$conn911 getFirstSegm]
  4500.  
  4501. $diag save
  4502. } msg]} {
  4503.     puts stderr "\nAn error occurred while importing"
  4504.     puts stderr $msg
  4505. }
  4506.  
  4507.  
  4508. set msg ""
  4509. if {[catch {
  4510. set diag ""
  4511. set diag [CAD new TaskStateMonitorTree "Framework" "" "" "" "" "" 1 1]
  4512.  
  4513. set node1191 [$diag addNode cad_class 472.0 100.0 152.0 36.0]
  4514. $node1191 setLabel "name" "ExternalConnection"
  4515. $node1191 setProp "is_folded" "1"
  4516. $node1191 setScope "name" "cl" "scopePhase"
  4517.  
  4518. set node1192 [$diag addNode cad_class 304.0 100.0 136.0 36.0]
  4519. $node1192 setLabel "name" "OperatingSystem"
  4520. $node1192 setProp "is_folded" "1"
  4521. $node1192 setScope "name" "cl" "scopePhase"
  4522.  
  4523. set node1193 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  4524. $node1193 setLabel "name" "CNM"
  4525. $node1193 setProp "is_folded" "1"
  4526. $node1193 setScope "name" "cl" "scopePhase"
  4527.  
  4528. set node1195 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4529. $node1195 setLabel "name" "LEM"
  4530. $node1195 setProp "is_folded" "1"
  4531. $node1195 setScope "name" "cl" "scopePhase"
  4532.  
  4533. set node1196 [$diag addNode cad_class 243.0 0.0 138.0 36.0]
  4534. $node1196 setLabel "name" "TaskStateMonitor"
  4535. $node1196 setProp "is_folded" "1"
  4536. $node1196 setScope "name" "cl" "scopePhase"
  4537.  
  4538. set node1194 [$diag addRake generalization $node1196 $node1191 312.0 36.0 548.0 100.0 68.0]
  4539.  
  4540. set conn1197 [$node1194 getInConn]
  4541. set segm1198 [$conn1197 getFirstSegm]
  4542.  
  4543. set conn1199 [$node1194 getFirstOutConn]
  4544. set segm1200 [$conn1199 getFirstSegm]
  4545.  
  4546. set conn1201 [$diag addConn generalization_conn $node1194 $node1192 372.0 68.0 372.0 100.0]
  4547. set segm1202 [$conn1201 getFirstSegm]
  4548.  
  4549. set conn1203 [$diag addConn generalization_conn $node1194 $node1193 212.0 68.0 212.0 100.0]
  4550. set segm1204 [$conn1203 getFirstSegm]
  4551.  
  4552. set conn1205 [$diag addConn generalization_conn $node1194 $node1195 60.0 68.0 60.0 100.0]
  4553. set segm1206 [$conn1205 getFirstSegm]
  4554.  
  4555. $diag save
  4556. } msg]} {
  4557.     puts stderr "\nAn error occurred while importing"
  4558.     puts stderr $msg
  4559. }
  4560.  
  4561.  
  4562. set msg ""
  4563. if {[catch {
  4564. set diag ""
  4565. set diag [CAD new TextDataTree "Framework" "" "" "" "" "" 1 1]
  4566.  
  4567. set node1422 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4568. $node1422 setLabel "name" "NullString"
  4569. $node1422 setProp "is_folded" "1"
  4570. $node1422 setScope "name" "cl" "scopePhase"
  4571.  
  4572. set node1423 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  4573. $node1423 setLabel "name" "TextData"
  4574. $node1423 setProp "is_folded" "1"
  4575. $node1423 setScope "name" "cl" "scopePhase"
  4576.  
  4577. set node1421 [$diag addRake generalization $node1423 $node1422 60.0 36.0 60.0 100.0 68.0]
  4578.  
  4579. set conn1424 [$node1421 getInConn]
  4580. set segm1425 [$conn1424 getFirstSegm]
  4581.  
  4582. set conn1426 [$node1421 getFirstOutConn]
  4583. set segm1427 [$conn1426 getFirstSegm]
  4584.  
  4585. $diag save
  4586. } msg]} {
  4587.     puts stderr "\nAn error occurred while importing"
  4588.     puts stderr $msg
  4589. }
  4590.  
  4591.  
  4592. set msg ""
  4593. if {[catch {
  4594. set diag ""
  4595. set diag [CAD new TextNullableTree "Framework" "" "" "" "" "" 1 1]
  4596.  
  4597. set node1818 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4598. $node1818 setLabel "name" "4GLNullString"
  4599. $node1818 setProp "is_folded" "1"
  4600. $node1818 setScope "name" "cl" "scopePhase"
  4601.  
  4602. set node1819 [$diag addNode cad_class 0.0 0.0 120.0 36.0]
  4603. $node1819 setLabel "name" "TextNullable"
  4604. $node1819 setProp "is_folded" "1"
  4605. $node1819 setScope "name" "cl" "scopePhase"
  4606.  
  4607. set node1817 [$diag addRake generalization $node1819 $node1818 60.0 36.0 60.0 100.0 68.0]
  4608.  
  4609. set conn1820 [$node1817 getInConn]
  4610. set segm1821 [$conn1820 getFirstSegm]
  4611.  
  4612. set conn1822 [$node1817 getFirstOutConn]
  4613. set segm1823 [$conn1822 getFirstSegm]
  4614.  
  4615. $diag save
  4616. } msg]} {
  4617.     puts stderr "\nAn error occurred while importing"
  4618.     puts stderr $msg
  4619. }
  4620.  
  4621.  
  4622. set msg ""
  4623. if {[catch {
  4624. set diag ""
  4625. set diag [CAD new TransactionDescTree "Framework" "" "" "" "" "" 1 1]
  4626.  
  4627. set node1549 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4628. $node1549 setLabel "name" "FullXactId"
  4629. $node1549 setProp "is_folded" "1"
  4630. $node1549 setScope "name" "cl" "scopePhase"
  4631.  
  4632. set node1550 [$diag addNode cad_class 0.0 0.0 132.0 36.0]
  4633. $node1550 setLabel "name" "TransactionDesc"
  4634. $node1550 setProp "is_folded" "1"
  4635. $node1550 setScope "name" "cl" "scopePhase"
  4636.  
  4637. set node1548 [$diag addRake generalization $node1550 $node1549 66.0 36.0 60.0 100.0 68.0]
  4638.  
  4639. set conn1551 [$node1548 getInConn]
  4640. set segm1552 [$conn1551 getFirstSegm]
  4641.  
  4642. set conn1553 [$node1548 getFirstOutConn]
  4643. set segm1554 [$conn1553 getFirstSegm]
  4644.  
  4645. $diag save
  4646. } msg]} {
  4647.     puts stderr "\nAn error occurred while importing"
  4648.     puts stderr $msg
  4649. }
  4650.  
  4651.  
  4652. set msg ""
  4653. if {[catch {
  4654. set diag ""
  4655. set diag [CAD new XactIdEntryTree "Framework" "" "" "" "" "" 1 1]
  4656.  
  4657. set node1012 [$diag addNode cad_class 304.0 100.0 120.0 36.0]
  4658. $node1012 setLabel "name" "XactLockList"
  4659. $node1012 setProp "is_folded" "1"
  4660. $node1012 setScope "name" "cl" "scopePhase"
  4661.  
  4662. set node1013 [$diag addNode cad_class 152.0 100.0 120.0 36.0]
  4663. $node1013 setLabel "name" "XactLogRoot"
  4664. $node1013 setProp "is_folded" "1"
  4665. $node1013 setScope "name" "cl" "scopePhase"
  4666.  
  4667. set node1015 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4668. $node1015 setLabel "name" "Xact"
  4669. $node1015 setProp "is_folded" "1"
  4670. $node1015 setScope "name" "cl" "scopePhase"
  4671.  
  4672. set node1016 [$diag addNode cad_class 152.0 0.0 120.0 36.0]
  4673. $node1016 setLabel "name" "XactIdEntry"
  4674. $node1016 setProp "is_folded" "1"
  4675. $node1016 setScope "name" "cl" "scopePhase"
  4676.  
  4677. set node1014 [$diag addRake generalization $node1016 $node1012 212.0 36.0 364.0 100.0 68.0]
  4678.  
  4679. set conn1017 [$node1014 getInConn]
  4680. set segm1018 [$conn1017 getFirstSegm]
  4681.  
  4682. set conn1019 [$node1014 getFirstOutConn]
  4683. set segm1020 [$conn1019 getFirstSegm]
  4684.  
  4685. set conn1021 [$diag addConn generalization_conn $node1014 $node1013 212.0 68.0 212.0 100.0]
  4686. set segm1022 [$conn1021 getFirstSegm]
  4687.  
  4688. set conn1023 [$diag addConn generalization_conn $node1014 $node1015 60.0 68.0 60.0 100.0]
  4689. set segm1024 [$conn1023 getFirstSegm]
  4690.  
  4691. $diag save
  4692. } msg]} {
  4693.     puts stderr "\nAn error occurred while importing"
  4694.     puts stderr $msg
  4695. }
  4696.  
  4697.  
  4698. set msg ""
  4699. if {[catch {
  4700. set diag ""
  4701. set diag [CAD new XlateDriverTree "Framework" "" "" "" "" "" 1 1]
  4702.  
  4703. set node1094 [$diag addNode cad_class 152.0 200.0 168.0 36.0]
  4704. $node1094 setLabel "name" "TextEncodedDSDriver"
  4705. $node1094 setProp "is_folded" "1"
  4706. $node1094 setScope "name" "cl" "scopePhase"
  4707.  
  4708. set node1095 [$diag addNode cad_class 168.5 100.0 135.0 36.0]
  4709. $node1095 setLabel "name" "DeSerializeDriver"
  4710. $node1095 setProp "is_folded" "1"
  4711. $node1095 setScope "name" "cl" "scopePhase"
  4712.  
  4713. set node1097 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4714. $node1097 setLabel "name" "SerializeDriver"
  4715. $node1097 setProp "is_folded" "1"
  4716. $node1097 setScope "name" "cl" "scopePhase"
  4717.  
  4718. set node1098 [$diag addNode cad_class 100.0 0.0 120.0 36.0]
  4719. $node1098 setLabel "name" "XlateDriver"
  4720. $node1098 setProp "is_folded" "1"
  4721. $node1098 setScope "name" "cl" "scopePhase"
  4722.  
  4723. set node1093 [$diag addRake generalization $node1095 $node1094 236.0 136.0 236.0 200.0 168.0]
  4724.  
  4725. set conn1099 [$node1093 getInConn]
  4726. set segm1100 [$conn1099 getFirstSegm]
  4727.  
  4728. set conn1101 [$node1093 getFirstOutConn]
  4729. set segm1102 [$conn1101 getFirstSegm]
  4730.  
  4731. set node1096 [$diag addRake generalization $node1098 $node1095 160.0 36.0 236.0 100.0 68.0]
  4732.  
  4733. set conn1103 [$node1096 getInConn]
  4734. set segm1104 [$conn1103 getFirstSegm]
  4735.  
  4736. set conn1105 [$node1096 getFirstOutConn]
  4737. set segm1106 [$conn1105 getFirstSegm]
  4738.  
  4739. set conn1107 [$diag addConn generalization_conn $node1096 $node1097 60.0 68.0 60.0 100.0]
  4740. set segm1108 [$conn1107 getFirstSegm]
  4741.  
  4742. $diag save
  4743. } msg]} {
  4744.     puts stderr "\nAn error occurred while importing"
  4745.     puts stderr $msg
  4746. }
  4747.  
  4748.  
  4749. set msg ""
  4750. if {[catch {
  4751. set diag ""
  4752. set diag [CAD new XlateObjectTree "Framework" "" "" "" "" "" 1 1]
  4753.  
  4754. set node40 [$diag addNode cad_class 1166.0 100.0 137.0 36.0]
  4755. $node40 setLabel "name" "FileSerializeValue"
  4756. $node40 setProp "is_folded" "1"
  4757. $node40 setScope "name" "cl" "scopePhase"
  4758.  
  4759. set node41 [$diag addNode cad_class 993.0 100.0 141.0 36.0]
  4760. $node41 setLabel "name" "FileSerialKeyDesc"
  4761. $node41 setProp "is_folded" "1"
  4762. $node41 setScope "name" "cl" "scopePhase"
  4763.  
  4764. set node42 [$diag addNode cad_class 837.0 100.0 124.0 36.0]
  4765. $node42 setLabel "name" "FileSerializeKey"
  4766. $node42 setProp "is_folded" "1"
  4767. $node42 setScope "name" "cl" "scopePhase"
  4768.  
  4769. set node43 [$diag addNode cad_class 649.0 100.0 156.0 36.0]
  4770. $node43 setLabel "name" "FileDeSerializeValue"
  4771. $node43 setProp "is_folded" "1"
  4772. $node43 setScope "name" "cl" "scopePhase"
  4773.  
  4774. set node44 [$diag addNode cad_class 474.0 100.0 143.0 36.0]
  4775. $node44 setLabel "name" "FileDeSerializeKey"
  4776. $node44 setProp "is_folded" "1"
  4777. $node44 setScope "name" "cl" "scopePhase"
  4778.  
  4779. set node45 [$diag addNode cad_class 322.0 100.0 120.0 36.0]
  4780. $node45 setLabel "name" "DumpObject"
  4781. $node45 setProp "is_folded" "1"
  4782. $node45 setScope "name" "cl" "scopePhase"
  4783.  
  4784. set node46 [$diag addNode cad_class 152.0 100.0 138.0 36.0]
  4785. $node46 setLabel "name" "DeSerializeObject"
  4786. $node46 setProp "is_folded" "1"
  4787. $node46 setScope "name" "cl" "scopePhase"
  4788.  
  4789. set node48 [$diag addNode cad_class 0.0 100.0 120.0 36.0]
  4790. $node48 setLabel "name" "SerializeObject"
  4791. $node48 setProp "is_folded" "1"
  4792. $node48 setScope "name" "cl" "scopePhase"
  4793.  
  4794. set node49 [$diag addNode cad_class 591.5 0.0 120.0 36.0]
  4795. $node49 setLabel "name" "XlateObject"
  4796. $node49 setProp "is_folded" "1"
  4797. $node49 setScope "name" "cl" "scopePhase"
  4798.  
  4799. set node47 [$diag addRake generalization $node49 $node40 651.5 36.0 1234.5 100.0 68.0]
  4800.  
  4801. set conn50 [$node47 getInConn]
  4802. set segm51 [$conn50 getFirstSegm]
  4803.  
  4804. set conn52 [$node47 getFirstOutConn]
  4805. set segm53 [$conn52 getFirstSegm]
  4806.  
  4807. set conn54 [$diag addConn generalization_conn $node47 $node41 1063.5 68.0 1063.5 100.0]
  4808. set segm55 [$conn54 getFirstSegm]
  4809.  
  4810. set conn56 [$diag addConn generalization_conn $node47 $node42 899.0 68.0 899.0 100.0]
  4811. set segm57 [$conn56 getFirstSegm]
  4812.  
  4813. set conn58 [$diag addConn generalization_conn $node47 $node43 727.0 68.0 727.0 100.0]
  4814. set segm59 [$conn58 getFirstSegm]
  4815.  
  4816. set conn60 [$diag addConn generalization_conn $node47 $node44 545.5 68.0 545.5 100.0]
  4817. set segm61 [$conn60 getFirstSegm]
  4818.  
  4819. set conn62 [$diag addConn generalization_conn $node47 $node45 382.0 68.0 382.0 100.0]
  4820. set segm63 [$conn62 getFirstSegm]
  4821.  
  4822. set conn64 [$diag addConn generalization_conn $node47 $node46 221.0 68.0 221.0 100.0]
  4823. set segm65 [$conn64 getFirstSegm]
  4824.  
  4825. set conn66 [$diag addConn generalization_conn $node47 $node48 60.0 68.0 60.0 100.0]
  4826. set segm67 [$conn66 getFirstSegm]
  4827.  
  4828. $diag save
  4829. } msg]} {
  4830.     puts stderr "\nAn error occurred while importing"
  4831.     puts stderr $msg
  4832. }
  4833.