; -*-Lisp-*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
; Beschreibung: Konfigurations-Darstellungsliste ein/ausblenden
;
; Autor:        Thomas Hollerweger
; erstellt:     19.5.2008
; geändert:     
;
; (C) Copyright 2008 STIWA Fertigungstechnik Sticht GmbH
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package  :custom-config-tools)
(use-package :oli)

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;; Das neue Kommando wird in die Strukturliste integriert
;; 
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun config-fncs-visible-p (obj name)
	(when obj
		; muss noch geändert werden - sd-inq-configuration-p erwartet ein sel-item
		(if (sd-inq-configuration-p (BrowserNode-objPath obj))
			t
			nil
		)
	)
)

(defun config-fncs-applicable-p (obj name)
	(when obj
		(if (sd-inq-active-configuration)
			t
			nil
		)
	)
	; alternativ: nur anwendbar, wenn die gewählte Konfiguration aktiv ist
	; muss noch geändert werden - sd-inq-active-configuration erwartet ein sel-item
	; (if (equal (BrowserNode-objPath obj) (sd-inq-active-configuration))
		; t
		; nil
	; )
)

(defun remove-config-drawlist (obj name)
  (let (conf-path liste)
	(setf conf-path (sd-string-replace (BrowserNode-objPath obj) " :CONFIGURATION " "/"))
	(setf conf-path (sd-string-replace conf-path "\"" ""))
	(pprint conf-path)
	(pprint (get_selection :FOCUS_TYPE *sd-configuration-seltype*  :SELECT conf-path))
	(setf liste (sd-inq-configuration-drawlist (get_selection :FOCUS_TYPE *sd-configuration-seltype*  :SELECT conf-path)))
	(remove_from_vp_drawlist (sd-inq-current-vp) :with-wp liste)
  )
)

(defun add-config-drawlist (obj name)
  (let (conf-path liste)
	(setf conf-path (sd-string-replace (BrowserNode-objPath obj) " :CONFIGURATION " "/"))
	(setf conf-path (sd-string-replace conf-path "\"" ""))
	(pprint conf-path)
	(pprint (get_selection :FOCUS_TYPE *sd-configuration-seltype*  :SELECT conf-path))
	(setf liste (sd-inq-configuration-drawlist (get_selection :FOCUS_TYPE *sd-configuration-seltype*  :SELECT conf-path)))
	(add_to_vp_drawlist (sd-inq-current-vp) :with-wp liste)
  )
)

(sd-browser-add-popup-entry	"parcel-gbrowser"
	; :is-entry-visible	'config-fncs-visible-p
	; :is-entry-applicable	'config-fncs-applicable-p
	:menu-action		'add-config-drawlist 
	:label			"DarstListe hinzu"
	:place-at-top t
)

(sd-browser-add-popup-entry	"parcel-gbrowser"
	; :is-entry-visible	'config-fncs-visible-p
	; :is-entry-applicable	'config-fncs-applicable-p
	:menu-action		'remove-config-drawlist 
	:label			"DarstListe entfernen"
	:place-at-top t
)