; -*lisp-*- 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
; 
;               Klaus Lörincz 
; 
; SCCS:         %W% 
; Description:  Remenber the active drawlist setting and store it to a variable
;               rectivate if different from current setting 
; Author:       Klaus Loerincz 
; Version:      1.0 
; Created:      unknown 
; Modified:     unknown  () klausl@ccws040.de10.cocreate.com 
; Language:     Lisp 
; Package:      sco,oli  
; 
; (C) no Copyright 
;
; Roman8 characters Ä=Ø, Ö=Ú, Ü=Û , ä=Ì , ö=Î , ü=Ï
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(in-package :myactbrowser) 
(use-package :oli) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Variables
(defvar myactbrowser::*my-active-vport-contents* nil)
;; Actiondialog 
 
(sd-defdialog 'rem-act-list 
  :toolbox-button t 
  :dialog-title (oli::sd-multi-lang-string "List Handling" :german "Liste Merken") 
  :precondition 
  '(if (sd-inq-obj-children (sd-pathname-to-obj "/")) 	
  		:ok 	
     	(values :error (sd-multi-lang-string "There are no parts to remember settings of !!" :german "Keine Teile geladen die in eine Liste geschrieben werden können !!")) 
    	)		
  :variables 
    '( 
      (REMEMBER :title (sd-multi-lang-string "Set current List" :german "Teileliste merken")
   	        :toggle-type :wide-toggle
	        :push-action (let* ((temp-list (sd-inq-vp-drawlist-objects (sd-inq-current-vp)))
				     tmp-part)
					(dolist (one temp-list)
						(when (setf tmp-part (sd-inq-obj-pathname one))
						      (push tmp-part myactbrowser::*my-active-vport-contents*)
						       )			 
						     )
					)
	   )
      (RESET    :title (sd-multi-lang-string "Reactivate last List" :german "Letzte Liste aktivieren")
   	        :toggle-type :wide-toggle
	        :push-action (if myactbrowser::*my-active-vport-contents*
				(let* (temp-list tmp-item)
				      (dolist (one-path myactbrowser::*my-active-vport-contents*)
					     (when (setf tmp-item (sd-pathname-to-obj one-path))
						   (push tmp-item temp-list)
						   )
					)
				       (if (equal temp-list (sd-inq-vp-drawlist-objects (sd-inq-current-vp)))
				                      (sd-display-message (sd-multi-lang-string "The vp contents is still the same" :german "Keine Ønderung der aktiven Teile im Fenster"))
				           (sd-call-cmds (progn
								(clear_vp (oli::sd-inq-current-vp))
								(add_to_vp_drawlist (oli::sd-inq-current-vp) :with-wp temp-list)
								)
								:failure nil
                                           )
					)
				      )	
				(sd-display-message (sd-multi-lang-string "No stored list available" :german "Es wurde keine aktive Liste gefunden"))
                                )
	  )
       (REMOVE :title (sd-multi-lang-string "Deactivate List" :german "Liste deaktivieren")
   	        :toggle-type :wide-toggle
	        :push-action (when myactbrowser::*my-active-vport-contents* (setf myactbrowser::*my-active-vport-contents* nil))
	   )
      );variables end
   :after-initialization 	 
	 '(sd-call-cmds (progn 
				(if (eql (oli::sd-inq-platform) :NT)
					(progn
					     (oli::sd-show-graphical-browser g-browser::*structure-gbrowser*)
					     )
				    (progn
	       				(oli::sd-show-graphical-browser g-browser::*structure-gbrowser*)
				        )
		             	     )
				)
			)	
			
  :cleanup-action 
	 '(format t "~A" (oli::sd-multi-lang-string "The list stays active" :german "Die Teileliste bleibt erhalten"))	
  :ok-action
	'(let ((message (format nil "~A" (oli::sd-multi-lang-string "beye" :german "tschÏss"))))
		(format t message)
              )
)