home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / intuition / Menu.st < prev    next >
Encoding:
Text File  |  2000-05-03  |  6.4 KB  |  256 lines
  1. "---------------------------------------------------"
  2. " Menu Class implements control of Amiga Menus      "
  3. " except for actually displaying it, which is in the"
  4. " Window class.                                     "
  5. "---------------------------------------------------"
  6.  
  7. Class Menu :Glyph
  8. ! 
  9.    nextMenu leftEdge topEdge width height flags menuName firstItem
  10. !
  11. [
  12.    getStartPoint
  13.       leftEdge <- <primitive 182 2 0 0 menuName>.
  14.       topEdge  <- <primitive 182 2 1 0 menuName>.
  15.       ^ leftEdge @ topEdge
  16. |
  17.    getMenuSize
  18.       width  <- <primitive 182 2 2 0 menuName>.
  19.       height <- <primitive 182 2 3 0 menuName>.
  20.       ^ width @ height
  21. |
  22.    setStartPoint: newPoint ! x y !
  23.       x <- newPoint x.
  24.       y <- newPoint y.
  25.       <primitive 182 3 0 x 0 menuName>.      
  26.       <primitive 182 3 1 y 0 menuName>.
  27.       leftEdge <- x.
  28.       topEdge  <- y
  29. |
  30.    setMenuSize: sizePoint ! w h !
  31.       w <- sizePoint x.
  32.       h <- sizePoint y.
  33.       <primitive 182 3 2 w 0 menuName>.
  34.       <primitive 182 3 3 h 0 menuName>.
  35.       width  <- w.
  36.       height <- h
  37. |
  38.    remove
  39.       <primitive 182 0 0 menuName>
  40. |
  41.    registerTo: windowTitle
  42.       <primitive 182 4 windowTitle menuName>
  43. |
  44.    getFlags
  45.       ^ flags <- <primitive 182 2 4 0 menuName>
  46. |
  47.    setFlags: newFlags
  48.       <primitive 182 3 4 newFlags 0 menuName>.
  49.       flags <- newFlags
  50. |
  51.    getNextMenu
  52.       ^ nextMenu <- <primitive 182 2 8 0 menuName>
  53. |
  54.    setNextMenu: newNextMenu
  55.       <primitive 182 3 8 newNextMenu 0 menuName>.
  56.       nextMenu <- newNextMenu
  57. |
  58.    getFirstItem
  59.       ^ firstItem <- <primitive 182 2 9 0 menuName>
  60. |
  61.    setFirstItem: newFirstItem
  62.       <primitive 182 3 9 newFirstItem 0 menuName>.
  63.       firstItem <- newFirstItem
  64. |
  65.    getMenuName
  66.       ^ menuName <- <primitive 182 2 13 0 menuName>
  67. |
  68.    setMenuName: newMenuName
  69.       <primitive 182 3 13 newMenuName 0 menuName>.
  70.       menuName <- newMenuName
  71. |
  72.    new: newMenuName
  73.       <primitive 182 1 0 newMenuName>.
  74.       menuName <- newMenuName.
  75.       ^ self
  76. ]
  77.  
  78. Class MenuItem :Menu
  79. ! 
  80.    nextItem leftEdge   topEdge width   height     flags    mutualExclude 
  81.    itemFill selectFill command subItem nextSelect itemName
  82. !
  83. [
  84.    remove
  85.       <primitive 182 0 1 itemName>
  86. |
  87.    registerTo: windowTitle
  88.       <primitive 182 4 windowTitle itemName>
  89. |
  90.    getStartPoint
  91.       leftEdge <- <primitive 182 2 0 1 itemName>.
  92.       topEdge  <- <primitive 182 2 1 1 itemName>.
  93.       ^ leftEdge @ topEdge
  94. |
  95.    getItemSize
  96.       width  <- <primitive 182 2 2 1 itemName>.
  97.       height <- <primitive 182 2 3 1 itemName>.
  98.       ^ width @ height
  99. |
  100.    setStartPoint: newPoint ! x y !
  101.       x <- newPoint x.
  102.       y <- newPoint y.
  103.       <primitive 182 3 0 x 1 itemName>.
  104.       <primitive 182 3 1 y 1 itemName>.
  105.       leftEdge <- x.
  106.       topEdge  <- y
  107. |
  108.    setItemSize: sizePoint ! w h !
  109.       w <- sizePoint x.
  110.       h <- sizePoint y.
  111.       <primitive 182 3 2 w 1 itemName>.
  112.       <primitive 182 3 3 h 1 itemName>.
  113.       width  <- w.
  114.       height <- h
  115. |
  116.    getFlags
  117.       ^ flags <- <primitive 182 2 4 1 itemName>
  118. |
  119.    setFlags: newFlags
  120.       <primitive 182 3 4 newFlags 1 itemName>.
  121.       flags <- newFlags
  122. |
  123.    getMutualExclude
  124.       ^ mutualExclude <- <primitive 182 2 5 1 itemName>
  125. |
  126.    setMutualExclude: newMutualExclude
  127.       <primitive 182 3 5 newMutualExclude 1 itemName>.
  128.       mutualExclude <- newMutualExclude
  129. |
  130.    getCommand
  131.       ^ command <- <primitive 182 2 6 1 itemName>
  132. |
  133.    setCommand: newCommand
  134.       <primitive 182 3 6 newCommand 1 itemName>.
  135.       command <- newCommand
  136. |
  137.    getNextItem
  138.       ^ nextItem <- <primitive 182 2 7 1 itemName>
  139. |
  140.    setNextItem: newNextItem
  141.       <primitive 182 3 7 newNextItem 1 itemName>.
  142.       nextItem <- newNextItem
  143. |
  144.    getItemFill
  145.       ^ itemFill <- <primitive 182 2 10 1 itemName>
  146. |
  147.    setItemFill: newItemFill
  148.       <primitive 182 3 10 newItemFill 1 itemName>.
  149.       itemFill <- newItemFill
  150. |
  151.    getSelectFill
  152.       ^ selectFill <- <primitive 182 2 11 1 itemName>
  153. |
  154.    setSelectFill: newSelectFill
  155.       <primitive 182 3 11 newSelectFill 1 itemName>.
  156.       selectFill <- newSelectFill
  157. |
  158.    getSubItem
  159.       ^ subItem <- <primitive 182 2 12 1 itemName>
  160. |
  161.    setSubItem: newSubItem
  162.       <primitive 182 3 12 newSubItem 1 itemName>.
  163.       subItem <- newSubItem
  164. |
  165.    new: newItemName
  166.       <primitive 182 1 1 newItemName>.
  167.       itemName <- newItemName.
  168.       ^ self
  169. ]
  170.  
  171. Class SubItem :MenuItem
  172. ! 
  173.    nextItem leftEdge topEdge width height flags mutualExclude 
  174.    itemFill selectFill command nextSelect subItemName
  175. !
  176. [
  177.    remove
  178.       <primitive 182 0 2 subItemName>
  179. |
  180.    registerTo: windowTitle
  181.       <primitive 182 4 windowTitle subItemName>
  182. |
  183.    getStartPoint
  184.       leftEdge <- <primitive 182 2 0 2 subItemName>.
  185.       topEdge  <- <primitive 182 2 1 2 subItemName>.
  186.       ^ leftEdge @ topEdge
  187. |
  188.    getSubSize
  189.       width  <- <primitive 182 2 2 2 subItemName>.
  190.       height <- <primitive 182 2 3 2 subItemName>.
  191.       ^ width @ height
  192. |
  193.    setStartPoint: newPoint ! x y !
  194.       x <- newPoint x.
  195.       y <- newPoint y.
  196.       <primitive 182 3 0 x 2 subItemName>.
  197.       <primitive 182 3 1 y 2 subItemName>.
  198.       leftEdge <- x.
  199.       topEdge  <- y
  200. |
  201.    setSubSize: sizePoint ! w h ! 
  202.       w <- sizePoint x.
  203.       h <- sizePoint y.
  204.       <primitive 182 3 2 w 2 subItemName>.
  205.       <primitive 182 3 3 h 2 subItemName>.
  206.       width  <- w.
  207.       height <- h
  208. |
  209.    getFlags
  210.       ^ flags <- <primitive 182 2 4 2 subItemName>
  211. |
  212.    setFlags: newFlags
  213.       <primitive 182 3 4 newFlags 2 subItemName>.
  214.       flags <- newFlags
  215. |
  216.    getMutualExclude
  217.       ^ mutualExclude <- <primitive 182 2 5 2 subItemName>
  218. |
  219.    setMutualExclude: newMutualExclude
  220.       <primitive 182 3 5 newMutualExclude 2 subItemName>.
  221.       mutualExclude <- newMutualExclude
  222. |
  223.    getCommand
  224.       ^ command <- <primitive 182 2 6 2 subItemName>
  225. |
  226.    setCommand: newCommand
  227.       <primitive 182 3 6 newCommand 2 subItemName>.
  228.       command <- newCommand
  229. |
  230.    getNextItem
  231.       ^ nextItem <- <primitive 182 2 7 2 subItemName>
  232. |
  233.    setNextItem: newNextItem
  234.       <primitive 182 3 7 newNextItem 2 subItemName>.
  235.       nextItem <- newNextItem
  236. |
  237.    getItemFill
  238.       ^ itemFill <- <primitive 182 2 10 2 subItemName>
  239. |
  240.    setItemFill: newItemFill
  241.       <primitive 182 3 10 newItemFill 2 subItemName>.
  242.       itemFill <- newItemFill
  243. |
  244.    getSelectFill
  245.       ^ selectFill <- <primitive 182 2 11 2 subItemName>
  246. |
  247.    setSelectFill: newSelectFill
  248.       <primitive 182 3 11 newSelectFill 2 subItemName>.
  249.       selectFill <- newSelectFill
  250. |
  251.    new: newSubItemName
  252.       <primitive 182 1 2 newSubItemName>.
  253.       subItemName <- newSubItemName.
  254.       ^ self
  255. ]
  256.