[ulis], 2002-08-16, a little font chooser, tested under win2k only.

[http://perso.wanadoo.fr/maurice.ulis/tcl/a_little_font_chooser.gif]

LES on 2003-09-28 - Works for me on Win 98.

----

'''The chooser'''

 ###############################
 #
 # a pure Tcl/Tk font chooser
 #
 # by ulis, 2002
 #
 # NOL (No Obligation Licence)
 #
 ###############################
 
 namespace eval ::choosefont \
 { 
   variable w .choosefont;
   variable font;
 
   # Martin Lemburg Aug. 20th, 2002
   # initialization moved into proc choosefont
   #
   variable listvar;
   #
   # Martin Lemburg Aug. 20th, 2002
 
   variable family;
   variable size;
   variable bold;
   variable italic;
   variable underline;
   variable overstrike;
   variable ok;
   variable lock 1;
 
   # ================
   # choose a font
   # ================
   # args:
   #       f   an initial (and optional) font
   #       t   an optional title
   # returns:
   #       "" if the user aborted
   #       or the created font name
   # usage:
   #       namespace import ::choosefont::choosefont
   #       choosefont "Courier 10 italic" "new font"
 
   namespace export choosefont;
 
   proc choosefont {{f ""} {t ""}} \
   {
     # ------------------
     # get choosefont env
     # ------------------
     variable ::choosefont::w;
     variable ::choosefont::font;
     variable ::choosefont::listvar;
     variable ::choosefont::family;
     variable ::choosefont::size;
     variable ::choosefont::bold;
     variable ::choosefont::italic;
     variable ::choosefont::underline;
     variable ::choosefont::overstrike;
     variable ::choosefont::ok;
     variable ::choosefont::lock;
 
     # Martin Lemburg Aug. 20th, 2002 
     # refreshing, with every call, lsort added
     #
     set listvar [lsort -dictionary [font families]];
     #
     # Martin Lemburg Aug. 20th, 2002
 
     # ------------------
     # dialog
     # ------------------
     if {[winfo exists $w]} \
     {
       # show the dialog
       wm deiconify $w;
     } \
     else \
     {
       # create the dialog
       toplevel $w;
       wm title $w "Choose a font";
 
       # create widgets
 
       frame $w.f -bd 1 -relief sunken;
         label $w.f.h -height 4;
         label $w.f.l -textvariable ::choosefont::family;
       
       frame $w.fl;
         # Martin Lemburg Aug. 20th, 2002
         # added selectmode setting
         #
         listbox $w.fl.lb \
           -listvar ::choosefont::listvar \
           -width 20 \
           -yscrollcommand [list $w.fl.sb set] \
           -selectmode single;
         #
         # Martin Lemburg Aug. 20th, 2002
         scrollbar $w.fl.sb -command [list $w.fl.lb yview];
 
       # Martin Lemburg Aug. 20th, 2002
       # added underline options for mnemonics
       #
       frame $w.fa -bd 2 -relief groove;
         frame $w.fa.f ;
           label $w.fa.f.lsize -text size -underline 0;
           entry $w.fa.f.esize \
           -textvariable ::choosefont::size \
           -width 3 \
           -validate focusout \
           -vcmd {string is integer -strict %P};
           checkbutton $w.fa.f.bold \
           -text bold \
           -underline 0 \
           -variable ::choosefont::bold;
           checkbutton $w.fa.f.italic -text italic \
           -underline 0 \
           -variable ::choosefont::italic;
           checkbutton $w.fa.f.under \
           -text underline \
           -underline 0 \
           -variable ::choosefont::underline;
           checkbutton $w.fa.f.over \
           -text overstrike \
           -underline 0 \
           -variable ::choosefont::overstrike;
       #
       # Martin Lemburg Aug. 20th, 2002,
 
       frame $w.fb;
         button $w.fb.ok \
           -text Ok \
           -width 10 \
           -command { set ::choosefont::ok 1 };
         button $w.fb.cancel \
           -text cancel \
           -width 10 \
           -command { set ::choosefont::ok 0 };
 
       # bind events
       bind $w.fl.lb <ButtonRelease-1> \
       { set ::choosefont::family [%W get [%W cursel]] };
 
       # Martin Lemburg Aug. 20th, 2002
       # extended bindings
       #
       tk_focusFollowsMouse;
 
       # listbox handling
       bind $w <Control-Home> \
       { ::choosefont::selectfont %W First };
       bind $w <Control-End> \
       { ::choosefont::selectfont %W Last };
       bind $w <KeyPress> \
       { ::choosefont::selectfont %W %K };
 
       bind $w <Escape> [list $w.fb.cancel invoke];
       bind $w <Return> [list $w.fb.ok invoke];
 
       # mnemonics
       bind $w <Alt-KeyRelease> \
       {
         set w [winfo toplevel %W];
 
         switch -exact -- [string tolower %K] \
         {
           s  {focus $w.fa.f.esize;}
           b  {focus $w.fa.f.bold; $w.fa.f.bold invoke;}
           i  {focus $w.fa.f.italic; $w.fa.f.italic invoke;}
           u  {focus $w.fa.f.under; $w.fa.f.under invoke;}
           o  {focus $w.fa.f.over; $w.fa.f.over invoke;}
         }
       }
       #
       # Martin Lemburg Aug. 20th, 2002
 
       set lock 1;
 
       trace variable ::choosefont::family     w ::choosefont::createfont;
       trace variable ::choosefont::size       w ::choosefont::createfont;
       trace variable ::choosefont::bold       w ::choosefont::createfont;
       trace variable ::choosefont::italic     w ::choosefont::createfont;
       trace variable ::choosefont::underline  w ::choosefont::createfont;
       trace variable ::choosefont::overstrike w ::choosefont::createfont;
 
       # place widgets
 
       grid $w.f           -row 0 -column 0 -columnspan 2 -sticky nsew;
       grid $w.fl          -row 1 -column 0 -padx 5 -pady 5;
       grid $w.fa          -row 1 -column 1 -sticky nsew -padx 5 -pady 5;
       grid $w.fb          -row 2 -column 0 -columnspan 2 -sticky ew -pady 20;
       grid $w.f.h         -row 0 -column 0;
       grid $w.f.l         -row 0 -column 1 -sticky nsew;
       grid $w.fl.lb       -row 0 -column 0;
       grid $w.fl.sb       -row 0 -column 1 -sticky ns;
       grid $w.fa.f        -padx 5 -pady 5;
       grid $w.fa.f.lsize  -row 0 -column 0 -padx 5 -sticky w;
       grid $w.fa.f.esize  -row 0 -column 1 -sticky w;
       grid $w.fa.f.bold   -row 1 -column 0 -columnspan 2 -sticky w;
       grid $w.fa.f.italic -row 2 -column 0 -columnspan 2 -sticky w;
       grid $w.fa.f.under  -row 3 -column 0 -columnspan 2 -sticky w;
       grid $w.fa.f.over   -row 4 -column 0 -columnspan 2 -sticky w;
       grid $w.fb.ok $w.fb.cancel -padx 20;
     };
 
     # ------------------
     # current font
     # ------------------
     if {$f != ""} { set font $f };
     if {![info exists font]} { set font [$w.f.l cget -font] };
     
     set family      [font actual $font -family];
     set size        [font actual $font -size];
     set bold        [expr {[font actual $font -weight] == "bold"}];
     set italic      [expr {[font actual $font -slant] == "italic"}];
     set underline   [font actual $font -underline];
     set overstrike  [font actual $font -overstrike];
     set lock        0;
     
     ::choosefont::createfont;
 
     # ------------------
     # end of dialog
     # ------------------
     if {$t != ""} { wm title $w $t };
 
     # Martin Lemburg Aug. 20th, 2002 - select current font
     #
     set newIndex  [lsearch -exact $listvar $family];
 
     $w.fl.lb selection set $newIndex;
     $w.fl.lb activate $newIndex; 
     $w.fl.lb see $newIndex;
     #
     # Martin Lemburg Aug. 20th, 2002
 
     vwait ::choosefont::ok;
     wm withdraw $w;
 
     if {$ok} \
     { return [::choosefont::createfont] } \
     else \
     { return "" };
   };
 
   # ================
   # ancillary procs
   # ================
 
   proc selectfont {w mode} \
   {
     if {[winfo class $w] != "Listbox"} \
     { return; }
 
     set oldIndex [$w curselection];
 
     if {[string length $mode] > 1} \
     {
       switch -exact -- $mode \
       {
         Down    {set newIndex [expr {$oldIndex+1}];}
         Up      {set newIndex [expr {$oldIndex-1}];}
         First   {set newIndex 0;}
         Last    {set newIndex end;}
         default \
         { return; }
       }

       if {($newIndex != "end") && $newIndex} \
       {
         if {$newIndex < 0} \
         { set newIndex 0; } \
         elseif {$newIndex > [$w size] - 1} \
         { set newIndex end; };
       }
     } \
     else \
     {
       set oldFamily  [lindex $::choosefont::listvar $oldIndex];
 
       if {[string match ${mode}* $oldFamily]} \
       {
         set newIndex  [expr {$oldIndex + 1}];
         set newFamily [lindex $::choosefont::listvar $newIndex];
 
         if {![string match ${mode}* $newFamily]} \
         {
           set newIndex [lsearch \
             -glob \
             $::choosefont::listvar \
             ${mode}* \
           ];
         }
       } \
       else \
       {
         set newIndex [lsearch \
           -glob \
           $::choosefont::listvar \
           ${mode}* \
         ];
       };
 
       if {$newIndex < 0} \
       { return; };
     };
 
     set ::choosefont::family  [$w get $newIndex];
 
     $w selection clear $oldIndex;
     $w selection set $newIndex;
     $w activate $newIndex;
     $w see $newIndex;
 
     return;
   }
 
   proc createfont {args} \
   {
     if {$::choosefont::lock} { return };
 
     variable ::choosefont::w;
     variable ::choosefont::font;
     variable ::choosefont::family;
     variable ::choosefont::size;
     variable ::choosefont::bold;
     variable ::choosefont::italic;
     variable ::choosefont::underline;
     variable ::choosefont::overstrike;
 
     catch { font delete $font };
 
     set f [list -family $family -size $size];
 
     foreach {var option value} {
       bold        -weight     bold 
       italic      -slant      italic 
       underline   -underline  1 
       overstrike  -overstrike 1
     } \
     { if {[set $var]} { lappend f $option $value } };
     
     $w.f.l config -font [set font  [eval font create $f]];
 
     return $font;
   }
 }

----

'''A demo'''
 
 # test

   namespace import ::choosefont::choosefont
   choosefont "Courier 10 italic" "new font"

----

'''Improvements'''

[Martin Lemburg] August 20th, 2002: beautified a little bit by adding:
   * mnemomic bindings, e.g. Alt+b -> bold
   * keyboard bindings to the listbox, like cursor bindings and alphabetic bindings to jump quicker to a known font family by typing the first character
   * the Return- and Escape-binding for ok and cancel
   * a sorting of the font family list and a refresh of the font family list everytime the font chooser is called

----
'''Discussion'''

Just a quick observation/question. Since newbies are going to be looking at the code, shouldn't the wiki adhere to the Tcl coding style and not breaking lines with slashes to do brace placing?

[ulis] Your ([anonymous]) ''Tcl coding style'' is Kerningham's C style and I don't know any standard style for Tcl. I think the style I used is best suited for beginners showing clearly where blocs begin and end.

[RLH] Can I agree with both? I would note that the books I have read and the documentation do not show the coding style above. So maybe that is what the poster meant by ''Tcl coding style''.

[MG] Personally, I don't use that coding style (braces on the next line) like [ulis] does, and I'm still never quite familiar with it when I see it. But I don't think it can hurt having different styles on the Wiki; if you're serious about programming in Tcl (or any other language, for that matter), you're going to have to get used to seeing a LOT of different coding styles. No two people write code in the same way. Though, they should, since my coding style is obviously better than any other... ;)

-- Well i am one of the newbies, and am curious, how this scripts finds out about the fonts on my
linux machine? Which code part is it?

[RS]: [font families] returns a list of all available fonts.- Another note: trailing semicolons are redundant in Tcl, and snippets like this
       if {$newIndex < 0} \
       { return; };
     };
