mirrors/1c_rac-gui
1
0
Fork 0
mirror of https://bitbucket.org/svk28/rac-gui synced 2024-11-11 00:16:53 +00:00
Code Releases Activity

Переименована новая тема black -> dark.

Browse Source 
Изменено расположение кнопок на форме ввода.
This commit is contained in:
Sergey Kalinin 2018-08-03 05:49:36 +03:00
parent a1c33da691
commit 65a5270a15
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/function.tcl
View File

@ -765,7 +765,7 @@ proc AddToplevel {lbl img {win_name .add}} {
grid $win_name.lbl -row 0 -column 0 -sticky nsw -padx 0 -pady 1 -rowspan 2 grid $win_name.lbl -row 0 -column 0 -sticky nsw -padx 0 -pady 1 -rowspan 2
grid $frm -row 0 -column 1 -sticky nw -padx 2 -pady 2 grid $frm -row 0 -column 1 -sticky nw -padx 2 -pady 2
grid $frm_btn -row 1 -column 1 -sticky sew -padx 0 -pady 0 grid $frm_btn -row 1 -column 1 -sticky sew -padx 0 -pady 0
pack $frm_btn.btn_ok $frm_btn.btn_cancel -side right -padx 5 -pady 5 pack $frm_btn.btn_cancel $frm_btn.btn_ok -side right -padx 5 -pady 5
#pack $frm_btn.btn_ok -side right -padx 2 #pack $frm_btn.btn_ok -side right -padx 2
return $frm return $frm
@ -2338,3 +2338,4 @@ proc Del::inet {tree host profile_name} {

3
lib/gui.tcl
View File

@ -28,7 +28,7 @@ wm positionfrom . user
#ttk::style configure Custom.Treeview -foreground red #ttk::style configure Custom.Treeview -foreground red
#ttk::style configure Custom.Treeview -rowheight 20 #ttk::style configure Custom.Treeview -rowheight 20
ttk::style theme use black ttk::style theme use dark
# Панель инсрументов # Панель инсрументов
set frm_tool [ttk::frame .frm_tool] set frm_tool [ttk::frame .frm_tool]
@ -98,3 +98,4 @@ pack $frm_tree $frm_work -side left -expand true -fill both
#.panel add $frm_tool -weight 1 #.panel add $frm_tool -weight 1
.panel add $frm_tree -weight 1 .panel add $frm_tree -weight 1
.panel add $frm_work -weight 1 .panel add $frm_work -weight 1

9
lib/ttk_theme_black.tcl → lib/ttk_theme_dark.tcl
View File

@ -8,11 +8,11 @@
package require Tk package require Tk
namespace eval ttk::theme::black { namespace eval ttk::theme::dark {
variable version 0.0.1 variable version 0.0.1
variable dir [file dirname [info script]] variable dir [file dirname [info script]]
package provide ttk::theme::black $version package provide ttk::theme::dark $version
# NB: These colors must be in sync with the ones in black.rdb # NB: These colors must be in sync with the ones in black.rdb
@ -31,7 +31,7 @@ namespace eval ttk::theme::black {
-foreground "#ffffff" -foreground "#ffffff"
} }
ttk::style theme create black -parent clam -settings { ttk::style theme create dark -parent clam -settings {
# ----------------------------------------------------------------- # -----------------------------------------------------------------
# Theme defaults # Theme defaults
@ -111,7 +111,7 @@ namespace eval ::tablelist:: {
proc blackTheme {} { proc blackTheme {} {
variable themeDefaults variable themeDefaults
array set colors [array get ttk::theme::black::colors] array set colors [array get ttk::theme::dark::colors]
array set themeDefaults [list \ array set themeDefaults [list \
-background "#000000" \ -background "#000000" \
@ -137,3 +137,4 @@ namespace eval ::tablelist:: {
-arrowstyle sunken10x9 ] -arrowstyle sunken10x9 ]
} }
} }