Commit 787454df authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

*fixed discolored appearance of checkboxes in gop properties

parent 2363e2f3
...@@ -801,7 +801,7 @@ match_linux_wm [list frame .controls] ...@@ -801,7 +801,7 @@ match_linux_wm [list frame .controls]
#if { [info tclversion] >= 8.5 && $pd_nt == 0 } { #if { [info tclversion] >= 8.5 && $pd_nt == 0 } {
# ttk::separator .eyecandy # ttk::separator .eyecandy
# pack .eyecandy .controls -fill x -expand 0 # pack .eyecandy .controls -fill x -expand 0
#} else { #} else {checkbutton
pack .controls -fill x -expand 1 pack .controls -fill x -expand 1
#} #}
match_linux_wm [list frame .controls.switches] match_linux_wm [list frame .controls.switches]
...@@ -6545,12 +6545,12 @@ proc pdtk_canvas_dialog {id xscale yscale graphme x1 y1 x2 y2 \ ...@@ -6545,12 +6545,12 @@ proc pdtk_canvas_dialog {id xscale yscale graphme x1 y1 x2 y2 \
-textvariable ::dialog($vid:yscale) -width 10] -textvariable ::dialog($vid:yscale) -width 10]
pack $id.yscale.label $id.yscale.entry -side left -padx 3 pack $id.yscale.label $id.yscale.entry -side left -padx 3
match_linux_wm [list checkbutton $id.graphme -text {graph on parent} \ match_linux_wm [list ttk::checkbutton $id.graphme -text {graph on parent} \
-variable ::dialog($vid:graphme) \ -variable ::dialog($vid:graphme) \
-command [concat canvas_checkcommand $wid]] -command [concat canvas_checkcommand $wid]]
pack $id.graphme -side top pack $id.graphme -side top
match_linux_wm [list checkbutton $id.hidetext \ match_linux_wm [list ttk::checkbutton $id.hidetext \
-text {hide object name and arguments} \ -text {hide object name and arguments} \
-variable ::dialog($vid:hidetext) \ -variable ::dialog($vid:hidetext) \
-command [concat canvas_checkcommand $wid]] -command [concat canvas_checkcommand $wid]]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment