;*********************************************************************************************
; Dateiname 	: 	AM_SchillerTools_1.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :	22.04.2005
; geändert    	:
;*********************************************************************************************
; Beschreibung:		- 	Laden der Schillertools
;					-	Bereitstellen des Menues
;*********************************************************************************************
; Änderungen
;
;*********************************************************************************************

(in-package :MeineFunktionen);in welches packet die unten aufgefühten funktionen eingebaut werden

;; --------------------------------------------------------
(use-package :OLI)
(IN-PACKAGE "MEI")


(setf *SchillerToolsPfad* (format nil "~a/SchillerMacros" (MEI::GETENV "SDCORPCUSTOMIZEDIR")))
(setf *Hilfepfad* (format nil "~a/SchillerMacros/Schiller_Hilfedateien" (MEI::GETENV "SDCORPCUSTOMIZEDIR")))

;; ========================= L A D E N   D E R   S C H I L L E R T O O L S =============================================
;;
;; =========================  V O R G A B E N ==========================================================================  
(load (format nil "~a/AM_Teilefarbe.lsp" *SchillerToolsPfad*)) 




;; ========================= A N S I C H T =============================================================================





;; ========================= M A T E R I A L V O R G A B E N ===========================================================






 
  
;------------------------------------------------------------------------------------------------		
		
;Annotation Menue


(sd-create-menu		"Schill"	
	:title		    "Schill"
	:contents	'(
		  	 
			  	 
			    (:buttonbox "Ansicht"
						:title	"Ansicht"
						:buttons ( 
							(AM_Teilefarbe  
									:label "FARBE" 	
									:buttonID "WZ"
									:image ( Format NIL "~A/SchillerMacros/Icons/SD_Masse.bmp" (MEI::GETENV "SDCORPCUSTOMIZEDIR")))
							  

					    ) ;end buttons	 
				
			  	 );end buttonbox
			  	 
			  	 		  	
			  	 
			);end contents
); end sd-create-menue



(sd-add-menu-button "Schiller"
		:label		"Schiller"
		:parent	'("Task" "Annotation")	
		:MapMenu	"Schiller" 					
;		:image    ( Format NIL "~A/SchillerMacros/Icons/SD_Schiller_weis.bmp" (MEI::GETENV "SDCORPCUSTOMIZEDIR")) ;; for WIN

);end sd-add-menu-button