From 8591b56496b93eed20f638ee1ce46b11c3f7be58 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 17 Jan 2021 03:02:33 +0000 Subject: CTAN sync 202101170302 --- systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tltcl') diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl index ff5c273c05..562b148125 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl @@ -478,11 +478,11 @@ set gry [ttk::style lookup TButton -foreground disabled] # 'default' padding proc ppack {wdg args} { ; # pack command with padding - pack $wdg {*}$args -padx 3 -pady 3 + pack $wdg {*}$args -padx 3pt -pady 3pt } proc pgrid {wdg args} { ; # grid command with padding - grid $wdg {*}$args -padx 3 -pady 3 + grid $wdg {*}$args -padx 3pt -pady 3pt } # unicode symbols as fake checkboxes in ttk::treeview widgets @@ -664,7 +664,7 @@ if {$::tcl_platform(platform) eq "unix"} { wm title .browser [__ "Browse..."] # wallpaper - pack [ttk::frame .browser.bg -padding 3] -fill both -expand 1 + pack [ttk::frame .browser.bg -padding 3pt] -fill both -expand 1 # ok and cancel buttons pack [ttk::frame .browser.fr1] \ -- cgit v1.2.3