(in-package :custom)
(use-package :OLI)
(use-package :TS-CATALOG-MODUL)

(sd-defdialog 'testcode
:dialog-title (sd-multi-lang-string "testcode"    :schinese "testcode")
:toolbox-button t 
:variables '(
    )
:ok-action '(doit)
:local-functions
'(
	(doit ()
		(setf GLOBAL_parts_before (sd-inq-obj-children (sd-pathname-to-obj "/"))) 
		(setf GLOBAL_parts_before
		(remove-if
		 #'(lambda (obj)
			   (not (equal (sel_item-type obj) *sd-part-seltype*))) 
					GLOBAL_parts_before))
		 
		(sd-put-buffer
			"
			ts-catalog-laden-dialog :neu :on
			\"PARAMETER\"
			\"normteile/scheiben/din_125a\"
			\"0000000000\"
			\" 'NAME_ORIG' 'DN' 'H' 'DI' 'DA' 'PNR' 'SID' 'DESCRIPTION_ORIG' 'NAME' 'BEZEICHNUNG' 'DELETE' 'FAVORITE'\"
			\" 'Scheibe_A_10_5_DIN_125' '10' '2' '10.5' '20' '' 'din125a_10_2_10.5_20' 'Scheibe DIN 125 - A10.5' 'Washer_DIN_125-A10.5' 'Washer DIN 125 - A10.5' '' ''\"
			\" \"
			\" \"
			(gpntwc 0 0 0 \"vport1\")
			complete
			"
		)
		(sd-put-buffer "testcode2")
	)
)
)

(sd-defdialog 'testcode2
:dialog-control :sequential
:dialog-type :interrupt
:ok-action '
(let (parts_after)
	(display "Before")
		(dolist (part GLOBAL_parts_before)
			(display (sd-inq-obj-pathname part))
		)
	
	(display "After")			
		(setf parts_after (sd-inq-obj-children (sd-pathname-to-obj "/")))  
		(setf parts_after 	(remove-if #'(lambda (obj)
			(not (equal (sel_item-type obj) *sd-part-seltype*))) parts_after)
		)
		(dolist (part parts_after)
			(display (sd-inq-obj-pathname part))
		)
	(display "------------")	
)
) ;enddefdialog