SBP This program was created to enable/disable/insert/remove menu's under the text editor of superbase 2.0.(02/03/93 Marc Pellus) All subs could be changed to functions depending on preferences. Please Note... Due to weird circumstanses, playing with the windows libraries, this program must be run from the main window of superbase. which means it will not work properly when ran under the program editor. Probably because of the menu handles gets mixed up with the program editor's window. main() sbhand%%,MenuHand%%,NoItems%%,hwnd%%,filen$ "USER.EXE","GetActiveWindow","I" "USER.EXE","GetMenu","II" "USER.EXE","GetMenuItemCount","II" "USER.EXE","GetMenuString","IIIFII" "USER.EXE","EnableMenuItem","AIII" "USER.EXE","DestroyMenu","II" "USER.EXE","SetMenu","IHH" "USER.EXE","CreateMenu","I" "USER.EXE","RemoveMenu","IIII" "USER.exe ","DeleteMenu","IIII" "USER.EXE","InsertMenu","AHHHHC" "USER.EXE","AppendMenu","AHHHC" "USER.EXE","ModifyMenu","AHHHHC" filen$"j:\sb4\market\a.sbt" handles() InsertMenu(5411,5437,"About Superbase 2.0")' adds the about option under the file menu after exit  handles()' gets the text editor window/menu handles filen$ sbhand%%("GetActiveWindow") MenuHand%%("GetMenu",sbhand%%) NoItems%%("GetMenuItemCount",menuhand%%)  NoMenu()' Activates the text editor with no menus at all filen$ a%%("SetMenu",hwnd%%,0) ofilen$ o  ItemState(item%%,state%%)' Enable/Disable menu under the text editor Item%% 5402 - 5410 File menu 5416 - 5420 Edit menu 5422 - 5424 Search menu 5426 - 5429 Options menu 5431 - 5437 Help menu State%% = 0- Enable, 1- Grayed, 2-Disable filen$ was%%("EnableMenuItem",MenuHand%%,item%%,state%%) o  DestroyMenu()' Destroys/Remove the text editor menu filen$ a%%("DestroyMenu",MenuHand%%) ofilen$ o  CreateMenu()' Creates a new menu filen$ MenuHand%%("CreateMenu")  RemoveMenu(item%%)' Removes an item in the text editor menu filen$ a%%("RemoveMenu",MenuHand%%,item%%,0) o  DeleteMenu(item%%)' Removes an item in the text editor menu filen$ a%%("DeleteMenu",MenuHand%%,item%%,3) o  InsertMenu(Item%%,resourceid%%,mstring$) resourceid%% is same definition as the item%% example: if you wanted to add About superbase under the file menu call InsertMenu(5411,5437,"About Superbase 2.0") 5411 adds after the exit(exit=5410) and 5437 is the resource id for the about option. Resource id are defined in the ItemState sub. filen$ a%%("InsertMenu",MenuHand%%,item%%,0,resourceid%%,mstring$) o  ModifyMenu(item%%,resourceid%%,mstring$) filen$ a%%("ModifyMenu",MenuHand%%,item%%,0,resourceid%%,mstring$) o