(sd-defdialog 'hide_lines
    :dialog-title "hide_lines"
    :toolbox-button t
    :variables 
	'(
		( "hide_lines" )
		(view
				:selection *sd-anno-view-seltype*  
				:title  "view"
				:initial-value nil 
		)  
	)

	:local-functions

	'(
		(doit ()
			
				(setf lines 
					(sd-call-cmds (get_selection
						;:select-attribute :docu-calc-geo-only
						:focus_type  *sd-anno-line-seltype*
						:select 
						:by_view_docu_geo view
						)
					)	
						
				)
				(dolist (line lines)
					(am_hide line)
				)
	
		)

	)

 :ok-action
    '( doit)
)