can much simpler, and more idiomatically, be written as
       if {$newIndex < 0} return
We should be glad that Tcl is not C :-)
----
[Category Example]
| 
[Category GUI]
| 
[Category Widget]
[http:/www.88558888.com/lipin041/001.htm 香槟酒杯]
[http:/www.88558888.com/lipin041/002.htm 香插]
[http:/www.88558888.com/lipin041/003.htm 香肠工艺品]
[http:/www.88558888.com/lipin041/004.htm 香车座]
[http:/www.88558888.com/lipin041/005.htm 香袋]
[http:/www.88558888.com/lipin041/006.htm 香袋]
[http:/www.88558888.com/lipin041/007.htm 香港风貌水晶内雕]
[http:/www.88558888.com/lipin041/008.htm 香蕉夹]
[http:/www.88558888.com/lipin041/009.htm 香蕉]
[http:/www.88558888.com/lipin041/010.htm 香金属名片盒]
[http:/www.88558888.com/lipin041/011.htm 香精油小夜灯]
[http:/www.88558888.com/lipin041/012.htm 香炉]
[http:/www.88558888.com/lipin041/013.htm 香木球]
[http:/www.88558888.com/lipin041/014.htm 香木扇]
[http:/www.88558888.com/lipin041/015.htm 香木珠]
[http:/www.88558888.com/lipin041/016.htm 香奈儿太阳镜]
[http:/www.88558888.com/lipin041/017.htm 香片]
[http:/www.88558888.com/lipin041/018.htm 香蒲]
[http:/www.88558888.com/lipin041/019.htm 香扇]
[http:/www.88558888.com/lipin041/020.htm 香水脚链]
[http:/www.88558888.com/lipin041/021.htm 香水棉芯]
[http:/www.88558888.com/lipin041/022.htm 香水瓶]
[http:/www.88558888.com/lipin041/023.htm 香水瓶手机挂饰]
[http:/www.88558888.com/lipin041/024.htm 香水瓶形打火机]
[http:/www.88558888.com/lipin041/025.htm 香水樽]
[http:/www.88558888.com/lipin041/026.htm 香甜的冰淇淋蜡烛]
[http:/www.88558888.com/lipin041/027.htm 香味果冻饰品]
[http:/www.88558888.com/lipin041/027.htm 香味螺纹杆蜡]
[http:/www.88558888.com/lipin041/028.htm 香味小方巾]
[http:/www.88558888.com/lipin041/029.htm 香熏]
[http:/www.88558888.com/lipin041/030.htm 香熏架]
[http:/www.88558888.com/lipin041/031.htm 香熏蜡烛]
[http:/www.88558888.com/lipin041/032.htm 香熏礼品]
[http:/www.88558888.com/lipin041/033.htm 香熏瓶]
[http:/www.88558888.com/lipin041/034.htm 香熏陶瓷加湿氧吧]
[http:/www.88558888.com/lipin041/035.htm 香熏氧吧灯]
[http:/www.88558888.com/lipin041/036.htm 香熏足盐]
[http:/www.88558888.com/lipin041/037.htm 香薰保健项链]
[http:/www.88558888.com/lipin041/038.htm 香薰布娃娃]
[http:/www.88558888.com/lipin041/039.htm 香薰灯]
[http:/www.88558888.com/lipin041/040.htm 香薰果冻蜡]
[http:/www.88558888.com/lipin041/041.htm 香薰果冻蜡烛]
[http:/www.88558888.com/lipin041/042.htm 香薰加湿器]
[http:/www.88558888.com/lipin041/043.htm 香薰礼盒]
[http:/www.88558888.com/lipin041/044.htm 香薰礼品套装]
[http:/www.88558888.com/lipin041/045.htm 香薰玫瑰浴]
[http:/www.88558888.com/lipin041/046.htm 香薰世界酒瓶香座]
[http:/www.88558888.com/lipin041/047.htm 香薰水果醋]
[http:/www.88558888.com/lipin041/048.htm 香薰雾幻氧吧礼盒]
[http:/www.88558888.com/lipin041/049.htm 香薰雾幻氧吧礼品]
[http:/www.88558888.com/lipin041/050.htm 香薰焟烛]
[http:/www.88558888.com/lipin041/051.htm 香薰小夜灯]
[http:/www.88558888.com/lipin041/052.htm 香薰氧吧]
[http:/www.88558888.com/lipin041/053.htm 香薰油灯]
[http:/www.88558888.com/lipin041/054.htm 香薰浴盐]
[http:/www.88558888.com/lipin041/055.htm 香薰装饰画]
[http:/www.88558888.com/lipin041/056.htm 香烟保健滤嘴]
[http:/www.88558888.com/lipin041/057.htm 香烟盒]
[http:/www.88558888.com/lipin041/058.htm 香烟减毒金卡]
[http:/www.88558888.com/lipin041/059.htm 香烟滤嘴]
[http:/www.88558888.com/lipin041/060.htm 香烟替代品]
[http:/www.88558888.com/lipin041/061.htm 香油炉]
[http:/www.88558888.com/lipin041/062.htm 香油瓶]
[http:/www.88558888.com/lipin041/063.htm 香樟]
[http:/www.88558888.com/lipin041/064.htm 香樟]
[http:/www.88558888.com/lipin041/065.htm 香樟木盒]
[http:/www.88558888.com/lipin041/066.htm 香纸片]
[http:/www.88558888.com/lipin041/067.htm 香珠包]
[http:/www.88558888.com/lipin041/068.htm 香座]
[http:/www.88558888.com/lipin041/069.htm 湘绣肚兜]
[http:/www.88558888.com/lipin041/070.htm 箱包]
[http:/www.88558888.com/lipin041/071.htm 箱包带]
[http:/www.88558888.com/lipin041/072.htm 箱包挂件]
[http:/www.88558888.com/lipin041/073.htm 箱包拉头]
[http:/www.88558888.com/lipin041/074.htm 箱包礼品]
[http:/www.88558888.com/lipin041/075.htm 箱包配件]
[http:/www.88558888.com/lipin041/076.htm 箱包配饰]
[http:/www.88558888.com/lipin041/077.htm 箱包手把]
[http:/www.88558888.com/lipin041/078.htm 箱包五金件]
[http:/www.88558888.com/lipin041/079.htm 箱包五金配件]
[http:/www.88558888.com/lipin041/080.htm 箱角]
[http:/www.88558888.com/lipin041/081.htm 箱壳]
[http:/www.88558888.com/lipin041/082.htm 箱筐]
[http:/www.88558888.com/lipin041/083.htm 箱框配件]
[http:/www.88558888.com/lipin041/084.htm 镶贝壳工艺品]
[http:/www.88558888.com/lipin041/085.htm 镶锆手链]
[http:/www.88558888.com/lipin041/086.htm 镶拼梳]
[http:/www.88558888.com/lipin041/087.htm 镶钳玻璃]
[http:/www.88558888.com/lipin041/088.htm 镶嵌]
[http:/www.88558888.com/lipin041/089.htm 镶嵌玻璃]
[http:/www.88558888.com/lipin041/090.htm 镶嵌工艺品]
[http:/www.88558888.com/lipin041/091.htm 镶嵌类异形玻璃珠]
[http:/www.88558888.com/lipin041/092.htm 镶嵌饰品]
[http:/www.88558888.com/lipin041/093.htm 镶嵌首饰]
[http:/www.88558888.com/lipin041/094.htm 镶石吊咀]
[http:/www.88558888.com/lipin041/095.htm 镶石吊坠]
[http:/www.88558888.com/lipin041/096.htm 镶石戒指]
[http:/www.88558888.com/lipin041/097.htm 镶细钻套链]
[http:/www.88558888.com/lipin041/098.htm 镶哑克力相框]
[http:/www.88558888.com/lipin041/099.htm 镶钻滴油胸针]
[http:/www.88558888.com/lipin041/100.htm 镶钻金属扣]
[http:/www.88558888.com/lipin041/101.htm 镶钻井字耳钉]
[http:/www.88558888.com/lipin041/102.htm 镶钻手表]
[http:/www.88558888.com/lipin041/103.htm 镶钻头花]
[http:/www.88558888.com/lipin041/104.htm 镶钻项链]
[http:/www.88558888.com/lipin041/105.htm 镶钻胸针]
[http:/www.88558888.com/lipin041/106.htm 祥鸽报吉]
[http:/www.88558888.com/lipin041/107.htm 祥和如意]
[http:/www.88558888.com/lipin041/108.htm 祥麒麟]
[http:/www.88558888.com/lipin041/109.htm 响铜]
[http:/www.88558888.com/lipin041/110.htm 向日葵]
[http:/www.88558888.com/lipin041/111.htm 项链]
[http:/www.88558888.com/lipin041/112.htm 项链吊坠]
[http:/www.88558888.com/lipin041/113.htm 项链耳环]
[http:/www.88558888.com/lipin041/114.htm 项链挂表]
[http:/www.88558888.com/lipin041/115.htm 项链盒]
[http:/www.88558888.com/lipin041/116.htm 项链面]
[http:/www.88558888.com/lipin041/117.htm 项链闪光棒]
[http:/www.88558888.com/lipin041/118.htm 项链绳]
[http:/www.88558888.com/lipin041/119.htm 项链饰品]
[http:/www.88558888.com/lipin041/120.htm 项链坠]
[http:/www.88558888.com/lipin041/121.htm 项圈]
[http:/www.88558888.com/lipin041/122.htm 项圈吊坠]
[http:/www.88558888.com/lipin041/123.htm 项坠]
[http:/www.88558888.com/lipin041/124.htm 象凳]
[http:/www.88558888.com/lipin041/125.htm 象棋]
[http:/www.88558888.com/lipin041/126.htm 象如意]
[http:/www.88558888.com/lipin041/127.htm 象型骨头挂件]
[http:/www.88558888.com/lipin041/128.htm 象牙白]
[http:/www.88558888.com/lipin041/129.htm 象牙笔筒]
[http:/www.88558888.com/lipin041/130.htm 象牙雕]
[http:/www.88558888.com/lipin041/131.htm 象牙雕刻]
[http:/www.88558888.com/lipin041/132.htm 象牙雕刻礼品]
[http:/www.88558888.com/lipin041/133.htm 象牙工艺品]
[http:/www.88558888.com/lipin041/134.htm 象征性徽章]
[http:/www.88558888.com/lipin041/135.htm 象尊工艺品]
[http:/www.88558888.com/lipin041/136.htm 象尊铜艺品]
[http:/www.88558888.com/lipin041/137.htm 像保安灵香]
[http:/www.88558888.com/lipin041/138.htm 像框]
[http:/www.88558888.com/lipin041/139.htm 橡根]
[http:/www.88558888.com/lipin041/140.htm 橡胶]
[http:/www.88558888.com/lipin041/141.htm 橡胶带全自动表]
[http:/www.88558888.com/lipin041/142.htm 橡胶鬼面具]
[http:/www.88558888.com/lipin041/143.htm 橡胶配件]
[http:/www.88558888.com/lipin041/144.htm 橡胶圈]
[http:/www.88558888.com/lipin041/145.htm 橡胶钥匙扣]
[http:/www.88558888.com/lipin041/146.htm 橡筋冲扣发束]
[http:/www.88558888.com/lipin041/147.htm 橡筋圈]
[http:/www.88558888.com/lipin041/148.htm 橡筋圆绳]
[http:/www.88558888.com/lipin041/149.htm 橡皮打火机]
[http:/www.88558888.com/lipin041/150.htm 橡皮筋]
[http:/www.88558888.com/lipin041/151.htm 橡皮泥]
[http:/www.88558888.com/lipin041/152.htm 橡皮圈]
[http:/www.88558888.com/lipin041/153.htm 橡皮绳]
[http:/www.88558888.com/lipin041/154.htm 消毒压缩毛巾]
[http:/www.88558888.com/lipin041/155.htm 逍遥时计]
[http:/www.88558888.com/lipin041/156.htm 鸮尊工艺品]
[http:/www.88558888.com/lipin041/157.htm 小白摩托]
[http:/www.88558888.com/lipin041/158.htm 小摆件挂件]
[http:/www.88558888.com/lipin041/159.htm 小摆设]
[http:/www.88558888.com/lipin041/160.htm 小杯具]
[http:/www.88558888.com/lipin041/161.htm 小背篓]
[http:/www.88558888.com/lipin041/162.htm 小冰兔卡通钟]
[http:/www.88558888.com/lipin041/163.htm 小冰箱]
[http:/www.88558888.com/lipin041/164.htm 小彩虹三角风筝]
[http:/www.88558888.com/lipin041/165.htm 小彩珠]
[http:/www.88558888.com/lipin041/166.htm 小彩珠拼盒]
[http:/www.88558888.com/lipin041/167.htm 小茶玫]
[http:/www.88558888.com/lipin041/168.htm 小茶碗]
[http:/www.88558888.com/lipin041/169.htm 小长方表头]
[http:/www.88558888.com/lipin041/170.htm 小橙子蜡烛]
[http:/www.88558888.com/lipin041/171.htm 小抽包]
[http:/www.88558888.com/lipin041/172.htm 小丑]
[http:/www.88558888.com/lipin041/173.htm 小厨具]
[http:/www.88558888.com/lipin041/174.htm 小刀]
[http:/www.88558888.com/lipin041/175.htm 小灯]
[http:/www.88558888.com/lipin041/176.htm 小滴水葫芦玻璃珠]
[http:/www.88558888.com/lipin041/177.htm 小滴水型钥匙扣]
[http:/www.88558888.com/lipin041/178.htm 小电筒钥匙扣]
[http:/www.88558888.com/lipin041/179.htm 小雕件]
[http:/www.88558888.com/lipin041/180.htm 小多乐杯]
[http:/www.88558888.com/lipin041/181.htm 小方格]
[http:/www.88558888.com/lipin041/182.htm 小方巾]
[http:/www.88558888.com/lipin041/183.htm 小方块型手链]
[http:/www.88558888.com/lipin041/184.htm 小风车]
[http:/www.88558888.com/lipin041/185.htm 小风扇]
[http:/www.88558888.com/lipin041/186.htm 小风水]
[http:/www.88558888.com/lipin041/187.htm 小狗摆饰工艺品]
[http:/www.88558888.com/lipin041/188.htm 小狗吊坠]
[http:/www.88558888.com/lipin041/189.htm 小狗礼品]
[http:/www.88558888.com/lipin041/190.htm 小挂件]
[http:/www.88558888.com/lipin041/191.htm 小挂件饰品]
[http:/www.88558888.com/lipin041/192.htm 小挂篮]
[http:/www.88558888.com/lipin041/193.htm 小挂历]
[http:/www.88558888.com/lipin041/194.htm 小挂联]
[http:/www.88558888.com/lipin041/195.htm 小挂饰]
[http:/www.88558888.com/lipin041/196.htm 小孩太阳镜]
[http:/www.88558888.com/lipin041/197.htm 小海龟工艺饰品盒]
[http:/www.88558888.com/lipin041/198.htm 小海螺]
[http:/www.88558888.com/lipin041/199.htm 小海星项链]
[http:/www.88558888.com/lipin041/200.htm 小号拔嘴器]
[http:/www.88558888.com/lipin041/201.htm 小横联]
[http:/www.88558888.com/lipin041/202.htm 小猴饰品]
[http:/www.88558888.com/lipin041/203.htm 小花朵套链]
[http:/www.88558888.com/lipin041/204.htm 小花架]
[http:/www.88558888.com/lipin041/205.htm 小家电]
[http:/www.88558888.com/lipin041/206.htm 小家电礼品]
[http:/www.88558888.com/lipin041/207.htm 小家俱]
[http:/www.88558888.com/lipin041/208.htm 小尖头小撬]
[http:/www.88558888.com/lipin041/209.htm 小件工艺品]
[http:/www.88558888.com/lipin041/210.htm 小件工艺品喷砂机]
[http:/www.88558888.com/lipin041/211.htm 小件漆器]
[http:/www.88558888.com/lipin041/212.htm 小剑]
[http:/www.88558888.com/lipin041/213.htm 小胶发丝]
[http:/www.88558888.com/lipin041/214.htm 小金盘]
[http:/www.88558888.com/lipin041/215.htm 小镜]
[http:/www.88558888.com/lipin041/216.htm 小酒壶]
[http:/www.88558888.com/lipin041/217.htm 小酒壶礼盒装]
[http:/www.88558888.com/lipin041/218.htm 小酒架冰箱贴]
[http:/www.88558888.com/lipin041/219.htm 小菊花耳环]
[http:/www.88558888.com/lipin041/220.htm 小可爱闹钟镜]
[http:/www.88558888.com/lipin041/221.htm 小孔杯]
[http:/www.88558888.com/lipin041/222.htm 小灵童泥塑工具]
[http:/www.88558888.com/lipin041/223.htm 小灵童陶艺工具]
[http:/www.88558888.com/lipin041/224.htm 小铃铛]
[http:/www.88558888.com/lipin041/225.htm 小流苏]
[http:/www.88558888.com/lipin041/226.htm 小毛巾筐]
[http:/www.88558888.com/lipin041/227.htm 小帽子发束]
[http:/www.88558888.com/lipin041/228.htm 小梅花头饰品]
[http:/www.88558888.com/lipin041/229.htm 小模型赛车]
[http:/www.88558888.com/lipin041/230.htm 小木橱]
[http:/www.88558888.com/lipin041/231.htm 小木凳]
[http:/www.88558888.com/lipin041/232.htm 小木棉氧吧灯]
[http:/www.88558888.com/lipin041/233.htm 小木屋]
[http:/www.88558888.com/lipin041/234.htm 小奶牛造型卡通钟]
[http:/www.88558888.com/lipin041/235.htm 小南瓜木雕]
[http:/www.88558888.com/lipin041/236.htm 小闹钟]
[http:/www.88558888.com/lipin041/237.htm 小鸟喝水玻璃工艺品]
[http:/www.88558888.com/lipin041/238.htm 小鸟喷水盆]
[http:/www.88558888.com/lipin041/239.htm 小鸟闪光胸章]
[http:/www.88558888.com/lipin041/240.htm 小鸟通用指示牌]
[http:/www.88558888.com/lipin041/241.htm 小女孩彩色雕塑]
[http:/www.88558888.com/lipin041/242.htm 小牌]
[http:/www.88558888.com/lipin041/243.htm 小盆花]
[http:/www.88558888.com/lipin041/244.htm 小皮筋]
[http:/www.88558888.com/lipin041/245.htm 小汽车促销礼品]
[http:/www.88558888.com/lipin041/246.htm 小钱包]
[http:/www.88558888.com/lipin041/247.htm 小钱币马]
[http:/www.88558888.com/lipin041/248.htm 小巧精致]
[http:/www.88558888.com/lipin041/249.htm 小巧田字戒指]
[http:/www.88558888.com/lipin041/250.htm 小青蛙工艺饰品盒]
[http:/www.88558888.com/lipin041/251.htm 小圈椅工艺品]
[http:/www.88558888.com/lipin041/252.htm 小人变行数字钟]
[http:/www.88558888.com/lipin041/253.htm 小人物工艺品]
[http:/www.88558888.com/lipin041/254.htm 小饰品]
[http:/www.88558888.com/lipin041/255.htm 小手电]
[http:/www.88558888.com/lipin041/256.htm 小手电钥匙扣]
[http:/www.88558888.com/lipin041/257.htm 小树熊]
[http:/www.88558888.com/lipin041/258.htm 小水船儿]
[http:/www.88558888.com/lipin041/259.htm 小提琴]
[http:/www.88558888.com/lipin041/260.htm 小提琴架]
[http:/www.88558888.com/lipin041/261.htm 小天球瓶]
[http:/www.88558888.com/lipin041/262.htm 小天使吊坠]
[http:/www.88558888.com/lipin041/263.htm 小铁锅冰箱贴]
[http:/www.88558888.com/lipin041/264.htm 小铁盘盒]
[http:/www.88558888.com/lipin041/265.htm 小韦陀]
[http:/www.88558888.com/lipin041/266.htm 小五金]
[http:/www.88558888.com/lipin041/267.htm 小香炉]
[http:/www.88558888.com/lipin041/268.htm 小形色釉盆]
[http:/www.88558888.com/lipin041/269.htm 小形透明手灯]
[http:/www.88558888.com/lipin041/270.htm 小型砂轮打火机]
[http:/www.88558888.com/lipin041/271.htm 小型烟花]
[http:/www.88558888.com/lipin041/272.htm 小型验钞功能钥匙扣]
[http:/www.88558888.com/lipin041/273.htm 小熊工艺饰品盒]
[http:/www.88558888.com/lipin041/274.htm 小熊挂墙钟]
[http:/www.88558888.com/lipin041/275.htm 小熊头饰品]
[http:/www.88558888.com/lipin041/276.htm 小熊威尼暖手袋]
[http:/www.88558888.com/lipin041/277.htm 小旋转闪光灯]
[http:/www.88558888.com/lipin041/278.htm 小腰果围巾]
[http:/www.88558888.com/lipin041/279.htm 小药箱]
[http:/www.88558888.com/lipin041/280.htm 小耶酥像]
[http:/www.88558888.com/lipin041/281.htm 小叶女贞盆景]
[http:/www.88558888.com/lipin041/282.htm 小夜灯]
[http:/www.88558888.com/lipin041/283.htm 小鹰遥控飞机]
[http:/www.88558888.com/lipin041/284.htm 小鱼夹画花]
[http:/www.88558888.com/lipin041/285.htm 小圆鼎]
[http:/www.88558888.com/lipin041/286.htm 小圆球夹子]
[http:/www.88558888.com/lipin041/287.htm 小圆又尖铁撬]
[http:/www.88558888.com/lipin041/288.htm 小纸伞签]
[http:/www.88558888.com/lipin041/289.htm 小舟]
[http:/www.88558888.com/lipin041/290.htm 小珠包]
[http:/www.88558888.com/lipin041/291.htm 小猪工艺饰品盒]
[http:/www.88558888.com/lipin041/292.htm 小竹框]
[http:/www.88558888.com/lipin041/293.htm 小竹蓝冰箱贴]
[http:/www.88558888.com/lipin041/294.htm 小竹扇]
[http:/www.88558888.com/lipin041/295.htm 小烛杯]
[http:/www.88558888.com/lipin041/296.htm 小嘴亮光扁瓶]
[http:/www.88558888.com/lipin041/297.htm 肖像]
[http:/www.88558888.com/lipin041/298.htm 肖像油画]
[http:/www.88558888.com/lipin041/299.htm 肖行印]
[http:/www.88558888.com/lipin041/300.htm 肖绣刺绣]
[http:/www.88558888.com/lipin041/301.htm 校徽]
[http:/www.88558888.com/lipin041/302.htm 校徽书签]
[http:/www.88558888.com/lipin041/303.htm 校庆纪念盘]
[http:/www.88558888.com/lipin041/304.htm 校园雕塑]
[http:/www.88558888.com/lipin041/305.htm 校园工艺品]
[http:/www.88558888.com/lipin041/306.htm 校园石雕雕塑]
[http:/www.88558888.com/lipin041/307.htm 笑口常开工艺品]
[http:/www.88558888.com/lipin041/308.htm 笑脸吊饰]
[http:/www.88558888.com/lipin041/309.htm 笑脸风筝]
[http:/www.88558888.com/lipin041/310.htm 笑脸蜡]
[http:/www.88558888.com/lipin041/311.htm 笑脸铃]
[http:/www.88558888.com/lipin041/312.htm 笑笑佛]
[http:/www.88558888.com/lipin041/313.htm 蝎子螺]
[http:/www.88558888.com/lipin041/314.htm 斜插旗杆]
[http:/www.88558888.com/lipin041/315.htm 斜打电子机]
[http:/www.88558888.com/lipin041/316.htm 斜打手机]
[http:/www.88558888.com/lipin041/317.htm 斜风罩半透明广告火机]
[http:/www.88558888.com/lipin041/318.htm 斜角巾]
[http:/www.88558888.com/lipin041/319.htm 斜挎包]