From 41c83d175abb28b896341855ea0078fd5bdac298 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <s.v.kalinin28@gmail.com>
Date: Tue, 13 Mar 2018 18:13:06 +0300
Subject: [PATCH] Added small toolbar into project tree

---
 CHANGELOG                |   4 ++++
 img/del_project.png      | Bin 0 -> 1046 bytes
 img/new_project.png      | Bin 0 -> 569 bytes
 img/project_settings.png | Bin 0 -> 845 bytes
 img/sort.png             | Bin 0 -> 710 bytes
 lib/main.tcl             |  12 ++++++++++++
 lib/menu.tcl             |   1 +
 lib/pane.tcl             |   1 +
 lib/toolbar.tcl          |   6 ++++--
 lib/translit.tcl         |   1 +
 10 files changed, 23 insertions(+), 2 deletions(-)
 create mode 100644 img/del_project.png
 create mode 100644 img/new_project.png
 create mode 100644 img/project_settings.png
 create mode 100644 img/sort.png

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 0000000000000000000000000000000000000000..a979b753f133bd125226acedf4c8742fd77a29e8
GIT binary patch
literal 1046
zcmV+x1nK*UP)<h;3K|Lk000e1NJLTq000yK000yS1^@s6jfou%00006VoOIv0RI60
z0RN!9r;`8x010qNS#tmY3ljhU3ljkVnw%H_000McNliru;sXs22^i~O)&>9o03B&m
zSad^gZEa<4bN~PV002XBWnpw>WFU8GbZ8()Nlj2>E@cM*00VkSL_t(I%axQpPaIbi
zhM#+9Sn%$$U_Kmnmkv3?L}{q_4bWf-HzZPmlr%)jPp}IlS2Pv{scBM#hSI5!h?Gc4
zz(Fw>8;C@}uz+`VW@mQy&fJ;nf@P6RP|TH1b&j5U-g90ZF*Y{F%*+g~>x!kNCE@!%
zLI`g2EX(5L<irF)VC?bnak{&^Gebi|pN)==M!@Z8U@XhBS5{WuEG#V4?2(ZXk;!B}
zH^%%5V2rsHO$dRMl5)BHy%6Fj+i@IY+qRNYBBhLN+qN#41`r5w^@$LI4|6(>6Rov8
zI5;RKNz!9=baY^hF(BgJzW!pdICwYL)x{_IJlRZ^JLxn7`2sz?eWX$;dU|@fH!wgt
zou>P459ep+XForG{>$3h+V7s{?O0n|Tdc0G*1{-yH9j#hS|}DD)PjJ&H#h0bbuv&W
z@YnjEoSl~Vboc=kr_A=tm-P1aQ7jhO-rnAyo16QwR4V-j{3|a9`|#mpBb!d2T2ivN
zyUWujk9o1NPBxR}+59}u=I6;~vb@+>=joHj?C<U(rKC}>H@b4UGH?h4_T_N%`GPXW
zcm~i~<5VhyDnv?w=eht$DF{`FQ>hTgF*=H<)oP76PHKPxk`~am?Kslf#hApBQd*XU
zyx0iRvYI*!QV1-|!m=b`6yXPfAL*zDBmkF^QA)*0k~qdt`v~hHgg|SpeZN`_l~UJ$
zrP6U6$GQTh{xQ}T2%<2I0^j#TrRqQom=<tv?;jIIx(fI$g9~UH@gjr(ag|eH7*%~g
z2%|_f&3V<~;^JbWwf2lLz7UdBTN_eHz+l@pwrv9jDI{%eDWs5uN~x;nRh3fVrR3I9
z{HkZdFm&sUMzv5Z^3Cil_lJk^{ebDOzP_mO1MUwG^X=?+6b1+JT({vkl`3!@2oOf0
zTPl^Rot>RLn*Nd?@Hu*W%*5m*07q|+xtGuLX!;B4wSb-1Z&bPb&T9fq3ph13#q#np
zs$P%E=V!57DU&1@BLl(d$?@eS01U<$+S}W4T_;gWHLd}dmzM!}=eVj*T3*IZ)1I<#
zyo&-zjKQf?BG>a8%?)!+@*f+UmHwWtA5=X!bX~WowQjrVWa(J*YUlO-(c#ev5M6fo
zVGAOc>$+o1l8@uKKS`1sfyNjUMNut|;}hVl3H?tC3&3i||5-d~%56!04_5%?;rO#-
Q3jhEB07*qoM6N<$g2W-=g#Z8m

literal 0
HcmV?d00001

diff --git a/img/new_project.png b/img/new_project.png
new file mode 100644
index 0000000000000000000000000000000000000000..eb032d8ff364803c9fa1d48f0330340192d2aeac
GIT binary patch
literal 569
zcmV-90>=G`P)<h;3K|Lk000e1NJLTq000yK000yS1ONa4CxF$400002VoOIv0RM-N
z%)bBt010qNS#tmY3ljhU3ljkVnw%H_000McNliru;sXs22s=<5mNftX0m?~4K~yNu
zWs*H>R6!JmpELLD-rcMp>l)d77}N+suoBXx5KJjp2x)ABy+6a&&c<J2EJQ3K+9--q
z!6HHoMiLF#HJiP6?#!{cH)|5#19N8J;e5P|a7>SAClg{gHd%{b;tBu@tfI$3X*X|9
zTvQWR8w}QEy}PqA_!(E>BzU%S`u>&0F^6>W{Vl(C=H;CiAHKdBLNY@SQsx<Fk_+Ev
z=Wk!1ZPv6F8$ZT(=ju0FGpF{GEy;8P7<;&I&+kE`(b(%600~M++~oA#&iMx0Pc=<1
zKY6fxjcf`GPZI%*f|O~LPTF4_eA;=gmdf%HZ%KhjB*6fo$sAWvQa&de=Q5{Y^ys00
z$D;@U4Z45;EtI0%S}-CJk3VYFC_4}Zh<E}81rg(<42PgbBxi^c@fd;s<)kPpdI}&=
z5RbGxRDwuA%f<yptnfeN)!YWuIY8pjDL`H|4H(~fhE-4`lJb$_bwAV6=CWcSlJUE`
zl~LzCzus+@V2&peF+v5|2=xTAEHed1i-a11Sos!4HW>~_&9%`W+dQTi&GqjrBVm_J
z1rc?(x_%0eRNnzyl?8AN>cy+jm-2my9ETe@cL<f9ni+oqI7!j#c`G%+00000NkvXX
Hu0mjfK^*2X

literal 0
HcmV?d00001

diff --git a/img/project_settings.png b/img/project_settings.png
new file mode 100644
index 0000000000000000000000000000000000000000..a59ccda501bbc7244bf2566af5beaee246f70754
GIT binary patch
literal 845
zcmV-T1G4;yP)<h;3K|Lk000e1NJLTq000yK000yS1ONa4CxF$400002VoOIv0RM-N
z%)bBt010qNS#tmY3ljhU3ljkVnw%H_000McNliru;sXs22?`k5r%nI>03B&mSad^g
zZEa<4bN~PV002XBWnpw>WFU8GbZ8()Nlj2>E@cM*00Om1L_t(2&rQfrXj69p!13?z
z_g<RU{B5H(ZR~W+^fGXG(IRe_IrUOIWT(+G1{<5OlQ4D>H`vXA3W88Q_+MeLp=7a&
z_EI;xw!?|q(9w!zB+Y6P<9o?7$xHfvzum;o@gpG12$Qsl@DcD!Bp+ysmin=dLT4}t
zupcn90H`jb-?piNwKy~g>m^bIXzQdeMG1csa)c3peIl#AIvfXG0cbQBKGJt%mprGw
zUx`2oF^TG8AE(4nr~K+RPZQtBBsA*}v+p*-BO<w;s~s!cKHd^HF}8@T*sc{afJK2e
zVDUB%9Z*48d-ms{i3Kx)ZL7;&-<f?DRTlXT2Z(c!6bU?OH)nEpt)?LW4#z(@z40@L
zYXtRX0U9W3PmIyW{l_QII#aAjfC)!DwI~wQp9nEu&QyO5PLGP9E)v2nJ2{r<h-{dD
zbj2K~CeQO8V*c_S_pz*`LSK*N$8vm0x9hEit&{JY7z~O*NgD?!t+|g{v)EB1v`vlG
zXpxAR=>W^ak~e6Kwo&0Fjq{COSHE6~_m+vzs#o_@RxA$mZyX5qniEDLVx}R6#jA$n
zhAh7=02uh;#DP!enbD)-zpLGI3D-<JN2k<oxrd9hXC_&qXabCO(te#3p2+C_aW$@i
zifYLeF3IkA*;ycO%<*w_$LFDOKN@3*9`OgySf$Qhv4;dL;?Z<P-(P!ft`g`mzYr;<
zJlV%qlC%JeZMZa1YD0Kv^vQMgukkHK&(F(UR-)c~u=v+PdQ+k+ifUwLtL0cc9xT1Q
zcWL_fTGiYM9+@jf=ck$6g*(pT?sI{(rtX}+o~Rtz`_7@Ms~4_OVBH*~04jg$#qwRt
zu~`aR0VJVrR;mlr4<7zJ_nd-sl@`#0O)qWPG!%3`+`2sMZSh+#{^n7v(KLP3IvV~5
XlY%yHH@~?x00000NkvXXu0mjfD9Cv=

literal 0
HcmV?d00001

diff --git a/img/sort.png b/img/sort.png
new file mode 100644
index 0000000000000000000000000000000000000000..98a047348bcd221a69de08a27bc99532443c9aae
GIT binary patch
literal 710
zcmV;%0y+JOP)<h;3K|Lk000e1NJLTq000yK000yS1ONa4CxF$400002VoOIv0RM-N
z%)bBt010qNS#tmY3ljhU3ljkVnw%H_000McNliru;sXs22`60!`#S&t0#`{yK~yNu
zZPH&zQ*jgr@bB;be$K6F%+1s=naM1I!V-!o2ojW@gI>%RAxa2Rf?j$M(u$r;lEMgj
zi4@9A)Ost3QAr44L`|F8Y}5U*HSgVSySsl*58k3^=jr$3d=BSuI1B)Yp)^(cR)3ej
zW&uEg$)1RmV@_H(hJOZi5H`aqqroISec9vR{3|U6rD&ZLN`wa6umubd0Fb5fJclA?
zsu4#4lzfp$-}|`L(OloW+v@QrA|Yr305rH6N6wpSz!&JC`+cha{glHv+UhzhyX0yt
z+Ry+oz!atv900pIJ~w=3pEFY-vWCH_<WFmRR<a+I9}5T4^QNcH(dc4qGb!+Q*cCkR
z=G#Co(wFM|eL|ul(5@~)cg4kXKE>%x)|$&i|3jOPp7uOsEgVWb9@;2WK&GN_Cu^TT
z8yew60U1f9HCRRAvZd!FFfag7jE@fVN6g}_aXYL@1}EO++vSqI*(yYA$o^psyr&U+
z;k|t1@cEV61w|E*Y*<s!4WK}>27}R(1qT*C?+J8$*xo-jF^Q;Du)wdQy-YdYa8Pef
zDV2%9QYv$Sf+n5t+??~@cr-qVIkrL?13Gcb|2(K>h~&a_tfN!-0JFo4eUkUzK`SbM
z55zNI1`Kx0R~EKLW~OJet5B}IV%zwS+V!Ej?n4Kp*lNrKL<C>ek;g-hs@|#4-3f%)
z1|jGXkZN|ET0tJk`i&^U(1Z^qw3dDLWH$QRjd`|AD%gXQ3r(6=vS4u@k44<z_GSba
sx7?PKa!^5#M7dcFmwh5SeMcI`FS<w)1~*!wU;qFB07*qoM6N<$f<Y@fdH?_b

literal 0
HcmV?d00001

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} {
 
 
 
+