- Corrected color settings for all widgets

- 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

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 на длинных строках при появлениии нижнего скролбара наблюдается глюк пока не объяснимый :(
Скрол бар начинает мерцать (то появиться то исчезнет)

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 @@

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

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 {
@ -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"]"]
@ -257,7 +257,7 @@ proc TopLevelHelp {} {
-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 {}}
@ -300,17 +300,17 @@ proc TopLevelHelp {} {
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,7 +321,7 @@ 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 {} {

View File

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

View File

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

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"

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

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]
} }