60c60 < label $w.bar.title -text "VIC v[version]-ryehack" -font [smallfont] \ --- > label $w.bar.title -text "VIC v[version]" -font [smallfont] \ 75,78d74 < ####bbogart < button $w.bar.full -text "Fullscreen" -command fullscreen_setup\ < -relief raised -font [smallfont] -highlightthickness 1 < #### 83,86c79 < # bbogart added bar.full here below < pack $w.bar.menu $w.bar.full $w.bar.autoplace $w.bar.help $w.bar.quit -side left -padx 1 -pady 1 < < --- > pack $w.bar.menu $w.bar.autoplace $w.bar.help $w.bar.quit -side left -padx 1 -pady 1 883,920d875 < #####bbogart < proc full_deactivate w { < global ftext btext ltext fpshat bpshat lhat shat win_list V fullscreen_control switcher_src < < set src $switcher_src($w) < if [info exists win_list($src)] { < # disable fullscreen_control widget < foreach child [winfo children $fullscreen_control($w)] { < if {[string match "*.bprev" $child] || [string match "*.bnext" $child] } { < # Its a button! < $child configure -command {} < $child configure -state disabled < < # Its not a button! < } else {$child configure -foreground grey60 } < < # Remove fullscreen_control binding < bind $fullscreen_control($w) {} < } < } < < # Deal with vic internal stuff < destroy_decoder_stats $src < < if { [info exists ftext($src)] } { < unset ftext($src) < unset ftext($src) < unset btext($src) < unset ltext($src) < unset fpshat($src) < unset bpshat($src) < unset lhat($src) < unset shat($src) < } < } < < ##### <