🚀 go-pugleaf

In article <HONDA.92May16213707@unicorn.csl.sony.co.jp> honda@csl.sony.co.jp (Yasuaki Honda) writes:

 |
 |$@%=%K!<(JCSL$@$NK\ED$H?=$7$^$9!#(J
 |
 |$@$A$g$C$H<ALd$N0U?^$r$D$+$_$+$M$F$$(J$@$k$N$G$9$,!"(J
 |(setq x '(car '(1 2 3)))
 |(eval x)
 |$@$H$+!"(J
 |(setq x #'(lambda () (car '(1 2 3))))
 |(funcall x)
 |$@$H$+$G$O$@$a$J$s$G$9$h$M!#$"$H$b$&$R$H$D!"(J
 |(setq x '(car '(1 2 3)))
 |(funcall #'(lambda () (declare (special x)) (eval x)))
 |$@$H$$$&$N$b$"$j$^$9$,!"!"!"!#(J
 |
 |$@$I$&$b!V%(%l%,%s%H!W$H$$(J$@$&$3$H$,J,$+$C$F$$$J$$K\ED$G$7$?!#(J
 |
$@$4$a$s$J$5$$!#<ALd$,$o$k$+$C$?$G$9!#(J
$@!V$"$+$i$5$^$K(J eval $@$r$D$+(J$@$o$:$K=q$1$J$$$+!)!W$H$$$C$?$[$&$,$$$$$H;W$$$^$9!#(J
$@<B:]$K$O(J

(defmethod create-windows ((doc browser-document)
			   &aux column row method-column class-column function-column)
  "create a GINA browser box"
  (with-slots (main-shell main-view) doc

...
...
...

    ;; text field for search string with toggle button at its left
    (let ((filter-column (make-row-column class-column :orientation :horizontal)))

...
...
...
	;;;
	;;; $@$3$3$N(J eval $@$,$J$/$;$J$$$+!)(J
	;;;
      (setf (value-changed-callback (class-search-text doc))
	    (eval `#'(lambda (ignore)
		       (xtk:with-immediate-update-enabled
			(when (value ',(class-filter-button doc))
			  (setf (value ',(class-filter-button doc)) nil)
			  (refresh-class-list ',doc :new-mode nil)))))))


...
...
...
	))
	
$@$N$h$&$K;H$$$?$$$N$G$9$,!"(JCLtL1 $@$J$i!"(J

      (setf (value-changed-callback (class-search-text doc))
	    `(lambda (ignore)
		       (xtk:with-immediate-update-enabled
			(when (value ',(class-filter-button doc))
			  (setf (value ',(class-filter-button doc)) nil)
			  (refresh-class-list ',doc :new-mode nil)))))

$@$N$h$&$K$+$1$k(J$@$H$3$m$r!"(J

      (setf (value-changed-callback (class-search-text doc))
	    (eval `#'(lambda (ignore)
		$@!#!#!#(J)))

$@$N$h$&$K=q$/$N$,$9$3$7$-$?$J$$$h$&$K;W$($?$N$G!"(J
$@B>$K$+$-$h$&$O$J$$$b$N$+$H$*J9$-$7$^(J$@$7$?!#(J
--
Mathmatical Systems Institute Inc.			Hisao Kuroda
6F AM BLDG. 2-5-3 Shinjuku, Shinjuku-Ku			301, 1-22-2 Kyonan-cho
Tokyo, Japan 160					Musashino-shi,
E-mail : kuroda@msi.co.jp (Kuroda,Hisao)		Tokyo, Japan 180

    Everybody's got something to hide except me and my //GS.