EmacsLISP

またまたEmacsLISP...

Yes/No-Dialog

イエスノーダイアログもある。。。

イエスはｔが返る！ノーはnilが返る。

色々つかうと面白いかも。。。

  (defun y-n-dia1 ()
    (interactive)
    (let (Ans1 )
      (setq Ans1 (y-or-n-p "どちらをクリック？"))
      (cond ( (equal Ans1 t)
             (message "YESがクリックされました"))
            ( (equal Ans1 nil)
             (message "NOがクリックされました")))))

ビデオは以下
EmacsLISP/YesNO-Dialog

ポチッ!とな。。。

ストラクチャ