Skip to content

Instantly share code, notes, and snippets.

@jasim
Created Oct 25, 2013
Embed
What would you like to do?
Sweet pulldown menu DSL in SuperLib, a CA-Clipper library from 1996. http://www.the-oasis.net/ftpmaster.php3?content=ftplib.htm
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()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment