File Browser added

CHANGELOG

@@ -8,6 +8,7 @@
 0.4.5
 08.02.2018
 - Auto indent added for () [] braces
+- File Browser added. Now we will edited any file without project
 
 07.02.2018
 - Tcl, Perl, PHP highlight comment procedure fixed
@@ -392,6 +393,8 @@ Fixed bug with PageRise function
 
 
 
+
+
 
 
 

install.tcl

@@ -17,7 +17,6 @@ set fontNormal "helvetica 12 normal roman"
 package require msgcat
 package require BWidget
 
-
 ::msgcat::mclocale en
 ::msgcat::mcload msgs
 
@@ -399,3 +398,4 @@ proc SetVarLang {lang} {
 
 
 
+

lib/editor.tcl

@@ -363,8 +363,8 @@ proc Replace {text incr} {
     #    focus -force .replace
 }
 ## FILE OPERATION ##
-proc FileDialog {operation} {
+proc FileDialog {$tree operation} {
-    global noteBook fontNormal fontBold fileList tree noteBook projDir activeProject imgDir editor
+    global noteBook fontNormal fontBold fileList noteBook projDir activeProject imgDir editor
     set dot "_"
     set types {
         {"Tcl files" {.tcl}}
@@ -686,7 +686,7 @@ proc PageTab {key} {
         }
         $nb see [lindex [$nb pages] $newIndex]
         $nb raise [lindex [$nb pages] $newIndex]
-        PageRaise [lindex [$nb pages] $newIndex]
+        PageRaise $tree [lindex [$nb pages] $newIndex]
     }
 }
 
@@ -722,8 +722,8 @@ proc _PageTab {} {
     }
 }
 ## RAISED NOTEBOOK TAB IF CLICK MOUSE BUTTON ##
-proc PageRaise {node} {
+proc PageRaise {tree node} {
-    global noteBook tree fileList editor nodeEdit
+    global noteBook fileList editor nodeEdit
     #puts $node
     $noteBook raise $node
     set nodeEdit [$noteBook raise]
@@ -820,7 +820,6 @@ proc TabIns {text} {
                 set shouldBeSpaces [expr {$shouldBeSpaces - $indentSize}]
             }
         }
-        
         set spaceNum [string length $spaces]
         if {$shouldBeSpaces > $spaceNum} {
             #insert spaces
@@ -870,8 +869,8 @@ proc TextEncode {encode} {
 }
 
 ## EDITING  FILE ##
-proc EditFile {node fileName} {
+proc EditFile {tree node fileName} {
-    global projDir workDir imgDir tree noteBook fontNormal fontBold w fileList replace nodeEdit procList
+    global projDir workDir imgDir  noteBook fontNormal fontBold w fileList replace nodeEdit procList
     global backUpFileCreate fileExt progress editor braceHighLightBG braceHighLightFG activeProject
     set nodeEdit $node
     set replace 0
@@ -1225,3 +1224,10 @@ proc TextOperation {oper} {
 #################################### 
 GetOp
 
+
+
+
+
+
+
+

lib/main.tcl

@@ -278,7 +278,17 @@ pack $frmWork -side left -fill both -expand true
 ## CREATE PANE ##
 pane::create .frmBody.frmCat .frmBody.frmWork
 
-set frmTree [ScrolledWindow $frmCat.frmTree -bg $editor(bg)]
+# NoteBook - Projects and Files
+#################### WORKING AREA ####################
+set noteBookFiles [NoteBook $frmCat.noteBook -font $fontNormal -side top -bg $editor(bg) -fg $editor(fg)]
+pack $noteBookFiles -fill both -expand true -padx 2 -pady 2
+set nbProjects [$noteBookFiles insert end projects -text [::msgcat::mc "Projects"]]
+set nbFiles [$noteBookFiles insert end files -text [::msgcat::mc "Files"]]
+
+FileTree::create $nbFiles
+
+# tree
+set frmTree [ScrolledWindow $nbProjects.frmTree -bg $editor(bg)]
 global tree noteBook
 set tree [Tree $frmTree.tree \
 -relief sunken -borderwidth 1 -width 5 -height 5 -highlightthickness 1\
@@ -291,17 +301,19 @@ set tree [Tree $frmTree.tree \
 $frmTree setwidget $tree
 pack $frmTree -side top -fill both -expand true
 
-$tree bindText  <Double-ButtonPress-1> "TreeDoubleClick [$tree selection get]"
+$noteBookFiles raise projects
-$tree bindText  <ButtonPress-1> "TreeOneClick [$tree selection get]"
+
-$tree bindImage  <Double-ButtonPress-1> "TreeDoubleClick [$tree selection get]"
+$tree bindText  <Double-ButtonPress-1> "TreeDoubleClick $tree [$tree selection get]"
-$tree bindImage  <ButtonPress-1> "TreeOneClick [$tree selection get]"
+$tree bindText  <ButtonPress-1> "TreeOneClick $tree [$tree selection get]"
+$tree bindImage  <Double-ButtonPress-1> "TreeDoubleClick $tree [$tree selection get]"
+$tree bindImage  <ButtonPress-1> "TreeOneClick $tree [$tree selection get]"
 $tree bindText <Shift-Button-1> {$tree selection add [$tree selection get]}
 bind $frmTree.tree.c <Control-acircumflex> {FileDialog delete}
 bind $frmTree.tree.c <Control-d> {FileDialog delete}
 bind $frmTree.tree.c <Return> {
     set node [$tree selection get]
-    TreeOneClick $node
+    TreeOneClick $tree $node
-    TreeDoubleClick $node
+    TreeDoubleClick $tree $node
 }
 
 ## POPUP FILE-MENU ##
@@ -358,7 +370,7 @@ bind $frmTree.tree.c <Shift-Button-5> "$tree xview scroll  2 units"
 #################### WORKING AREA ####################
 set noteBook [NoteBook $frmWork.noteBook -font $fontNormal -side top -bg $editor(bg) -fg $editor(fg)]
 pack $noteBook -fill both -expand true -padx 2 -pady 2
-$noteBook bindtabs  <ButtonRelease-1> "PageRaise [$noteBook raise]"
+$noteBook bindtabs  <ButtonRelease-1> "PageRaise $tree [$noteBook raise]"
 $noteBook bindtabs <Button-3> {catch [PopupMenuTab .popupTabs %X %Y]}
 
 #bind . <Control-udiaeresis> PageTab
@@ -378,6 +390,3 @@ focus -force $tree
 
 
 
-
-
-

lib/procedure.tcl

@@ -28,31 +28,6 @@ proc LabelUpdate {widget value} {
     global fontNormal
     $widget configure -text $value -font $fontNormal
 }
-## SHOW PUP-UP MENUS ## 
-proc PopupMenuTree {x y} {
-    global tree fontNormal fontBold imgDir activeProject
-    set node [$tree selection get]
-    if {$node ==""} {
-        set answer [tk_messageBox\
-        -message "[::msgcat::mc "Not found active project"]"\
-        -type ok -icon warning]
-        case $answer {
-            ok {return 0}
-        }
-    }
-    $tree selection set $node
-    set item [$tree itemcget $node -data]
-    if {[string range $item 0 2] == "prj"} {
-        set activeProject [string range $item 4 end]
-        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
-        tk_popup .popupProj $x $y
-        return
-    }
-    if {[info exists fileList($node)] != 1} {
-        #        set fileList($node) $item
-        tk_popup .popupFile $x $y
-    }
-}
 proc PopupMenuEditor {x y} {
     tk_popup .popMnuEdit $x $y
 }
@@ -93,318 +68,6 @@ if {$size < 1024} {
     }
     append fileAttribute ", $fileSize"
 }
-## OPEN TREE PROCEDURE
-proc TreeOpen {node} {
-    global fontNormal tree projDir workDir activeProject fileList noteBook findString imgDir fontBold
-    
-    $tree selection set $node
-    set item [$tree itemcget $node -data]
-    if {[string range $item 0 2] == "prj"} {
-        set activeProject [string range $item 4 end]
-        puts $activeProject
-        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
-        $tree itemconfigure $node -image [Bitmap::get [file join $imgDir openfold.gif]] 
-        if {[file exists [file join $workDir $activeProject.tags]] == 1} {
-            GetTagList [file join $workDir $activeProject.tags] ;# geting tag list
-        } else {
-            DoModule ctags
-        }
-    }
-    if {[info exists fileList($node)] != 1} {
-       set fileList($node) $item
-        if {[file isdirectory $item] == 1} {
-            $tree itemconfigure $node -image [Bitmap::get [file join $imgDir openfold.gif]] 
-        }
-    }
-}
-## CLOSE TREE PROCEDURE ##
-proc TreeClose {node} {
-    global fontNormal tree projDir workDir activeProject fileList noteBook findString imgDir fontBold
-    
-    $tree selection set $node
-    set item [$tree itemcget $node -data]
-    if {[string range $item 0 2] == "prj"} {
-        $tree itemconfigure $node -image [Bitmap::get [file join $imgDir folder.gif]] 
-    }
-    if {[info exists fileList($node)] != 1} {
-        if {[file isdirectory $item] == 1} {
-            $tree itemconfigure $node -image [Bitmap::get [file join $imgDir folder.gif]]
-        }
-    }
-}
-## TREE ONE CLICK PROCEDURE ##
-proc TreeOneClick {node} {
-    global fontNormal tree projDir workDir activeProject fileList noteBook findString imgDir fontBold
-    $tree selection set $node
-    set item [$tree itemcget $node -data]
-    if {[string range $item 0 2] == "prj"} {
-        set activeProject [string range $item 4 end]
-        puts $activeProject
-        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
-        if {[file exists [file join $workDir $activeProject.tags]] == 1} {
-            GetTagList [file join $workDir $activeProject.tags] ;# geting tag list
-        } else {
-            DoModule ctags
-        }
-        return
-    }
-    if {[info exists fileList($node)] != 1} {
-        if {[file isdirectory $item] == 1} {
-            return
-        } else {
-            if {[file exists $item] == 1} {
-                LabelUpdate .frmStatus.frmHelp.lblHelp [FileAttr $item]
-            }
-        }
-    } else {
-        PageRaise $node
-    }
-    if {[string range $item 0 2] == "prc"} {
-        set parent [$tree parent $node]
-        set file [$tree itemcget $parent -data]
-        set fileExt [string range [file extension $file] 1 end]
-        if {[info exists fileList($parent)] == 0} {
-            EditFile $parent $file
-        }
-        PageRaise $parent
-        $tree selection set $node
-        set text "$noteBook.f$parent.text"
-        set index1 [expr [string first "_" $item]+1]
-        set index2 [expr [string last "_" $item]11]
-        if {$fileExt == "java" || $fileExt == "ja"} {
-            set findString "class [string range $item $index1 $index2] "
-        } elseif {$fileExt == "perl" || $fileExt == "pl"} {
-            set findString "sub [string range $item $index1 $index2]"
-        } elseif {$fileExt == "ml" || $fileExt == "mli"} {
-            set findString "let [string range $item $index1 $index2]"
-        } elseif {$fileExt == "php" || $fileExt == "phtml"} {
-            set findString "function [string range $item $index1 $index2]"
-            puts $findString
-            #return
-        } elseif {$fileExt == "rb"} {
-            set findString "class [string range $item $index1 $index2]"
-        } else {
-            set findString "proc [string range $item $index1 $index2] "
-        }
-        FindProc $text $findString $node
-        focus -force $text
-    }
-}
-## TREE DOUBLE  CLICK PROCEDURE ##
-proc TreeDoubleClick {node} {
-    global  fontNormal tree projDir workDir activeProject fileList noteBook findString imgDir fontBold
-    
-    $tree selection set $node
-    set item [$tree itemcget $node -data]
-    if {[$tree itemcget $node -open] == 1} {
-        $tree itemconfigure $node -open 0
-    } elseif {[$tree itemcget $node -open] == 0} {
-        $tree itemconfigure $node -open 1
-    }
-    if {[string range $item 0 2] == "prj"} {
-        set activeProject [string range $item 4 end]
-        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
-        GetTagList [file join $workDir $activeProject.tags] ;# geting tag list
-    }
-    
-   if {[info exists fileList($node)] != 1} {
-        if {[file isdirectory $item] == 1} {
-            GetFilesSubdir $node $item
-        } else {
-            if {[file exists $item] == 1} {
-                EditFile $node $item
-                LabelUpdate .frmStatus.frmFile.lblFile "[file size $item] b."
-            }
-        }
-    }
-    if {[string range $item 0 2] == "prc"} {
-        $tree selection set $node
-        set parent [$tree parent $node]
-        if {[info exists fileList($parent)] != 1} {
-            set file [$tree itemcget $parent -data]
-            EditFile $parent $file
-            $noteBook raise $parent
-        } else {
-            $noteBook raise $parent
-        }
-        set text "$noteBook.f$parent.text"
-        set index1 [expr [string first "_" $item]+1]
-        set index2 [expr [string last "_" $item]11]
-        set findString "proc [string range $item $index1 $index2] "
-        FindProc $text $findString $node
-        focus -force $text
-    }
-}
-## GETTING FILES FROM SUBCIR ##
-proc GetFilesSubdir {node dir} {
-    global  fontNormal tree projDir workDir activeProject imgDir count
-    global backUpFileShow
-    set count 1
-    set rList ""
-    if {[catch {cd $dir}] != 0} {
-        return ""
-    }
-    foreach file [lsort [glob -nocomplain .*]] {
-        if {$file == "." || $file == ".."} {
-            puts $file
-        } else {
-            lappend rList [list [file join $dir $file]]
-            set fileName [file join $file]
-            set img [GetImage $fileName]
-            set dot "_"
-            regsub -all {\.} $fileName "_" subNode
-            set subNode "$activeProject$dot$node$dot$subNode$dot$count"
-            if {[$tree exists $subNode] == 1} {return}
-            if {$backUpFileShow == "Yes"} {
-                $tree insert end $node $subNode -text $fileName \
-                -data [file join $dir $fileName] -open 1\
-                -image [Bitmap::get [file join $imgDir $img.gif]]\
-                -font $fontNormal
-            }
-            if {$backUpFileShow == "No"} {
-                if {[file isdirectory $fileName] == 1} {
-                    $tree insert end $node $subNode -text $fileName \
-                    -data [file join $dir $fileName] -open 1\
-                    -image [Bitmap::get [file join $imgDir $img.gif]]\
-                    -font $fontNormal
-                } else {
-                    if {[string index $fileName end] != "~"} {
-                        $tree insert end $node $subNode -text $fileName \
-                        -data [file join $dir $fileName] -open 1\
-                        -image [Bitmap::get [file join $imgDir $img.gif]]\
-                        -font $fontNormal
-                    }
-                }
-            }
-        }
-        incr count
-    }
-    foreach file [lsort [glob -nocomplain *]] {
-        lappend rList [list [file join $dir $file]]
-        set fileName [file join $file]
-        set img [GetImage $fileName]
-        set dot "_"
-        regsub -all {\.} $fileName "_" subNode
-        set subNode "$activeProject$dot$node$dot$subNode$dot$count"
-        if {[$tree exists $subNode] == 1} {return}
-        if {$backUpFileShow == "Yes"} {
-            $tree insert end $node $subNode -text $fileName \
-            -data [file join $dir $fileName] -open 1\
-            -image [Bitmap::get [file join $imgDir $img.gif]]\
-            -font $fontNormal
-        }
-        if {$backUpFileShow == "No"} {
-            if {[file isdirectory $fileName] == 1} {
-                $tree insert end $node $subNode -text $fileName \
-                -data [file join $dir $fileName] -open 1\
-                -image [Bitmap::get [file join $imgDir $img.gif]]\
-                -font $fontNormal
-            } else {
-                if {[string index $fileName end] != "~"} {
-                    $tree insert end $node $subNode -text $fileName \
-                    -data [file join $dir $fileName] -open 1\
-                    -image [Bitmap::get [file join $imgDir $img.gif]]\
-                    -font $fontNormal
-                }
-            }
-        }
-        incr count
-    }
-    $tree itemconfigure $node -open 1
-}
-## GETTING FILES FROM PROJECT DIR AND INSERT INTO TREE WIDGET ##
-proc GetFiles {dir project tree} {
-    global  fontNormal backUpFileShow imgDir
-    set rList ""
-    set count 1
-    if {[catch {cd $dir}] != 0} {
-        return ""
-    }
-    foreach file [lsort [glob -nocomplain .*]] {
-        if {$file == "." || $file == ".."} {
-            puts $file
-        } else {
-            lappend rList [list [file join $dir $file]]
-            set fileName [file join $file]
-            set img [GetImage $fileName]
-            set dot "_"
-            regsub -all {\.} $fileName "_" subNode
-            set subNode "$project$dot$subNode$dot$count"
-            if {$backUpFileShow == "Yes"} {
-                $tree insert end $project $subNode -text $fileName \
-                -data [file join $dir $fileName] -open 1\
-                -image [Bitmap::get [file join $imgDir $img.gif]]\
-                -font $fontNormal
-            }
-            if {$backUpFileShow == "No"} {
-                if {[string index $fileName end] != "~"} {
-                    $tree insert end $project $subNode -text $fileName \
-                    -data [file join $dir $fileName] -open 1\
-                    -image [Bitmap::get [file join $imgDir $img.gif]]\
-                    -font $fontNormal
-                }
-            }
-        }
-            incr count
-    }
-    
-    foreach file [lsort [glob -nocomplain *]] {
-        lappend rList [list [file join $dir $file]]
-        set fileName [file join $file]
-        set img [GetImage $fileName]
-        set dot "_"
-        regsub -all {\.} $fileName "_" subNode
-        set subNode "$project$dot$subNode$dot$count"
-        if {$backUpFileShow == "Yes"} {
-            $tree insert end $project $subNode -text $fileName \
-            -data [file join $dir $fileName] -open 1\
-            -image [Bitmap::get [file join $imgDir $img.gif]]\
-            -font $fontNormal
-        }
-        if {$backUpFileShow == "No"} {
-            if {[string index $fileName end] != "~"} {
-                $tree insert end $project $subNode -text $fileName \
-                -data [file join $dir $fileName] -open 1\
-                -image [Bitmap::get [file join $imgDir $img.gif]]\
-                -font $fontNormal
-            }
-        }
-        incr count
-    }
-    $tree configure -redraw 1
-}
-## GETTING PROJECT NAMES FROM DIR AND PUTS INTO 
-proc GetProj {tree} {
-    global projDir workDir fontNormal imgDir module
-    set rList ""                     
-    if {[catch {cd $workDir}] != 0} {
-        return ""
-    }
-    foreach proj [lsort [glob -nocomplain *.proj]] {
-        lappend rList [list [file join $workDir $proj]]
-        set projFile [open [file join $workDir $proj] r]
-        set prjName [file rootname $proj]
-        while {[gets $projFile line]>=0} {
-            scan $line "%s" keyWord
-            set string [string range $line [string first "\"" $line] [string last "\"" $line]]
-            set string [string trim $string "\""]
-            if {$keyWord == "ProjectName"} {
-                regsub -all " " $string "_" project
-                set projName "$string"
-            }
-            if {$keyWord == "ProjectDirName"} {
-                set projList($prjName) [file dirname $string]
-                puts "$projList($prjName) - $string"
-                $tree insert end root $prjName -text "$projName" -font $fontNormal \
-                -data "prj_$prjName" -open 0\
-                -image [Bitmap::get [file join $imgDir folder.gif]]
-                GetFiles [file join $string] $prjName $tree
-                set dir $string
-            }
-        }
-    }
-    $tree configure -redraw 1
-}
 
 ## ABOUT PROGRAMM DIALOG ##
 proc AboutDialog {} {
@@ -964,12 +627,6 @@ proc SelectDir {dir} {
         -parent .]
     return $dirName
 }
-## UPDATE TREE ##
-proc UpdateTree {} {
-    global tree
-    $tree delete [$tree nodes root]
-    GetProj $tree
-}
 ## TOOLBAR ON/OFF PROCEDURE ##
 proc ToolBar {} {
     global toolBar
@@ -1088,3 +745,6 @@ proc GetExtention {node} {
 
 
 
+
+
+

lib/settings.tcl

@@ -71,6 +71,11 @@ proc Settings {} {
         } else {
             puts $file "set backUpFileDelete \"Yes\""
         }
+        if {$dotFileShow == "false"} {
+            puts $file "set dotFileShow \"No\""
+        } else {
+            puts $file "set dotFileShow \"Yes\""
+        }
         puts $file "\n# Don't edit this line"
         puts $file "# Directorys Settings #"
         puts $file "set projDir \"[$main.frmProjDir.txtProjDir get]\""
@@ -259,9 +264,16 @@ proc Settings {} {
             -font $fontNormal -onvalue true -offvalue false
     pack $frm_12.lblBackUpDel -side left
     pack $frm_12.chkBackUpDel -side left
+    set frm_13 [frame $main.frmDotFilesShow -bg $editor(bg)]
+    label $frm_13.lblDotFilesShow -text [::msgcat::mc "Show dot files"]\
+            -width 30 -anchor w -font $fontNormal -fg $editor(fg)
+    checkbutton $frm_13.chkDotFilesShow -text "" -variable showDotFiles \
+            -font $fontNormal -onvalue true -offvalue false
+    pack $frm_13.lblDotFilesShow -side left
+    pack $frm_13.chkDotFilesShow -side left
 
     pack $frm_1 $frm_2 $frm_5 $frm_3 $frm_4 $frm_6 $frm_7 \
-    $frm_8 $frm_9 $frm_10 $frm_11 $frm_12 -side top -fill both -expand true
+    $frm_8 $frm_9 $frm_10 $frm_11 $frm_12  $frm_13 -side top -fill both -expand true
     
     #################### EDITOR PREF #########################
     set editFrm [$nb insert end editor -text "[::msgcat::mc "Editor"]"]
@@ -865,3 +877,5 @@ proc SaveSettings {} {
 
 
 
+
+

lib/tree.tcl

@@ -0,0 +1,566 @@
+#####################################################
+#                Tcl/Tk Project Manager
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin s.v.kalinin28@gmail.com
+# Copyright (c) "https://nuk-svk.ru", 2018
+# Git repo: https://bitbucket.org/svk28/projman
+####################################################
+#
+# Procedure for operation wwith Tree widget
+#
+####################################################
+namespace eval FileTree {
+    variable count
+    variable dblclick
+}
+
+proc FileTree::create {nb} {
+    global editor
+    global treeFiles
+    set frmTreeFiles [ScrolledWindow $nb.frmTreeFiles -bg $editor(bg)]
+    
+    set treeFiles [
+        Tree $frmTreeFiles.treeFiles \
+        -relief sunken -borderwidth 1 -width 5 -highlightthickness 0\
+        -redraw 0 -dropenabled 1 -dragenabled 1 -dragevent 3 \
+        -background $editor(bg) -selectbackground $editor(selectbg) -selectforeground white\
+        -droptypes {
+            TREE_NODE    {copy {} move {} link {}}
+            LISTBOX_ITEM {copy {} move {} link {}}
+        } -opencmd {FileTree::select tree 1 $treeFiles} \
+        -closecmd  {FileTree::select tree 1 $treeFiles}
+    ]
+    $frmTreeFiles setwidget $treeFiles
+    pack $frmTreeFiles -side top -fill both -expand true
+    $treeFiles bindText <ButtonPress-1> "TreeOneClick $treeFiles [$treeFiles selection get]"
+    $treeFiles bindImage <ButtonPress-1> "TreeOneClick $treeFiles [$treeFiles selection get]"
+    $treeFiles bindImage <Double-ButtonPress-1> "TreeDoubleClick $treeFiles [$treeFiles selection get]"
+    $treeFiles bindText <Double-ButtonPress-1> "TreeDoubleClick $treeFiles [$treeFiles selection get]"
+    $treeFiles bindText <Shift-Button-1> {$treeFiles selection add $treeFiles [$treeFiles selection get]}
+    
+    FileTree::GetAllDirs $treeFiles
+}
+
+proc FileTree::init { treeFile } {
+    global   tcl_platform
+    variable count
+    
+    set count 0
+    if { $tcl_platform(platform) == "unix" } {
+        set rootdir [glob "~"]
+    } else {
+        set rootdir "c:\\"
+    }
+    $treeFile insert end root home -text $rootdir -data $rootdir -open 1 \
+    -image [Bitmap::get openfold]
+    getdir $treeFile home $rootdir
+    FileTree::select tree 1 $treeFile home
+    $treeFile configure -redraw 1
+    
+    # ScrollView
+    set w .top
+    toplevel $w
+    wm withdraw $w
+    wm protocol $w WM_DELETE_WINDOW {
+        # don't kill me
+    }
+    wm resizable $w 0 0 
+    wm title $w "Drag rectangle to scroll directory tree"
+    wm transient $w .
+    ScrollView $w.sv -window $treeFile -fill white -relief sunken -bd 1 \
+    -width 300 -height 300
+    pack $w.sv -fill both -expand yes
+}
+
+proc FileTree::getdir { treeFile node path } {
+    variable count
+    
+    set lentries [glob -nocomplain [file join $path "*"]]
+    set lfiles   {}
+    foreach f $lentries {
+        set tail [file tail $f]
+        if { [file isdirectory $f] } {
+            $treeFile insert end $node n:$count \
+            -text      $tail \
+            -image     [Bitmap::get folder] \
+            -drawcross allways \
+            -data      $f
+            incr count
+        } else {
+            lappend lfiles $tail
+        }
+    }
+    $treeFile itemconfigure $node -drawcross auto -data $lfiles
+}
+
+proc FileTree::moddir { idx treeFile node } {
+    if { $idx && [$treeFile itemcget $node -drawcross] == "allways" } {
+        getdir $treeFile $node [$treeFile itemcget $node -data]
+        if { [llength [$treeFile nodes $node]] } {
+            $treeFile itemconfigure $node -image [Bitmap::get openfold]
+        } else {
+            $treeFile itemconfigure $node -image [Bitmap::get folder]
+        }
+    } else {
+        $treeFile itemconfigure $node -image [Bitmap::get [lindex {folder openfold} $idx]]
+    }
+}
+
+
+proc FileTree::select { where num treeFile node } {
+    variable dblclick
+    
+    set dblclick 1
+    if { $num == 1 } {
+        if { $where == "tree" && [lsearch [$treeFile selection get] $node] != -1 } {
+            unset dblclick
+            #after 500 "DemoTree::edit tree $treeFile $list $node"
+            return
+        }
+        if { $where == "tree" } {
+            select_node $treeFile $node
+        } else {
+            #$list selection set $node
+        }
+    } elseif { $where == "list" && [$treeFile exists $node] } {
+        set parent [$treeFile parent $node]
+        while { $parent != "root" } {
+            $treeFile itemconfigure $parent -open 1
+            set parent [$treeFile parent $parent]
+        }
+        select_node $treeFile $node
+    }
+}
+
+
+proc FileTree::select_node { treeFile node } {
+    $treeFile selection set $node
+    update
+    #eval $list delete [$list item 0 end]
+    
+    set dir [$treeFile itemcget $node -data]
+    if { [$treeFile itemcget $node -drawcross] == "allways" } {
+        getdir $treeFile $node $dir
+        set dir [$treeFile itemcget $node -data]
+    }
+    
+    set num 0
+    foreach f $dir {
+        if {[$treeFile exists $node:file:$num] !=1} {
+            $treeFile insert end $node $node:file:$num -text [file tail $f] -data $f \
+            -image [Bitmap::get file]
+            incr num
+        }
+    }
+    
+}
+
+
+proc FileTree::edit { where treeFile node } {
+    variable dblclick
+    
+    if { [info exists dblclick] } {
+        return
+    }
+    
+    if { $where == "tree" && [lsearch [$treeFile selection get] $node] != -1 } {
+        set res [$treeFile edit $node [$treeFile itemcget $node -text]]
+        if { $res != "" } {
+            $treeFile itemconfigure $node -text $res
+            $treeFile selection set $node
+        }
+        return
+    }
+    
+}
+
+
+proc FileTree::expand { treeFile but } {
+    if { [set cur [$treeFile selection get]] != "" } {
+        if { $but == 0 } {
+            $treeFile opentree $cur
+        } else {
+            $treeFile closetree $cur
+        }
+    }
+}
+
+proc FileTree::GetAllDirs {treeFiles} {
+    global projDir workDir fontNormal imgDir module env
+    set rList ""
+    set rootDir $env(HOME)
+    if {[catch {cd $rootDir}] != 0} {
+        return ""
+    }
+    
+    $treeFiles insert end root $rootDir -text "$rootDir" -font $fontNormal \
+    -data "dir_root" -open 0\
+    -image [Bitmap::get [file join $imgDir folder.gif]]
+    GetFiles [file join $rootDir] root $treeFiles
+    #set dir $string
+    
+    $treeFiles configure -redraw 1
+}
+
+
+## GETTING FILES FROM SUBDIR ##
+proc GetFilesSubdir {tree node dir} {
+    global  fontNormal projDir workDir activeProject imgDir count
+    global backUpFileShow dotFileShow
+    set count 1
+    set rList ""
+    if {[catch {cd $dir}] != 0} {
+        return ""
+    }
+    if {$dotFileShow eq "Yes"} {
+        foreach file [lsort [glob -nocomplain .*]] {
+            if {$file == "." || $file == ".."} {
+                puts $file
+            } else {
+                lappend rList [list [file join $dir $file]]
+                set fileName [file join $file]
+                set img [GetImage $fileName]
+                set dot "_"
+                regsub -all {\.} $fileName "_" subNode
+                set subNode "$activeProject$dot$node$dot$subNode$dot$count"
+                if {[$tree exists $subNode] == 1} {return}
+                if {$backUpFileShow == "Yes"} {
+                    $tree insert end $node $subNode -text $fileName \
+                    -data [file join $dir $fileName] -open 1\
+                    -image [Bitmap::get [file join $imgDir $img.gif]]\
+                    -font $fontNormal
+                }
+                if {$backUpFileShow == "No"} {
+                    if {[file isdirectory $fileName] == 1} {
+                        $tree insert end $node $subNode -text $fileName \
+                        -data [file join $dir $fileName] -open 1\
+                        -image [Bitmap::get [file join $imgDir $img.gif]]\
+                        -font $fontNormal
+                    } else {
+                        if {[string index $fileName end] != "~"} {
+                            $tree insert end $node $subNode -text $fileName \
+                            -data [file join $dir $fileName] -open 1\
+                            -image [Bitmap::get [file join $imgDir $img.gif]]\
+                            -font $fontNormal
+                        }
+                    }
+                }
+            }
+            incr count            
+        }
+    }
+    foreach file [lsort [glob -nocomplain *]] {
+        lappend rList [list [file join $dir $file]]
+        set fileName [file join $file]
+        set img [GetImage $fileName]
+        set dot "_"
+        regsub -all {\.} $fileName "_" subNode
+        set subNode "$activeProject$dot$node$dot$subNode$dot$count"
+        if {[$tree exists $subNode] == 1} {return}
+        if {$backUpFileShow == "Yes"} {
+            $tree insert end $node $subNode -text $fileName \
+            -data [file join $dir $fileName] -open 1\
+            -image [Bitmap::get [file join $imgDir $img.gif]]\
+            -font $fontNormal
+        }
+        if {$backUpFileShow == "No"} {
+            if {[file isdirectory $fileName] == 1} {
+                $tree insert end $node $subNode -text $fileName \
+                -data [file join $dir $fileName] -open 1\
+                -image [Bitmap::get [file join $imgDir $img.gif]]\
+                -font $fontNormal
+            } else {
+                if {[string index $fileName end] != "~"} {
+                    $tree insert end $node $subNode -text $fileName \
+                    -data [file join $dir $fileName] -open 1\
+                    -image [Bitmap::get [file join $imgDir $img.gif]]\
+                    -font $fontNormal
+                }
+            }
+        }
+        incr count
+    }
+    $tree itemconfigure $node -open 1
+}
+## GETTING FILES FROM PROJECT DIR AND INSERT INTO TREE WIDGET ##
+proc GetFiles {dir project tree} {
+    global  fontNormal backUpFileShow dotFileShow imgDir
+    set rList ""
+    set count 1
+    if {[catch {cd $dir}] != 0} {
+        return ""
+    }
+    if {$dotFileShow eq "Yes"} {
+        foreach file [lsort [glob -nocomplain .*]] {
+            if {$file == "." || $file == ".."} {
+                puts $file
+            } else {
+                lappend rList [list [file join $dir $file]]
+                set fileName [file join $file]
+                set img [GetImage $fileName]
+                set dot "_"
+                regsub -all {\.} $fileName "_" subNode
+                set subNode "$project$dot$subNode$dot$count"
+                if {$backUpFileShow == "Yes"} {
+                    $tree insert end $project $subNode -text $fileName \
+                    -data [file join $dir $fileName] -open 1\
+                    -image [Bitmap::get [file join $imgDir $img.gif]]\
+                    -font $fontNormal
+                }
+                if {$backUpFileShow == "No"} {
+                    if {[string index $fileName end] != "~"} {
+                        $tree insert end $project $subNode -text $fileName \
+                        -data [file join $dir $fileName] -open 1\
+                        -image [Bitmap::get [file join $imgDir $img.gif]]\
+                        -font $fontNormal
+                    }
+                }
+            }
+            incr count
+        }
+    }
+    
+    foreach file [lsort [glob -nocomplain *]] {
+        lappend rList [list [file join $dir $file]]
+        set fileName [file join $file]
+        set img [GetImage $fileName]
+        set dot "_"
+        regsub -all {\.} $fileName "_" subNode
+        set subNode "$project$dot$subNode$dot$count"
+        if {$backUpFileShow == "Yes"} {
+            $tree insert end $project $subNode -text $fileName \
+            -data [file join $dir $fileName] -open 1\
+            -image [Bitmap::get [file join $imgDir $img.gif]]\
+            -font $fontNormal
+        }
+        if {$backUpFileShow == "No"} {
+            if {[string index $fileName end] != "~"} {
+                $tree insert end $project $subNode -text $fileName \
+                -data [file join $dir $fileName] -open 1\
+                -image [Bitmap::get [file join $imgDir $img.gif]]\
+                -font $fontNormal
+            }
+        }
+        incr count
+    }
+    $tree configure -redraw 1
+}
+## GETTING PROJECT NAMES FROM DIR AND PUTS INTO 
+proc GetProj {tree} {
+    global projDir workDir fontNormal imgDir module
+    set rList ""                     
+    if {[catch {cd $workDir}] != 0} {
+        return ""
+    }
+    foreach proj [lsort [glob -nocomplain *.proj]] {
+        lappend rList [list [file join $workDir $proj]]
+        set projFile [open [file join $workDir $proj] r]
+        set prjName [file rootname $proj]
+        while {[gets $projFile line]>=0} {
+            scan $line "%s" keyWord
+            set string [string range $line [string first "\"" $line] [string last "\"" $line]]
+            set string [string trim $string "\""]
+            if {$keyWord == "ProjectName"} {
+                regsub -all " " $string "_" project
+                set projName "$string"
+            }
+            if {$keyWord == "ProjectDirName"} {
+                set projList($prjName) [file dirname $string]
+                puts "$projList($prjName) - $string"
+                $tree insert end root $prjName -text "$projName" -font $fontNormal \
+                -data "prj_$prjName" -open 0\
+                -image [Bitmap::get [file join $imgDir folder.gif]]
+                GetFiles [file join $string] $prjName $tree
+                set dir $string
+            }
+        }
+    }
+    $tree configure -redraw 1
+}
+
+## SHOW PUP-UP MENUS ## 
+proc PopupMenuTree {x y} {
+    global tree fontNormal fontBold imgDir activeProject
+    set node [$tree selection get]
+    if {$node ==""} {
+        set answer [tk_messageBox\
+        -message "[::msgcat::mc "Not found active project"]"\
+        -type ok -icon warning]
+        case $answer {
+            ok {return 0}
+        }
+    }
+    $tree selection set $node
+    set item [$tree itemcget $node -data]
+    if {[string range $item 0 2] == "prj"} {
+        set activeProject [string range $item 4 end]
+        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
+        tk_popup .popupProj $x $y
+        return
+    }
+    if {[info exists fileList($node)] != 1} {
+        #        set fileList($node) $item
+        tk_popup .popupFile $x $y
+    }
+}
+
+## OPEN TREE PROCEDURE
+proc TreeOpen {node} {
+    global fontNormal tree projDir workDir activeProject fileList noteBook findString imgDir fontBold
+    
+    $tree selection set $node
+    set item [$tree itemcget $node -data]
+    if {[string range $item 0 2] == "prj"} {
+        set activeProject [string range $item 4 end]
+        puts $activeProject
+        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
+        $tree itemconfigure $node -image [Bitmap::get [file join $imgDir openfold.gif]] 
+        if {[file exists [file join $workDir $activeProject.tags]] == 1} {
+            GetTagList [file join $workDir $activeProject.tags] ;# geting tag list
+        } else {
+            DoModule ctags
+        }
+    }
+    if {[info exists fileList($node)] != 1} {
+        set fileList($node) $item
+        if {[file isdirectory $item] == 1} {
+            $tree itemconfigure $node -image [Bitmap::get [file join $imgDir openfold.gif]] 
+        }
+    }
+}
+## CLOSE TREE PROCEDURE ##
+proc TreeClose {node} {
+    global fontNormal tree projDir workDir activeProject fileList noteBook findString imgDir fontBold
+    
+    $tree selection set $node
+    set item [$tree itemcget $node -data]
+    if {[string range $item 0 2] == "prj"} {
+        $tree itemconfigure $node -image [Bitmap::get [file join $imgDir folder.gif]] 
+    }
+    if {[info exists fileList($node)] != 1} {
+        if {[file isdirectory $item] == 1} {
+            $tree itemconfigure $node -image [Bitmap::get [file join $imgDir folder.gif]]
+        }
+    }
+}
+## TREE ONE CLICK PROCEDURE ##
+proc TreeOneClick {tree node} {
+    global fontNormal projDir workDir activeProject fileList noteBook findString imgDir fontBold
+    #puts [$tree selection get]
+    puts [$tree selection set $node]
+    #puts "$tree >>> $node"
+    set item [$tree itemcget $node -data]
+    if {[string range $item 0 2] == "prj"} {
+        set activeProject [string range $item 4 end]
+        puts $activeProject
+        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
+        if {[file exists [file join $workDir $activeProject.tags]] == 1} {
+            GetTagList [file join $workDir $activeProject.tags] ;# geting tag list
+        }
+        return
+    }
+    if {[info exists fileList($node)] != 1} {
+        if {[file isdirectory $item] == 1} {
+            return
+        } else {
+            if {[file exists $item] == 1} {
+                LabelUpdate .frmStatus.frmHelp.lblHelp [FileAttr $item]
+            }
+        }
+    } else {
+        PageRaise $tree $node
+    }
+    if {[string range $item 0 2] == "prc"} {
+        set parent [$tree parent $node]
+        set file [$tree itemcget $parent -data]
+        set fileExt [string range [file extension $file] 1 end]
+        if {[info exists fileList($parent)] == 0} {
+            EditFile $parent $file
+        }
+        PageRaise $tree $parent
+        $tree selection set $node
+        set text "$noteBook.f$parent.text"
+        set index1 [expr [string first "_" $item]+1]
+        set index2 [expr [string last "_" $item]11]
+        if {$fileExt == "java" || $fileExt == "ja"} {
+            set findString "class [string range $item $index1 $index2] "
+        } elseif {$fileExt == "perl" || $fileExt == "pl"} {
+            set findString "sub [string range $item $index1 $index2]"
+        } elseif {$fileExt == "ml" || $fileExt == "mli"} {
+            set findString "let [string range $item $index1 $index2]"
+        } elseif {$fileExt == "php" || $fileExt == "phtml"} {
+            set findString "function [string range $item $index1 $index2]"
+            puts $findString
+            #return
+        } elseif {$fileExt == "rb"} {
+            set findString "class [string range $item $index1 $index2]"
+        } else {
+            set findString "proc [string range $item $index1 $index2] "
+        }
+        FindProc $text $findString $node
+        focus -force $text
+    }
+}
+## TREE DOUBLE  CLICK PROCEDURE ##
+proc TreeDoubleClick {tree node} {
+    global  fontNormal projDir workDir activeProject fileList noteBook findString imgDir fontBold
+    $tree selection set $node
+    set item [$tree itemcget $node -data]
+    puts $item
+    if {[$tree itemcget $node -open] == 1} {
+        $tree itemconfigure $node -open 0
+    } elseif {[$tree itemcget $node -open] == 0} {
+        $tree itemconfigure $node -open 1
+    }
+    if {[string range $item 0 2] == "prj"} {
+        set activeProject [string range $item 4 end]
+        .frmStatus.frmActive.lblActive configure -text [$tree itemcget $node -text] -font $fontBold
+        GetTagList [file join $workDir $activeProject.tags] ;# geting tag list
+    }
+    
+    if {[info exists fileList($node)] != 1} {
+        if {[file isdirectory $item] == 1} {
+            GetFilesSubdir $tree $node $item
+        } else {
+            if {[file exists $item] == 1} {
+                EditFile $tree $node $item
+                LabelUpdate .frmStatus.frmFile.lblFile "[file size $item] b."
+            }
+        }
+    }
+    if {[string range $item 0 2] == "prc"} {
+        $tree selection set $node
+        set parent [$tree parent $node]
+        if {[info exists fileList($parent)] != 1} {
+            set file [$tree itemcget $parent -data]
+            EditFile $parent $file
+            $noteBook raise $parent
+        } else {
+            $noteBook raise $parent
+        }
+        set text "$noteBook.f$parent.text"
+        set index1 [expr [string first "_" $item]+1]
+        set index2 [expr [string last "_" $item]11]
+        set findString "proc [string range $item $index1 $index2] "
+        FindProc $text $findString $node
+        focus -force $text
+    }
+}
+
+
+## UPDATE TREE ##
+proc UpdateTree {} {
+    global tree
+    $tree delete [$tree nodes root]
+    GetProj $tree
+}
+
+
+
+
+
+
+
+
+
+

msgs/en.msg

@@ -58,6 +58,7 @@
 ::msgcat::mcset en "File was modifyed. Close?"
 ::msgcat::mcset en "File was modifyed. Save?"
 ::msgcat::mcset en "File saved"
+::msgcat::mcset en "Files"
 ::msgcat::mcset en "Find"
 ::msgcat::mcset en "Font normal"
 ::msgcat::mcset en "Font bold"
@@ -167,3 +168,4 @@
 
 
 
+

msgs/ru.msg

@@ -57,6 +57,7 @@
 ::msgcat::mcset ru "Error open URL" "Ошибка открытия URL"
 ::msgcat::mcset ru "Exit" "Выход"
 ::msgcat::mcset ru "File" "Файл"
+::msgcat::mcset ru "Files" "Файлы"
 ::msgcat::mcset ru "File already exists. Overwrite?" "Файл уже существует. Переписать?"
 ::msgcat::mcset ru "File was modifyed. Close?" "Файл был изменен. Закрыть?"
 ::msgcat::mcset ru "File was modifyed. Save?" "Файл был изменен. Сохранить?"
@@ -172,3 +173,4 @@
 
 
 
+

projman.conf

@@ -18,6 +18,7 @@ set toolBar "Yes"
 set backUpFileShow "No"
 set backUpFileCreate "No"
 set backUpFileDelete "No"
+set dotFileShow "No"
 
 # Don't edit this line
 # Directorys Settings #
@@ -71,3 +72,5 @@ set color(sixBG) "#ffdbdb"
 set color(sql) "#ffff828f0000"
 
 
+
+

projman.tcl

@@ -120,3 +120,6 @@ option add *Scrollbar.background $editor(bg) startupFile
 
 
 
+
+
+

temp.txt

@@ -1,4 +1,4 @@
-睾ﾁﾌﾏﾇﾉ ﾋﾌﾁﾗﾉﾛ ﾄﾌﾑ bind ﾗ WINDOWS
+Аналоги клавиш для bind в WINDOWS
 
 a ocircumflex
 b egrave
@@ -29,3 +29,6 @@ z ydiaeresis
 comma aacute
 period thorn
 
+
+
+