home *** CD-ROM | disk | FTP | other *** search
/ Cheeks / Cheeks.iso / pc / pmtest.mmm / meta.txt < prev   
Encoding:
Text File  |  1994-11-03  |  2.9 KB  |  68 lines
  1. Name
  2. ----
  3. PM Test Scott's World:Popup Menu Tester:
  4.  
  5. Strings
  6. ------
  7. Macromedia Director
  8.  
  9. stxt
  10. ----
  11. menu: FileQuit/Q ├à Quit
  12. Item 1Item 2Item 3Item 4Item 5
  13. Current popup menu list:
  14. XObject name: PopMenu
  15. Popup ID number:
  16. Item 1
  17. Last selected:
  18. Enable Item
  19. Item 1
  20. Set Text
  21. Disable Item
  22. Sample
  23. Entry Box:
  24. New Menu
  25. Append Menu
  26. Item 1Item 2Item 3Item 4Item 5
  27. Check Items
  28. Popup Menu DLL Test Movieby Scott KildallYou can select an item from the popup menu on the left to be modified. Changes such as disabling/enabling items or setting the text of items will be reflected on the "working popup menu" on the right. The entry box is used for changing the text of a menu item with "Set Text", "New Menu" or "Append Menu." This sample movie will run on the Mac with the Popup Menu XObject or the PC with the Popup Menu DLL.
  29. Item to modify:
  30. Working Popup Menu
  31. Item 1
  32. Item 1Item 2Item 3Item 4Item 5
  33. Instructions:
  34.  
  35. Script Channel Commands
  36. --------------------
  37. go to the frame
  38.  
  39. vwci
  40. ----
  41. 1026: on mouseUp  global hiliteLine  set m = the mouseLine  if m > 0 then hilite line m of field "popup list"  if hiliteLine = 0 then ShowControls()  set hiliteLine = mend mouseUp
  42. popup list
  43. 1029: 
  44. popup name
  45. 1030: popup id
  46. 1031: popup display
  47. 1033: on mouseDown  global thePopup  if objectP(thePopup) then DoPopupend mouseDown
  48. 1034:  lastselected
  49. 1035: on mouseUp  global workingPopup, selectionNum  workingPopup(mEnableItem, selectionNum)end mouseUp
  50. 1037: on mouseDown  DoSelectionPopupend mouseDownselection display
  51. 1038: on mouseUp  global workingPopup, selectionPopup, selectionNum  workingPopup(mSetItem, selectionNum, l
  52. 1039: on mouseUp  global workingPopup, selectionNum  workingPopup(mDisableItem, selectionNum)end mouseUp
  53. 1040: on mouseUp end mouseUp    entry box
  54. 1041:  lastselected
  55. 1042: on mouseUp  global workingPopup, selectionPopup    -- Dispose of all items in the menu  workingPopup(mDispose)  selectionPopup(mDispose)  MakePopups(field "entry box")  put field "entry box" into field "current list"  end mouseUp    new popup
  56. 1043: on mouseUp  global selectionPopup, workingPopup  selectionPopup(mAppendMenu, field "entry box")  workingPopup(mAppendMenu, field "entry box")end mouseUp
  57. 1044: on mouseUp  global hiliteLine  set m = the mouseLine  if m > 0 then hilite line m of field "popup list"  if hiliteLine = 0 then ShowControls()  set hiliteLine = mend mouseUpsaved popup list
  58. 1045: on mouseUp  global workingPopup  if the hilite of cast "markerState" = true then   --Check all items    workingPopup(mSetItemMark, 18)  else    workingPopup(mSetItemMark, 0)  end ifend mouseUp markerState
  59. 1052: on mouseDown  DoWorkingPopupend mouseDownworking display
  60. 1053: on mouseUp  global hiliteLine  set m = the mouseLine  if m > 0 then hilite line m of field "popup list"  if hiliteLine = 0 then ShowControls()  set hiliteLine = mend mouseUp current list
  61.  
  62. Fonts
  63. -----
  64. Geneva
  65. Palatino
  66. Chicago
  67. Monaco
  68.