| # | 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 |