54 lines
1.7 KiB
Tcl
Executable File
54 lines
1.7 KiB
Tcl
Executable File
########################################################
|
|
# 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 <Escape> "destroy .about"
|
|
bind $w <Return> "destroy .about"
|
|
#
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|