# snippet of a subroutine that defines the widget layout
my $res;

{
my $results = $search_frame->Listbox( -background => "white",
                                      -relief => "sunken",
                                      -borderwidth => 2,
                                      -width => 20,
                                      -height => 12,
                                      )
                                      ->place( -in => $search_frame,
                                               -x => 20,
                                               -y => 175);
$res = \$results;
}