#! /usr/local/bin/xbigforth
\ automatic generated code
\ do not edit

also editor also minos also forth

component class MainMenu
public:
  menu-title ptr FileMenu
  menu-title ptr EditMenu
 ( [varstart] )  ( [varend] ) 
how:
  : params   DF[ 0 ]DF X" VFX main menu" ;
class;

component class FileSubMenu
public:
  menu-entry ptr LoadFile
  menu-entry ptr SaveFile
  menu-entry ptr ExitFile
 ( [varstart] )  ( [varend] ) 
how:
  : params   DF[ 0 ]DF X" File menu" ;
class;

component class EditSubMenu
public:
  menu-entry ptr CutText
  menu-entry ptr CopyText
  menu-entry ptr PasteText
 ( [varstart] )  ( [varend] ) 
how:
  : params   DF[ 0 ]DF X" No Title" ;
class;

EditSubMenu implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
        ^^ S[  ]S ( MINOS ) X" Cut" menu-entry new  ^^bind CutText
        ^^ S[  ]S ( MINOS ) X" Copy" menu-entry new  ^^bind CopyText
        ^^ S[  ]S ( MINOS ) X" Paste" menu-entry new  ^^bind PasteText
      #3 vabox new vfixbox  #2 borderbox
    ( [dumpend] ) ;
class;

FileSubMenu implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
        ^^ S[  ]S ( MINOS ) X" Load ..." menu-entry new  ^^bind LoadFile
        ^^ S[  ]S ( MINOS ) X" Save ..." menu-entry new  ^^bind SaveFile
        ^^ S[  ]S ( MINOS ) X" Exit" menu-entry new  ^^bind ExitFile
      #3 vabox new vfixbox  #2 borderbox
    ( [dumpend] ) ;
class;

MainMenu implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
        M: FileSubMenu menu X"  File " menu-title new  ^^bind FileMenu
        M: EditSubMenu menu X"  Edit " menu-title new  ^^bind EditMenu
      #2 hbox new vfixbox 
    ( [dumpend] ) ;
class;

previous previous previous
