Tk Text Edit: Check-in [818f3c597e]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	Added some space at the end of flist
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	818f3c597eb947da5394c424ee63ef5edf15df38
User & Date:	dennis2 2002-06-17 16:14:03

Context

2002-06-17
16:17		Cleanup check-in: b3204e5606 user: dennis2 tags: trunk
16:14		Added some space at the end of flist check-in: 818f3c597e user: dennis2 tags: trunk
2002-06-15
22:07		Changed homepage, removed e-mail check-in: 5556035502 user: dennis2 tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/flist.tcl.

			}	
		}
	}
	set list [concat ".. $list"]
	set typs "i_folder $typs"

	showlist $w "$list" $typs
	$w configure -scrollregion "0 0 200 [expr 15*[llength $list]]"
}


proc copy {file} {
	set f  [file join [pwd] $file]
	txt::copyfrom_clip .text $f
}

			}	
		}
	}
	set list [concat ".. $list"]
	set typs "i_folder $typs"

	showlist $w "$list" $typs
	$w configure -scrollregion "0 0 200 [expr 15*[llength $list] + 10]"
}


proc copy {file} {
	set f  [file join [pwd] $file]
	txt::copyfrom_clip .text $f
}