source stooop.tcl
namespace import stooop::*
source switched.tcl
source scwoop.tcl
source scwoutil.tcl
source bindings.tcl
source widgetip.tcl
source scroll.tcl
source scroller.tcl
source confint.tcl

. configure -highlightbackground black -highlightthickness 1
set options [new configurationInterface .]
set container [new scroller [configurationInterface::container $options] -width 200 -height 200]
pack $widget::($container,path)
configurationInterface::manage $options $container

set tclLogoData {
[encoded data, 15250 characters]
    ciM/ciRPciVfciZvcifnjIAAADs=
}

scroller::display $container [label $widget::($container,path).label -image [image create photo -data $tclLogoData]]
