🚀 go-pugleaf

$B$9$:$-!w%-%d%N%s$G$9!#$3$s$K$A$O!#(B

>>>>> "Kenji" == Kenji Sugita <sugita@sra.co.jp> writes:

;;;    itcl-1.5 $B$NJY6/$,$F$i!"(Bentry $B$K%\%?%s$rIU$1$?%/%i%9(B Entry $B$H$$$&%/(B
;;;    $B%i%9$r$D$/$C$F$_$?$N$G$9$,!"$I$&$b;W$C$?DL$j$KF0$$$F$/$l$^$;$s!#(B
;;;... 
;;;    $B$^$?!"(Bentry $B$r:n@.$7$?;~$K$b(B "Huh?" $B$HI=<($5$l$F$b$$$$$H$*$b$&$N$G(B
;;;    $B$9$,!"I=<($5$l$^$;$s!#$I$&$d$i!"(Bpublic var $B$G$"$k(B data $B$H0c$&JQ?t(B 
;;;    data $B$r8+$K9T$C$F$$$k$h$&$K$b;W$($^$9!#(B
;;;...
;;; 	   entry $w.entry -textvariable data

Kenji>   textvariable $B$K;XDj$9$kJQ?t$N%9%3!<%W$O(B global $B$J$N$G!"?7$?$J(B global $BJQ?t(B
Kenji> $B$r(B constructor $B$,F0$/$H$-$K@8@.$7(B protected $BJQ?t$KJ];}$7!"I,MW$J$H$-$K$=$N(B
Kenji> global $BJQ?tL>$r<h$j=P$7$F(B eval$B$7$FCM$r<h$j=P$9!"$H$$$&$h$&$K$9$k$N$O$I$&$G(B
Kenji> $B$7$g$&!#(B

$B%U%)%m!<$"$j$,$H$&$4$6$$$^$9(B(_O_) $B!d(B kenji $B$5$s(B

kenji$B$5$s$,6D$k$h$&$K!"(Btextvariable $BEy!"(Bentry $B$J$j$K;XDj$9$k0z?t$N(B
$B%9%3!<%W$K4X$7$F;d$,8m2r$7$F$$$?$N$,860x$@$C$?$h$&$K;W$($^$9!#(B

$B;d$OESCf$GJ}?K$rJQ$($?$N$G(B -command $B$K4X$7$F$G$9$,!"%9%3!<%W$N;W$$(B
$B0c$$$K$O6bMKF|$N?<Lk$K5$$,IU$-$^$7$?!##X$N%W%m%0%i%_%s%0$H>H$i$7$"(B
$B$o$;$FNd@E$K9M$($F$_$?$i!"!V$J!<$s$@!"Ev$jA0$8$c$s!W(B(^^;

$B!t(B $B%/%i%9FbIt$K(B event loop $B$,$"$k$o$1$B$c$J$$!"$H$$$&$3$H$@$C$?$N(B
$B!t(B $B$G$9$,(B...$B$b$7$+$7$F$^$@0c$&$N$+$J!)(B

$B$H$3$m$G!"(Bkenji $B$5$s$N6D$k(B global $BJQ?t$rMQ$$$kJ}K!$G$9$,!"5$$rIU$1(B
$B$F$$$J$$$HB>$NJQ?t$HL>A0$,=EJ#$7$F$7$^$C$F!"$$$d$J$3$H$K$J$j$=$&$J(B
$B5$$,$9$k$N$G$9$,!"$$$+$,$J$b$N$G$7$g$&!)(B

radiobutton $B$K4X$7$F4{$K<B;\$5$l$?$H$N$3$H$G$9$,!"!V$3$NJQ?tL>$O(B 
global $B$G;H$o$J$$$G$M!W$_$?$$$J5,Ls$r@_$1$i$l$?$N$G$7$g$&$+!)(B

	* * * * *

$B7k6I!";d$O(B -textvariable $B$r;H$o$:$K0J2<$NMM$K2r7h$7$^$7$?!#(B

$B:G=*E*$JL\E*$O(B data $B$J$j$N%/%i%9JQ?t(B($B!)(B)$B$KCM$r;D$9!"$H$$$&%b%N$G$7(B
$B$?$N$G!"(Bentry $B$KJB$Y$?(B button $B$K(B okcmd $B$H$$$&(B proc $B$r7k$S$D$1$F$*(B
$B$-!"(Bbutton $B$,2!2<$5$l$?$i(B okcmd $B$K$h$C$F%/%i%9$N30It$+$i%/%i%9FbIt(B
$B$N(B public $B$JJQ?t(B data $B$KCM$r%;%C%H$7$K9T$/!"$H$$$&%m%8%C%/$G$9!#(B

$B$3$NJ}K!$G$9$H!"JQ?t(B data $B$r1#JC$7$-$l$J$$!"%/%i%9FbIt$G<BAu$7$?$N(B
$B$K%/%i%9$N30$+$iCM$r%;%C%H$7$K9T$/I,MW$,$"$k!"$H$$$&5$;}$A0-$$E@$,(B
$B$"$k$N$G$9$,!"BE6($7$A$c$$$^$7$?(B(^^;

$B0J2<!"%9%/%j%W%H$G$9!#(B
------------------------------------------------------------------
itcl_class Hehe {
    constructor {config} {}
    destructor {}
    method configure {config} {}

    # select
    method select {} {
	set w .foo
	catch {destroy $w}
	toplevel $w

	entry $w.entry
	pack $w.entry -side top -fill both -expand 1

	set data "he?"
	puts [info level]

	set w1 $w.button
	frame $w1
	pack $w1 -fill x -expand 0
	button $w1.ok -text "OK" -command "okcmd $w $this"
	pack $w1.ok -side left

	proc okcmd {w this} {
	    set data [$w.entry get]
	    $this configure -data $data
	    destroy $w
	}
    }

    # get
    method get {} {
	return $data
    }

    public data
}
------------------------------------------------------------------

$B$H$3$m$G(B comp.lang.tcl $B$KF1MM$JEj9F$r$7$?$H$3$m!"(B"itcl2.0 $B$NJ}$,$$(B
$B$$$+$i!"$3$C$A$r;H$*$&!*(B"$B$H$$$&(B follow $B$rD:$-$^$7$?!#AaB.:n$C$F$_(B
$B$?$s$G$9$,!"(Bitcl$B3HD%$NItJ,$,$&$^$/F0$+$J$$$s$G$9$h$M(B...(;.;)
--
---
  Hideyasu Suzuki
  Canon Inc, Shin Kawasaki
  Phone: +81-44-549-5111
  Fax:   +81-44-549-6200