- Corrected color settings for all widgets
- Change default color scheme
This commit is contained in:
parent
45b37b3192
commit
472ff86c2b
44
BUGS
44
BUGS
|
@ -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 на длинных строках при появлениии нижнего скролбара наблюдается глюк пока не объяснимый :(
|
|
||||||
Скрол бар начинает мерцать (то появиться то исчезнет)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -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
18
TODO
|
@ -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 @@
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
24
help.tcl
24
help.tcl
|
@ -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 {} {
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1114,3 +1114,4 @@ proc TextOperation {oper} {
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
49
projman.conf
49
projman.conf
|
@ -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
32
projman.tcl
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
137
settings.tcl
137
settings.tcl
|
@ -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]
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user