SP_BUNGEND

BUNGEND()

  Short:
  ------
  BUNGEND() Ends a BUNGEE() menu array definition sequence

  Returns:
  --------
  <aBungeeMenu> => a BUNGEE() menu array

  Syntax:
  -------
  BUNGEND()

  Description:
  ------------
  BUNGEND() ends a BUNGEE() menu definition sequence, returning
  a completed BUNGEE() menu array.

  Use BUNGSTART(), BUNGEND(), BUNGOPTION(),
  BUNGDROP(), BUNGUNDROP() together to create a menu definition
  array for BUNGEE(). While it is not necessary to use these
  functions to create the array, it is helpful when you have
  a complex, multi-level dropdown structure.

  See BUNGEE for more information.

  Examples:
  ---------

  bungstart()

     bungoption("Files")
     bungdrop()
          bungoption("Open" ,{} ,{||!lFileIsOpen} )
          bungoption("Close",{||nil},{||lFileIsOpen } )
     bungundrop()
     bungoption("Edit")
     bungdrop()
          bungoption("DBF"  ,{||nil},nil )
          bungoption("Ascii",{||nil},nil )
     bungundrop()
     bungoption("Quit",{||bungeequit()},nil)

  aMenu := bungend()
  bungee(0,0,79,aMenu)

  Source:
  -------
  S_BUNGDEF.PRG

 

SP_BUNGEETOP

BUNGEETOP()

  Short:
  ------
  Sends the current menu back to the top level box (not all
  the way to the top bar, but to the bar plus the current box)

  Returns:
  --------
  NIL

  Syntax:
  -------

  BUNGEETOP()

  Description:
  ------------
  Sends the current menu back to the top level box (not all
  the way to the top bar, but to the bar plus the current box)

  Examples:
  ---------
  bungstart()
  bungoption("Files")
  bungdrop()
     bungoption("Open" ,{} ,{||!lFileIsOpen} )
     bungdrop()
       bungoption("DBF" ,{||opendbf(),bungeetop()},nil )  // go back to top
       bungoption("Ascii",{||opendbf(),bungeetop()},nil )  // after these two
     bungundrop()
     bungoption("Close",{||nil},{||lFileIsOpen } )
  bungundrop()
  bungoption("Edit")
          bungoption("Quit",{||bungeequit()},nil)
  aMenu := bungend()

  bungee(0,0,79,aMenu)

  Source:
  -------
  S_BUNGEE.PRG

SP_BUNGEEQUIT

BUNGEEQUIT()                             *new*

  Short:
  ------
  BUNGEEQUIT( ) is how a Bungee menu is terminated. You would normally
  call it from one of the menu option codeblocks.

  Returns:
  --------
  NIL

  Syntax:
  -------

  BUNGEEQUIT()

  Description:
  ------------
  BUNGEEQUIT( ) is how a Bungee menu is terminated. You would normally
  call it from one of the menu option codeblocks.

  Examples:
  ---------
  bungstart()
  bungoption("Files")
  bungdrop()
          bungoption("Open" ,{} ,{||!lFileIsOpen} )
          bungoption("Close",{||nil},{||lFileIsOpen } )
  bungundrop()
  bungoption("Edit")
  bungdrop()
          bungoption("DBF"  ,{||nil},nil )
          bungoption("Ascii",{||nil},nil )
  bungundrop()
  bungoption("Quit",{||bungeequit()},nil)

  aMenu := bungend()

  @24,0 say "ALT-X=exit"   // set up Alt-X as a hotkey exit also
  aHotKeys := { {K_ALT_X,{||bungeequit()}}  }

  bungee(0,0,79,aMenu,nil,nil,nil,aHotKeys)

  Source:
  -------
  S_BUNGEE.PRG