#|

SW-Bild-Test.lsp
erstellt am 28.11.2017 von Wolfgang Seel

|#


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

(sd-defdialog 'SW-Bild-Test
  :dialog-title "SW-Bild-Test"
  :toolbox-button t ; nil
  :variables '(

("Bilder ohne Funktion")

(PICTURE
     :value-type :image
     :image-file "c:/PTC/Konfig/LISP-Makros/Atestbild-174x36.bmp"
     :image-width 234
     :image-height 49
     :image-alignment :center)	
	 
("Bilder mit Funktion")
	 

(DureckMichNext
	:title-pixmap-name "Wolfgang-PIC"
	:toggle-type :wide-toggle
	:Push-action      (progn (DISPLAY "Ja drücken geht!"))
	:after-input        (progn (DISPLAY "danach rollt dann dies, ..."))
)


 
);end variables

:local-functions '( ); end local functions
:ok-action ' ()
:cleanup-action '()
:cancel-action ' ()
:help-action '(sd-display-message "
SW-Bild-Test.lsp

erstellt am 28.11.2017 von Wolfgang Seel

besondere Vorraussetzungen: keine

" :title "SW-Bild-Test" :push "Weiter")
);;sd-defdialog

(sd-create-pixmap "Wolfgang-PIC"    :filename "c:/PTC/Konfig/LISP-Makros/Atestbild-174x36.bmp")


#|



|#