[xyzzy:04926] Re: (こっそり) バージョンアップのお知らせ

[Toy <s5087@xxxxxxxxxxxxxxxxxxxxx>]

亀井さん，こんにちは。Toy です。

    Wed, 09 Aug 2000 17:35:05 +0900 の
    "[xyzzy:04925] Re: (こっそり) バージョンアップのお知らせ" について。

| 縦は複数行にしないと駄目っぽいので(強引に一行に表示し
| ようとすると、左は出るけど右が出ない)、ちと難しいです。

φ(.. ) なるほど。了解しました。

| 変数だけでよければいくらでも作れますけど…(^^;

機能的な変数でお願いします。(^-^;)

| | 2. 「共通設定」「フォント」「表示色」の変更を
| |    色名ダブルクリックからできると便利かな…とか。
| 
| 考えときます。

よろしくお願いします。m(_ _)m

| 3 はどうにかなるんじゃないかな?

でした。お騒がせしてすみません。m(_ _)m

(in-package "editor")

(defun filer-ask-same-name-file (from-file to-file op)
  (multiple-value-bind (result data)
      (dialog-box '(dialog 0 0 235 133
		    (:caption "同名ﾌｧｲﾙの確認")
		    (:font 9 "ＭＳ Ｐゴシック")
		    (:control
		     (:button text nil #x50000007 7 7 166 55)
		     (:button yes "する(&Y)" #x50000009 15 20 37 10)
		     (:button no "しない(&S)" #x50000009 15 32 42 10)
		     (:button newer "日付が新しければ&N)" #x50000009 15 44 75 10)
		     (:button all "いちいち聞くな(&A)" #x50010003 15 67 66 10)
		     (:static from1 nil #x50020080 7 85 220 8)
		     (:static from2 nil #x50020080 7 95 220 8)
		     (:static to1 nil #x50020080 7 107 220 8)
		     (:static to2 nil #x50020080 7 116 220 8)
		     (:button IDOK "OK" #x50010001 177 7 50 14)
		     (:button IDCANCEL "ｷｬﾝｾﾙ" #x50010000 177 26 50 14)))
		  (list
		   (cons 'text (concat "同じ名前のﾌｧｲﾙがすでに存在します。"
				       op "する?"))
		   (cons 'from1 (concat op "元:  "
					(multiple-value-bind (sec min hour day mon year dow)
					    (decode-universal-time (file-write-time from-file))
					  (format nil "~4,'0d/~2,'0d/~2,'0d ~2,'0d:~2,'0d:~2,'0d  ~d byte(s)"
						  year mon day hour min sec (file-length from-file)))))
		   (cons 'from2 from-file)
		   (cons 'to1 (concat op "先:  "
				      (multiple-value-bind (sec min hour day mon year dow)
					  (decode-universal-time (file-write-time to-file))
					(format nil "~4,'0d/~2,'0d/~2,'0d ~2,'0d:~2,'0d:~2,'0d  ~d byte(s)"
						year mon day hour min sec (file-length to-file)))))
		   (cons 'to2 to-file)
		   (cons 'yes (eq *filer-ask-same-name-default* :overwrite))
		   (cons 'no (eq *filer-ask-same-name-default* :skip))
		   (cons 'newer (eq *filer-ask-same-name-default* :newer))
		   (cons 'all *filer-ask-same-name-all-default*))
		  nil)
    (let ((r (cond ((null result)
		    (quit))
		   ((cdr (assoc 'yes data))
		    :overwrite)
		   ((cdr (assoc 'newer data))
		    :newer)
		   (t :skip)))
	  (all (cdr (assoc 'all data))))
      (when *filer-ask-same-name-make-default*
	(setq *filer-ask-same-name-default* r)
	(setq *filer-ask-same-name-all-default* all))
      (values r all))))

---- 
Toy
  E-mail : s5087@xxxxxxxxxxxxxxxxxxxxx