🚀 go-pugleaf

In article <KAGEYAMA.92May20110603@sple151.ccs.mt.nec.co.jp> kageyama@ccs.mt.nec.co.jp (Kageyama Bonze Tatsuro) writes:

 |In article <KURODA.92May19140430@dwarf.msi.co.jp> kuroda@msi.co.jp (Hisao Kuroda) writes:
 | |	(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$H$3$m$r!"(J
 | |	(setf (value-changed-callback (class-search-text doc))
 | |	      (eval `#'(lambda (ignore)
 | |		  $@!#!#!#(J)))
 |
 |$@L$$@$K<ALd$N0U?^$,$o$+$C$F(J$@$J$$$;$$$+!"2?8N(J
 |
 |(let ((filter-button (class-filter-button doc)))
 |  (setf (value-changed-callback (class-search-text doc))
 |	  #'(lambda (ignore)
 |	      (xtk:with-immediate-update-enabled
 |		  (when (value filter-button)
 |		    (setf (value filter-button) nil)
 |		    (refresh-class-list doc :new-mode nil))))))
 |
$@$3$l$G$$$$$_$?$$$G$9$M!#(J
$@$I$&$b<ALd$N0UL#$,$o$+$C$F$$$J$$$N$O;d<+?H$@$C$?$h$&(J$@$G$9!#(J

$@$+$2$d$^$5$s!"B>$K$b%j%W%i%$$/$@$5$C$?$+$?$,$?!"$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(J

--
Mathematical 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. #