Fixed paste text highlight
Fixed setting edited flag when paste the text from buffer Change authors email and home page
This commit is contained in:
Sergey Kalinin
parent
a803217d10
commit
71f7937446
4
BUGS
4
BUGS
|
|
@ -1,8 +1,8 @@
|
|||
######################################################
|
||||
# Tcl/Tk project Manager
|
||||
# Distributed under GNU Public License
|
||||
# Author: Sergey Kalinin banzaj@lrn.ru
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
|
||||
######################################################
|
||||
|
||||
- Файл проекта, убрать расширение
|
||||
|
|
|
|||
|
|
@ -1,11 +1,14 @@
|
|||
#########################################################
|
||||
# Tcl/Tk Project Manager
|
||||
# Distributed under GNU Public License
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
#########################################################
|
||||
|
||||
0.4.5
|
||||
04.02.2018
|
||||
- Fixed paste text highlight
|
||||
- Fixed setting edited flag when paste the text from buffer
|
||||
|
||||
22/01/2018
|
||||
- Remove ctags support
|
||||
|
|
@ -367,6 +370,8 @@ Fixed bug with PageRise function
|
|||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
4
INSTALL
4
INSTALL
|
|
@ -1,7 +1,7 @@
|
|||
#########################################################
|
||||
# Tcl/Tk Project Manager
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
#########################################################
|
||||
|
||||
1. Install Tcl/Tk, BWidget first
|
||||
|
|
|
|||
4
TODO
4
TODO
|
|
@ -1,8 +1,8 @@
|
|||
##########################################################
|
||||
# Tcl/Tk project Manager
|
||||
# Distributed under GNU Public License
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
##########################################################
|
||||
|
||||
1. GUI
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# Distrubuted under GPL #
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
# AutoCompletition Procedure #
|
||||
# Author Alex DEDERER #
|
||||
|
|
@ -13,13 +13,10 @@ proc auto_completition { widget } {
|
|||
set box [$widget bbox insert]
|
||||
set box_x [expr [lindex $box 0] + [winfo rootx $widget] ]
|
||||
set box_y [expr [lindex $box 1] + [winfo rooty $widget] + [lindex $box 3] ]
|
||||
|
||||
set cnt 0
|
||||
set pos "1.0"
|
||||
set last_pos ""
|
||||
set pattern "$start_word\\w*"
|
||||
#set pattern ""
|
||||
|
||||
set list_word($start_word) 1
|
||||
while { ([set start [$widget search -count cnt -regexp -- $pattern $pos end]] != "") } {
|
||||
set word [$widget get $start "$start + $cnt chars"]
|
||||
|
|
@ -174,4 +171,5 @@ proc auto_completition_key { widget K A } {
|
|||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
35
editor.tcl
35
editor.tcl
|
|
@ -1,8 +1,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# all procedure file #
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
## GETTING OPERATORS FOR COMPLITE PROCEDURE #
|
||||
|
|
@ -47,8 +47,7 @@ proc Position {} {
|
|||
set posX [lindex [split $pos "."] 1]
|
||||
set lbl .frmStatus.frmLine.lblLine
|
||||
$lbl configure -text $pos -font $fontBold
|
||||
|
||||
|
||||
return $pos
|
||||
}
|
||||
proc ReplaceChar {text} {
|
||||
global replace
|
||||
|
|
@ -972,7 +971,32 @@ proc EditFile {node fileName} {
|
|||
bind $text <Control-ntilde> "tk_textCopy $w.text;break"
|
||||
bind $text <Control-c> "tk_textCopy $w.text;break"
|
||||
bind $text <Control-igrave> "tk_textPaste $w.text;break"
|
||||
bind $text <Control-v> "tk_textPaste $w.text;break"
|
||||
#bind $text <Control-v> "tk_textPaste $w.text;break"
|
||||
bind $text <Control-v> {
|
||||
set startPos [Position]
|
||||
set nodeEdit [$noteBook raise]
|
||||
EditFlag $nodeEdit $file 1
|
||||
set fileList($nodeEdit) [list [lindex $fileList($nodeEdit) 0] 1]
|
||||
tk_textPaste $w.text
|
||||
set endPos [Position]
|
||||
set lineBegin [lindex [split $startPos "."] 0]
|
||||
set lineEnd [lindex [split $endPos "."] 0]
|
||||
for {set line $lineBegin} {$line <= $lineEnd} {incr line} {
|
||||
if {$nodeEdit == "" || $nodeEdit == "newproj" || $nodeEdit == "settings" || $nodeEdit == "about" || $nodeEdit == "debug"} {
|
||||
} else {
|
||||
set textEdit "$noteBook.f$nodeEdit.text"
|
||||
set editLine [$textEdit get $line.0 $line.end]
|
||||
if {$autoFormat == "Yes"} {
|
||||
if {$fileExt != "for"} {
|
||||
TabIns $textEdit
|
||||
}
|
||||
}
|
||||
HighLight $fileExt $textEdit $editLine $line $nodeEdit
|
||||
}
|
||||
}
|
||||
break
|
||||
}
|
||||
|
||||
bind $text <Control-adiaeresis> "auto_completition $text"
|
||||
bind $text <Control-l> "auto_completition $text"
|
||||
bind $text <Control-icircumflex> "auto_completition_proc $text"
|
||||
|
|
@ -1147,3 +1171,4 @@ GetOp
|
|||
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
4
help.tcl
4
help.tcl
|
|
@ -4,8 +4,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# help module #
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
#package require BWidget
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
set beginQuote "0.0"
|
||||
set endQuote "2.0"
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
set beginQuote "0.0"
|
||||
set endQuote "2.0"
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
set beginQuote "0.0"
|
||||
set endQuote "2.0"
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
proc HighLightHTML {text line lineNumber node} {
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
set beginQuote "0.0"
|
||||
set endQuote "2.0"
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
set beginQuote "0.0"
|
||||
set endQuote "2.0"
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
proc HighLightPHP {text line lineNumber node} {
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
proc HighLightRIVET {text line lineNumber node} {
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
set beginQuote "0.0"
|
||||
set endQuote "2.0"
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# SPEC highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
proc HighLightSPEC {text line lineNumber node} {
|
||||
|
|
|
|||
|
|
@ -1,16 +1,14 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# version 0.0.1 #
|
||||
# TCL highlight file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
###########################################################
|
||||
###########################################
|
||||
# Tcl/Tk Project Manager
|
||||
# version 0.0.1
|
||||
# TCL highlight file
|
||||
# Copyright (c) Sergey Kalinin 2001, http://nuk-svk.ru
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj28@gmail.com
|
||||
###########################################
|
||||
|
||||
proc HighLightTCL {text line lineNumber node} {
|
||||
global fontNormal fontBold editorFontBold tree imgDir noteBook
|
||||
global editor color
|
||||
# set pos [$text index insert]
|
||||
# set lineNumber [lindex [split $pos "."] 0]
|
||||
|
||||
set startIndex 0
|
||||
# bind text tags for highlightning #
|
||||
|
|
@ -226,3 +224,4 @@ proc HighLightTCL {text line lineNumber node} {
|
|||
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
1145
highlight/tex.tcl
1145
highlight/tex.tcl
File diff suppressed because it is too large
Load Diff
|
|
@ -10,7 +10,7 @@
|
|||
<P>© Все права защищены 1992-2001.
|
||||
<p>Разрешается не коммерческое использование документации как целиком так и отдельных частей с разрешения авторов и с обязательной ссылкой на
|
||||
<b><a href="http://www.florin.ru">DataX/FLORIN, Inc.</a></b> и на
|
||||
<b><a href="http://conero.lrn.ru">CONERO lab</a></b>
|
||||
<b><a href="http://nuk-svk.ru">Sergey Kalinin</a></b>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
<TITLE>About Tcl/Tk Project Manager</TITLE>
|
||||
<center><h1>Tcl/Tk Project Manager</h1></center>
|
||||
<p>Author: Sergey Kalinin (aka BanZaj) <a href="mailto:banzaj@lrn.ru">banzaj@lrn.ru</a>
|
||||
<br>Home page: <a href="http://conero.lrn.ru">http://conero.lrn.ru</a>
|
||||
<p>Author: Sergey Kalinin <a href="mailto:banzaj28@yandex.ru">banzaj28@yandex.ru</a>
|
||||
<br>Home page: <a href="http://nuk-svk.ru">http://nuk-svk.ru</a>
|
||||
|
||||
<p>Tcl/Tk Project Manager is a full IDE for programming in TCL/Tk.
|
||||
It includes a project and file manager, a source editor with
|
||||
|
|
@ -10,6 +10,6 @@ help system, and much more. Included TkDIFF+ - compare tools and TkREGEXP - a gr
|
|||
|
||||
<br>Working an Unix (Linux tested) and Windows.
|
||||
|
||||
<p><center>© Copyright <a href="http://conero.lrn.ru">CONERO lab</a>, 2002
|
||||
<p><center>© Copyright <a href="http://nuk-svk.ru">Sergey Kalinin</a>, 2002
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
######################################################
|
||||
# Tk LaTeX Editor
|
||||
# Distributed under GNU Public License
|
||||
# Author: Sergey Kalinin (BanZaj) banzaj@lrn.ru
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
|
||||
######################################################
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@
|
|||
<P>© Все права защищены 1992-2001.
|
||||
<p>Разрешается некоммерческое использование документации как целиком так и отдельных частей с разрешения авторов и с обязательной ссылкой на
|
||||
<b><a href="http://www.florin.ru">DataX/FLORIN, Inc.</a></b> и на
|
||||
<b><a href="http://conero.lrn.ru">CONERO lab</a></b>
|
||||
<b><a href="http://nuk-svk.ru">Sergey Kalinin</a></b>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
|
|||
|
|
@ -22,7 +22,7 @@ Tcl/Tk Project Manager FAQ 0.1
|
|||
|
||||
Вам потребуется интерпретатор языка Tcl/Tk(более подробную информацию по
|
||||
Tcl/Tk можно найти на сайте http://www.tcl-tk.org), BWidget <http://sourceforge.net/projects/tcllib> и последняя версия дистрибутива
|
||||
Tcl/Tk Project Manager(ÅÅ ÍÏÖÎÏ ÓËÁŞÁÔØ Ó ÓÁÊÔÁ http://conero.lrn.ru)
|
||||
Tcl/Tk Project Manager(ÅÅ ÍÏÖÎÏ ÓËÁŞÁÔØ Ó ÓÁÊÔÁ http://nuk-svk.ru)
|
||||
|
||||
Следуйте инструкциям по установке вашего дистрибутива ProjMan
|
||||
изложенными в файле INSTALL архива.
|
||||
|
|
@ -56,5 +56,5 @@ Tcl/Tk Project Manager(
|
|||
|
||||
--
|
||||
Igor Didkovsky aka Gor (ididkovsky@mail.ru)
|
||||
Segey Kalinin aka BanZaj (banzaj@lrn.ru)
|
||||
Segey Kalinin (banzaj28@yandex.ru)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
<TITLE>About Tcl/Tk Project Manager</TITLE>
|
||||
<center><h1>Tcl/Tk Project Manager</h1>
|
||||
Version 1.0.0</center>
|
||||
<p>á×ÔĎŇ: óĹŇÇĹĘ ëÁĚÉÎÉÎ (aka BanZaj) <a href="mailto:banzaj@lrn.ru">banzaj@lrn.ru</a>
|
||||
<br>äĎÍÁŰÎŃŃ ÓÔŇÁÎÉĂÁ: <a href="http://conero.lrn.ru">http://conero.lrn.ru</a>
|
||||
<p>á×ÔĎŇ: óĹŇÇĹĘ ëÁĚÉÎÉÎ (aka BanZaj) <a href="mailto:banzaj28@yandex.ru">banzaj28@yandex.ru</a>
|
||||
<br>äĎÍÁŰÎŃŃ ÓÔŇÁÎÉĂÁ: <a href="http://nuk-svk.ru">http://nuk-svk.ru</a>
|
||||
|
||||
<p>IDE ÄÌÑ ÐÒÏÇÒÁÍÍÉÒÏ×ÁÎÉÑ ÎÁ Tcl/Tk
|
||||
<p>÷ËÌÀÞÁÅÔ × ÓÅÂÑ:
|
||||
|
|
@ -20,6 +20,6 @@ Version 1.0.0</center>
|
|||
<br> -- ÐÏÍÏÝØ ÐÏ IDE
|
||||
<br>- ÚÁÐÕÓË ÐÒÉÌÏÖÅÎÉÊ ÉÚ IDE
|
||||
|
||||
<p><center>© Copyright <a href="http://conero.lrn.ru">CONERO lab</a>, 2002
|
||||
<p><center>© Copyright <a href="http://nuk-svk.ru">Sergey Kalinin</a>, 2002
|
||||
|
||||
|
||||
|
|
|
|||
BIN
img/copy.gif
BIN
img/copy.gif
Binary file not shown.
|
Before Width: | Height: | Size: 1.2 KiB After Width: | Height: | Size: 1.2 KiB |
BIN
img/new.gif
BIN
img/new.gif
Binary file not shown.
|
Before Width: | Height: | Size: 669 B After Width: | Height: | Size: 673 B |
BIN
img/old/copy.gif
BIN
img/old/copy.gif
Binary file not shown.
|
Before Width: | Height: | Size: 1.2 KiB After Width: | Height: | Size: 1.2 KiB |
BIN
img/old/new.gif
BIN
img/old/new.gif
Binary file not shown.
|
Before Width: | Height: | Size: 669 B After Width: | Height: | Size: 673 B |
Binary file not shown.
|
Before Width: | Height: | Size: 1.2 KiB After Width: | Height: | Size: 1.2 KiB |
BIN
img/old/save.gif
BIN
img/old/save.gif
Binary file not shown.
|
Before Width: | Height: | Size: 704 B After Width: | Height: | Size: 708 B |
Binary file not shown.
|
Before Width: | Height: | Size: 1.1 KiB After Width: | Height: | Size: 1.1 KiB |
BIN
img/paste.gif
BIN
img/paste.gif
Binary file not shown.
|
Before Width: | Height: | Size: 1.2 KiB After Width: | Height: | Size: 1.2 KiB |
BIN
img/save.gif
BIN
img/save.gif
Binary file not shown.
|
Before Width: | Height: | Size: 704 B After Width: | Height: | Size: 708 B |
BIN
img/save_as.gif
BIN
img/save_as.gif
Binary file not shown.
|
Before Width: | Height: | Size: 1.1 KiB After Width: | Height: | Size: 1.1 KiB |
|
|
@ -3,8 +3,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# install script #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
## SETTING VARIABLES AND DIRECTORYES ##
|
||||
|
|
|
|||
4
main.tcl
4
main.tcl
|
|
@ -1,8 +1,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# Distrubuted under GPL #
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
Modules
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
# german messages file #
|
||||
# Author: Roman Schaller <r.schaller@gmx.ch> #
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# english messages file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
::msgcat::mcset en "About ..."
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# french messages file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
# Traduction: Michel SALVAGNIAC michel.salvagniac@free.fr #
|
||||
###########################################################
|
||||
# french messages file #
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# russian messages file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
::msgcat::mcset ru "About ..." "О программе"
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# russian messages file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
::msgcat::mcset ru "About ..." "ï ÐÒÏÇÒÁÍÍÅ"
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# Tcl/Tk Project Manager #
|
||||
# Distributed under GPL #
|
||||
# all procedure file #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
## INSERT TEXT INTO ENTRY BOmX ##
|
||||
|
|
@ -456,23 +456,23 @@ proc AboutDialog {} {
|
|||
#
|
||||
#bind $w.frmlbl.lblWWW <Enter> {
|
||||
# .frmBody.frmWork.noteBook.fabout.frmlbl.lblWWW configure -fg blue -cursor hand1
|
||||
# LabelUpdate .frmStatus.frmHelp.lblHelp "Goto http://conero.lrn.ru"
|
||||
# LabelUpdate .frmStatus.frmHelp.lblHelp "Goto http://nuk-svk.ru"
|
||||
#}
|
||||
#bind $w.frmlbl.lblWWW <Leave> {
|
||||
# .frmBody.frmWork.noteBook.fabout.frmlbl.lblWWW configure -fg black
|
||||
# LabelUpdate .frmStatus.frmHelp.lblHelp ""
|
||||
#}
|
||||
#bind $w.frmlbl.lblWWW <ButtonRelease-1> {GoToURL "http://conero.lrn.ru"}
|
||||
#bind $w.frmlbl.lblWWW <ButtonRelease-1> {GoToURL "http://nuk-svk.ru"}
|
||||
#
|
||||
bind $w.frmlbl.lblEmail <Enter> {
|
||||
.frmBody.frmWork.noteBook.fabout.frmlbl.lblEmail configure -fg blue -cursor hand1
|
||||
LabelUpdate .frmStatus.frmHelp.lblHelp "Send email \"banzaj@lrn.ru\""
|
||||
LabelUpdate .frmStatus.frmHelp.lblHelp "Send email \"banzaj28@yandex.ru\""
|
||||
}
|
||||
bind $w.frmlbl.lblEmail <Leave> {
|
||||
.frmBody.frmWork.noteBook.fabout.frmlbl.lblEmail configure -fg black
|
||||
LabelUpdate .frmStatus.frmHelp.lblHelp ""
|
||||
}
|
||||
#bind $w.frmlbl.lblEmail <ButtonRelease-1> {SendEmail "http://conero.lrn.ru"}
|
||||
#bind $w.frmlbl.lblEmail <ButtonRelease-1> {SendEmail "http://nuk-svk.ru"}
|
||||
|
||||
|
||||
$noteBook raise about
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#########################################################
|
||||
# Tcl/Tk project Manager
|
||||
# Distributed under GNU Public License
|
||||
# Author: Sergey Kalinin banzaj@lrn.ru
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
|
||||
#########################################################
|
||||
|
||||
proc NewProjDialog {type} {
|
||||
|
|
|
|||
|
|
@ -2,8 +2,8 @@
|
|||
# TCL/Tk Project Manager #
|
||||
# version 0.3.8 #
|
||||
# #
|
||||
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
|
||||
# Authors: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
|
||||
# Authors: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
# Modification date: Чт янв 11 10:38:33 MSK 2018
|
||||
###########################################################
|
||||
|
|
|
|||
|
|
@ -3,8 +3,8 @@
|
|||
###########################################################
|
||||
# Tcl/Tk Project Manager #
|
||||
# Distrubuted under GPL #
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru #
|
||||
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru #
|
||||
###########################################################
|
||||
|
||||
########## VERSION INFORMATION ##########
|
||||
|
|
|
|||
12
settings.tcl
12
settings.tcl
|
|
@ -1,8 +1,8 @@
|
|||
######################################################
|
||||
# Tcl/Tk project Manager
|
||||
# Distributed under GNU Public License
|
||||
# Author: Sergey Kalinin banzaj@lrn.ru
|
||||
# Home page: http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
# Home page: http://nuk-svk.ru
|
||||
######################################################
|
||||
|
||||
## SETTING DIALOG ##
|
||||
|
|
@ -40,8 +40,8 @@ proc Settings {} {
|
|||
puts $file "# TCL/Tk Project Manager #"
|
||||
puts $file "# version $ver #"
|
||||
puts $file "# #"
|
||||
puts $file "# Copyright \(c\) \"CONERO lab\", 2001, http://conero.lrn.ru #"
|
||||
puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj@lrn.ru #"
|
||||
puts $file "# Copyright \(c\) \"Sergey Kalinin\", 2001, http://nuk-svk.ru #"
|
||||
puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj28@yandex.ru #"
|
||||
puts $file "###########################################################"
|
||||
puts $file "# Modification date: [exec date]"
|
||||
puts $file "###########################################################\n"
|
||||
|
|
@ -773,8 +773,8 @@ proc SaveSettings {} {
|
|||
puts $file "# TCL/Tk Project Manager #"
|
||||
puts $file "# version $ver #"
|
||||
puts $file "# #"
|
||||
puts $file "# Copyright \(c\) \"CONERO lab\", 2001, http://conero.lrn.ru #"
|
||||
puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj@lrn.ru #"
|
||||
puts $file "# Copyright \(c\) \"Sergey Kalinin\", 2001, http://nuk-svk.ru #"
|
||||
puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj28@yandex.ru #"
|
||||
puts $file "###########################################################\n"
|
||||
puts $file "# Modification date: [exec date]"
|
||||
puts $file "###########################################################\n"
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
#########################################################
|
||||
# Tcl/Tk project Manager
|
||||
# Distributed under GNU Public License
|
||||
# Author: Sergey Kalinin banzaj@lrn.ru
|
||||
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
|
||||
# Author: Sergey Kalinin banzaj28@yandex.ru
|
||||
# Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
|
||||
#########################################################
|
||||
|
||||
proc GetTagList {tagFile} {
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user