;*********************************************************************************************
; Dateiname 		: 	SD_TEST_3.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :		04.05.2011
; geändert    	:
;*********************************************************************************************


(in-package :Teo)
(use-package :OLI)

;(sd-hide-console-window)                  
;(sd-show-console-window)                 
(setf si::*enter-break-handler* nil)  

;;HashTable erzeugen
(setq BrowserObjectColorTable (make-hash-table)) 

(sd-defdialog 'SD_TEST_3
  :dialog-title "BrowserMark"
  :toolbox-button t
  :after-initialization (setf HashTableEntryCounter (hash-table-count BrowserObjectColorTable))
  
  :variables
  '(
    (BrowserObject
      :selection  *sd-object-seltype* 	
      :initial-value nil
      :modifies nil
      :title (sd-multi-lang-string 		"OBJECT"
                             :german 	"OBJEKT")
      :multiple-items nil
      :after-input  (progn
											
                    );;progn
    );;BrowserObject

    (BrowserObjectColor
        :value-type :rgb-color
        :title (sd-multi-lang-string "Color" :german "Farbe")
        :initial-value 16711680
    );;BrowserObjectColor    

		(ClearAll  																															
			:toggle-type :wide-toggle																															
			:push-action 																															
		    	(progn																															
						(clrhash BrowserObjectColorTable)																												
		    	);;progn            																															
			:title (sd-multi-lang-string "CLEAR ALL" :german 	"ZURÛCKSETZEN")																															
		);;ClearAll																															

("Optionen")

     (ShowMark
            :title (sd-multi-lang-string "show marks" :german 	"zeige markierte")	
	          :toggle-type :wide-toggle
	          :value-type	:boolean
	          :initial-value t
	          :after-input	
         		 	(progn
         		    
							);progn
	  
	  );;ShowMark

    (HashTableEntryCounter
            :title (sd-multi-lang-string "table entries"	:german 	"Tabellenelemente")	
						:value-type :display-only	  
	  );;HashTableEntryCounter

  );;variables

:local-functions
 '(

	);;local-functions

  :Ok-action '(progn
    		      	(setf BrowserObjectSysID  (sd-inq-obj-sysid (sd-pathname-to-obj (sd-inq-obj-pathname BrowserObject)))) 
    		      	(setf (gethash 'BrowserObjectSysID BrowserObjectColorTable) 'red)  	 	
              );;progn


  :help-action '(sd-display-message HelpText
  :title "Create Thumbnails - Kurzanleitung"
  :Push  "OK!"

  );;sd-display-message

) ;; end defdialog