Eliminated code duplicates.

tcltk · Aug 24, 2024 · 4035773 · 4035773
1 parent 74b541d
commit 4035773
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 62 deletions.
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl
@@ -151,34 +151,3 @@ proc ttk::theme::alt::configureNotebookStyle {style} {
 	}
     }
 }
-
-# ttk::theme::alt::configureNotebookStyle --
-#
-# Sets theme-specific option values for the ttk::notebook style $style and the
-# style $style.Tab.  Invoked by ::ttk::configureNotebookStyle.
-
-proc ttk::theme::alt::configureNotebookStyle {style} {
-    set tabPos [ttk::style lookup $style -tabposition {} nw]
-    switch -- [string index $tabPos 0] {
-	n {
-	    ttk::style configure $style -tabmargins     {1.5p 1.5p 0.75p 0}
-	    ttk::style map $style.Tab -expand {selected {1.5p 1.5p 0.75p 0}}
-	}
-	s {
-	    ttk::style configure $style -tabmargins     {1.5p 0 0.75p 1.5p}
-	    ttk::style map $style.Tab -expand {selected {1.5p 0 0.75p 1.5p}}
-	}
-	w {
-	    ttk::style configure $style -tabmargins     {1.5p 1.5p 0 0.75p}
-	    ttk::style map $style.Tab -expand {selected {1.5p 1.5p 0 0.75p}}
-	}
-	e {
-	    ttk::style configure $style -tabmargins     {0 1.5p 1.5p 0.75p}
-	    ttk::style map $style.Tab -expand {selected {0 1.5p 1.5p 0.75p}}
-	}
-	default {
-	    ttk::style configure $style -tabmargins     {1.5p 1.5p 0.75p 0}
-	    ttk::style map $style.Tab -expand {selected {1.5p 1.5p 0.75p 0}}
-	}
-    }
-}
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl
@@ -188,34 +188,3 @@ proc ttk::theme::clam::configureNotebookStyle {style} {
 	}
     }
 }
-
-# ttk::theme::clam::configureNotebookStyle --
-#
-# Sets theme-specific option values for the ttk::notebook tab style $style.Tab.
-# Invoked by ::ttk::configureNotebookStyle.
-
-proc ttk::theme::clam::configureNotebookStyle {style} {
-    set tabPos [ttk::style lookup $style -tabposition {} nw]
-    switch -- [string index $tabPos 0] {
-	n {
-	    ttk::style configure $style.Tab -padding     {4.5p 1.5p 4.5p 1.5p}
-	    ttk::style map $style.Tab -padding {selected {4.5p 3p   4.5p 1.5p}}
-	}
-	s {
-	    ttk::style configure $style.Tab -padding     {4.5p 1.5p 4.5p 1.5p}
-	    ttk::style map $style.Tab -padding {selected {4.5p 1.5p 4.5p 3p  }}
-	}
-	w {
-	    ttk::style configure $style.Tab -padding     {1.5p 4.5p 1.5p 4.5p}
-	    ttk::style map $style.Tab -padding {selected {3p   4.5p 1.5p 4.5p}}
-	}
-	e {
-	    ttk::style configure $style.Tab -padding     {1.5p 4.5p 1.5p 4.5p}
-	    ttk::style map $style.Tab -padding {selected {1.5p 4.5p 3p   4.5p}}
-	}
-	default {
-	    ttk::style configure $style.Tab -padding     {4.5p 1.5p 4.5p 1.5p}
-	    ttk::style map $style.Tab -padding {selected {4.5p 3p   4.5p 1.5p}}
-	}
-    }
-}