🚀 go-pugleaf

$B4nB?!w:eBg>pJs$G$9!%(B

>>>>> "$BIpED$5$s(B" == 80815092  <80815092@ex.ecip.osaka-u.ac.jp> writes:
In article <80815092.95Nov15162247@sgray04.ex.ecip.osaka-u.ac.jp>

$BIpED$5$s(B> $B$3$N$"$$$@!V=i$a$F$N(BTcl/tk$B!W$H$$$&K\$rGc$C$F!$(B
$BIpED$5$s(B> $B<+Bp$N(BLinux$B%^%7%s$G%9%/%j%W%H$NJY6/$r$7$@$7$?$N$G$9$,!$(B

$BK\Bj$H$O$"$^$j4X78$J$$$G$9$1$I!$$3$NK\!$8m;z!$C&;z$,B?$/$J$$$G$9$+(B?

$BIpED$5$s(B> $B$$$m$$$m$H;n$7$F8+$?$N$G$9$,!$$d$O$j860xITL@$N%(%i!<(B(-sunken$B$,;H$($k$O$:$J$N$K(B
$BIpED$5$s(B> $B;H$($J$$$H$+$$$o$l$k(B)$B$GF0$-$^$;$s$G$7$?!%(B

-sunken $B$,;H$($J$$M}M3$OJ,$+$j$^$;$s$,!$5$IU$$$?E@$@$1!%(B

$B$(!<$H!$(B-geometry $B$O(B tk4.0 $B$G$O$J$/$J$C$?$O$:$J$N$G!$(B-width $B$H(B -height 
$B$r;H$C$?J}$,$$$$$G$7$g$&!%(B

$B$=$l$+$i!$:G8e$NJ}$N(B

browse.top.f1.e1 insert 0 $leftdir

$B$3$l!$@hF,$N(B '.' $B$,H4$1$F$$$^$9!%(B

$B$"$H!$(B

proc returnFile {} {
    global retfile;
    set filename [.browse.f3.entry get];
    if { 0 <[string length $filename] } {
        # puts $filename
	set retfile = filename;
    }
}

set $B$N;H$$$+$?$,4V0c$C$F$$$^$9!%(B
-- 
       __
    __/\_\
 __/\_\/_/   $BBg:eBg3X4pAC9)3XIt>pJs9)3X2J(B M1
/\_\/_/\_\           $B4nB?(B $B=_0lO:(B
\/_/\_\/_/
   \/_/\_\     kita@ics.es.osaka-u.ac.jp
      \/_/