From 9b1c537fdbdf5bcad2f73bbad8eb06983889ff78 Mon Sep 17 00:00:00 2001 From: Mark Levedahl Date: Tue, 20 May 2025 13:53:52 -0400 Subject: git-gui: remove non-ttk code git-gui has code paths to support older non-ttk widgets, but this code is no longer reachable as ttk is always used. Remove that code. Signed-off-by: Mark Levedahl --- lib/browser.tcl | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'lib/browser.tcl') diff --git a/lib/browser.tcl b/lib/browser.tcl index 2b8535715c..f53eb952cf 100644 --- a/lib/browser.tcl +++ b/lib/browser.tcl @@ -21,7 +21,7 @@ field browser_busy 1 field ls_buf {}; # Buffered record output from ls-tree constructor new {commit {path {}}} { - global cursor_ptr M1B use_ttk + global cursor_ptr M1B make_dialog top w wm withdraw $top wm title $top [mc "%s (%s): File Browser" [appname] [reponame]] @@ -40,7 +40,6 @@ constructor new {commit {path {}}} { -anchor w \ -justify left \ -font font_uibold - if {!$use_ttk} { $w.path configure -borderwidth 1 -relief sunken} pack $w.path -anchor w -side top -fill x ttk::frame $w.list @@ -66,7 +65,6 @@ constructor new {commit {path {}}} { -textvariable @browser_status \ -anchor w \ -justify left - if {!$use_ttk} { $w.status configure -borderwidth 1 -relief sunken} pack $w.status -anchor w -side bottom -fill x bind $w_list "[cb _click 0 @%x,%y];break" @@ -269,7 +267,6 @@ field w ; # widget path field w_rev ; # mega-widget to pick the initial revision constructor dialog {} { - global use_ttk make_dialog top w wm withdraw $top wm title $top [mc "%s (%s): Browse Branch Files" [appname] [reponame]] -- cgit v1.3-5-g9baa