diff --git a/CHANGELOG b/CHANGELOG index 1343eef..18ec716 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -6,6 +6,11 @@ ######################################################### 0.4.5 +13.02.2018 +- Added gray theme +- Fixed work with file from directory (FileBrowser function). + + 08.02.2018 - Auto indent added for () [] braces - File Browser added. Now we will edited any file without project diff --git a/README b/README index f307b3c..21f4c5d 100644 --- a/README +++ b/README @@ -1,7 +1,7 @@ ###################################################### -# Tcl/Tk Project Manager # -# Distributed under GPL # -# Author: Sergey Kalinin +# Tcl/Tk Project Manager # +# Distributed under GPL # +# Author: Sergey Kalinin, http://nuk-svk.ru # ###################################################### ABOUT @@ -46,3 +46,4 @@ dederer-a@mail.ru + diff --git a/install.tcl b/install.tcl index 6e5f7d4..616a955 100755 --- a/install.tcl +++ b/install.tcl @@ -382,23 +382,3 @@ proc SetVarLang {lang} { } } - - - - - - - - - - - - - - - - - - - - diff --git a/lib/editor.tcl b/lib/editor.tcl index a517b07..41bfb98 100644 --- a/lib/editor.tcl +++ b/lib/editor.tcl @@ -220,7 +220,7 @@ proc FindNext {text {incr 1}} { } ## FIND FUNCTION PROCEDURE ## proc FindProc {text findString node} { - global noteBook + global noteBook editor set pos "0.0" $text see $pos set line [lindex [split $pos "."] 0] @@ -234,6 +234,8 @@ proc FindProc {text findString node} { set x [expr {$x + [string length $findString]}] $text tag remove sel 1.0 end $text tag add sel $pos $line.$x + #$text tag configure sel -background $editor(selectbg) -foreground $editor(fg) + $text tag raise sel focus -force $text Position return 1 @@ -1244,3 +1246,4 @@ GetOp + diff --git a/lib/main.tcl b/lib/main.tcl index 70a7e54..f0a174a 100644 --- a/lib/main.tcl +++ b/lib/main.tcl @@ -396,3 +396,4 @@ focus -force $tree + diff --git a/lib/procedure.tcl b/lib/procedure.tcl index 94979da..a424de4 100644 --- a/lib/procedure.tcl +++ b/lib/procedure.tcl @@ -749,3 +749,4 @@ proc GetExtention {node} { + diff --git a/lib/tree.tcl b/lib/tree.tcl index 4bd0569..f8d74c7 100644 --- a/lib/tree.tcl +++ b/lib/tree.tcl @@ -564,3 +564,4 @@ proc GetTreeForNode {node} { } } + diff --git a/projman.conf b/projman.conf index f2a0f76..5c994d8 100644 --- a/projman.conf +++ b/projman.conf @@ -74,3 +74,4 @@ set color(sql) "#ffff828f0000" +