]> cvs.zerfleddert.de Git - micropolis/blame - src/tk/library/demos/size
XINCLUDE: use /usr/X11R6/include everywhere
[micropolis] / src / tk / library / demos / size
CommitLineData
6a5fa4e0
MG
1#!/usr/local/bin/wish -f
2#
3# Simple script to change size of something in a window.
4
5if "$argc < 3" {error "Usage: size appName window option"}
6set appName [lindex $argv 0]
7set widget [lindex $argv 1]
8set option [lindex $argv 2]
9
10pack append . [scale .scale -command {send $appName $widget config $option} \
11 -label "Pixels" -length 250 \
12 -from 0 -to 100 -orient vertical] {top expand filly}
13
14bind . <Control-q> {destroy .}
15bind . <Control-c> {destroy .}
16focus .
Impressum, Datenschutz