From fc876bad5f909ab3142bdfa1da5c52e79c73fbd7 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Fri, 15 Jan 2021 17:04:30 +0000 Subject: List only binaries installed platforms; revised marking logic; various cosmetic git-svn-id: svn://tug.org/texlive/trunk@57426 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/tltcl.tcl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/tltcl') diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl index ff5c273c053..562b148125e 100644 --- a/Master/tlpkg/tltcl/tltcl.tcl +++ b/Master/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