svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed paste text highlight

Browse Source 
Fixed setting edited flag when paste the text from buffer
Change authors email and home page
This commit is contained in:
Sergey Kalinin 2018-02-04 16:12:12 +03:00
parent a803217d10
commit 71f7937446
48 changed files with 1189 additions and 183 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BUGS
View File

@ -1,8 +1,8 @@
###################################################### ######################################################
# Tcl/Tk project Manager # Tcl/Tk project Manager
# Distributed under GNU Public License # Distributed under GNU Public License
# Author: Sergey Kalinin banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
###################################################### ######################################################
- Файл проекта, убрать расширение - Файл проекта, убрать расширение

9
CHANGELOG
View File

@ -1,11 +1,14 @@
######################################################### #########################################################
# Tcl/Tk Project Manager # Tcl/Tk Project Manager
# Distributed under GNU Public License # Distributed under GNU Public License
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
######################################################### #########################################################
0.4.5 0.4.5
04.02.2018
- Fixed paste text highlight
- Fixed setting edited flag when paste the text from buffer
22/01/2018 22/01/2018
- Remove ctags support - Remove ctags support
@ -367,6 +370,8 @@ Fixed bug with PageRise function

4
INSTALL
View File

@ -1,7 +1,7 @@
######################################################### #########################################################
# Tcl/Tk Project Manager # Tcl/Tk Project Manager
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
######################################################### #########################################################
1. Install Tcl/Tk, BWidget first 1. Install Tcl/Tk, BWidget first

4
TODO
View File

@ -1,8 +1,8 @@
########################################################## ##########################################################
# Tcl/Tk project Manager # Tcl/Tk project Manager
# Distributed under GNU Public License # Distributed under GNU Public License
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
########################################################## ##########################################################
1. GUI 1. GUI

8
completition.tcl
View File

