with This .AddBar('SFSuspendBar', 'SFMenu.vcx', 'DeveloperSuspend') .AddBar('SFBar', 'SFMenu.vcx', 'DeveloperScreenToggle') with .DeveloperScreenToggle .cCaption = 'To\<ggle Screen' .cOnClickCommand = '_screen.Visible = not _screen.Visible' endwith if version(2) = 2 .AddBar('SFBar', 'SFMenu.vcx', 'DeveloperTrace') with .DeveloperTrace .cCaption = '\<Trace Window' .cOnClickCommand = 'set step on' endwith .AddBar('SFBar', 'SFMenu.vcx', 'DeveloperWatch') with .DeveloperWatch .cCaption = 'Watc\<h Window' .cOnClickCommand = 'activate window Debug' endwith endif version(2) = 2 endwithThere aren't a lot of items: