Taylor Venable avatar Taylor Venable committed a86e64d

Exorcise ttk stuff

Comments (0)

Files changed (1)

     set tabs(config)    ".tabs.config"
     set tabs(codecs)    ".tabs.codecs"
 
-    ttk::frame $tabs(main)
-    ttk::frame $tabs(config)
-    ttk::frame $tabs(codecs)
+    frame $tabs(main)
+    frame $tabs(config)
+    frame $tabs(codecs)
 
     # --------------------------------------------------------------------------
 
     set album_info "$tabs(main).album_info"
 
-    ttk::frame $album_info
+    frame $album_info
 
-    ttk::label ${album_info}.title_label  -text "Album title:"
-    ttk::label ${album_info}.artist_label -text "Album artist:"
-    ttk::label ${album_info}.genre_label  -text "Album genre:"
-    ttk::label ${album_info}.year_label   -text "Album year:"
-    ttk::label ${album_info}.disc_label   -text "Disc number:"
+    label ${album_info}.title_label  -text "Album title:"
+    label ${album_info}.artist_label -text "Album artist:"
+    label ${album_info}.genre_label  -text "Album genre:"
+    label ${album_info}.year_label   -text "Album year:"
+    label ${album_info}.disc_label   -text "Disc number:"
 
-    ttk::entry ${album_info}.artist_entry -textvariable ${common_data}::album_artist
-    ttk::entry ${album_info}.title_entry  -textvariable ${common_data}::album_title
-    ttk::entry ${album_info}.genre_entry  -textvariable ${common_data}::album_genre
-    ttk::entry ${album_info}.year_entry   -textvariable ${common_data}::album_year   -width 4
-    ttk::entry ${album_info}.disc_entry   -textvariable ${common_data}::disc_number  -width 1
+    entry ${album_info}.artist_entry -textvariable ${common_data}::album_artist
+    entry ${album_info}.title_entry  -textvariable ${common_data}::album_title
+    entry ${album_info}.genre_entry  -textvariable ${common_data}::album_genre
+    entry ${album_info}.year_entry   -textvariable ${common_data}::album_year   -width 4
+    entry ${album_info}.disc_entry   -textvariable ${common_data}::disc_number  -width 1
 
-    ttk::checkbutton ${album_info}.various_artists \
+    checkbutton ${album_info}.various_artists \
         -text "Various / Compilation" \
         -variable ${common_data}::compilation \
         -command ::idae::gui::cb::compilation
 
     set tracks "$tabs(main).tracks"
 
-    ttk::frame $tracks
+    frame $tracks
 
     set track_tbl ${tracks}.table
     set track_sb  ${tracks}.scroll
         -activestyle none \
         -selectmode browse
 
-    ttk::scrollbar $track_sb -orient vertical -command [list $track_tbl yview]
+    scrollbar $track_sb -orient vertical -command [list $track_tbl yview]
 
     $track_tbl columnconfigure 0 -name rip_track \
                                  -formatcommand ::idae::gui::empty_str \
 
     $track_tbl columnconfigure 2 -name track_title \
                                  -editable yes \
