package require mkWidgets 1.3
package require Img
package require BLT

pack [iconbox .ibox -columns {{Object 1 200} {Description l 200}}] -fill both -expand 1
update

set num 1
cd d:/photo/2001_7
foreach img [glob *.jpg] {
    image create photo work -file $img
	image create photo img$num -width 128 -height 96
	::blt::winop resample work img$num box
	.ibox insert end img$num -text $img -image img$num -values {{JPEG}}
	image delete work
	incr num
	update
}
.ibox selection set img1
.ibox config -view large

diff -rc org/Iconbox.tcl new/Iconbox.tcl
*** org/Iconbox.tcl	Mon Jul 30 22:53:58 2001
--- new/Iconbox.tcl	Mon Jul 30 22:53:32 2001
***************
*** 697,702 ****
--- 697,707 ----
          if { $iReqh > $iMaxh } {
            set iMaxh $iReqh
          }
+         set iReqw [expr $iIWidth]
+         if { $iReqw > $iMaxw } {
+           set iMaxw $iReqw
+         }
+         my -grid $iMaxw

          place $wIcon.i -relx .5 -rely 0 -anchor n
          place $wIcon.l -x 0 -y $iIHeight -relx .5 -rely 0 -anchor n
diff -rc org/pkgIndex.tcl new/pkgIndex.tcl
*** org/pkgIndex.tcl	Mon Jul 30 22:56:52 2001
--- new/pkgIndex.tcl	Mon Jul 30 23:01:42 2001
***************
*** 1,27 ****
  package ifneeded Metawidget 1.3 "
!   source [file join [set dir] metawidget.tcl]
  "

  package ifneeded mkWidgets 1.3 "
!   source [file join [set dir] Tooltip.tcl]
!   source [file join [set dir] Calendar.tcl]
!   source [file join [set dir] Aclock.tcl]
!   source [file join [set dir] Combobox.tcl]
!   source [file join [set dir] Scrollbox.tcl]
!   source [file join [set dir] Toolbar.tcl]
!   source [file join [set dir] Statusbar.tcl]
!   source [file join [set dir] Textframe.tcl]
!   source [file join [set dir] Window.tcl]
!   source [file join [set dir] Document.tcl]
!   source [file join [set dir] Pane.tcl]
!   source [file join [set dir] Tabcontrol.tcl]
!   source [file join [set dir] Progressbar.tcl]
!   source [file join [set dir] Gridcontrol.tcl]
!   source [file join [set dir] Listcontrol.tcl]
!   source [file join [set dir] Iconbox.tcl]
!   source [file join [set dir] Treecontrol.tcl]
!   source [file join [set dir] Ibutton.tcl]
!   source [file join [set dir] Spinentry.tcl]

    package provide mkWidgets 1.3
  "
--- 1,27 ----
  package ifneeded Metawidget 1.3 "
!   source \"[file join [set dir] metawidget.tcl]\"
  "

  package ifneeded mkWidgets 1.3 "
!   source \"[file join [set dir] Tooltip.tcl]\"
!   source \"[file join [set dir] Calendar.tcl]\"
!   source \"[file join [set dir] Aclock.tcl]\"
!   source \"[file join [set dir] Combobox.tcl]\"
!   source \"[file join [set dir] Scrollbox.tcl]\"
!   source \"[file join [set dir] Toolbar.tcl]\"
!   source \"[file join [set dir] Statusbar.tcl]\"
!   source \"[file join [set dir] Textframe.tcl]\"
!   source \"[file join [set dir] Window.tcl]\"
!   source \"[file join [set dir] Document.tcl]\"
!   source \"[file join [set dir] Pane.tcl]\"
!   source \"[file join [set dir] Tabcontrol.tcl]\"
!   source \"[file join [set dir] Progressbar.tcl]\"
!   source \"[file join [set dir] Gridcontrol.tcl]\"
!   source \"[file join [set dir] Listcontrol.tcl]\"
!   source \"[file join [set dir] Iconbox.tcl]\"
!   source \"[file join [set dir] Treecontrol.tcl]\"
!   source \"[file join [set dir] Ibutton.tcl]\"
!   source \"[file join [set dir] Spinentry.tcl]\"

    package provide mkWidgets 1.3
  "