sub populate {
	defined(my $win = $Win32::GUI::Loft::window{winScreener});
        my %windows;
        for ( FindWindowLike(0, qr/.+/, undef, undef, 1) ) {
        	$windows{ GetWindowText($_) } = $_;
        }
        foreach my $k ( sort { $a cmp $b } keys %windows ) {
        	print "Window found: $k\n";
                $win->cbWselect->InsertItem($k);
        }
}