(require 'cgn)
(progn
  (use-package :cgn)
  (use-package :ltk))

(defun nomogui ()
  (with-ltk ()
    (let* ((s0 (make-instance 'scale
			      :label "X-ri"
			      :digits 6
			      :orientation 'horizontal
			      :troughcolor "#000099"
			      :resolution .001
			      :from 1.4
			      :to 1.6))
	   (b0 (make-instance 'button
			      :text "hello"
			      :command
			      (lambda ()
				(if (< 1.5 (value s0)
      
      (configure s0 :command 
		 (lambda (val)
		   (print 'hello)
		   (if (< 1.5 val)
		       (configure s0 :troughcolor "#990000")
		       (configure s0 :troughcolor "#009900"))))
      (pack s0))))