home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / tk / demos / size < prev    next >
Encoding:
Text File  |  1995-07-21  |  438 b   |  17 lines
  1. #!/usr/skunk/bin/wish -f
  2. #
  3. # Simple script to change size of something in a window.
  4.  
  5. if "$argc < 3" {error "Usage: size appName window option"}
  6. set appName [lindex $argv 0]
  7. set widget [lindex $argv 1]
  8. set option [lindex $argv 2]
  9.  
  10. scale .scale -command {send $appName $widget config $option} -label "Pixels" \
  11.     -length 250 -from 0 -to 100 -orient vertical
  12. pack .scale
  13.  
  14. bind . <Control-q> {destroy .}
  15. bind . <Control-c> {destroy .}
  16. focus .
  17.