######################################################################
# stead:aboutBox - make the about box
######################################################################

package provide stead 2.0

proc stead:aboutBox {} {
  global stead
  global argv0 
  set about_editor [format {
    te:rt:hl "STEAD :   version %s"
    te:rt:cr
    te:rt:rm "Nom logique du script stead   :\n"
    te:rt:tt "        %s"
    te:rt:cr
    te:rt:rm "Nom physique du script stead :\n"
    te:rt:tt "        %s"
    te:rt:cr
    te:rt:rm "\nChemin de l'interpréteur   :\n"
    te:rt:tt "        %s"
    te:rt:cr
    te:rt:rm "Répertoire des librairies          :\n"
    te:rt:tt "        %s"
    te:rt:cr
    te:rt:rm "Répertoire des la tcllib          :\n"
    te:rt:tt "        %s"
    te:rt:cr
    te:rt:cr
    te:rt:hl "Sympathetic Tk-based Editor for Average Dummies"
    te:rt:cr
    te:rt:cr

    te:rt:rm "par\tChristian ARTIGUES\t\t(1993-1994) "
    te:rt:cr
    te:rt:rm "\tMaurice DIAMANTINI (diam@ensta.fr)\t(1993-1999)"
    te:rt:cr
    te:rt:rm "\t(spécifications puis maintenance)"
    te:rt:cr
    te:rt:cr
    te:rt:tt "        École Nationale Supérieure de Techniques Avancées"
    te:rt:cr
    te:rt:tt "          Laboratoire d'Électronique et d'Informatique"
    te:rt:cr
    te:rt:tt "               Architectures de Machines dédiées"
    te:rt:cr
    te:rt:cr
    te:rt:rm "Stead est un éditeur de texte écrit à l'aide du langage "
    te:rt:rm "interprété TCL (version 7.3)"
    te:rt:cr
    te:rt:rm "(Tool Command Language) et de son extension X Window "
    te:rt:rm "Tk (Toolkit)."
    te:rt:cr
    te:rt:rm "Son But : être un éditeur à la fois simple d'utilisation basé "
    te:rt:rm "sur les menus et la souris, suffisament puissant pour gérer "
    te:rt:rm "les modes et configurable par l'utilisateur en TCL."
    # te:rt:cr
    te:rt:par
    te:rt:it "Développé à partir de :"
    te:rt:cr
    te:rt:cr
    te:rt:tab
    te:rt:hl "  jedit "
    te:rt:rm "de Jay Sekora, "
    te:rt:tt "js@princeton.edu"
    te:rt:cr
    te:rt:cr
    te:rt:it "Et aussi :"
    te:rt:cr 
    te:rt:cr 
    te:rt:tab
    te:rt:rm "- Alpha de Pete Keleher : l'éditeur LaTeX, entre autre "
    te:rt:cr 
    te:rt:tab ; te:rt:tab
    te:rt:rm  "(shareware 25$ pour Macintosh)"
    te:rt:cr 
    te:rt:tab ; te:rt:tab
    te:rt:tt "pete@cs.rice.edu"
    te:rt:cr 
    te:rt:tab
    te:rt:rm "- Beth de David Svoboda"
    te:rt:tt "svoboda@ece.cmu.edu"
    te:rt:cr
    te:rt:tab
    te:rt:rm "- TkMan de Tom Phelps, "
    te:rt:tt "phelps@cs.Berkeley.edu"
    te:rt:cr
    te:rt:tab
    te:rt:rm "- TkMail de Paul Raines, "
    te:rt:tt "raines@bohr.physics.upenn.edu "
    te:rt:cr
    te:rt:tab
    te:rt:rm "- mxedit de Brent Welch, "
    te:rt:tt "welch@parc.xerox.com"
    te:rt:cr
    te:rt:tab
    te:rt:rm "- David C. Black pour les ElectricAlias, "
    te:rt:tt "black@mpd.tandem.com+ "
    te:rt:cr
    te:rt:cr
    te:rt:it "Ainsi que la communauté du NewsGroup : "
    te:rt:tt "comp.lang.tcl"
    te:rt:cr
    te:rt:cr
    
  } $stead(version) $argv0 $stead(exe) $::env(STEAD_WISH) $stead(install)/lib $stead(tcllib)]
  te:about .about $about_editor
  te:about:button .about {About STEAD} $about_editor
  # te:about:button .about {About Jay} [te:about_jay]
  te:about:button .about {About Tk and Tcl} [te:about_tktcl]
  
  tkwait window .about
}


