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

- Corrected color settings for all widgets

Browse Source 
- Change default color scheme
This commit is contained in:
Sergey Kalinin 2018-01-11 14:42:43 +03:00
parent 45b37b3192
commit 472ff86c2b
10 changed files with 236 additions and 184 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
BUGS
View File

@ -5,31 +5,33 @@
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru # Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
###################################################### ######################################################
- Файл проекта, убрать расширение - Файл проекта, убрать расширение
- Глюки подсветки - Глюки подсветки
* Изменение размера шрифтов для редактора вступает в силу только после * Изменение размера шрифтов для редактора вступает в силу только после
перезагрузки, что не очень-то удобно. перезагрузки, что не очень-то удобно.
* При запуске приходится делать лишнее усилие по открытию root * При запуске приходится делать лишнее усилие по открытию root
элемента в TreeView. Сделай это по умолчанию автоматом, плиз. И чтобы элемента в TreeView. Сделай это по умолчанию автоматом, плиз. И чтобы
это также работало при команде refresh. это также работало при команде refresh.
* Есть refresh для TreeView хорошо бы тогда чтобы он или другая * Есть refresh для TreeView хорошо бы тогда чтобы он или другая
функция обновляла syntax hightlight, а то когда большие куски функция обновляла syntax hightlight, а то когда большие куски
ставляешь кода и он их не рассчвечивает неудобно. ставляешь кода и он их не рассчвечивает неудобно.
* При вводе текста если ввести proc, то твой редактор подставит
автоматом скобки. Вообще-то это не очень правильно, к примеру я
ставлю после функции комментарий вида } ;# proc testFunct
И вот тут он вставляет не нужные мне сейчас ковычки. По идеи надо в
balloon окне показать формат этой команды (также для все остальных).
Посмотри как это сделано в VisualBasic версии > 4. А так есть еще
один баг. Если у меня перед командой proc стоят пробелы, то точно
такое же их количество должно стоять и после последней закрывающей
скобкой иначе все форматирование едит и надо править ручками.
- При установки переменной editor(wrap) значения none на длинных строках при появлениии нижнего скролбара наблюдается глюк пока не объяснимый :(
Скрол бар начинает мерцать (то появиться то исчезнет)
* При вводе текста если ввести proc, то твой редактор подставит
автоматом скобки. Вообще-то это не очень правильно, к примеру я
ставлю после функции комментарий вида } ;# proc testFunct
И вот тут он вставляет не нужные мне сейчас ковычки. По идеи надо в
balloon окне показать формат этой команды (также для все остальных).
Посмотри как это сделано в VisualBasic версии > 4. А так есть еще
один баг. Если у меня перед командой proc стоят пробелы, то точно
такое же их количество должно стоять и после последней закрывающей
скобкой иначе все форматирование едит и надо править ручками.
- При установки переменной editor(wrap) значения none на длинных строках при появлениии нижнего скролбара наблюдается глюк пока не объяснимый :(
Скрол бар начинает мерцать (то появиться то исчезнет)

4
CHANGELOG
View File

@ -10,6 +10,8 @@
11/01/2018 11/01/2018
- Changes color setting dialog into "Setting" - Changes color setting dialog into "Setting"
- Actualizing information into "About" dialog - Actualizing information into "About" dialog
- Corrected color settings for all widgets
- Change default color scheme
0.4.4 0.4.4
@ -356,6 +358,8 @@ Fixed bug with PageRise function

18
TODO
View File

@ -14,11 +14,11 @@
-- on/off highligttning -- on/off highligttning
-- on/off -- on/off
- Add color scheme - Add color scheme
- Переключение закладок с помощью Alt+> Alt+< - Переключение закладок с помощью Alt+> Alt+<
- перед первой фукнцией возможность перейти в начало документа, а после последней на конец - перед первой фукнцией возможность перейти в начало документа, а после последней на конец
документа документа
- В статусбаре самый последнее поле (правое) где тест file saved уж - В статусбаре самый последнее поле (правое) где тест file saved уж
больно большое для таких кратких сообщений. больно большое для таких кратких сообщений.
- Edit Window split - Edit Window split
2. An package managers system independed files 2. An package managers system independed files
@ -67,9 +67,9 @@
11. Multiplatform featuring 11. Multiplatform featuring
- Windows printing - Windows printing
фолдинг фолдинг
поддержка frink (автоформаттер) поддержка frink (автоформаттер)
нумерация строк нумерация строк
@ -80,3 +80,5 @@

6
editor.tcl
View File

@ -673,6 +673,8 @@ proc BraceHighLight {text} {
# _searchCloseBracket $text \{ \} insert end] # _searchCloseBracket $text \{ \} insert end]
} }
## NOTEBOOK PAGE SWITCHER ## ## NOTEBOOK PAGE SWITCHER ##
## NOTEBOOK PAGE SWITCHER ## ## NOTEBOOK PAGE SWITCHER ##
proc PageTab {key} { proc PageTab {key} {
@ -932,7 +934,7 @@ proc EditFile {node fileName} {
close $file close $file
$w.text mark set insert 0.0 $w.text mark set insert 0.0
$w.text see insert $w.text see insert
$w.text tag configure lightBracket -background #000000 -foreground #00feff $w.text tag configure lightBracket -background #000000 -foreground #00ffff
# key bindings # # key bindings #
set text $w.text set text $w.text
@ -1134,3 +1136,5 @@ proc SelectAll {text} {
#################################### ####################################
GetOp GetOp

124
help.tcl
View File

@ -123,7 +123,7 @@ proc SearchWord {word} {
} }
## GETTING CONTENT FROM FILES ## ## GETTING CONTENT FROM FILES ##
proc GetContent {file} { proc GetContent {file} {
global docDir hlpNoteBook fontNormal sourceEncode global docDir hlpNoteBook fontNormal sourceEncode editor
$hlpNoteBook raise [$hlpNoteBook page 0] $hlpNoteBook raise [$hlpNoteBook page 0]
set node [$hlpNoteBook raise] set node [$hlpNoteBook raise]
if {$node != ""} { if {$node != ""} {
@ -201,7 +201,7 @@ proc LinkCallback_ {w url} {
## MAIN HELP WINDOW ## ## MAIN HELP WINDOW ##
proc TopLevelHelp {} { proc TopLevelHelp {} {
global fontNormal fontBold hlpTree hlpNoteBook nBookTree homeDir docDir lstSearch w frmSrchList global fontNormal fontBold hlpTree hlpNoteBook nBookTree homeDir docDir lstSearch w frmSrchList
global imgDir global imgDir color editor
set w .help set w .help
set w_exist [winfo exists $w] set w_exist [winfo exists $w]
if !$w_exist { if !$w_exist {
@ -236,7 +236,7 @@ proc TopLevelHelp {} {
$w.frmTool.btnRefresh configure -image imgRefresh $w.frmTool.btnRefresh configure -image imgRefresh
$w.frmTool.btnPrint configure -image imgPrint $w.frmTool.btnPrint configure -image imgPrint
pack $w.frmTool.btnBack $w.frmTool.btnForward $w.frmTool.btnRefresh $w.frmTool.btnPrint\ pack $w.frmTool.btnBack $w.frmTool.btnForward $w.frmTool.btnRefresh $w.frmTool.btnPrint\
-side left -fill x -side left -fill x
set frmCat [frame $w.frmBody.frmCat -border 1 -relief sunken] set frmCat [frame $w.frmBody.frmCat -border 1 -relief sunken]
@ -244,7 +244,7 @@ proc TopLevelHelp {} {
set frmWork [frame $w.frmBody.frmWork -border 1 -relief sunken] set frmWork [frame $w.frmBody.frmWork -border 1 -relief sunken]
pack $frmWork -side left -fill both -expand true pack $frmWork -side left -fill both -expand true
set nBookTree [NoteBook $frmCat.nBookTree -font $fontNormal] set nBookTree [NoteBook $frmCat.nBookTree -font $fontNormal -bg $editor(bg) -fg $editor(fg)]
pack $nBookTree -fill both -expand true -padx 2 -pady 2 pack $nBookTree -fill both -expand true -padx 2 -pady 2
set frmTreeNb [$nBookTree insert end hlpTree -text "[::msgcat::mc "Contents"]"] set frmTreeNb [$nBookTree insert end hlpTree -text "[::msgcat::mc "Contents"]"]
set frmSearch [$nBookTree insert end hlpSearch -text "[::msgcat::mc "Search"]"] set frmSearch [$nBookTree insert end hlpSearch -text "[::msgcat::mc "Search"]"]
@ -253,64 +253,64 @@ proc TopLevelHelp {} {
set frmScrlX [frame $frmTreeNb.frmScrlX -border 0 -relief sunken] set frmScrlX [frame $frmTreeNb.frmScrlX -border 0 -relief sunken]
set frmTree [frame $frmTreeNb.frmTree -border 1 -relief sunken] set frmTree [frame $frmTreeNb.frmTree -border 1 -relief sunken]
set hlpTree [Tree $frmTree.tree \ set hlpTree [Tree $frmTree.tree \
-relief sunken -borderwidth 1 -width 20 -highlightthickness 0\ -relief sunken -borderwidth 1 -width 20 -highlightthickness 0\
-redraw 0 -dropenabled 1 -dragenabled 1 -dragevent 3 \ -redraw 0 -dropenabled 1 -dragenabled 1 -dragevent 3 \
-yscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmTree.scrlY set} \ -yscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmTree.scrlY set} \
-xscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmScrlX.scrlX set} \ -xscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmScrlX.scrlX set} \
-background "#d3d3d3" -selectbackground "#55c4d1" \ -selectbackground "#55c4d1" \
-droptypes { -droptypes {
TREE_NODE {copy {} move {} link {}} TREE_NODE {copy {} move {} link {}}
LISTBOX_ITEM {copy {} move {} link {}} LISTBOX_ITEM {copy {} move {} link {}}
} -opencmd "" -closecmd ""] } -opencmd "" -closecmd ""]
pack $frmTree -side top -fill y -expand true pack $frmTree -side top -fill y -expand true
pack $frmScrlX -side top -fill x pack $frmScrlX -side top -fill x
scrollbar $frmTree.scrlY -command {$hlpTree yview} \ scrollbar $frmTree.scrlY -command {$hlpTree yview} \
-borderwidth {1} -width {10} -takefocus 0 -borderwidth {1} -width {10} -takefocus 0
pack $hlpTree $frmTree.scrlY -side left -fill y pack $hlpTree $frmTree.scrlY -side left -fill y
scrollbar $frmScrlX.scrlX -command {$hlpTree xview} \ scrollbar $frmScrlX.scrlX -command {$hlpTree xview} \
-orient horizontal -borderwidth {1} -width {10} -takefocus 0 -orient horizontal -borderwidth {1} -width {10} -takefocus 0
pack $frmScrlX.scrlX -fill x -expand true pack $frmScrlX.scrlX -fill x -expand true
set frmSrchList [frame $frmSearch.frmScrhList -border 0 -relief sunken] set frmSrchList [frame $frmSearch.frmScrhList -border 0 -relief sunken]
set frmSrchEnt [frame $frmSearch.frmScrhEnt -border 0 -relief sunken] set frmSrchEnt [frame $frmSearch.frmScrhEnt -border 0 -relief sunken]
set frmSrchScrollX [frame $frmSearch.frmScrhScrollX -border 0 -relief sunken] set frmSrchScrollX [frame $frmSearch.frmScrhScrollX -border 0 -relief sunken]
pack $frmSrchEnt -side top -fill x pack $frmSrchEnt -side top -fill x
pack $frmSrchList -side top -fill both -expand true pack $frmSrchList -side top -fill both -expand true
pack $frmSrchScrollX -side top -fill x pack $frmSrchScrollX -side top -fill x
entry $frmSrchEnt.entSearch entry $frmSrchEnt.entSearch
set lstSearch [listbox $frmSrchList.lstSearch -font $fontNormal\ set lstSearch [listbox $frmSrchList.lstSearch -font $fontNormal\
-yscrollcommand\ -yscrollcommand\
{.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhList.scrListY set}\ {.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhList.scrListY set}\
-xscrollcommand\ -xscrollcommand\
{.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhScrollX.scrListX set}\ {.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhScrollX.scrListX set}\
-selectmode single -selectbackground #55c4d1\ -selectmode single -selectbackground #55c4d1\
-selectborderwidth 0] -selectborderwidth 0]
scrollbar $frmSrchList.scrListY -command\ scrollbar $frmSrchList.scrListY -command\
{$frmSrchList.lstSearch yview} -borderwidth {1} -width {10} -takefocus 0 {$frmSrchList.lstSearch yview} -borderwidth {1} -width {10} -takefocus 0
pack $frmSrchEnt.entSearch -side top -fill x -expand true pack $frmSrchEnt.entSearch -side top -fill x -expand true
pack $frmSrchList.lstSearch -side left -fill both -expand true pack $frmSrchList.lstSearch -side left -fill both -expand true
pack $frmSrchList.scrListY -side left -fill y pack $frmSrchList.scrListY -side left -fill y
scrollbar $frmSrchScrollX.scrListX -orient horizontal -command\ scrollbar $frmSrchScrollX.scrListX -orient horizontal -command\
{$frmSrchList.lstSearch xview} -borderwidth {1} -width {10} -takefocus 0 {$frmSrchList.lstSearch xview} -borderwidth {1} -width {10} -takefocus 0
pack $frmSrchScrollX.scrListX -fill x pack $frmSrchScrollX.scrListX -fill x
# $hlpTree bindText <ButtonRelease-4> [puts %k] # $hlpTree bindText <ButtonRelease-4> [puts %k]
# $hlpTree bindText <ButtonRelease-3> [puts %k] # $hlpTree bindText <ButtonRelease-3> [puts %k]
# bind $frmTree <ButtonPress-4> {$frmSrchList.lstSearch xview} # bind $frmTree <ButtonPress-4> {$frmSrchList.lstSearch xview}
# $hlpTree bindText <Double-ButtonPress-1> "HlpTreeDoubleClick [$hlpTree selection get]" # $hlpTree bindText <Double-ButtonPress-1> "HlpTreeDoubleClick [$hlpTree selection get]"
# $hlpTree bindImage <Double-ButtonPress-1> "HlpTreeDoubleClick [$hlpTree selection get]" # $hlpTree bindImage <Double-ButtonPress-1> "HlpTreeDoubleClick [$hlpTree selection get]"
$hlpTree bindText <ButtonPress-1> "HlpTreeOneClick [$hlpTree selection get]" $hlpTree bindText <ButtonPress-1> "HlpTreeOneClick [$hlpTree selection get]"
$hlpTree bindImage <ButtonPress-1> "HlpTreeOneClick [$hlpTree selection get]" $hlpTree bindImage <ButtonPress-1> "HlpTreeOneClick [$hlpTree selection get]"
bind .help <Escape> "destroy .help" bind .help <Escape> "destroy .help"
# bind $frmSrchEnt.entSearch <KeyRelease>\ # bind $frmSrchEnt.entSearch <KeyRelease>\
# {SearchWord [Text .help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhEnt.entSearch]} # {SearchWord [Text .help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhEnt.entSearch]}
#bind $w <Escape> exit #bind $w <Escape> exit
#bind $frmTree <Down> {TreeClick [$hlpTree selection get]} #bind $frmTree <Down> {TreeClick [$hlpTree selection get]}
@ -321,11 +321,11 @@ proc TopLevelHelp {} {
bind $frmTree.tree.c <Shift-Button-4> "$hlpTree xview scroll -2 units" bind $frmTree.tree.c <Shift-Button-4> "$hlpTree xview scroll -2 units"
bind $frmTree.tree.c <Shift-Button-5> "$hlpTree xview scroll 2 units" bind $frmTree.tree.c <Shift-Button-5> "$hlpTree xview scroll 2 units"
set hlpNoteBook [NoteBook $frmWork.hlpNoteBook -font $fontNormal] set hlpNoteBook [NoteBook $frmWork.hlpNoteBook -font $fontNormal -bg $editor(bg) -fg $editor(fg)]
pack $hlpNoteBook -fill both -expand true -padx 2 -pady 2 pack $hlpNoteBook -fill both -expand true -padx 2 -pady 2
GetTOC GetTOC
} }
} }
################################################## ##################################################
@ -354,6 +354,10 @@ proc TopLevelHelp {} {

3
main.tcl
View File

@ -387,3 +387,6 @@ focus -force $tree

1
procedure.tcl
View File

@ -1114,3 +1114,4 @@ proc TextOperation {oper} {

49
projman.conf
View File

@ -1,10 +1,12 @@
########################################################### ###########################################################
# TCL/Tk Project Manager # # TCL/Tk Project Manager #
# version 0.0.1 # # version 0.3.8 #
# # # #
# Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru # # Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru #
# Authors: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru # # Authors: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru #
########################################################### ###########################################################
# Modification date: Чт янв 11 10:38:33 MSK 2018
###########################################################
# Normal Font # Normal Font
set fontNormal "helvetica 10 normal roman" set fontNormal "helvetica 10 normal roman"
@ -13,64 +15,57 @@ set fontBold "helvetica 10 bold roman"
# ToolBar on/off (Yes/No) # ToolBar on/off (Yes/No)
set toolBar "Yes" set toolBar "Yes"
set backUpFileShow "No"
set backUpFileCreate "No" set backUpFileCreate "No"
set backUpFileDelete "No" set backUpFileDelete "No"
set backUpFileShow "No"
set autoFormat "Yes"
# Don't edit this line
# Directorys Settings # # Directorys Settings #
set projDir "$env(HOME)/projects/tcl" set projDir "$env(HOME)/projects/tcl"
set rpmDir "$workDir/rpm" set rpmDir "$workDir/rpm"
set tgzDir "$workDir/tgz" set tgzDir "$workDir/tgz"
# File mask # # File mask #
set rpmNamed "projectName-version-release" set rpmNamed "projectName-version-release"
set tgzNamed "projectName-version-release" set tgzNamed "projectName-version-release"
# Locale setting # Locale setting
set locale "en" set locale "en"
set autoFormat "Yes"
## EDITOR INTERFACE SETTINGS ##
# Editor Font # # Editor Font #
set editor(font) "courier 10 normal roman" set editor(font) "courier 10 normal roman"
# Editor Bold Font # # Editor Bold Font #
set editor(fontBold) "courier 10 bold roman" set editor(fontBold) "courier 10 bold roman"
# background color # # background color #
set editor(bg) "#dbdbdb" set editor(bg) "#333333"
# foreground color # # foreground color #
set editor(fg) "#000000" set editor(fg) "#cccccc"
# selection background color # # selection background color #
set editor(selectbg) "#55c4d1" set editor(selectbg) "#10a410a410a4"
# NoteBook title normal font color # # NoteBook title normal font color #
set editor(nbNormal) "#000000" set editor(nbNormal) "#000000"
# NoteBook title modify font color # # NoteBook title modify font color #
set editor(nbModify) "#0021ff" set editor(nbModify) "#ffff5d705d70"
# selection border width # # selection border width #
set editor(selectBorder) "0" set editor(selectBorder) "0"
# Editor wraping # # Editor wraping #
# must be: none, word or char # must be: none, word or char
set editor(wrap) "word" set editor(wrap) "word"
## SOURCE CODE HIGHLIGTNING ## ## SOURCE CODE HIGHLIGTNING ##
set color(procName) "#0021ff" set color(procName) "#00ffff"
set color(keyWord) "#0000a8" set color(keyWord) "#0000ce149c9e"
set color(param) "#6a0082" set color(param) "#d5547f71d9d9"
set color(subParam) "#008282" set color(subParam) "#d5547f71d9d9"
set color(comments) "#9b9b9b" set color(comments) "#000000"
set color(var) "#e50000" set color(var) "#30a489cdffff"
set color(string) "#168400" set color(string) "#9ae199540000"
set color(brace) "#d33434" set color(brace) "#d9d93f2d3f2d"
set color(bracequad) "#ffff75c2fe9d"
set color(braceBG) "#000000" set color(braceBG) "#000000"
set color(braceFG) "#43ff00" set color(braceFG) "#43ff00"
set color(bracequad) "#990099" set color(percent) "#ffff00"
set color(percent) "#a500c6" set color(bindKey) "#ffffaa3df9fe"
set color(bindKey) "#a500c6"
set color(label) "#c9c9c9" set color(label) "#c9c9c9"
set color(sixFG) "#ff0000" set color(sixFG) "#ff0000"
set color(sixBG) "#ffdbdb" set color(sixBG) "#ffdbdb"
set color(sql) "#620095" set color(sql) "#ffff828f0000"

32
projman.tcl
View File

@ -97,8 +97,38 @@ foreach file [lsort [glob -nocomplain [file join $hlDir *.tcl]]] {
puts "Loaded highlight module $file" puts "Loaded highlight module $file"
} }
set editor(selectBorder) "0" #set editor(selectBorder) "0"
#option add *tree.foreground red widgetDefault #option add *tree.foreground red widgetDefault
# Set colors for widgets
option add *Frame.background $editor(bg) startupFile
option add *Scrollableframe.background $editor(bg) startupFile
option add *Scrolledwindow.background $editor(bg) startupFile
option add *Button.foreground $editor(fg) startupFile
option add *Button.background $editor(bg) startupFile
option add *Entry.foreground $editor(fg) startupFile
option add *Entry.background $editor(bg) startupFile
option add *Label.foreground $editor(fg) startupFile
option add *Label.background $editor(bg) interactive
option add *Checkbox.foreground $editor(fg) startupFile
option add *Checkbox.background $editor(bg) startupFile
option add *Checkbutton.foreground $editor(fg) startupFile
option add *Checkbutton.background $editor(bg) startupFile
option add *Combobox.foreground $editor(fg) startupFile
option add *Combobox.background $editor(bg) startupFile
option add *Text.foreground $editor(fg) startupFile
option add *Text.background $editor(bg) startupFile
option add *Tree.background $editor(bg) startupFile
option add *Tree.foreground $editor(fg) startupFile
option add *scrollbar.background $editor(bg) startupFile
option add *Canvas.background $editor(bg) startupFile
option add *Canvas.foreground $editor(fg) startupFile
option add *Node.foreground $editor(fg) startupFile
option add *NoteBook.bg $editor(bg) startupFile
option add *NoteBook.fg $editor(fg) startupFile
option add *Listbox.foreground $editor(fg) startupFile
option add *Listbox.background $editor(bg) startupFile
option add *Scrollbar.background $editor(bg) startupFile

139
settings.tcl
View File

@ -23,15 +23,16 @@ proc Settings {} {
# wm resizable $w 0 0 # wm resizable $w 0 0
wm geometry $w 464x450+0+0 wm geometry $w 464x450+0+0
wm transient $w . wm transient $w .
frame $w.frmMain -borderwidth 1 frame $w.frmMain -borderwidth 1 -bg $editor(bg)
pack $w.frmMain -side top -fill both -expand 1 pack $w.frmMain -side top -fill both -expand 1
frame $w.frmBtn -borderwidth 1 frame $w.frmBtn -borderwidth 1 -bg $editor(bg)
pack $w.frmBtn -side top -fill x pack $w.frmBtn -side top -fill x
set nb [NoteBook $w.frmMain.noteBook -font $fontBold -side top] set nb [NoteBook $w.frmMain.noteBook -font $fontBold -side top -bg $editor(bg) -fg $editor(fg)]
pack $nb -fill both -expand true -padx 2 -pady 2 pack $nb -fill both -expand true -padx 2 -pady 2
button $w.frmBtn.btnFind -text [::msgcat::mc "Save"] -font $fontNormal -width 12 -relief groove\ button $w.frmBtn.btnFind -text [::msgcat::mc "Save"] -font $fontNormal -width 12 -relief groove \
-bg $editor(bg) -fg $editor(fg) \
-command { -command {
file copy -force [file join $workDir projman.conf] [file join $workDir projman.conf.old] file copy -force [file join $workDir projman.conf] [file join $workDir projman.conf.old]
set file [open [file join $workDir projman.conf] w] set file [open [file join $workDir projman.conf] w]
@ -128,24 +129,24 @@ proc Settings {} {
destroy .pref destroy .pref
} }
button $w.frmBtn.btnCancel -text [::msgcat::mc "Close"] -relief groove -width 12\ button $w.frmBtn.btnCancel -text [::msgcat::mc "Close"] -relief groove -width 12\
-font $fontNormal -command "destroy $w" -font $fontNormal -command "destroy $w" -bg $editor(bg) -fg $editor(fg)
pack $w.frmBtn.btnFind $w.frmBtn.btnCancel -fill x -padx 2 -pady 2 -side left pack $w.frmBtn.btnFind $w.frmBtn.btnCancel -fill x -padx 2 -pady 2 -side left
################## MAIN PREF ########################## ################## MAIN PREF ##########################
set main [$nb insert end main -text "[::msgcat::mc "Main"]"] set main [$nb insert end main -text "[::msgcat::mc "Main"]"]
set scrwin [ScrolledWindow $main.scrwin -relief groove -bd 2] set scrwin [ScrolledWindow $main.scrwin -relief groove -bd 2 -bg $editor(bg)]
#pack $scrwin -fill both -expand true #pack $scrwin -fill both -expand true
set scrfrm [ScrollableFrame $main.frm] set scrfrm [ScrollableFrame $main.frm -bg $editor(bg)]
pack $scrwin -fill both -expand true pack $scrwin -fill both -expand true
pack $scrfrm -fill both -expand true pack $scrfrm -fill both -expand true
$scrwin setwidget $scrfrm $scrwin setwidget $scrfrm
set main [$scrfrm getframe] set main [$scrfrm getframe]
set frm_1 [frame $main.frmFontNormal] set frm_1 [frame $main.frmFontNormal -bg $editor(bg)]
label $frm_1.lblFontNormal -text [::msgcat::mc "Font normal"] -width 30\ label $frm_1.lblFontNormal -text [::msgcat::mc "Font normal"] -width 30\
-anchor w -font $fontNormal -anchor w -font $fontNormal -fg $editor(fg) -bg $editor(bg)
entry $frm_1.txtFontNormal entry $frm_1.txtFontNormal
button $frm_1.btnFontNormal -borderwidth {1} -font $fontNormal \ button $frm_1.btnFontNormal -borderwidth {1} -font $fontNormal \
-command {SelectFontDlg $fontNormal $main.frmFontNormal.txtFontNormal} \ -command {SelectFontDlg $fontNormal $main.frmFontNormal.txtFontNormal} \
@ -154,8 +155,9 @@ proc Settings {} {
pack $frm_1.txtFontNormal -side left -fill x -expand true pack $frm_1.txtFontNormal -side left -fill x -expand true
pack $frm_1.btnFontNormal -side left pack $frm_1.btnFontNormal -side left
set frm_2 [frame $main.frmFontBold] set frm_2 [frame $main.frmFontBold -bg $editor(bg)]
label $frm_2.lblFontBold -text [::msgcat::mc "Font bold"] -width 30 -anchor w -font $fontNormal label $frm_2.lblFontBold -text [::msgcat::mc "Font bold"] -width 30 -anchor w \
-font $fontNormal -fg $editor(fg) -bg $editor(bg)
entry $frm_2.txtFontBold entry $frm_2.txtFontBold
button $frm_2.btnFontBold -borderwidth {1} -font $fontNormal \ button $frm_2.btnFontBold -borderwidth {1} -font $fontNormal \
-command {SelectFontDlg $fontBold $main.frmFontBold.txtFontBold} \ -command {SelectFontDlg $fontBold $main.frmFontBold.txtFontBold} \
@ -164,17 +166,19 @@ proc Settings {} {
pack $frm_2.txtFontBold -side left -fill x -expand true pack $frm_2.txtFontBold -side left -fill x -expand true
pack $frm_2.btnFontBold -side left pack $frm_2.btnFontBold -side left
set frm_3 [frame $main.frmToolBar] set frm_3 [frame $main.frmToolBar -bg $editor(bg)]
label $frm_3.lblToolBar -text [::msgcat::mc "Toolbar"] -width 30 -anchor w -font $fontNormal label $frm_3.lblToolBar -text [::msgcat::mc "Toolbar"] -width 30 -anchor w \
-font $fontNormal -fg $editor(fg) -bg $editor(bg)
checkbutton $frm_3.chkToolBar -text "" -variable toolBar \ checkbutton $frm_3.chkToolBar -text "" -variable toolBar \
-font $fontNormal -onvalue true -offvalue false -font $fontNormal -onvalue true -offvalue false -bg $editor(bg)
pack $frm_3.lblToolBar -side left pack $frm_3.lblToolBar -side left
pack $frm_3.chkToolBar -side left pack $frm_3.chkToolBar -side left
set frm_4 [frame $main.frmProjDir] set frm_4 [frame $main.frmProjDir -bg $editor(bg)]
label $frm_4.lblProjDir -text [::msgcat::mc "Projects"] -width 30 -anchor w -font $fontNormal label $frm_4.lblProjDir -text [::msgcat::mc "Projects"] -width 30 -anchor w \
entry $frm_4.txtProjDir -font $fontNormal -fg $editor(fg) -bg $editor(bg)
button $frm_4.btnProjDir -borderwidth {1} -font $fontNormal \ entry $frm_4.txtProjDir -bg $editor(bg)
button $frm_4.btnProjDir -borderwidth {1} -font $fontNormal -bg $editor(bg)\
-image [Bitmap::get [file join $imgDir folder.gif]]\ -image [Bitmap::get [file join $imgDir folder.gif]]\
-command { -command {
InsertEnt $main.frmProjDir.txtProjDir [SelectDir $projDir] InsertEnt $main.frmProjDir.txtProjDir [SelectDir $projDir]
@ -183,20 +187,21 @@ proc Settings {} {
pack $frm_4.txtProjDir -side left -fill x -expand true pack $frm_4.txtProjDir -side left -fill x -expand true
pack $frm_4.btnProjDir -side left pack $frm_4.btnProjDir -side left
set frm_5 [frame $main.frmLocale] set frm_5 [frame $main.frmLocale -bg $editor(bg)]
label $frm_5.lblLocale -text [::msgcat::mc "Interface language"]\ label $frm_5.lblLocale -text [::msgcat::mc "Interface language"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal -fg $editor(fg) -bg $editor(bg)
set combo [ComboBox $frm_5.txtLocale\ set combo [ComboBox $frm_5.txtLocale \
-textvariable localeSet -command "puts 123"\ -textvariable localeSet -command "puts 123"\
-selectbackground "#55c4d1" -selectborderwidth 0\ -selectbackground "#55c4d1" -selectborderwidth 0\
-values [GetLocale]] -values [GetLocale]]
pack $frm_5.lblLocale -side left pack $frm_5.lblLocale -side left
pack $frm_5.txtLocale -side left -fill x -expand true pack $frm_5.txtLocale -side left -fill x -expand true
set frm_6 [frame $main.frmRpmDir] set frm_6 [frame $main.frmRpmDir -bg $editor(bg)]
label $frm_6.lblRpmDir -text [::msgcat::mc "RPM dir"] -width 30 -anchor w -font $fontNormal label $frm_6.lblRpmDir -text [::msgcat::mc "RPM dir"] -width 30 -anchor w \
entry $frm_6.txtRpmDir -font $fontNormal -fg $editor(fg) -bg $editor(bg)
button $frm_6.btnRpmDir -borderwidth {1} -font $fontNormal \ entry $frm_6.txtRpmDir -fg $editor(fg) -bg $editor(bg)
button $frm_6.btnRpmDir -borderwidth {1} -font $fontNormal -bg $editor(bg) \
-image [Bitmap::get [file join $imgDir folder.gif]]\ -image [Bitmap::get [file join $imgDir folder.gif]]\
-command { -command {
InsertEnt $main.frmRpmDir.txtRpmDir [SelectDir $workDir] InsertEnt $main.frmRpmDir.txtRpmDir [SelectDir $workDir]
@ -205,8 +210,8 @@ proc Settings {} {
pack $frm_6.txtRpmDir -side left -fill x -expand true pack $frm_6.txtRpmDir -side left -fill x -expand true
pack $frm_6.btnRpmDir -side left pack $frm_6.btnRpmDir -side left
set frm_7 [frame $main.frmTgzDir] set frm_7 [frame $main.frmTgzDir -bg $editor(bg)]
label $frm_7.lblTgzDir -text [::msgcat::mc "TGZ dir"] -width 30 -anchor w -font $fontNormal label $frm_7.lblTgzDir -text [::msgcat::mc "TGZ dir"] -width 30 -anchor w -font $fontNormal -fg $editor(fg)
entry $frm_7.txtTgzDir entry $frm_7.txtTgzDir
button $frm_7.btnTgzDir -borderwidth {1} -font $fontNormal \ button $frm_7.btnTgzDir -borderwidth {1} -font $fontNormal \
-image [Bitmap::get [file join $imgDir folder.gif]]\ -image [Bitmap::get [file join $imgDir folder.gif]]\
@ -217,39 +222,39 @@ proc Settings {} {
pack $frm_7.txtTgzDir -side left -fill x -expand true pack $frm_7.txtTgzDir -side left -fill x -expand true
pack $frm_7.btnTgzDir -side left pack $frm_7.btnTgzDir -side left
set frm_8 [frame $main.frmRpmNamed] set frm_8 [frame $main.frmRpmNamed -bg $editor(bg)]
label $frm_8.lblRpmNamed -text [::msgcat::mc "RPM file mask"] -width 30 -anchor w\ label $frm_8.lblRpmNamed -text [::msgcat::mc "RPM file mask"] -width 30 -anchor w\
-font $fontNormal -font $fontNormal -fg $editor(fg)
entry $frm_8.txtRpmNamed entry $frm_8.txtRpmNamed
pack $frm_8.lblRpmNamed -side left pack $frm_8.lblRpmNamed -side left
pack $frm_8.txtRpmNamed -side left -fill x -expand true pack $frm_8.txtRpmNamed -side left -fill x -expand true
set frm_9 [frame $main.frmTgzNamed] set frm_9 [frame $main.frmTgzNamed -bg $editor(bg)]
label $frm_9.lblTgzNamed -text [::msgcat::mc "TGZ file mask"] -width 30 -anchor w\ label $frm_9.lblTgzNamed -text [::msgcat::mc "TGZ file mask"] -width 30 -anchor w\
-font $fontNormal -font $fontNormal -fg $editor(fg)
entry $frm_9.txtTgzNamed entry $frm_9.txtTgzNamed
pack $frm_9.lblTgzNamed -side left pack $frm_9.lblTgzNamed -side left
pack $frm_9.txtTgzNamed -side left -fill x -expand true pack $frm_9.txtTgzNamed -side left -fill x -expand true
set frm_10 [frame $main.frmBackUpCreate] set frm_10 [frame $main.frmBackUpCreate -bg $editor(bg)]
label $frm_10.lblBackUpCreate -text [::msgcat::mc "Create backup files"]\ label $frm_10.lblBackUpCreate -text [::msgcat::mc "Create backup files"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal -fg $editor(fg)
checkbutton $frm_10.chkBackUpCreate -text "" -variable backUpCreate \ checkbutton $frm_10.chkBackUpCreate -text "" -variable backUpCreate \
-font $fontNormal -onvalue true -offvalue false -font $fontNormal -onvalue true -offvalue false
pack $frm_10.lblBackUpCreate -side left pack $frm_10.lblBackUpCreate -side left
pack $frm_10.chkBackUpCreate -side left pack $frm_10.chkBackUpCreate -side left
set frm_11 [frame $main.frmBackUpShow] set frm_11 [frame $main.frmBackUpShow -bg $editor(bg)]
label $frm_11.lblBackUpShow -text [::msgcat::mc "Show backup files"]\ label $frm_11.lblBackUpShow -text [::msgcat::mc "Show backup files"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal -fg $editor(fg)
checkbutton $frm_11.chkBackUpShow -text "" -variable backUpShow \ checkbutton $frm_11.chkBackUpShow -text "" -variable backUpShow \
-font $fontNormal -onvalue true -offvalue false -font $fontNormal -onvalue true -offvalue false
pack $frm_11.lblBackUpShow -side left pack $frm_11.lblBackUpShow -side left
pack $frm_11.chkBackUpShow -side left pack $frm_11.chkBackUpShow -side left
set frm_12 [frame $main.frmBackUpDel] set frm_12 [frame $main.frmBackUpDel -bg $editor(bg)]
label $frm_12.lblBackUpDel -text [::msgcat::mc "Delete backup files"]\ label $frm_12.lblBackUpDel -text [::msgcat::mc "Delete backup files"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal -fg $editor(fg)
checkbutton $frm_12.chkBackUpDel -text "" -variable backUpDel \ checkbutton $frm_12.chkBackUpDel -text "" -variable backUpDel \
-font $fontNormal -onvalue true -offvalue false -font $fontNormal -onvalue true -offvalue false
pack $frm_12.lblBackUpDel -side left pack $frm_12.lblBackUpDel -side left
@ -261,15 +266,15 @@ proc Settings {} {
#################### EDITOR PREF ######################### #################### EDITOR PREF #########################
set editFrm [$nb insert end editor -text "[::msgcat::mc "Editor"]"] set editFrm [$nb insert end editor -text "[::msgcat::mc "Editor"]"]
set scrwin [ScrolledWindow $editFrm.scrwin -relief groove -bd 2] set scrwin [ScrolledWindow $editFrm.scrwin -relief groove -bd 2 -bg $editor(bg)]
set scrfrm [ScrollableFrame $editFrm.frm] set scrfrm [ScrollableFrame $editFrm.frm -bg $editor(bg)]
pack $scrwin -fill both -expand true pack $scrwin -fill both -expand true
pack $scrfrm -fill both -expand true pack $scrfrm -fill both -expand true
$scrwin setwidget $scrfrm $scrwin setwidget $scrfrm
set editFrm [$scrfrm getframe] set editFrm [$scrfrm getframe]
set frm_13 [frame $editFrm.frmEditorFont] set frm_13 [frame $editFrm.frmEditorFont -bg $editor(bg)]
label $frm_13.lblEditorFont -text [::msgcat::mc "Editor font"] -width 30\ label $frm_13.lblEditorFont -text [::msgcat::mc "Editor font"] -width 30\
-anchor w -font $fontNormal -anchor w -font $fontNormal
entry $frm_13.txtEditorFont entry $frm_13.txtEditorFont
@ -280,7 +285,7 @@ proc Settings {} {
pack $frm_13.txtEditorFont -side left -fill x -expand true pack $frm_13.txtEditorFont -side left -fill x -expand true
pack $frm_13.btnEditorFont -side left pack $frm_13.btnEditorFont -side left
set frm_14 [frame $editFrm.frmEditorFontBold] set frm_14 [frame $editFrm.frmEditorFontBold -bg $editor(bg)]
label $frm_14.lblEditorFontBold -text [::msgcat::mc "Editor font bold"]\ -width 30 -anchor w -font $fontNormal label $frm_14.lblEditorFontBold -text [::msgcat::mc "Editor font bold"]\ -width 30 -anchor w -font $fontNormal
entry $frm_14.txtEditorFontBold entry $frm_14.txtEditorFontBold
button $frm_14.btnEditorFontBold -borderwidth {1} -font $fontNormal \ button $frm_14.btnEditorFontBold -borderwidth {1} -font $fontNormal \
@ -290,7 +295,7 @@ proc Settings {} {
pack $frm_14.txtEditorFontBold -side left -fill x -expand true pack $frm_14.txtEditorFontBold -side left -fill x -expand true
pack $frm_14.btnEditorFontBold -side left pack $frm_14.btnEditorFontBold -side left
set frm_21 [frame $editFrm.frmColorEditBG] set frm_21 [frame $editFrm.frmColorEditBG -bg $editor(bg)]
label $frm_21.lblColorEditBG -text [::msgcat::mc "Editor background"]\ label $frm_21.lblColorEditBG -text [::msgcat::mc "Editor background"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_21.txtColorEditBG entry $frm_21.txtColorEditBG
@ -304,7 +309,7 @@ proc Settings {} {
pack $frm_21.txtColorEditBG -side left -fill x -expand true pack $frm_21.txtColorEditBG -side left -fill x -expand true
pack $frm_21.btnColorEditBG -side left pack $frm_21.btnColorEditBG -side left
set frm_22 [frame $editFrm.frmColorEditFG] set frm_22 [frame $editFrm.frmColorEditFG -bg $editor(bg)]
label $frm_22.lblColorEditFG -text [::msgcat::mc "Editor foreground"]\ label $frm_22.lblColorEditFG -text [::msgcat::mc "Editor foreground"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_22.txtColorEditFG entry $frm_22.txtColorEditFG
@ -318,7 +323,7 @@ proc Settings {} {
pack $frm_22.txtColorEditFG -side left -fill x -expand true pack $frm_22.txtColorEditFG -side left -fill x -expand true
pack $frm_22.btnColorEditFG -side left pack $frm_22.btnColorEditFG -side left
set frm_15 [frame $editFrm.frmAutoFormat] set frm_15 [frame $editFrm.frmAutoFormat -bg $editor(bg)]
label $frm_15.lblAutoFormat -text [::msgcat::mc "Text autoformat"]\ label $frm_15.lblAutoFormat -text [::msgcat::mc "Text autoformat"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
checkbutton $frm_15.chkAutoFormat -text "" -variable autoFormat \ checkbutton $frm_15.chkAutoFormat -text "" -variable autoFormat \
@ -328,7 +333,7 @@ proc Settings {} {
set wrapList [list none word char] set wrapList [list none word char]
set frm_28 [frame $editFrm.frmWrap] set frm_28 [frame $editFrm.frmWrap -bg $editor(bg)]
label $frm_28.lblWrap -text [::msgcat::mc "Word wrapping"]\ label $frm_28.lblWrap -text [::msgcat::mc "Word wrapping"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
set combo2 [ComboBox $frm_28.txtWrap\ set combo2 [ComboBox $frm_28.txtWrap\
@ -338,7 +343,7 @@ proc Settings {} {
pack $frm_28.lblWrap -side left pack $frm_28.lblWrap -side left
pack $combo2 -side left pack $combo2 -side left
set frm_16 [frame $editFrm.frmColorProc] set frm_16 [frame $editFrm.frmColorProc -bg $editor(bg)]
label $frm_16.lblColorProc -text [::msgcat::mc "Procedure name"]\ label $frm_16.lblColorProc -text [::msgcat::mc "Procedure name"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_16.txtColorProc -background $editor(bg) entry $frm_16.txtColorProc -background $editor(bg)
@ -350,7 +355,7 @@ proc Settings {} {
pack $frm_16.txtColorProc -side left -fill x -expand true pack $frm_16.txtColorProc -side left -fill x -expand true
pack $frm_16.btnColorProc -side left pack $frm_16.btnColorProc -side left
set frm_17 [frame $editFrm.frmColorKeyWord] set frm_17 [frame $editFrm.frmColorKeyWord -bg $editor(bg)]
label $frm_17.lblColorKeyWord -text [::msgcat::mc "Operators"]\ label $frm_17.lblColorKeyWord -text [::msgcat::mc "Operators"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_17.txtColorKeyWord -background $editor(bg) entry $frm_17.txtColorKeyWord -background $editor(bg)
@ -362,7 +367,7 @@ proc Settings {} {
pack $frm_17.txtColorKeyWord -side left -fill x -expand true pack $frm_17.txtColorKeyWord -side left -fill x -expand true
pack $frm_17.btnColorKeyWord -side left pack $frm_17.btnColorKeyWord -side left
set frm_35 [frame $editFrm.frmColorParam] set frm_35 [frame $editFrm.frmColorParam -bg $editor(bg)]
label $frm_35.lblColorParam -text [::msgcat::mc "Parameters"]\ label $frm_35.lblColorParam -text [::msgcat::mc "Parameters"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_35.txtColorParam -background $editor(bg) entry $frm_35.txtColorParam -background $editor(bg)
@ -374,7 +379,7 @@ proc Settings {} {
pack $frm_35.txtColorParam -side left -fill x -expand true pack $frm_35.txtColorParam -side left -fill x -expand true
pack $frm_35.btnColorParam -side left pack $frm_35.btnColorParam -side left
set frm_36 [frame $editFrm.frmColorSubParam] set frm_36 [frame $editFrm.frmColorSubParam -bg $editor(bg)]
label $frm_36.lblColorSubParam -text [::msgcat::mc "Subparameters"]\ label $frm_36.lblColorSubParam -text [::msgcat::mc "Subparameters"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_36.txtColorSubParam -background $editor(bg) entry $frm_36.txtColorSubParam -background $editor(bg)
@ -386,7 +391,7 @@ proc Settings {} {
pack $frm_36.txtColorSubParam -side left -fill x -expand true pack $frm_36.txtColorSubParam -side left -fill x -expand true
pack $frm_36.btnColorSubParam -side left pack $frm_36.btnColorSubParam -side left
set frm_18 [frame $editFrm.frmColorComments] set frm_18 [frame $editFrm.frmColorComments -bg $editor(bg)]
label $frm_18.lblColorComments -text [::msgcat::mc "Comments"]\ label $frm_18.lblColorComments -text [::msgcat::mc "Comments"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_18.txtColorComments -background $editor(bg) entry $frm_18.txtColorComments -background $editor(bg)
@ -398,7 +403,7 @@ proc Settings {} {
pack $frm_18.txtColorComments -side left -fill x -expand true pack $frm_18.txtColorComments -side left -fill x -expand true
pack $frm_18.btnColorComments -side left pack $frm_18.btnColorComments -side left
set frm_19 [frame $editFrm.frmColorVar] set frm_19 [frame $editFrm.frmColorVar -bg $editor(bg)]
label $frm_19.lblColorVar -text [::msgcat::mc "Variables"]\ label $frm_19.lblColorVar -text [::msgcat::mc "Variables"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_19.txtColorVar -background $editor(bg) entry $frm_19.txtColorVar -background $editor(bg)
@ -410,7 +415,7 @@ proc Settings {} {
pack $frm_19.txtColorVar -side left -fill x -expand true pack $frm_19.txtColorVar -side left -fill x -expand true
pack $frm_19.btnColorVar -side left pack $frm_19.btnColorVar -side left
set frm_20 [frame $editFrm.frmColorString] set frm_20 [frame $editFrm.frmColorString -bg $editor(bg)]
label $frm_20.lblColorString -text [::msgcat::mc "Quote string"]\ label $frm_20.lblColorString -text [::msgcat::mc "Quote string"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_20.txtColorString -background $editor(bg) entry $frm_20.txtColorString -background $editor(bg)
@ -422,7 +427,7 @@ proc Settings {} {
pack $frm_20.txtColorString -side left -fill x -expand true pack $frm_20.txtColorString -side left -fill x -expand true
pack $frm_20.btnColorString -side left pack $frm_20.btnColorString -side left
set frm_23 [frame $editFrm.frmColorBrace] set frm_23 [frame $editFrm.frmColorBrace -bg $editor(bg)]
label $frm_23.lblColorBrace -text [::msgcat::mc "Braces"]\ label $frm_23.lblColorBrace -text [::msgcat::mc "Braces"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_23.txtColorBrace -background $editor(bg) entry $frm_23.txtColorBrace -background $editor(bg)
@ -434,7 +439,7 @@ proc Settings {} {
pack $frm_23.txtColorBrace -side left -fill x -expand true pack $frm_23.txtColorBrace -side left -fill x -expand true
pack $frm_23.btnColorBrace -side left pack $frm_23.btnColorBrace -side left
set frm_24 [frame $editFrm.frmColorBraceBG] set frm_24 [frame $editFrm.frmColorBraceBG -bg $editor(bg)]
label $frm_24.lblColorBraceBG -text [::msgcat::mc "Braces background"]\ label $frm_24.lblColorBraceBG -text [::msgcat::mc "Braces background"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_24.txtColorBraceBG -background $editor(bg) entry $frm_24.txtColorBraceBG -background $editor(bg)
@ -449,7 +454,7 @@ proc Settings {} {
pack $frm_24.txtColorBraceBG -side left -fill x -expand true pack $frm_24.txtColorBraceBG -side left -fill x -expand true
pack $frm_24.btnColorBraceBG -side left pack $frm_24.btnColorBraceBG -side left
set frm_25 [frame $editFrm.frmColorBraceFG] set frm_25 [frame $editFrm.frmColorBraceFG -bg $editor(bg)]
label $frm_25.lblColorBraceFG -text [::msgcat::mc "Braces foreground"]\ label $frm_25.lblColorBraceFG -text [::msgcat::mc "Braces foreground"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_25.txtColorBraceFG -background $color(braceBG) entry $frm_25.txtColorBraceFG -background $color(braceBG)
@ -461,7 +466,7 @@ proc Settings {} {
pack $frm_25.txtColorBraceFG -side left -fill x -expand true pack $frm_25.txtColorBraceFG -side left -fill x -expand true
pack $frm_25.btnColorBraceFG -side left pack $frm_25.btnColorBraceFG -side left
set frm_26 [frame $editFrm.frmColorPercent] set frm_26 [frame $editFrm.frmColorPercent -bg $editor(bg)]
label $frm_26.lblColorPercent -text [::msgcat::mc "Percent \%"]\ label $frm_26.lblColorPercent -text [::msgcat::mc "Percent \%"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_26.txtColorPercent -background $editor(bg) entry $frm_26.txtColorPercent -background $editor(bg)
@ -473,7 +478,7 @@ proc Settings {} {
pack $frm_26.txtColorPercent -side left -fill x -expand true pack $frm_26.txtColorPercent -side left -fill x -expand true
pack $frm_26.btnColorPercent -side left pack $frm_26.btnColorPercent -side left
set frm_27 [frame $editFrm.frmColorBindKey] set frm_27 [frame $editFrm.frmColorBindKey -bg $editor(bg)]
label $frm_27.lblColorBindKey -text [::msgcat::mc "Key bindings <Key>"]\ label $frm_27.lblColorBindKey -text [::msgcat::mc "Key bindings <Key>"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_27.txtColorBindKey -background $editor(bg) entry $frm_27.txtColorBindKey -background $editor(bg)
@ -485,7 +490,7 @@ proc Settings {} {
pack $frm_27.txtColorBindKey -side left -fill x -expand true pack $frm_27.txtColorBindKey -side left -fill x -expand true
pack $frm_27.btnColorBindKey -side left pack $frm_27.btnColorBindKey -side left
set frm_32 [frame $editFrm.frmColorSelectBG] set frm_32 [frame $editFrm.frmColorSelectBG -bg $editor(bg)]
label $frm_32.lblColorSelectBG -text [::msgcat::mc "Selection color"]\ label $frm_32.lblColorSelectBG -text [::msgcat::mc "Selection color"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_32.txtColorSelectBG -background $editor(bg) entry $frm_32.txtColorSelectBG -background $editor(bg)
@ -497,7 +502,7 @@ proc Settings {} {
pack $frm_32.txtColorSelectBG -side left -fill x -expand true pack $frm_32.txtColorSelectBG -side left -fill x -expand true
pack $frm_32.btnColorSelectBG -side left pack $frm_32.btnColorSelectBG -side left
set frm_33 [frame $editFrm.frmColorNbNormal] set frm_33 [frame $editFrm.frmColorNbNormal -bg $editor(bg)]
label $frm_33.lblColorNbNormal -text [::msgcat::mc "Title normal"]\ label $frm_33.lblColorNbNormal -text [::msgcat::mc "Title normal"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_33.txtColorNbNormal -background $editor(bg) entry $frm_33.txtColorNbNormal -background $editor(bg)
@ -509,7 +514,7 @@ proc Settings {} {
pack $frm_33.txtColorNbNormal -side left -fill x -expand true pack $frm_33.txtColorNbNormal -side left -fill x -expand true
pack $frm_33.btnColorNbNormal -side left pack $frm_33.btnColorNbNormal -side left
set frm_34 [frame $editFrm.frmColorNbModify] set frm_34 [frame $editFrm.frmColorNbModify -bg $editor(bg)]
label $frm_34.lblColorNbModify -text [::msgcat::mc "Title modify"]\ label $frm_34.lblColorNbModify -text [::msgcat::mc "Title modify"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_34.txtColorNbModify -background $editor(bg) entry $frm_34.txtColorNbModify -background $editor(bg)
@ -521,7 +526,7 @@ proc Settings {} {
pack $frm_34.txtColorNbModify -side left -fill x -expand true pack $frm_34.txtColorNbModify -side left -fill x -expand true
pack $frm_34.btnColorNbModify -side left pack $frm_34.btnColorNbModify -side left
set frm_37 [frame $editFrm.frmColorLabel] set frm_37 [frame $editFrm.frmColorLabel -bg $editor(bg)]
label $frm_37.lblColorLabel -text [::msgcat::mc "Label"]\ label $frm_37.lblColorLabel -text [::msgcat::mc "Label"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_37.txtColorLabel -background $editor(bg) entry $frm_37.txtColorLabel -background $editor(bg)
@ -533,7 +538,7 @@ proc Settings {} {
pack $frm_37.txtColorLabel -side left -fill x -expand true pack $frm_37.txtColorLabel -side left -fill x -expand true
pack $frm_37.btnColorLabel -side left pack $frm_37.btnColorLabel -side left
set frm_38 [frame $editFrm.frmColorSixFG] set frm_38 [frame $editFrm.frmColorSixFG -bg $editor(bg)]
label $frm_38.lblColorSixFG -text [::msgcat::mc "Six pos. foreground"]\ label $frm_38.lblColorSixFG -text [::msgcat::mc "Six pos. foreground"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_38.txtColorSixFG -background $editor(bg) entry $frm_38.txtColorSixFG -background $editor(bg)
@ -545,7 +550,7 @@ proc Settings {} {
pack $frm_38.txtColorSixFG -side left -fill x -expand true pack $frm_38.txtColorSixFG -side left -fill x -expand true
pack $frm_38.btnColorSixFG -side left pack $frm_38.btnColorSixFG -side left
set frm_39 [frame $editFrm.frmColorSixBG] set frm_39 [frame $editFrm.frmColorSixBG -bg $editor(bg)]
label $frm_39.lblColorSixBG -text [::msgcat::mc "Six pos. background"]\ label $frm_39.lblColorSixBG -text [::msgcat::mc "Six pos. background"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_39.txtColorSixBG -background $editor(bg) entry $frm_39.txtColorSixBG -background $editor(bg)
@ -557,7 +562,7 @@ proc Settings {} {
pack $frm_39.txtColorSixBG -side left -fill x -expand true pack $frm_39.txtColorSixBG -side left -fill x -expand true
pack $frm_39.btnColorSixBG -side left pack $frm_39.btnColorSixBG -side left
set frm_40 [frame $editFrm.frmColorSQL] set frm_40 [frame $editFrm.frmColorSQL -bg $editor(bg)]
label $frm_40.lblColorSQL -text [::msgcat::mc "SQL commands"]\ label $frm_40.lblColorSQL -text [::msgcat::mc "SQL commands"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_40.txtColorSQL -background $editor(bg) entry $frm_40.txtColorSQL -background $editor(bg)
@ -569,7 +574,7 @@ proc Settings {} {
pack $frm_40.txtColorSQL -side left -fill x -expand true pack $frm_40.txtColorSQL -side left -fill x -expand true
pack $frm_40.btnColorSQL -side left pack $frm_40.btnColorSQL -side left
set frm_41 [frame $editFrm.frmColorBraceQuad] set frm_41 [frame $editFrm.frmColorBraceQuad -bg $editor(bg)]
label $frm_41.lblColorBraceQuad -text [::msgcat::mc "Quad braces"]\ label $frm_41.lblColorBraceQuad -text [::msgcat::mc "Quad braces"]\
-width 30 -anchor w -font $fontNormal -width 30 -anchor w -font $fontNormal
entry $frm_41.txtColorBraceQuad -background $editor(bg) entry $frm_41.txtColorBraceQuad -background $editor(bg)
@ -858,3 +863,5 @@ proc SaveSettings {} {
$noteBook raise [$noteBook page end] $noteBook raise [$noteBook page end]
} }