#!/usr/local/tk-3.6/bin/wish -f
#
# Simple script to change size of something in a window.

if "$argc < 3" {error "Usage: size appName window option"}
set appName [lindex $argv 0]
set widget [lindex $argv 1]
set option [lindex $argv 2]

scale .scale -command {send $appName $widget config $option} -label "Pixels" \
	-length 250 -from 0 -to 100 -orient vertical
pack .scale

bind . <Control-q> {destroy .}
bind . <Control-c> {destroy .}
focus .
