# | Line 1 | Line 1 | |
---|---|---|
1 | #!/usr/local/bin/wish4.0 | |
2 | # RCSid: $Id$ | |
3 | + | # the next line restarts using wish in case of shell execution \ |
4 | + | exec wish "$0" "$@" |
5 | # | |
6 | # TCL/TK-based Rad Input File Editor | |
7 | # | |
# | Line 127 | Line 129 | pack .upper.right.title -side top -pady 10 | |
129 | proc setbutt v { | |
130 | radiobutton .$v -text [string toupper $v] \ | |
131 | -variable curmode -value $v \ | |
132 | < | -width 9 -relief groove -anchor w \ |
132 | > | -width 10 -relief groove -anchor w \ |
133 | -command changescreen | |
134 | pack .$v -in .upper.right -side top -pady 5 | |
135 | helplink .$v trad $v intro |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |