🚀 go-pugleaf

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

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

$BHs>o$KC;$$%/%i%9Dj5A$J$N$G%j%9%H$r:G8e$KE:IU$7$^$7$?$,!"MW$9$k$K(B 
public $B$JJQ?t$G$"$k(B data $B$r;}$A!"(B get $B$r<B9T$9$k$H(B entry $B$H(B button 
$B$,I=<($5$l!"(B entry $B$+$iJ8;zNs$rF~NO$9$k$H(B data $B$K3JG<$5$l$k!"(BOK $B%\(B
$B%?%s$r2!2<$9$k$H(B entry $B$,>C5n$5$l$k!"(Bdata $B$NFbMF$O(B value $B$GI8=`=P(B
$BNO$K=q$-=P$5$l$k!"$H9M$($?$N$G$9$,!"(Bdata $B$NFbMF$O=i4|2=$7$?(B "Huh?" 
$B$N$^$^A4A3JQ2=$7$^$;$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

$B;d$O2?$r4*0c$$$7$F$$$k$N$G$7$g$&!)2?$+%3%a%s%HEy$4$6$$$^$7$?$i!"$h(B
$B$m$7$/$*4j$$$7$^$9(B(_O_)

--- Class$BDj5A$3$3$+$i(B ---

itcl_class Entry {
    constructor {config} {}
    destructor {}
    method configure {config} {}

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

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

	set w1 $w.button
	frame $w1
	pack $w1 -fill x -expand 0
	button $w1.ok -text "OK" -command "destroy $w" -width 6
	pack $w1.ok -side left
    }

    # value
    method value {} {
	puts $data
    }

    public data "Huh?";
}

--- Class$BDj5A$3$3$^$G(B ---
--
---
  Hideyasu Suzuki
  Canon Inc, Shin Kawasaki
  Phone: +81-44-549-5111
  Fax:   +81-44-549-6200