Added small toolbar into project tree

CHANGELOG

@@ -6,6 +6,9 @@
 ##########################################################
 
 0.4.5
+13.03.2018
+- Added small toolbar into project tree
+
 12.03.2018
 - Added insert base64 encoded image into source code (press "Control+I" or popup menu)
 
@@ -432,3 +435,4 @@ characters to the right of the insertion cursor.
 
 
 
+

lib/main.tcl

@@ -230,6 +230,15 @@ set nbFiles [$noteBookFiles insert end files -text [::msgcat::mc "Files"]   \
 -activebackground $editor(bg) -activeforeground $editor(fg)]
 
 
+#set frmButtonBoxTreeProj [frame $nbFiles.frmButtonBoxTreeProj]
+#pack $frmButtonBoxTreeProj -side top -fill both -expand true
+set bBoxProjectTree [ButtonBox $nbProjects.bboxProjectTree -spacing 0 -padx 1 -pady 1 -bg $editor(bg)]
+#add_toolbar_button $bBoxProjectTree new_project.png {NewProj new "" ""} [::msgcat::mc "New project"]
+#add_toolbar_button $bBoxProjectTree del_project.png DelProj [::msgcat::mc "Delete project"]
+add_toolbar_button $bBoxProjectTree project_settings.png {NewProj edit $activeProject ""} [::msgcat::mc "Project settings"]
+add_toolbar_button $bBoxProjectTree sort.png SortTree [::msgcat::mc "Sort tree"]
+pack $bBoxProjectTree -side top -pady 4 -anchor w
+
 # Create FileTree
 #FileTree::create $nbFiles
 set frmTreeFiles [ScrolledWindow $nbFiles.frmTreeFiles -bd 0 -bg $editor(bg) -background $editor(bg)]
@@ -368,3 +377,6 @@ if {[info exists workingProject]} {
     }
 }
 
+
+
+

lib/menu.tcl

@@ -180,3 +180,4 @@ proc GetFileMenu {m} {
 
 
 
+

lib/pane.tcl

@@ -102,3 +102,4 @@ namespace eval pane {
 
 
 
+

lib/toolbar.tcl

@@ -72,7 +72,7 @@ proc CreateToolBar {} {
         
         $m add cascade -label [::msgcat::mc "Help"] -menu $m.help -font $fontNormal
         GetHelpMenu [menu $m.help  -bg $editor(bg) -fg $editor(fg)]
-            
+        
         pack .frmTool.menu -side right
         
     }
@@ -83,7 +83,7 @@ proc add_toolbar_button {path icon command helptext} {
     image create photo $icon -format png -file [file join $imgDir $icon]
     $path add -image $icon \
     -highlightthickness 0 -takefocus 0 -relief link -bd 1  -activebackground $editor(bg)\
-    -padx 1 -pady 1 -command $command -helptext $helptext
+    -padx 2 -pady 2 -command $command -helptext $helptext
 }
 # Separator for toolbar
 proc GoToLineButton {w} {
@@ -98,3 +98,5 @@ proc GoToLineButton {w} {
 }
 
 
+
+

lib/translit.tcl

@@ -84,3 +84,4 @@ proc Translit {line} {
 
 
 
+