set base_theme_dir [file join [pwd] [file dirname [info script]]] array set base_themes { breeze 0.6 breeze-dark 0.1 } foreach {theme version} [array get base_themes] { package ifneeded ttk::theme::$theme $version \ [list source [file join $base_theme_dir $theme $theme.tcl]] }