That's exactly what I was looking for, thanks.
If anyone at all is interested, then in the spirit of closure, here are
the patches to the original script to bring it up-to-date with respect
to pack's modern syntax:
--- coloredit.tcl.orig 2015-07-10 16:38:55 -0500
+++ coloredit.tcl 2015-07-10 18:08:53 -0500
@@ -26,7 +26,7 @@
global $var
$name.scale set [set $var]
label $name.label -text $title
- pack append $name $name.label {} $name.scale {}
+ pack $name.label $name.scale -side top
}
set flag 0
@@ -162,17 +162,19 @@
make.scale .scales.hue hue 360 "Hue"
make.scale .scales.sat sat 255 "Saturation"
make.scale .scales.light light 255 "Lightness"
-pack append .scales .scales.red {left} .scales.green {left}
.scales.blue {left}
-pack append .scales .scales.hue {left} .scales.sat {left} .scales.light
{left}
set flag 0
+pack .scales.red .scales.green .scales.blue .scales.hue .scales.sat
.scales.light -side left
+
button .quit -command {exit} -text "Quit"
-pack append . .scales {} .value {fill} .patch {expand} .quit {fill expand}
+pack .scales -side top
+pack .value -side top -fill both
+pack .patch -side top -expand true
+pack .quit -side top -fill both -expand true
+
update
.patch configure -width [winfo width .] -height 100
update.color red $red
-
-