+if {$tk_version >= 8.4} {
+ set entry_readonly readonly
+} else {
+ set entry_readonly disabled
+}
+
+#----- About box ------------------------------------------------------------
+
+proc about-box {} {
+ if {[winfo exists .about]} {
+ # raise .about
+ return
+ }
+ toplevel .about
+ wm title .about "About elite-editor"
+ label .about.rocl -font {helvetica 16 bold} -justify left \
+ -text "Right On Command-Line"
+ label .about.ee -font {helvetica 10 italic} -justify left \
+ -text "elite-editor"
+ label .about.gpl -font {helvetica 8 normal} -justify left -text {
+Copyright (c) 2003 Mark Wooding
+Partly based on code by Ian Bell and Christian Pinder
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software Foundation,
+Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ }
+ button .about.dismiss -text "Dismiss" -command { destroy .about }
+ pack .about.rocl -padx 4 -side top -anchor w
+ pack .about.ee -padx 4 -side top -anchor e
+ pack .about.gpl -padx 24 -side top -anchor center -expand 1
+ pack .about.dismiss -side top -padx 4 -pady 4 -anchor e
+}
+
+proc help-menu {m} {
+ menu $m.help
+ $m.help add command -label "About..." -command about-box
+ $m add cascade -label "Help" -menu $m.help
+}
+