home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / symbols.self < prev    next >
Encoding:
Text File  |  1993-06-18  |  5.7 KB  |  130 lines
  1. " Array of boites for representation of various symbols "
  2.  
  3. "
  4. *
  5. * symbols.self,v 1.4 1993/06/18 21:25:41 richards Exp
  6. *
  7. * /home/2user2/richards/cvs/491/aa/symbols.self,v 1.4 1993/06/18 21:25:41 richards Exp
  8. *
  9. * symbols.self,v
  10. # Revision 1.4  1993/06/18  21:25:41  richards
  11. # Moved font support into viewManager.
  12. # Starting to add selection stuff into window and boite.
  13. # Boites refer properly back to the polynomial structures.
  14. #
  15. # Revision 1.3  1993/05/31  20:27:55  richards
  16. # symbols has the whole greek alphabet, but some letters are not named right.
  17. # window.self noww uses two sub-classes of compoundView, one inside the other.
  18. # (Still have problem identifying them...)
  19. # test7 obsolete.
  20. # Fixed some problems with font positioning in boites and poly.
  21. #
  22. # Revision 1.2  1993/05/31  00:12:16  richards
  23. # May 30 checkin. Font support is nearly debugged.
  24. # Make use of glue now.
  25. # Added rational (fraction) types.
  26. #
  27. # Revision 1.1  1993/05/30  21:41:14  richards
  28. # Initial revision
  29. #
  30. *
  31. "
  32.  
  33. aa traits _AddSlotsIfAbsent: (|
  34.     symbols = ().
  35. |)
  36.  
  37. aa prototypes _AddSlotsIfAbsent: (|
  38.     symbols = ().
  39. |)
  40.  
  41. aa traits symbols _Define: (|
  42.     _ parent* = traits clonable.
  43.     addSymbol: symName Representation: ht = (
  44.     representations at: symName Put: ht.
  45.     ).
  46.     symbolNamed: symName = (
  47.     representations at: symName
  48.     ).
  49.  
  50.     copy = (| new. |
  51.     new: clone.
  52.     new representations: representations copyRemoveAll.
  53.     ^new
  54.     ).
  55. |)
  56.  
  57. aa prototypes symbols _Define: (|
  58.     _ parent* = aa traits symbols.
  59.     representations <- dictionary copy.
  60. |)
  61.  
  62. aa _AddSlotsIfAbsent: (|
  63.     x11symbols.
  64. |)
  65.  
  66. aa x11symbols: aa symbols copy
  67.  
  68. aa x11symbols addSymbol: 'alpha' Representation: (aa boites htext symbol: 'a')
  69. aa x11symbols addSymbol: 'beta'  Representation: (aa boites htext symbol: 'b')
  70. aa x11symbols addSymbol: 'xi'    Representation: (aa boites htext symbol: 'c')
  71. aa x11symbols addSymbol: 'delta' Representation: (aa boites htext symbol: 'd')
  72. aa x11symbols addSymbol: 'epsilon' Representation: (aa boites htext symbol: 'e')
  73. aa x11symbols addSymbol: 'phi'   Representation: (aa boites htext symbol: 'f')
  74. aa x11symbols addSymbol: 'gamma' Representation: (aa boites htext symbol: 'g')
  75. aa x11symbols addSymbol: 'eta'   Representation: (aa boites htext symbol: 'h')
  76. aa x11symbols addSymbol: 'iota'  Representation: (aa boites htext symbol: 'i')
  77. aa x11symbols addSymbol: 'psi'   Representation: (aa boites htext symbol: 'j')
  78. aa x11symbols addSymbol: 'kappa' Representation: (aa boites htext symbol: 'k')
  79. aa x11symbols addSymbol: 'lambda' Representation: (aa boites htext symbol: 'l')
  80. aa x11symbols addSymbol: 'mu'    Representation: (aa boites htext symbol: 'm')
  81. aa x11symbols addSymbol: 'ha'    Representation: (aa boites htext symbol: 'n')   "XXX"
  82. aa x11symbols addSymbol: 'opsilon' Representation: (aa boites htext symbol: 'o') "XXX"
  83. aa x11symbols addSymbol: 'pi'    Representation: (aa boites htext symbol: 'p')
  84. aa x11symbols addSymbol: 'theta' Representation: (aa boites htext symbol: 'q')
  85. aa x11symbols addSymbol: 'rho'   Representation: (aa boites htext symbol: 'r')
  86. aa x11symbols addSymbol: 'sigma' Representation: (aa boites htext symbol: 's')
  87. aa x11symbols addSymbol: 'tau'   Representation: (aa boites htext symbol: 't')
  88. aa x11symbols addSymbol: 'upsilon' Representation: (aa boites htext symbol: 'u')
  89. aa x11symbols addSymbol: 'varomega' Representation: (aa boites htext symbol: 'v') "XXX"
  90. aa x11symbols addSymbol: 'omega' Representation: (aa boites htext symbol: 'w')
  91. aa x11symbols addSymbol: 'zeta2' Representation: (aa boites htext symbol: 'x')  "XXX"
  92. aa x11symbols addSymbol: 'phi'   Representation: (aa boites htext symbol: 'y')
  93. aa x11symbols addSymbol: 'zeta'  Representation: (aa boites htext symbol: 'z')
  94.  
  95. aa x11symbols addSymbol: 'Alpha' Representation: (aa boites htext symbol: 'A')
  96. aa x11symbols addSymbol: 'Beta'  Representation: (aa boites htext symbol: 'B')
  97. aa x11symbols addSymbol: 'Xi'    Representation: (aa boites htext symbol: 'C')
  98. aa x11symbols addSymbol: 'Delta' Representation: (aa boites htext symbol: 'D')
  99. aa x11symbols addSymbol: 'Epsilon' Representation: (aa boites htext symbol: 'E')
  100. aa x11symbols addSymbol: 'Phi'   Representation: (aa boites htext symbol: 'F')
  101. aa x11symbols addSymbol: 'Gamma' Representation: (aa boites htext symbol: 'G')
  102. aa x11symbols addSymbol: 'Eta'   Representation: (aa boites htext symbol: 'H')
  103. aa x11symbols addSymbol: 'Iota'  Representation: (aa boites htext symbol: 'I')
  104. aa x11symbols addSymbol: 'Psi'   Representation: (aa boites htext symbol: 'J')
  105. aa x11symbols addSymbol: 'Kappa' Representation: (aa boites htext symbol: 'K')
  106. aa x11symbols addSymbol: 'Lambda' Representation: (aa boites htext symbol: 'L')
  107. aa x11symbols addSymbol: 'Mu'    Representation: (aa boites htext symbol: 'M')
  108. aa x11symbols addSymbol: 'Ha'    Representation: (aa boites htext symbol: 'N')   "XXX"
  109. aa x11symbols addSymbol: 'Opsilon' Representation: (aa boites htext symbol: 'O') "XXX"
  110. aa x11symbols addSymbol: 'Pi'    Representation: (aa boites htext symbol: 'P')
  111. aa x11symbols addSymbol: 'Theta' Representation: (aa boites htext symbol: 'Q')
  112. aa x11symbols addSymbol: 'Rho'   Representation: (aa boites htext symbol: 'R')
  113. aa x11symbols addSymbol: 'Sigma' Representation: (aa boites htext symbol: 'S')
  114. aa x11symbols addSymbol: 'Tau'   Representation: (aa boites htext symbol: 'T')
  115. aa x11symbols addSymbol: 'Upsilon' Representation: (aa boites htext symbol: 'U')
  116. aa x11symbols addSymbol: 'Varomega' Representation: (aa boites htext symbol: 'V') "XXX"
  117. aa x11symbols addSymbol: 'Omega' Representation: (aa boites htext symbol: 'W')
  118. aa x11symbols addSymbol: 'Zeta2' Representation: (aa boites htext symbol: 'X')  "XXX"
  119. aa x11symbols addSymbol: 'Phi'   Representation: (aa boites htext symbol: 'Y')
  120. aa x11symbols addSymbol: 'Zeta'  Representation: (aa boites htext symbol: 'Z')
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.     
  129.     
  130.