Switch to side-by-side view
--- a/sqlscreens.tcl +++ b/sqlscreens.tcl @@ -204,7 +204,7 @@ eval $ps uplevel #0 trace variable $varname w _sqlsclabmenutrace$f - pack $f $f.lab $f.b -side left -ipadx 1 -ipady 1 + pack $f.lab $f.b -side left -ipadx 1 -ipady 1 return $f }