-                                 -editwindow ttk::entry \
+                                 -editwindow entry \
                                  -stretchable true
 
     for {set i 0; set n 1} {$i < 16} {set i $n; incr n} {
 
     set buttons "$tabs(main).buttons"
 
-    ttk::frame $buttons
+    frame $buttons
 
-    ttk::button ${buttons}.quit -text "Quit" -image ${bound_img}::quit -compound left -command {exit}
-    ttk::button ${buttons}.rip -text "Start Extraction" -image ${bound_img}::cd -compound left
+    button ${buttons}.quit -text "Quit" -image ${bound_img}::quit -compound left -command {exit}
+    button ${buttons}.rip -text "Start Extraction" -image ${bound_img}::cd -compound left
 
     pack ${buttons}.quit -side left
     pack ${buttons}.rip -side right
     # --------------------------------------------------------------------------
 
     set files_config "$tabs(config).files"
-    ttk::labelframe $files_config -text "File Names" -padding 2
+    labelframe $files_config -text "File Names" ;# -padding 2
 
-    ttk::label ${files_config}.base_label -text "Base directory:"
-    ttk::entry ${files_config}.base_entry -textvariable ${common_data}::config(base_dir)
-    ttk::button ${files_config}.base_browse -text "..." -width 3
+    label ${files_config}.base_label -text "Base directory:"
+    entry ${files_config}.base_entry -textvariable ${common_data}::config(base_dir)
+    button ${files_config}.base_browse -text "..." -width 3
 
-    ttk::label ${files_config}.format_label -text "Naming format:"
-    ttk::entry ${files_config}.format_entry -textvariable ${common_data}::config(filename_format)
-    ttk::button ${files_config}.format_info -text "Format Help" -image ${bound_img}::info -compound left -command ${call_back}::format_help
+    label ${files_config}.format_label -text "Naming format:"
+    entry ${files_config}.format_entry -textvariable ${common_data}::config(filename_format) -font TkFixedFont
+    button ${files_config}.format_info -text "Format Help" -image ${bound_img}::info -compound left -command ${call_back}::format_help
 
     set widget(format_help) ${files_config}.format_help
 
-    ttk::frame $widget(format_help)
+    frame $widget(format_help)
 
     set row 0
     foreach {name desc} {artist "Album Artist"
         set widget_name "$widget(format_help).${name}_name"
         set widget_desc "$widget(format_help).${name}_desc"
 
-        ttk::label $widget_name -text "{$name}"
-        ttk::label $widget_desc -text "= $desc"
+        label $widget_name -text "{$name}"
+        label $widget_desc -text "= $desc"
 
         grid configure $widget_name -row $row -column 0 -sticky e
         grid configure $widget_desc -row $row -column 1 -sticky w
     # --------------------------------------------------------------------------
 
     set flac_codec "$tabs(codecs).flac"
-    ttk::labelframe $flac_codec -text "FLAC Encoding" -padding 2
+    labelframe $flac_codec -text "FLAC Encoding" ;# -padding 2
 
-    ttk::label ${flac_codec}.command_label -text "Command:"
-    ttk::entry ${flac_codec}.command_entry -textvariable ${common_data}::codec(flac/command)
-    ttk::label ${flac_codec}.quality_label -text "Quality:"
+    label ${flac_codec}.command_label -text "Command:"
+    entry ${flac_codec}.command_entry -textvariable ${common_data}::codec(flac/command) -font TkFixedFont
+    label ${flac_codec}.quality_label -text "Quality:"
 
     # ttk::scale ${flac_codec}.quality_scale \
     #     -from 0 -to 9 -orient horizontal \
         -from 0 -to 9 -orient horizontal \
         -variable ${common_data}::codec(flac/quality) \
         -showvalue false
-    ttk::label ${flac_codec}.quality_value -textvariable ${common_data}::codec(flac/quality) -width 1 -padding {2 2 0 0}
+    label ${flac_codec}.quality_value -textvariable ${common_data}::codec(flac/quality) -width 1 ;# -padding {2 2 0 0}
 
     grid configure ${flac_codec}.command_label -row 0 -column 0 -sticky e
     grid configure ${flac_codec}.command_entry -row 0 -column 1 -sticky ew -columnspan 2
     # --------------------------------------------------------------------------
 
     set ogg_codec "$tabs(codecs).ogg"
-    ttk::labelframe $ogg_codec -text "Ogg Encoding" -padding 2
+    labelframe $ogg_codec -text "Ogg Encoding" ;# -padding 2
 
-    ttk::label ${ogg_codec}.command_label -text "Command:"
-    ttk::entry ${ogg_codec}.command_entry -textvariable ${common_data}::codec(ogg/command)
-    ttk::label ${ogg_codec}.quality_label -text "Quality:"
+    label ${ogg_codec}.command_label -text "Command:"
+    entry ${ogg_codec}.command_entry -textvariable ${common_data}::codec(ogg/command) -font TkFixedFont
+    label ${ogg_codec}.quality_label -text "Quality:"
 
     # ttk::scale ${ogg_codec}.quality_scale \
     #     -from 0 -to 9 -orient horizontal \
         -from 0 -to 9 -orient horizontal \
         -variable ${common_data}::codec(ogg/quality) \
         -showvalue false
-    ttk::label ${ogg_codec}.quality_value -textvariable ${common_data}::codec(ogg/quality) -width 1 -padding {2 2 0 0}
+    label ${ogg_codec}.quality_value -textvariable ${common_data}::codec(ogg/quality) -width 1 ;# -padding {2 2 0 0}
 
     grid configure ${ogg_codec}.command_label -row 0 -column 0 -sticky e
     grid configure ${ogg_codec}.command_entry -row 0 -column 1 -sticky ew -columnspan 2
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.