sub browse_content {
	my ($widget,$path,$type,@ext) = @_;
	# $type = 0-Both / 1-File / 2-Folder #
	$path =~ s/\/$//;
	$path =~ s/ /\\ /;
	my @files = ();
	my $ext_count = @ext;
	if($ext_count>0){
		my $filter = undef;
		foreach my $ex (@ext){
			$filter = $filter . $ex . ',';
		}
		$filter =~ s/,$//;
		@files = <$path/*.{$filter}>;
	}else{
		@files = <$path/*>;
	}
	my @return = ();
	if($type == 0){
		return @files;
	}else{
		foreach my $file (@files) {
			if(-d $file){
				if($type == 2){ push @return, $file; }
			}else{
				if($type == 1){ push @return, $file; }
			}
		}
	}
	return @return;
}