🚀 go-pugleaf

$BN)L?4[Bg3X$N0KLnED$H?=$7$^$9(B. 

Tcl/Tk $B$K$*$1$k(B Listbox Widget $B$N07$$J}$K$D$$$F$N<ALd$G$9(B. 

$BIaDL$K0l$D$N(B Listbox Widget $B$r%9%/%m!<%k$5$;$k$?$a$K(B Scroll Widget $B$r;HMQ(B
$B$9$k$3$H$O$h$/K\$K:\$C$F$$$k$3$H$G$9(B. $B$7$+$7Fs$D0J>e$N(B Listbox Widget $B$rF1(B
$B;~$K%9%/%m!<%k$5$;$?$j$9$k$h$&$J$3$H$O:\$C$F$$$^$;$s(B. 

$B$=$3$G0J2<$N$h$&$J%3!<%I$r9M$($^$7$?(B. 

----- $B$3$3$+$i(B ----- $B$3$3$+$i(B ----- $B$3$3$+$i(B ----- $B$3$3$+$i(B -----
#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

frame .frame -borderwidth 1m -relief ridge
scrollbar .frame.scroll -command scrollList
listbox .frame.datelist -yscroll ".frame.scroll set" \
    -width 3 -height 5 -setgrid 1
listbox .frame.list -yscroll ".frame.scroll set" \
    -width 10 -height 5 -setgrid 1

pack .frame -side bottom -expand yes -fill both -padx 8 -pady 8
pack .frame.datelist .frame.list .frame.scroll -side left -fill y \
    -expand yes

.frame.datelist insert 0 0 1 2 3 4 5 6 7
.frame.list insert 0 00000 11111 22222 33333 44444 55555 66666 77777

proc scrollList args {
    eval .frame.datelist yview $args
    eval .frame.list yview $args
}

bind .frame.datelist <2> {
    .frame.list scan mark %x %y
}
bind .frame.datelist <B2-Motion> {
    .frame.list scan dragto %x %y
}
bind .frame.list <2> {
    .frame.datelist scan mark %x %y
}
bind .frame.list <B2-Motion> {
    .frame.datelist scan dragto %x %y
}
----- $B$3$3$^$G(B ----- $B$3$3$^$G(B ----- $B$3$3$^$G(B ----- $B$3$3$^$G(B -----

$B$3$l$G%9%/%m!<%k%P!<$rF0$+$9$3$H$K$h$j(B, $B$^$?(B Listbox Widget $B$NCf$G%^%&%9(B
2$B$r;HMQ$7$F%9%/%m!<%k$5$;$k$3$H$K$h$j(B, $BF1;~$KFs$D$N(B Listbox Widget $B$rF0$+(B
$B$9$3$H$K@.8y$7$^$7$?(B. 

$B$7$+$7$3$l$OFs$D$G$"$k$?$a(B, $B$b$C$HB?$/$N(B Listbox Widget $B$rF1;~$K07$*$&$H$7(B
$B$?>l9g$K$O$+$J$jJ#;($J%3!<%I$K$J$C$F$7$^$&$H;W$o$l$^$9(B. 

$B2?$+$h$$J}K!$,$"$j$^$7$?$i8f65<(4j$$$^$9(B. 

$B$G$O(B. 

-----

Naofumi INODA <inochan@airlab.cs.ritsumei.ac.jp>
Ritsumeikan Univ., Shiga/Kyoto, Japan.