view release on metacpan or  search on metacpan

lib/App/Guiio/Ascii.pm  view on Meta::CPAN

				push(@EndY, $lineCount);
				push(@Properties,$Property);
				push(@ControlType,'ComboHeader');
				while(substr($input,$i,1) eq '_')
				{
					$i++;
					$colCount++;
				}
				$i--;
				$colCount--;
				push(@EndX,$colCount); # we offset the last occurance of _ in that portion of the substring by 3 as the combobox infact ends after 3 characters on the following line
				$colCount--;
		}
		elsif (substr($input,$i) =~ m/^\[Combo *\|V\].*/s and is_control_exists($colCount,$lineCount,'ComboHeader',\@StartX,\@StartY,\@EndX,\@EndY,\@ControlType) >= 0 and 
				is_control_exists($colCount+index(substr($input,$i),']'),$lineCount,'ComboHeader',\@StartX,\@StartY,\@EndX,\@EndY,\@ControlType) >= 0 and 
				is_control_exists($colCount+index(substr($input,$i),']'),$lineCount,'ComboHeader',\@StartX,\@StartY,\@EndX,\@EndY,\@ControlType) ==
								is_control_exists($colCount,$lineCount,'ComboHeader',\@StartX,\@StartY,\@EndX,\@EndY,\@ControlType)) # found the content part of the combobox
		{
				my $controlIndex = is_control_exists($colCount,$lineCount,'ComboHeader',\@StartX,\@StartY,\@EndX,\@EndY,\@ControlType);
				$ControlType[$controlIndex] = 'Combobox';
				$EndY[$controlIndex] = $lineCount;
				
				$i += index(substr($input,$i),']');
				$colCount += index(substr($input,$i),']');
		}
		elsif (substr($input,$i) =~ m/^<-+>.*/s or substr($input,$i) =~ m/^\[=+\].*/s or substr($input,$i) =~ m/^=+\[\]=+.*/s or substr($input,$i) =~ m/^\[_+\].*/s) # picks up horizontal scroll bar, horizontal slider, progress bar, or textbox patterns
		{