[xyzzy:04926] Re: ($B$3$C$=$j(B) $B%P!<%8%g%s%"%C%W$N$*CN$i$;(B

[Toy <s5087@xxxxxxxxxxxxxxxxxxxxx>]

$B550f$5$s!$$3$s$K$A$O!#(BToy $B$G$9!#(B
(B
(B    Wed, 09 Aug 2000 17:35:05 +0900 $B$N(B
(B    "[xyzzy:04925] Re: ($B$3$C$=$j(B) $B%P!<%8%g%s%"%C%W$N$*CN$i$;(B" $B$K$D$$$F!#(B
(B
(B| $B=D$OJ#?t9T$K$7$J$$$HBLL\$C$]$$$N$G(B($B6/0z$K0l9T$KI=<($7(B
(B| $B$h$&$H$9$k$H!":8$O=P$k$1$I1&$,=P$J$$(B)$B!"$A$HFq$7$$$G$9!#(B
(B
$B&U(B(.. ) $B$J$k$[$I!#N;2r$7$^$7$?!#(B
(B
(B| $BJQ?t$@$1$G$h$1$l$P$$$/$i$G$b:n$l$^$9$1$I!D(B(^^;
(B
$B5!G=E*$JJQ?t$G$*4j$$$7$^$9!#(B(^-^;)
(B
(B| | 2. $B!V6&DL@_Dj!W!V%U%)%s%H!W!VI=<(?'!W$NJQ99$r(B
(B| |    $B?'L>%@%V%k%/%j%C%/$+$i$G$-$k$HJXMx$+$J!D$H$+!#(B
(B| 
(B| $B9M$($H$-$^$9!#(B
(B
$B$h$m$7$/$*4j$$$7$^$9!#(Bm(_ _)m
(B
(B| 3 $B$O$I$&$K$+$J$k$s$8$c$J$$$+$J(B?
(B
$B$G$7$?!#$*A{$,$;$7$F$9$_$^$;$s!#(Bm(_ _)m
(B
(B(in-package "editor")
(B
(B(defun filer-ask-same-name-file (from-file to-file op)
(B  (multiple-value-bind (result data)
(B      (dialog-box '(dialog 0 0 235 133
(B		    (:caption "$BF1L>(IL'2Y$B$N3NG'(B")
(B		    (:font 9 "$B#M#S(B $B#P%4%7%C%/(B")
(B		    (:control
(B		     (:button text nil #x50000007 7 7 166 55)
(B		     (:button yes "$B$9$k(B(&Y)" #x50000009 15 20 37 10)
(B		     (:button no "$B$7$J$$(B(&S)" #x50000009 15 32 42 10)
(B		     (:button newer "$BF|IU$,?7$7$1$l$P(B&N)" #x50000009 15 44 75 10)
(B		     (:button all "$B$$$A$$$AJ9$/$J(B(&A)" #x50010003 15 67 66 10)
(B		     (:static from1 nil #x50020080 7 85 220 8)
(B		     (:static from2 nil #x50020080 7 95 220 8)
(B		     (:static to1 nil #x50020080 7 107 220 8)
(B		     (:static to2 nil #x50020080 7 116 220 8)
(B		     (:button IDOK "OK" #x50010001 177 7 50 14)
(B		     (:button IDCANCEL "(I7,]>Y(B" #x50010000 177 26 50 14)))
(B		  (list
(B		   (cons 'text (concat "$BF1$8L>A0$N(IL'2Y$B$,$9$G$KB8:_$7$^$9!#(B"
(B				       op "$B$9$k(B?"))
(B		   (cons 'from1 (concat op "$B85(B:  "
(B					(multiple-value-bind (sec min hour day mon year dow)
(B					    (decode-universal-time (file-write-time from-file))
(B					  (format nil "~4,'0d/~2,'0d/~2,'0d ~2,'0d:~2,'0d:~2,'0d  ~d byte(s)"
(B						  year mon day hour min sec (file-length from-file)))))
(B		   (cons 'from2 from-file)
(B		   (cons 'to1 (concat op "$B@h(B:  "
(B				      (multiple-value-bind (sec min hour day mon year dow)
(B					  (decode-universal-time (file-write-time to-file))
(B					(format nil "~4,'0d/~2,'0d/~2,'0d ~2,'0d:~2,'0d:~2,'0d  ~d byte(s)"
(B						year mon day hour min sec (file-length to-file)))))
(B		   (cons 'to2 to-file)
(B		   (cons 'yes (eq *filer-ask-same-name-default* :overwrite))
(B		   (cons 'no (eq *filer-ask-same-name-default* :skip))
(B		   (cons 'newer (eq *filer-ask-same-name-default* :newer))
(B		   (cons 'all *filer-ask-same-name-all-default*))
(B		  nil)
(B    (let ((r (cond ((null result)
(B		    (quit))
(B		   ((cdr (assoc 'yes data))
(B		    :overwrite)
(B		   ((cdr (assoc 'newer data))
(B		    :newer)
(B		   (t :skip)))
(B	  (all (cdr (assoc 'all data))))
(B      (when *filer-ask-same-name-make-default*
(B	(setq *filer-ask-same-name-default* r)
(B	(setq *filer-ask-same-name-all-default* all))
(B      (values r all))))
(B
(B---- 
(BToy
(B  E-mail : s5087@xxxxxxxxxxxxxxxxxxxxx