(setf letz 							
      (append letz 							
	      (list 
	       `(action2 
		 (make-instance 'button
				:master action-label
				:text "Generate 3D"
				:command #'(lambda () 
(progn
  (funcall #',function-name ,@*params*)
  (sleep 1)
  (image-load img0 "0.gif")
  (image-load img1 "1.gif")
  (image-load img2 "2.gif")
  (create-image kanvas 0 0 :image img0)
  (create-image kanvas 0 289 :image img1)
  (create-image kanvas 0 578 :image img2))))))))
(setf letz 
      (append letz 
	      (list 
	       `(action3 
		 (make-instance 'button
				:master action-label
				:text "Importance"
				:command #'(lambda ()
					     
(progn
  (funcall #',importance-name ,@function-parameters))))))))
(setf packer 
      (mapcar 
       #'(lambda (l)
	   (cond
	     ((or (eql 'display-label l) 
		  (eql 'kanvas l)) `(pack ,l :side :right))
	     ((or (eql 'img0 l) 
		  (eql 'img1 l) (eql 'img2 l)) nil)
	     (t `(pack ,l)))) (mapcar #'first letz)))