Stringscan

	# textLoadFile --
	# This method below loads a file into a text widget, discarding
	# the previous contents of the widget. Tags for the old widget are
	# not affected, however.
	#
	# Arguments:
	# w -           The window into which to load the file.  Must be a
	#               text widget.
	# file -        The name of the file to load.  Must be readable.
	def textLoadFile(w,file)
		w.delete('1.0', 'end')
		f = open(file, 'r')
		while(!f.eof?)
			w.insert('end', f.read(1000))
		end
		f.close
	end
	# textSearch --
	# Search for all instances of a given string in a text widget and
	# apply a given tag to each instance found.
	#
	# Arguments:
	# w -           The window in which to search.  Must be a text widget.
	# string -      The string to search for.  The search is done using
	#               exact matching only;  no special characters.
	# tag -         Tag to apply to each instance of a matching string.
	def textSearch(w, string, tag)
		tag.remove('0.0', 'end')
		return if string == ""
		cur = '1.0'
		loop {
			cur, len = w.search_with_length(string, cur, 'end')
			break if cur == ""
			tag.add(cur, "#{cur} + #{len} char")
			cur = w.index("#{cur} + #{len} char")
		}
	end
	# Set up display styles for text highlighting.
	if TkWinfo.depth($search_demo) > 1
		textToggle(proc{
			$search_Tag.configure('background'=>'#ce5555',
			'foreground'=>'white')
		},
		800,
		proc{
			$search_Tag.configure('background'=>'', 'foreground'=>'')
		},
	200 )
else
	textToggle(proc{
		$search_Tag.configure('background'=>'black',
		'foreground'=>'white')
	},
	800,
	proc{
		$search_Tag.configure('background'=>'', 'foreground'=>'')
	},
200 )
end

	$termlabel = Tk::Tile::Label.new($topframe) {text "Search Term:"}.pack('side' => 'left','fill' => 'both','expand' => 'no')
	$termentry = Tk::Tile::Entry.new($topframe) {textvariable $searchterm}.pack('side' => 'left','fill' => 'both','expand' => 'no')
	$termentry.bind('Return', proc {stringgrep})
	$nextsep = Tk::Tile::Separator.new($mainframe) {orient 'horizontal'}.pack('side'=>'top', 'fill'=>'both')
	
	#listbox, textbox, scrollbars
	$bottomframe = Tk::Frame.new($mainframe).pack('side'=>'bottom','fill' => 'both', 'expand' => 'yes')
	$bottomleftframe  =Tk::Tile::Frame.new($bottomframe).pack('side'=>'left','fill' => 'both', 'expand' => 'yes')
	$listlabel = Tk::Tile::Label.new($bottomleftframe) {
		text 'File Name'
		style 'TablelistHeader.TLabel'
		padding 1
	}.pack('side'=>'top', 'fill'=>'both', 'expand' => 'no')
	$lbox = Tk::Listbox.new($bottomleftframe){
		width 50