'============================================================================
'  Naming.BAS
'
'  This script demonstrates the following:
'
'  Shows how to use ID=, EditSetObjectID, and overlaying objects
'	-CSW
'
'============================================================================

' Create the surfer object.
	Set Surf = CreateObject("Surfer.App")

'Get Surfer's startup directory
	Path$ = Surf.StartupPath()

'Open a new drawing document
   Surf.FileNew()

' Create a contour map from the grid, name frame (left side)
   Surf.MapContour(Path$+"\demogrid",flags=65,ID="one") 
	Surf.Deselect()	

' Name contour map (right side)	
	Surf.Select("one:contours")
	Surf.EditSetObjectID("two")

' Create post layer, name frame	(left side)
	Surf.MapPost(Path$+"\demogrid",ID="three") 
	Surf.DeSelect()	

' Name post layer (right side)	
	Surf.Select("three:post")
	Surf.EditSetObjectID("four")
	Surf.DeSelect()	

' Select map objects (use full name)	
	Surf.Select("three:four")
	Surf.Select("one:two")	
	Surf.MapOverlayMaps()

' Arrange map objects (use map name)
	Surf.MapEditOverlays("four",tofront=1)