[Q]How to handle many Listbox Widgets?

Thread View: fj.lang.tcl

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Naofumi INODA Fri, 31 Oct 1997 00:00

#144

Author: Naofumi INODA
Date: Fri, 31 Oct 1997 00:00

65 lines
2986 bytes


$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.

Re: [Q]How to handle many Listbox Widgets?

#194

Author: Naofumi INODA
Date: Wed, 05 Nov 1997 00:00

33 lines
2262 bytes


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

# 31 Oct 1997 21:53:14 +0900 $B$K(B, Naofumi INODA $B$5$s$,(B
# [Q]How to handle many Listbox Widgets? $B$K$D$$$F=q$-$^$7$?(B...

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

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

$B$K$D$$$F$NEj9F5-;v$KBP$7$FJVEz$rD:$-$"$j$,$H$&$4$6$$$^$7$?(B. $B7k6I0l$D0l$D$N(B
Widget $B$KBP$7$FA4It$N(B Widget $B$KBP$9$k5!G=$rKd$a9~$`I,MW$,$"$k$N$G$9$M(B. $B;H(B
$BMQ$5$l$F$$$k(B ListWidget $BA4It$KBP$9$k(B bind $BEy$,=PMh$J$$$+$H;W$C$F4|BT$r$7$F(B
$B$$$?$N$G$9$,!D(B^^;

> Jeffry Hobbs $B;a(B (comp.lang.tcl $B$N>oO"$NJ}$G$9(B)$B$,0J2<$N$h$&$J%3!<%I$r8x3+(B
> $B$5$l$F$$$^$9!#(B
> $B$3$l$O(B listbox 3 $BK\$N>l9g$G$9$,!"$A$g$C$H=$@5$9$l$P$b$C$HB?$$>l9g$G$bBg(B
> $B>fIW$G$7$g$&!#(B

> http://www.cs.uoregon.edu/~jhobbs/work/multilist.tcl

$B!t%@%$%l%/%H%a!<%k$@$C$?$N$G0l1~L>A0$OIz$;$F$*$-$^$9(B. 

$B$G$O(B, $B$"$j$,$H$&$4$6$$$^$7$?(B. o(__)o

-----

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads