Return to size CVS log

Up to [Micropolis - Activity] / micropolis / src / tk / library / demos

Annotation of micropolis/src/tk/library/demos/size, revision 1.1

1.1     ! root        1: #!/usr/local/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: pack 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: 
        !            14: bind . <Control-q> {destroy .}
        !            15: bind . <Control-c> {destroy .}
        !            16: focus .

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.