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"... ;-)

For another study in [literate programming], see [A minimal editor explained].
}

For a slightly extended minimal editor with some fun (I think)
additional abilities [A minimally extended minimal editor]. -- [CB]
 set about "minEd - a minimal editor
 Richard Suchenwirth 2003
 F1: help
 F2: load
 F3: save
 "
 pack [scrollbar .y -command ".t yview"] -side right -fill y
 pack [text .t -wrap word -yscrollc ".y set"] -side right -fill both -expand 1

 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 - 1 c"]
    close $fp
 }

if 0 {[DKF]: Are you targetting 8.4 or later?  If so, add ''-undo 1'' to the options to [text] and get full undo/redo support. Easy!}

[RLH]: On Windows XP, I get an error when I try to pass a file to the editor. It gives me ''invalid command name loadText while executing...''. There are spaces in the path to the file so maybe that is it? - [RS]: That error message means that ''loadText'' was called before it was defined. Are you sure you pasted exactly this code into a file? When manually copying, take care not to confuse braces {} and brackets [[]] - looks like that's your trouble...
----
[Arts and crafts of Tcl-Tk programming]
[Category Application] [Category Editor utility]`