| # | Line 100 | Line 100 | proc kill_batch {} { # kill batch rendering | |
|---|---|---|
| 100 | switch -glob [exec uname] { | |
| 101 | SunOS - | |
| 102 | ULTRIX {set ps "ps -lg"} | |
| 103 | < | default {set ps "ps -lu $env(USER)"} |
| 103 | > | default {set ps "ps -lu $env(LOGNAME)"} |
| 104 | } | |
| 105 | set fi [open "|$ps" r] | |
| 106 | gets $fi li | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |