function compactMode()
	getMainForm().Panel5.Visible = not getMainForm().Panel5.Visible
end

function addCompactMenu()
 local parent = getMainForm().Menu.Items
 cMenu = createMenuItem(parent)
 parent.add(cMenu)
 cMenu.Caption = 'Toggle Compact'
 cMenu.OnClick = compactMode
end

addCompactMenu()