home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX1 / MYMENU.MTH < prev    next >
Text File  |  1991-12-16  |  184b  |  11 lines
  1.  
  2.  
  3.  
  4. !TestView methods !
  5.  
  6. myMenu
  7.         "Private - Answer the File menu."
  8.     ^Menu new
  9.         appendItem: '~My Choice' selector: #myMenuMethod ;
  10.       title: '~My Menu'! !
  11.