(use-package :OLI)

(sd-defdialog 'testcode
  :dialog-title (sd-multi-lang-string "testcode"    :schinese "testcode")
  :toolbox-button t 
  :variables '(
							

    )

 :local-functions
 '(
    (doit ()
		
		
		(setf parts_before (jb-inq-obj-tree-list (sd-pathname-to-obj "/"))) 
		(setf parts_before
		(remove-if
		 #'(lambda (obj)
			   (not (equal (sel_item-type obj) *sd-part-seltype*))) 
		 parts_before))
		 
		(dolist (part parts_before)
			(display (sd-inq-obj-pathname part))
		)
		(display "---------------------")
			 
			
		; (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
			; "
		; )
	
		(ts-catalog-laden-dialog 
			:neu :on
			:TBGR-IN-MEMORY 
				(TS-CAT-UICT-SELECT-PART 
					"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' '' ''"
					" "
					" "
				)
			:BESITZER (sd-pathname-to-obj "/")
			:positioning (gpntwc 0 0 0 "vport1")
			 complete
		)
		
		(setf parts_after (jb-inq-obj-tree-list (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 "------------")
		
	)
	
	
    (jb-inq-obj-tree-list (obj)
		(cons obj
			(apply #'nconc (mapcar #'jb-inq-obj-tree-list (sd-inq-obj-children obj)))
		)
	)
   
   )
 :ok-action
 '(doit)
 
 )