diff --git a/CHANGELOG b/CHANGELOG index 5a43737..87297df 100644 --- a/CHANGELOG +++ b/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. + diff --git a/img/del_project.png b/img/del_project.png new file mode 100644 index 0000000..a979b75 Binary files /dev/null and b/img/del_project.png differ diff --git a/img/new_project.png b/img/new_project.png new file mode 100644 index 0000000..eb032d8 Binary files /dev/null and b/img/new_project.png differ diff --git a/img/project_settings.png b/img/project_settings.png new file mode 100644 index 0000000..a59ccda Binary files /dev/null and b/img/project_settings.png differ diff --git a/img/sort.png b/img/sort.png new file mode 100644 index 0000000..98a0473 Binary files /dev/null and b/img/sort.png differ diff --git a/lib/main.tcl b/lib/main.tcl index 36473e5..9c9b757 100644 --- a/lib/main.tcl +++ b/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]} { } } + + + diff --git a/lib/menu.tcl b/lib/menu.tcl index d219098..81dc42f 100644 --- a/lib/menu.tcl +++ b/lib/menu.tcl @@ -180,3 +180,4 @@ proc GetFileMenu {m} { + diff --git a/lib/pane.tcl b/lib/pane.tcl index 1e9f6ca..cbe19ab 100644 --- a/lib/pane.tcl +++ b/lib/pane.tcl @@ -102,3 +102,4 @@ namespace eval pane { + diff --git a/lib/toolbar.tcl b/lib/toolbar.tcl index e064826..01bc1ac 100644 --- a/lib/toolbar.tcl +++ b/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} { } + + diff --git a/lib/translit.tcl b/lib/translit.tcl index 3b06c65..ab7e750 100644 --- a/lib/translit.tcl +++ b/lib/translit.tcl @@ -84,3 +84,4 @@ proc Translit {line} { +