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

;;(sd-remove-button-box "CRE_WRKPLN" :parent "WP")
(sd-add-button-box "CRE_WRKPLN"
		   :parent "WP"
		   :beforebox "MORE-CREATE"
		   :title "Erstellen"
	           :expanded t
		   :buttons
		   '(
		     (CREATE_WORKPLANE
		      :buttonid "CRE_SNGL"
		      :label "Neu"
		      :availcmd ("SolidDesigner" "Workplane" "New WP")
		      :commandinput ":new"
		     )
		     (UIC_NEW_WP_WITH_CGEO
		      :label "Neu + HGeo"
		      :availcmd ("SolidDesigner" "Workplane" "New WP + Constr. Geo")
		      :commandinput ""
		     )
		     (UIC_NEW_WP_ON_FACE
		      :label "Auf Flaeche"
		      :availcmd ("SolidDesigner" "Workplane" "New WP on Face")
		      :commandinput ":off :off"
         )
		     (CREATE_WORKPLANE
		      :buttonid "NEW-ON-AXIS"
		      :label "Auf Achse"
		      :availcmd ("SolidDesigner" "Workplane" "New WP on Axis")
		      :commandinput ":new :on_axis :c_face"
         )
		     (CREATE_WORKPLANE
		      :buttonid "NEW-PNT-DIR"
		      :label "N. Pkt & Richt"
		      :availcmd ("SolidDesigner" "Workplane" "New WP by Point and Dir")
		      :commandinput ":new :pt_dir :origin"
         )
		     ("")
		     (uic_new_wp_on_face_w_proj_geo
		      :buttonid "NEW-ON-FACE+PROJECT-GEO"
		      :label "Geo projizier"
		      :availcmd ("SolidDesigner" "Workplane" "New WP on Face and Project Real")
		      :commandinput ":real"
         )
		     (uic_new_wp_on_face_w_proj_geo
		      :buttonid "NEW-ON-FACE+PROJECT-CONSTR"
		      :label "HGeo projizier"
		      :availcmd ("SolidDesigner" "Workplane" "New WP on Face and Project Constr")
		      :commandinput ":construction"
         )
		     )
)