######################################################## # Tk LaTeX Editor # Distributed under GNU Public License # Author: Sergey Kalinin banzaj@lrn.ru # Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru ######################################################## ## ABOUT DIALOG ## proc AboutDialog {} { global dir tree nb ver font release set w .about if {[winfo exists $w]} { destroy $w } toplevel $w wm title $w [::msgcat::mc "About ..."] #wm resizable $w 0 0 wm transient $w . frame $w.frmImg -borderwidth 2 -relief ridge -background black image create photo imgAbout -format gif -file [file join $dir(img) tle.gif] image create photo imgConero -format gif -file [file join $dir(img) conero.gif] label $w.frmImg.lblImg -image imgAbout -background black pack $w.frmImg.lblImg -side top -fill x frame $w.frmlbl -borderwidth 2 -relief ridge -background "#8700d1" label $w.frmlbl.lblVersion -text "[::msgcat::mc Version] $ver$release"\ -background "#8700d1" -foreground black label $w.frmlbl.lblAuthorName -text "[::msgcat::mc Authors]:"\ -background "#8700d1" -foreground black label $w.frmlbl.lblAuthor1 -text "Sergey Kalinin (aka BanZaj), banzaj@lrn.ru"\ -background "#8700d1" -foreground black label $w.frmlbl.lblAuthor2 -text "Constantin I Makhailenko (aka Const), const@mail.ru"\ -background "#8700d1" -foreground black pack $w.frmlbl.lblVersion $w.frmlbl.lblAuthorName $w.frmlbl.lblAuthor1 $w.frmlbl.lblAuthor2 -side top -padx 5 pack $w.frmImg -side top -fill x pack $w.frmlbl -side top -expand true -fill both bind $w "destroy .about" bind $w "destroy .about" # }