- Corrected color settings for all widgets

- Change default color scheme

BUGS

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

CHANGELOG

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

TODO

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

editor.tcl

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

help.tcl

@@ -123,7 +123,7 @@ proc SearchWord {word} {
 }
 ## GETTING CONTENT FROM FILES ##
 proc GetContent {file} {
-    global docDir hlpNoteBook fontNormal sourceEncode
+    global docDir hlpNoteBook fontNormal sourceEncode editor
     $hlpNoteBook raise [$hlpNoteBook page 0]
     set node [$hlpNoteBook raise]
     if {$node != ""} {
@@ -201,7 +201,7 @@ proc LinkCallback_ {w url} {
 ## MAIN HELP WINDOW ##
 proc TopLevelHelp {} {
     global fontNormal fontBold hlpTree hlpNoteBook nBookTree homeDir docDir lstSearch w frmSrchList
-    global imgDir
+    global imgDir color editor
     set w .help
     set w_exist [winfo exists $w]
     if !$w_exist  {
@@ -244,7 +244,7 @@ proc TopLevelHelp {} {
         set frmWork [frame $w.frmBody.frmWork -border 1 -relief sunken]
         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
         set frmTreeNb [$nBookTree insert end hlpTree -text "[::msgcat::mc "Contents"]"]
         set frmSearch [$nBookTree insert end hlpSearch -text "[::msgcat::mc "Search"]"]
@@ -257,7 +257,7 @@ proc TopLevelHelp {} {
         -redraw 0 -dropenabled 1 -dragenabled 1 -dragevent 3 \
         -yscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmTree.scrlY set} \
         -xscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmScrlX.scrlX set} \
-                -background "#d3d3d3" -selectbackground "#55c4d1" \
+        -selectbackground "#55c4d1" \
         -droptypes {
             TREE_NODE    {copy {} move {} link {}}
             LISTBOX_ITEM {copy {} move {} link {}}
@@ -321,7 +321,7 @@ proc TopLevelHelp {} {
         bind $frmTree.tree.c <Shift-Button-4> "$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
         GetTOC
     }
@@ -354,6 +354,10 @@ proc TopLevelHelp {} {
 
 
 
+
+
+
+
 
 
 

main.tcl

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

procedure.tcl

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

projman.conf

@@ -1,10 +1,12 @@
 ###########################################################
 #                TCL/Tk Project Manager                   #
-#                    version 0.0.1                        #
+#                    version 0.3.8                        #
 #                                                         #
 # Copyright (c) "CONERO lab", 2001, http://conero.lrn.ru  #
 # Authors: Sergey Kalinin (aka BanZaj) banzaj@lrn.ru      #
 ###########################################################
+# Modification date: Чт янв 11 10:38:33 MSK 2018
+###########################################################
 
 # Normal Font
 set fontNormal "helvetica 10 normal roman"
@@ -13,64 +15,57 @@ set fontBold "helvetica 10 bold roman"
 # ToolBar on/off (Yes/No)
 set toolBar "Yes"
 
+set backUpFileShow "No"
 set backUpFileCreate "No"
 set backUpFileDelete "No"
-set backUpFileShow "No"
-
-set autoFormat "Yes"
 
+# Don't edit this line
 # Directorys Settings #
 set projDir "$env(HOME)/projects/tcl"
 set rpmDir "$workDir/rpm"
 set tgzDir "$workDir/tgz"
-
 # File mask #
 set rpmNamed "projectName-version-release"
 set tgzNamed "projectName-version-release"
 
 # Locale setting
 set locale "en"
+set autoFormat "Yes"
 
-## EDITOR INTERFACE SETTINGS ##
 # Editor Font #
 set editor(font) "courier 10 normal roman"
 # Editor Bold Font #
 set editor(fontBold) "courier 10 bold roman"
 # background color #
-set editor(bg) "#dbdbdb"
+set editor(bg) "#333333"
 # foreground color #
-set editor(fg) "#000000"
+set editor(fg) "#cccccc"
 # selection background color #
-set editor(selectbg) "#55c4d1"
+set editor(selectbg) "#10a410a410a4"
 # NoteBook title normal font color #
 set editor(nbNormal) "#000000"
 # NoteBook title modify font color #
-set editor(nbModify) "#0021ff"
+set editor(nbModify) "#ffff5d705d70"
 # selection border width #
 set editor(selectBorder) "0"
 # Editor wraping  #
 # must be: none, word or char
 set editor(wrap) "word"
-
 ## 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(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(sixFG) "#ff0000"
 set color(sixBG) "#ffdbdb"
-set color(sql) "#620095"
+set color(sql) "#ffff828f0000"
-
-
-
-

projman.tcl

@@ -97,8 +97,38 @@ foreach file [lsort [glob -nocomplain [file join $hlDir *.tcl]]] {
     puts "Loaded highlight module $file"
 }
 
-set editor(selectBorder) "0"
+#set editor(selectBorder) "0"
 
 #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
+
 
 

settings.tcl

@@ -23,15 +23,16 @@ proc Settings {} {
     #    wm resizable $w 0 0
     wm geometry $w 464x450+0+0
     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
-    frame $w.frmBtn -borderwidth 1
+    frame $w.frmBtn -borderwidth 1  -bg $editor(bg)
     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
     
     button $w.frmBtn.btnFind -text [::msgcat::mc "Save"] -font $fontNormal -width 12 -relief groove \
+    -bg $editor(bg) -fg $editor(fg) \
     -command {
         file copy -force [file join $workDir projman.conf] [file join $workDir projman.conf.old]
         set file [open [file join $workDir projman.conf] w]
@@ -128,24 +129,24 @@ proc Settings {} {
         destroy .pref
     }
     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
     
     ##################  MAIN PREF ##########################
     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
-    set scrfrm [ScrollableFrame $main.frm]
+    set scrfrm [ScrollableFrame $main.frm  -bg $editor(bg)]
     pack $scrwin -fill both -expand true
     pack $scrfrm -fill both -expand true
     
     $scrwin setwidget $scrfrm
     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\
-    -anchor w -font $fontNormal
+    -anchor w -font $fontNormal -fg $editor(fg) -bg $editor(bg)
     entry $frm_1.txtFontNormal
     button $frm_1.btnFontNormal -borderwidth {1} -font $fontNormal \
     -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.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
     button $frm_2.btnFontBold -borderwidth {1} -font $fontNormal \
     -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.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 \
-    -font $fontNormal -onvalue true -offvalue false
+    -font $fontNormal -onvalue true -offvalue false -bg $editor(bg)
     pack $frm_3.lblToolBar -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]]\
     -command {
         InsertEnt $main.frmProjDir.txtProjDir [SelectDir $projDir]
@@ -183,9 +187,9 @@ proc Settings {} {
     pack $frm_4.txtProjDir -side left -fill x -expand true
     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"]\
-    -width 30 -anchor w -font $fontNormal
+    -width 30 -anchor w -font $fontNormal -fg $editor(fg) -bg $editor(bg)
     set combo [ComboBox $frm_5.txtLocale \
     -textvariable localeSet -command "puts 123"\
     -selectbackground "#55c4d1" -selectborderwidth 0\
@@ -193,10 +197,11 @@ proc Settings {} {
     pack $frm_5.lblLocale -side left
     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]]\
     -command {
         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.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
     button $frm_7.btnTgzDir -borderwidth {1} -font $fontNormal \
     -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.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\
-            -font $fontNormal
+    -font $fontNormal -fg $editor(fg)
     entry $frm_8.txtRpmNamed
     pack $frm_8.lblRpmNamed -side left
     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\
-            -font $fontNormal
+    -font $fontNormal -fg $editor(fg)
     entry $frm_9.txtTgzNamed
     pack $frm_9.lblTgzNamed -side left
     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"]\
-            -width 30 -anchor w -font $fontNormal
+            -width 30 -anchor w -font $fontNormal -fg $editor(fg)
     checkbutton $frm_10.chkBackUpCreate -text "" -variable backUpCreate \
             -font $fontNormal -onvalue true -offvalue false
     pack $frm_10.lblBackUpCreate -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"]\
-            -width 30 -anchor w -font $fontNormal
+            -width 30 -anchor w -font $fontNormal -fg $editor(fg)
     checkbutton $frm_11.chkBackUpShow -text "" -variable backUpShow \
             -font $fontNormal -onvalue true -offvalue false
     pack $frm_11.lblBackUpShow -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"]\
-            -width 30 -anchor w -font $fontNormal
+            -width 30 -anchor w -font $fontNormal -fg $editor(fg)
     checkbutton $frm_12.chkBackUpDel -text "" -variable backUpDel \
             -font $fontNormal -onvalue true -offvalue false
     pack $frm_12.lblBackUpDel -side left
@@ -261,15 +266,15 @@ proc Settings {} {
     #################### EDITOR PREF #########################
     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 $scrfrm -fill both -expand true
     $scrwin setwidget $scrfrm
     
     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\
     -anchor w -font $fontNormal
     entry $frm_13.txtEditorFont
@@ -280,7 +285,7 @@ proc Settings {} {
     pack $frm_13.txtEditorFont -side left -fill x -expand true
     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
     entry $frm_14.txtEditorFontBold
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     entry $frm_21.txtColorEditBG
@@ -304,7 +309,7 @@ proc Settings {} {
     pack $frm_21.txtColorEditBG -side left -fill x -expand true
     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"]\
     -width 30 -anchor w -font $fontNormal
     entry $frm_22.txtColorEditFG
@@ -318,7 +323,7 @@ proc Settings {} {
     pack $frm_22.txtColorEditFG -side left -fill x -expand true
     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"]\
             -width 30 -anchor w -font $fontNormal
     checkbutton $frm_15.chkAutoFormat -text "" -variable autoFormat \
@@ -328,7 +333,7 @@ proc Settings {} {
     
     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"]\
     -width 30 -anchor w -font $fontNormal
     set combo2 [ComboBox $frm_28.txtWrap\
@@ -338,7 +343,7 @@ proc Settings {} {
     pack $frm_28.lblWrap -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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
             -width 30 -anchor w -font $fontNormal
     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.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"]\
             -width 30 -anchor w -font $fontNormal
     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.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"]\
             -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
             -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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 \%"]\
             -width 30 -anchor w -font $fontNormal
     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.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>"]\
             -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     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.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"]\
     -width 30 -anchor w -font $fontNormal
     entry $frm_41.txtColorBraceQuad -background $editor(bg)
@@ -858,3 +863,5 @@ proc SaveSettings {} {
     $noteBook  raise [$noteBook page end]
 }
 
+
+