if 0 {Richard Suchenwirth 2003-08-12 - In contrast to a basic editor which has quite some features, here's an utterly simple one which just allows to load and save files, and of course edit, and cut and paste, and whatever is built-in into the text widget anyway. And it has a bit "online help"... ;-) }
set about "minEd - a minimal editor Richard Suchenwirth 2003 F1: help F2: load F3: save " pack [text .t -wrap word -yscrollc ".y set"] -side left -fill both -expand 1 pack [scrollbar .y -command ".t yview"] -side left -fill y bind . <F1> {tk_messageBox -message $about} bind . <F2> {loadText .t [tk_getOpenFile]} bind . <F3> {saveText .t [tk_getSaveFile]} if {$argv != ""} {loadText .t [lindex $argv 0]} proc loadText {w fn} { if {$fn==""} return wm title . [file tail $fn] set fp [open $fn] $w delete 1.0 end $w insert end [read $fp] close $fp } proc saveText {w fn} { if {$fn==""} return set fp [open $fn w] puts -nonewline $fp [$w get 1.0 end] close $fp }