svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Some GUI change

Browse Source
This commit is contained in:
Sergey Kalinin 2018-03-06 14:55:22 +03:00
parent 4e9b74aa77
commit a985948feb
4 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/main.tcl
View File

@ -115,9 +115,9 @@ wm overrideredirect . 0
wm positionfrom . user wm positionfrom . user
#wm resizable . 0 0 #wm resizable . 0 0
frame .frmMenu -border 1 -relief raised -background $editor(bg) frame .frmMenu -border 1 -relief raised -background $editor(bg) -highlightthickness 0
frame .frmTool -border 1 -relief raised -background $editor(bg) frame .frmTool -border 1 -relief raised -background $editor(bg) -highlightthickness 0
frame .frmBody -border 1 -relief raised -background $editor(bg) frame .frmBody -border 1 -relief raised -background $editor(bg) -highlightthickness 0
frame .frmStatus -border 1 -relief sunken -bg $editor(bg) frame .frmStatus -border 1 -relief sunken -bg $editor(bg)
if {[info exists menuShow]==1 && $menuShow eq "Yes"} { if {[info exists menuShow]==1 && $menuShow eq "Yes"} {
pack .frmMenu -side top -padx 1 -fill x pack .frmMenu -side top -padx 1 -fill x
@ -210,10 +210,10 @@ pack $frm6.lblOvwrt -fill x
########## PROJECT-FILE-FUNCTION TREE ################## ########## PROJECT-FILE-FUNCTION TREE ##################
#set frmCat [frame .frmBody.frmCat -border 1 -relief sunken -bg $editor(bg)] #set frmCat [frame .frmBody.frmCat -border 1 -relief sunken -bg $editor(bg)]
set frmCat [frame .frmBody.frmCat -border 0 -relief flat] set frmCat [frame .frmBody.frmCat -border 0 -relief flat -highlightthickness 0]
pack $frmCat -side left -fill y -fill both pack $frmCat -side left -fill y -fill both
#set frmWork [frame .frmBody.frmWork -border 1 -relief sunken -bg $editor(bg)] #set frmWork [frame .frmBody.frmWork -border 1 -relief sunken -bg $editor(bg)]
set frmWork [frame .frmBody.frmWork -border 0 -relief flat] set frmWork [frame .frmBody.frmWork -border 0 -relief flat -highlightthickness 0]
pack $frmWork -side left -fill both -expand true pack $frmWork -side left -fill both -expand true
## CREATE PANE ## ## CREATE PANE ##
@ -222,7 +222,7 @@ pane::create .frmBody.frmCat .frmBody.frmWork -percent 0.20
# NoteBook - Projects and Files # NoteBook - Projects and Files
#################### WORKING AREA #################### #################### WORKING AREA ####################
set noteBookFiles [NoteBook $frmCat.noteBook -font $fontNormal -side top -bg $editor(bg) -fg $editor(fg) \ set noteBookFiles [NoteBook $frmCat.noteBook -font $fontNormal -side top -bg $editor(bg) -fg $editor(fg) \
-activebackground $editor(bg) -activeforeground $editor(fg) ] -activebackground $editor(bg) -activeforeground $editor(fg)]
pack $noteBookFiles -fill both -expand true -padx 2 -pady 2 pack $noteBookFiles -fill both -expand true -padx 2 -pady 2
set nbProjects [$noteBookFiles insert end projects -text [::msgcat::mc "Projects"] \ set nbProjects [$noteBookFiles insert end projects -text [::msgcat::mc "Projects"] \
-activebackground $editor(bg) -activeforeground $editor(fg)] -activebackground $editor(bg) -activeforeground $editor(fg)]
@ -232,7 +232,7 @@ set nbFiles [$noteBookFiles insert end files -text [::msgcat::mc "Files"] \
# Create FileTree # Create FileTree
#FileTree::create $nbFiles #FileTree::create $nbFiles
set frmTreeFiles [ScrolledWindow $nbFiles.frmTreeFiles -bd 0 -bg $editor(bg) -background $editor(bg) ] set frmTreeFiles [ScrolledWindow $nbFiles.frmTreeFiles -bd 0 -bg $editor(bg) -background $editor(bg)]
set treeFiles [ set treeFiles [
Tree $frmTreeFiles.treeFiles \ Tree $frmTreeFiles.treeFiles \
@ -367,5 +367,3 @@ if {[info exists workingProject]} {
} }
} }

9
lib/toolbar.tcl
View File

@ -13,7 +13,7 @@
proc Separator {} { proc Separator {} {
global sepIndex editor global sepIndex editor
set f [frame .frmTool.separator$sepIndex -width 10 -border 1 \ set f [frame .frmTool.separator$sepIndex -width 15 -border 1 \
-background $editor(bg) -relief raised] -background $editor(bg) -relief raised]
incr sepIndex 1 incr sepIndex 1
return $f return $f
@ -31,7 +31,7 @@ proc CreateToolBar {} {
add_toolbar_button $bboxFile printer.png {PrintDialog} [::msgcat::mc "Print ..."] add_toolbar_button $bboxFile printer.png {PrintDialog} [::msgcat::mc "Print ..."]
add_toolbar_button $bboxFile close.png {FileDialog $tree close} [::msgcat::mc "Close"] add_toolbar_button $bboxFile close.png {FileDialog $tree close} [::msgcat::mc "Close"]
set bboxEdit [ButtonBox .frmTool.bboxEdit -spacing 0 -padx 1 -pady 1 -bg $editor(bg)] set bboxEdit [ButtonBox .frmTool.bboxEdit -spacing 0 -padx 5 -pady 1 -bg $editor(bg)]
add_toolbar_button $bboxEdit copy.png {TextOperation copy} [::msgcat::mc "Copy into clipboard"] add_toolbar_button $bboxEdit copy.png {TextOperation copy} [::msgcat::mc "Copy into clipboard"]
add_toolbar_button $bboxEdit cut.png {TextOperation cut} [::msgcat::mc "Cut into clipboard"] add_toolbar_button $bboxEdit cut.png {TextOperation cut} [::msgcat::mc "Cut into clipboard"]
add_toolbar_button $bboxEdit paste.png {TextOperation paste} [::msgcat::mc "Paste from clipboard"] add_toolbar_button $bboxEdit paste.png {TextOperation paste} [::msgcat::mc "Paste from clipboard"]
@ -47,7 +47,7 @@ proc CreateToolBar {} {
set bboxHelp [ButtonBox .frmTool.bboxHelp -spacing 0 -padx 1 -pady 1 -bg $editor(bg)] set bboxHelp [ButtonBox .frmTool.bboxHelp -spacing 0 -padx 1 -pady 1 -bg $editor(bg)]
add_toolbar_button $bboxHelp help.png {ShowHelp} [::msgcat::mc "Help"] add_toolbar_button $bboxHelp help.png {ShowHelp} [::msgcat::mc "Help"]
# GoTo field # GoTo field
set frm [frame .frmTool.frmGoto -bg $editor(bg)] set frm [frame .frmTool.frmGoto -bg $editor(bg) -border 0 ]
GoToLineButton $frm GoToLineButton $frm
pack $bboxFile [Separator] $bboxEdit [Separator] $bboxProj [Separator] $bboxHelp [Separator] $frm -side left -anchor w pack $bboxFile [Separator] $bboxEdit [Separator] $bboxProj [Separator] $bboxHelp [Separator] $frm -side left -anchor w
@ -91,11 +91,10 @@ proc GoToLineButton {w} {
label $w.text -text [::msgcat::mc "Line number"] -font $fontNormal \ label $w.text -text [::msgcat::mc "Line number"] -font $fontNormal \
-bg $editor(bg) -fg $editor(fg) -bg $editor(bg) -fg $editor(fg)
entry $w.entGoTo -width 6 -validate key -validatecommand "ValidNumber %W %P" \ entry $w.entGoTo -width 6 -validate key -validatecommand "ValidNumber %W %P" \
-bg $editor(bg) -fg $editor(fg) -bg $editor(bg) -fg $editor(fg) -relief sunken -border 1 -highlightthickness 0
pack $w.text $w.entGoTo -side left -padx 2 -pady 2 pack $w.text $w.entGoTo -side left -padx 2 -pady 2
bind $w.entGoTo <Return> "+ToolBarGoToLineNumber $w" bind $w.entGoTo <Return> "+ToolBarGoToLineNumber $w"
balloon $w.entGoTo set [::msgcat::mc "Goto line"] balloon $w.entGoTo set [::msgcat::mc "Goto line"]
} }

1
lib/tree.tcl
View File

@ -344,3 +344,4 @@ proc FileNotePageRaise {nb s} {

1
projman.tcl
View File

@ -171,3 +171,4 @@ option add *Dialog.msg.background $editor(bg)
# option add *Entry.highlightBackground $bg userDefault # option add *Entry.highlightBackground $bg userDefault
# option add *Text.HighlightThickness 2 userDefault # option add *Text.HighlightThickness 2 userDefault
# option add *Entry.HighlightThickness 1 userDefault # option add *Entry.HighlightThickness 1 userDefault