global problem_reports report_problem_report
set problem_reports "\n\n\n\n"
label .problem-report -anchor w -justify left -takefocus 0 \
- -border 1 -relief sunken -width 80 -textvariable problem_reports
+ -border 2 -relief sunken -width 80 -textvariable problem_reports
pack .problem-report -side top
set report_problem_report report-problem-report-widget
}
set s(ctrlr) $ctrlr
set s(inhibit) 0
- frame $w -relief groove -border 1
+ frame $w -relief sunken -border 2
label $w.ctrlr -state disabled -text $s(ctrlr)
set s(optionmenu) [tk_optionMenu $w.train speed/${w}(train) {}]
$w.train configure -textvariable {} -width 15
setting inputretryadd 5 {\d+}
setting inputretrymax 15 {\d+}
setting scaninputinterval 500 {\d+}
- uplevel #0 source gui-config
+ uplevel #0 source gui-layout.config
+ uplevel #0 source gui-liberator.config
parse-argv {}
foreach cpage $pages {
layout-data