@ -1,8 +1,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# Distrubuted under GPL # # Distrubuted under GPL #
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
# AutoCompletition Procedure # # AutoCompletition Procedure #
# Author Alex DEDERER # # Author Alex DEDERER #
@ -13,13 +13,10 @@ proc auto_completition { widget } {
set box [$widget bbox insert] set box [$widget bbox insert]
set box_x [expr [lindex $box 0] + [winfo rootx $widget] ] set box_x [expr [lindex $box 0] + [winfo rootx $widget] ]
set box_y [expr [lindex $box 1] + [winfo rooty $widget] + [lindex $box 3] ] set box_y [expr [lindex $box 1] + [winfo rooty $widget] + [lindex $box 3] ]
set cnt 0 set cnt 0
set pos "1.0" set pos "1.0"
set last_pos "" set last_pos ""
set pattern "$start_word\\w*" set pattern "$start_word\\w*"
#set pattern ""
set list_word($start_word) 1 set list_word($start_word) 1
while { ([set start [$widget search -count cnt -regexp -- $pattern $pos end]] != "") } { while { ([set start [$widget search -count cnt -regexp -- $pattern $pos end]] != "") } {
set word [$widget get $start "$start + $cnt chars"] set word [$widget get $start "$start + $cnt chars"]
@ -174,4 +171,5 @@ proc auto_completition_key { widget K A } {

35
editor.tcl
View File

@ -1,8 +1,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# all procedure file # # all procedure file #
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
## GETTING OPERATORS FOR COMPLITE PROCEDURE # ## GETTING OPERATORS FOR COMPLITE PROCEDURE #
@ -47,8 +47,7 @@ proc Position {} {
set posX [lindex [split $pos "."] 1] set posX [lindex [split $pos "."] 1]
set lbl .frmStatus.frmLine.lblLine set lbl .frmStatus.frmLine.lblLine
$lbl configure -text $pos -font $fontBold $lbl configure -text $pos -font $fontBold
return $pos
} }
proc ReplaceChar {text} { proc ReplaceChar {text} {
global replace global replace
@ -972,7 +971,32 @@ proc EditFile {node fileName} {
bind $text <Control-ntilde> "tk_textCopy $w.text;break" bind $text <Control-ntilde> "tk_textCopy $w.text;break"
bind $text <Control-c> "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-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-adiaeresis> "auto_completition $text"
bind $text <Control-l> "auto_completition $text" bind $text <Control-l> "auto_completition $text"
bind $text <Control-icircumflex> "auto_completition_proc $text" bind $text <Control-icircumflex> "auto_completition_proc $text"
@ -1147,3 +1171,4 @@ GetOp

4
help.tcl
View File

@ -4,8 +4,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# help module # # help module #
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
#package require BWidget #package require BWidget

4
highlight/caml.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
set beginQuote "0.0" set beginQuote "0.0"
set endQuote "2.0" set endQuote "2.0"

4
highlight/erlang.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
set beginQuote "0.0" set beginQuote "0.0"
set endQuote "2.0" set endQuote "2.0"

4
highlight/fortran.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
set beginQuote "0.0" set beginQuote "0.0"
set endQuote "2.0" set endQuote "2.0"

4
highlight/html.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
proc HighLightHTML {text line lineNumber node} { proc HighLightHTML {text line lineNumber node} {

4
highlight/java.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
set beginQuote "0.0" set beginQuote "0.0"
set endQuote "2.0" set endQuote "2.0"

4
highlight/perl.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
set beginQuote "0.0" set beginQuote "0.0"
set endQuote "2.0" set endQuote "2.0"

4
highlight/php.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
proc HighLightPHP {text line lineNumber node} { proc HighLightPHP {text line lineNumber node} {

4
highlight/rivet.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
proc HighLightRIVET {text line lineNumber node} { proc HighLightRIVET {text line lineNumber node} {

4
highlight/ruby.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# TCL highlight file # # TCL highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
set beginQuote "0.0" set beginQuote "0.0"
set endQuote "2.0" set endQuote "2.0"

4
highlight/spec.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# version 0.0.1 # # version 0.0.1 #
# SPEC highlight file # # SPEC highlight file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
proc HighLightSPEC {text line lineNumber node} { proc HighLightSPEC {text line lineNumber node} {

17
highlight/tcl.tcl
View File

@ -1,16 +1,14 @@
########################################################### ###########################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager
# version 0.0.1 # # version 0.0.1
# TCL highlight file # # TCL highlight file
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) Sergey Kalinin 2001, http://nuk-svk.ru
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin (aka BanZaj) banzaj28@gmail.com
########################################################### ###########################################
proc HighLightTCL {text line lineNumber node} { proc HighLightTCL {text line lineNumber node} {
global fontNormal fontBold editorFontBold tree imgDir noteBook global fontNormal fontBold editorFontBold tree imgDir noteBook
global editor color global editor color
# set pos [$text index insert]
# set lineNumber [lindex [split $pos "."] 0]
set startIndex 0 set startIndex 0
# bind text tags for highlightning # # bind text tags for highlightning #
@ -226,3 +224,4 @@ proc HighLightTCL {text line lineNumber node} {

1155
highlight/tex.tcl
View File

File diff suppressed because it is too large Load Diff

2
hlp/ab.htm
View File

@ -10,7 +10,7 @@
<P>&copy; Все права защищены 1992-2001. <P>&copy; Все права защищены 1992-2001.
<p>Разрешается не коммерческое использование документации как целиком так и отдельных частей с разрешения авторов и с обязательной ссылкой на <p>Разрешается не коммерческое использование документации как целиком так и отдельных частей с разрешения авторов и с обязательной ссылкой на
<b><a href="http://www.florin.ru">DataX/FLORIN, Inc.</a></b> и на <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> </body>
</html> </html>

6
hlp/en/projman/pmabout.html
View File

@ -1,7 +1,7 @@
<TITLE>About Tcl/Tk Project Manager</TITLE> <TITLE>About Tcl/Tk Project Manager</TITLE>
<center><h1>Tcl/Tk Project Manager</h1></center> <center><h1>Tcl/Tk Project Manager</h1></center>
<p>Author: Sergey Kalinin (aka BanZaj) <a href="mailto:banzaj@lrn.ru">banzaj@lrn.ru</a> <p>Author: Sergey Kalinin <a href="mailto:banzaj28@yandex.ru">banzaj28@yandex.ru</a>
<br>Home page: <a href="http://conero.lrn.ru">http://conero.lrn.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. <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 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. <br>Working an Unix (Linux tested) and Windows.
<p><center>&copy; Copyright <a href="http://conero.lrn.ru">CONERO lab</a>, 2002 <p><center>&copy; Copyright <a href="http://nuk-svk.ru">Sergey Kalinin</a>, 2002

4
hlp/ru/convert.tcl
View File

@ -1,8 +1,8 @@
###################################################### ######################################################
# Tk LaTeX Editor # Tk LaTeX Editor
# Distributed under GNU Public License # Distributed under GNU Public License
# Author: Sergey Kalinin (BanZaj) banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
###################################################### ######################################################

2
hlp/ru/projman/about.html
View File

@ -10,7 +10,7 @@
<P>&copy; Все права защищены 1992-2001. <P>&copy; Все права защищены 1992-2001.
<p>Разрешается некоммерческое использование документации как целиком так и отдельных частей с разрешения авторов и с обязательной ссылкой на <p>Разрешается некоммерческое использование документации как целиком так и отдельных частей с разрешения авторов и с обязательной ссылкой на
<b><a href="http://www.florin.ru">DataX/FLORIN, Inc.</a></b> и на <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> </body>
</html> </html>

4
hlp/ru/projman/faq.txt
View File

@ -22,7 +22,7 @@ Tcl/Tk Project Manager FAQ 0.1
Вам потребуется интерпретатор языка Tcl/Tk(более подробную информацию по Вам потребуется интерпретатор языка Tcl/Tk(более подробную информацию по
Tcl/Tk можно найти на сайте http://www.tcl-tk.org), BWidget <http://sourceforge.net/projects/tcllib> и последняя версия дистрибутива 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 Следуйте инструкциям по установке вашего дистрибутива ProjMan
изложенными в файле INSTALL архива. изложенными в файле INSTALL архива.
@ -56,5 +56,5 @@ Tcl/Tk Project Manager(
-- --
Igor Didkovsky aka Gor (ididkovsky@mail.ru) Igor Didkovsky aka Gor (ididkovsky@mail.ru)
Segey Kalinin aka BanZaj (banzaj@lrn.ru) Segey Kalinin (banzaj28@yandex.ru)

6
hlp/ru/projman/pmabout.html
View File

@ -1,8 +1,8 @@
<TITLE>About Tcl/Tk Project Manager</TITLE> <TITLE>About Tcl/Tk Project Manager</TITLE>
<center><h1>Tcl/Tk Project Manager</h1> <center><h1>Tcl/Tk Project Manager</h1>
Version 1.0.0</center> Version 1.0.0</center>
<p>á×ÔĎŇ: óĹŇÇĹĘ ëÁĚÉÎÉÎ (aka BanZaj) <a href="mailto:banzaj@lrn.ru">banzaj@lrn.ru</a> <p>á×ÔĎŇ: óĹŇÇĹĘ ëÁĚÉÎÉÎ (aka BanZaj) <a href="mailto:banzaj28@yandex.ru">banzaj28@yandex.ru</a>
<br>äĎÍÁŰÎŃŃ ÓÔŇÁÎÉĂÁ: <a href="http://conero.lrn.ru">http://conero.lrn.ru</a> <br>äĎÍÁŰÎŃŃ ÓÔŇÁÎÉĂÁ: <a href="http://nuk-svk.ru">http://nuk-svk.ru</a>
<p>IDE ÄÌÑ ÐÒÏÇÒÁÍÍÉÒÏ×ÁÎÉÑ ÎÁ Tcl/Tk <p>IDE ÄÌÑ ÐÒÏÇÒÁÍÍÉÒÏ×ÁÎÉÑ ÎÁ Tcl/Tk
<p>÷ËÌÀÞÁÅÔ × ÓÅÂÑ: <p>÷ËÌÀÞÁÅÔ × ÓÅÂÑ:
@ -20,6 +20,6 @@ Version 1.0.0</center>
<br>&nbsp;&nbsp;-- ÐÏÍÏÝØ ÐÏ IDE <br>&nbsp;&nbsp;-- ÐÏÍÏÝØ ÐÏ IDE
<br>- ÚÁÐÕÓË ÐÒÉÌÏÖÅÎÉÊ ÉÚ IDE <br>- ÚÁÐÕÓË ÐÒÉÌÏÖÅÎÉÊ ÉÚ IDE
<p><center>&copy; Copyright <a href="http://conero.lrn.ru">CONERO lab</a>, 2002 <p><center>&copy; Copyright <a href="http://nuk-svk.ru">Sergey Kalinin</a>, 2002

BIN
img/copy.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.2 KiB

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
img/new.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 669 B

After

Width:  |  Height:  |  Size: 673 B

BIN
img/old/copy.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.2 KiB

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
img/old/new.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 669 B

After

Width:  |  Height:  |  Size: 673 B

BIN
img/old/paste.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.2 KiB

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
img/old/save.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 704 B

After

Width:  |  Height:  |  Size: 708 B

BIN
img/old/save_as.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.1 KiB

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
img/paste.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.2 KiB

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
img/save.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 704 B

After

Width:  |  Height:  |  Size: 708 B

BIN
img/save_as.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.1 KiB

After

Width:  |  Height:  |  Size: 1.1 KiB

4
install.tcl
View File

@ -3,8 +3,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# install script # # install script #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
## SETTING VARIABLES AND DIRECTORYES ## ## SETTING VARIABLES AND DIRECTORYES ##

4
main.tcl
View File

@ -1,8 +1,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# Distrubuted under GPL # # Distrubuted under GPL #
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
Modules Modules

4
msgs/de.msg
View File

@ -1,7 +1,7 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
# german messages file # # german messages file #
# Author: Roman Schaller <r.schaller@gmx.ch> # # Author: Roman Schaller <r.schaller@gmx.ch> #

4
msgs/en.msg
View File

@ -1,8 +1,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# english messages file # # english messages file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
::msgcat::mcset en "About ..." ::msgcat::mcset en "About ..."

4
msgs/fr.msg
View File

@ -1,8 +1,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# french messages file # # french messages file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
# Traduction: Michel SALVAGNIAC michel.salvagniac@free.fr # # Traduction: Michel SALVAGNIAC michel.salvagniac@free.fr #
########################################################### ###########################################################
# french messages file # # french messages file #

4
msgs/ru.msg
View File

@ -1,8 +1,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# russian messages file # # russian messages file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
::msgcat::mcset ru "About ..." "О программе" ::msgcat::mcset ru "About ..." "О программе"

4
msgs/ru_koi8.msg
View File

@ -1,8 +1,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# russian messages file # # russian messages file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
::msgcat::mcset ru "About ..." "ï ÐÒÏÇÒÁÍÍÅ" ::msgcat::mcset ru "About ..." "ï ÐÒÏÇÒÁÍÍÅ"

12
procedure.tcl
View File

@ -2,8 +2,8 @@
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# Distributed under GPL # # Distributed under GPL #
# all procedure file # # all procedure file #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
## INSERT TEXT INTO ENTRY BOmX ## ## INSERT TEXT INTO ENTRY BOmX ##
@ -456,23 +456,23 @@ proc AboutDialog {} {
# #
#bind $w.frmlbl.lblWWW <Enter> { #bind $w.frmlbl.lblWWW <Enter> {
# .frmBody.frmWork.noteBook.fabout.frmlbl.lblWWW configure -fg blue -cursor hand1 # .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> { #bind $w.frmlbl.lblWWW <Leave> {
# .frmBody.frmWork.noteBook.fabout.frmlbl.lblWWW configure -fg black # .frmBody.frmWork.noteBook.fabout.frmlbl.lblWWW configure -fg black
# LabelUpdate .frmStatus.frmHelp.lblHelp "" # 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> { bind $w.frmlbl.lblEmail <Enter> {
.frmBody.frmWork.noteBook.fabout.frmlbl.lblEmail configure -fg blue -cursor hand1 .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> { bind $w.frmlbl.lblEmail <Leave> {
.frmBody.frmWork.noteBook.fabout.frmlbl.lblEmail configure -fg black .frmBody.frmWork.noteBook.fabout.frmlbl.lblEmail configure -fg black
LabelUpdate .frmStatus.frmHelp.lblHelp "" 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 $noteBook raise about

4
projects.tcl
View File

@ -1,8 +1,8 @@
######################################################### #########################################################
# Tcl/Tk project Manager # Tcl/Tk project Manager
# Distributed under GNU Public License # Distributed under GNU Public License
# Author: Sergey Kalinin banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
######################################################### #########################################################
proc NewProjDialog {type} { proc NewProjDialog {type} {

4
projman.conf
View File

@ -2,8 +2,8 @@
# TCL/Tk Project Manager # # TCL/Tk Project Manager #
# version 0.3.8 # # version 0.3.8 #
# # # #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2001, http://nuk-svk.ru #
# Authors: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Authors: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
# Modification date: Чт янв 11 10:38:33 MSK 2018 # Modification date: Чт янв 11 10:38:33 MSK 2018
########################################################### ###########################################################

4
projman.tcl
View File

@ -3,8 +3,8 @@
########################################################### ###########################################################
# Tcl/Tk Project Manager # # Tcl/Tk Project Manager #
# Distrubuted under GPL # # Distrubuted under GPL #
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru #
# Author: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Author: Sergey Kalinin banzaj28@yandex.ru #
########################################################### ###########################################################
########## VERSION INFORMATION ########## ########## VERSION INFORMATION ##########

12
settings.tcl
View File

@ -1,8 +1,8 @@
###################################################### ######################################################
# Tcl/Tk project Manager # Tcl/Tk project Manager
# Distributed under GNU Public License # Distributed under GNU Public License
# Author: Sergey Kalinin banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
# Home page: http://conero.lrn.ru # Home page: http://nuk-svk.ru
###################################################### ######################################################
## SETTING DIALOG ## ## SETTING DIALOG ##
@ -40,8 +40,8 @@ proc Settings {} {
puts $file "# TCL/Tk Project Manager #" puts $file "# TCL/Tk Project Manager #"
puts $file "# version $ver #" puts $file "# version $ver #"
puts $file "# #" puts $file "# #"
puts $file "# Copyright \(c\) \"CONERO lab\", 2001, http://conero.lrn.ru #" puts $file "# Copyright \(c\) \"Sergey Kalinin\", 2001, http://nuk-svk.ru #"
puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj@lrn.ru #" puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj28@yandex.ru #"
puts $file "###########################################################" puts $file "###########################################################"
puts $file "# Modification date: [exec date]" puts $file "# Modification date: [exec date]"
puts $file "###########################################################\n" puts $file "###########################################################\n"
@ -773,8 +773,8 @@ proc SaveSettings {} {
puts $file "# TCL/Tk Project Manager #" puts $file "# TCL/Tk Project Manager #"
puts $file "# version $ver #" puts $file "# version $ver #"
puts $file "# #" puts $file "# #"
puts $file "# Copyright \(c\) \"CONERO lab\", 2001, http://conero.lrn.ru #" puts $file "# Copyright \(c\) \"Sergey Kalinin\", 2001, http://nuk-svk.ru #"
puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj@lrn.ru #" puts $file "# Authors: Sergey Kalinin \(aka BanZaj\) banzaj28@yandex.ru #"
puts $file "###########################################################\n" puts $file "###########################################################\n"
puts $file "# Modification date: [exec date]" puts $file "# Modification date: [exec date]"
puts $file "###########################################################\n" puts $file "###########################################################\n"

4
taglist.tcl
View File

@ -1,8 +1,8 @@
######################################################### #########################################################
# Tcl/Tk project Manager # Tcl/Tk project Manager
# Distributed under GNU Public License # Distributed under GNU Public License
# Author: Sergey Kalinin banzaj@lrn.ru # Author: Sergey Kalinin banzaj28@yandex.ru
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # Copyright (c) "Sergey Kalinin", 2002, http://nuk-svk.ru
######################################################### #########################################################
proc GetTagList {tagFile} { proc GetTagList {tagFile} {