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

Refactoring all procedures is the Tree working

Browse Source
This commit is contained in:
Sergey
2018-02-24 18:03:35 +03:00
parent 164317de93
commit 98de397ae9
9 changed files with 141 additions and 378 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/editor.tcl
View File

@@ -81,6 +81,7 @@ proc ReplaceChar {text} {
$text delete $posY.$posX $posY.[expr $posX + 1]
}
}
## OVERWRITE SYMBOL PROCEDURE ##
proc OverWrite {} {
global replace fontNormal
@@ -573,7 +574,7 @@ proc TextEncode {encode} {
proc EditFile {tree node fileName} {
global projDir workDir imgDir noteBook fontNormal fontBold w fileList replace nodeEdit procList
global backUpFileCreate fileExt progress editor braceHighLightBG braceHighLightFG activeProject
global varList
global varList noteBookFiles
set nodeEdit $node
set replace 0
set file [file tail $fileName]
@@ -647,12 +648,12 @@ proc EditFile {tree node fileName} {
bind $text <Control-ecircumflex> ReplaceDialog
bind $text <Control-r> ReplaceDialog
bind $text <F4> {ReplaceCommand $w.text 1}
bind $text <Control-ucircumflex> {FileDialog $tree save}
bind $text <Control-s> {FileDialog $tree save}
bind $text <Control-ocircumflex> {FileDialog $tree save_as}
bind $text <Shift-Control-s> {FileDialog $tree save_as}
bind $text <Control-odiaeresis> {FileDialog $tree close}
bind $text <Control-w> {FileDialog $tree close}
bind $text <Control-ucircumflex> {FileDialog [$noteBookFiles raise] save}
bind $text <Control-s> {FileDialog [$noteBookFiles raise] save}
bind $text <Control-ocircumflex> {FileDialog [$noteBookFiles raise] save_as}
bind $text <Shift-Control-s> {FileDialog [$noteBookFiles raise] save_as}
bind $text <Control-odiaeresis> {FileDialog [$noteBookFiles raise] close}
bind $text <Control-w> {FileDialog [$noteBookFiles raise] close}
bind $text <Control-division> "tk_textCut $w.text;break"
bind $text <Control-x> "tk_textCut $w.text;break"
bind $text <Control-ntilde> "tk_textCopy $w.text;break"
@@ -951,3 +952,5 @@ proc ReadFileStructure {mod line lineNumber tree node} {
####################################
GetOp