← Back to branch summary

~ubuntu-branches/ubuntu/trusty/expect/trusty

« back to all changes in this revision

Viewing changes to example/multixterm

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Baumann
  • Date: 2006-10-01 22:23:00 UTC
  • mfrom: (2.1.7 edgy)
  • Revision ID: james.westby@ubuntu.com-20061001222300-08nd1wqc92mxggdq
Tags: 5.43.0-8
http://bugs.debian.org/390366
http://bugs.debian.org/390365
* Added patch from Niko Tyni <ntyni@iki.fi> to fix static library name on
  alpha, mips and mipsel (Closes: #390366).
* Added *.so symlink (Closes: #390365).

Show diffs side-by-side

added added

removed removed

Lines of Context:
example/multixterm
1
 
#!/usr/bin/expectk -f
 
1
#!/depot/path/expectk
2
2
#
3
3
# NAME
4
4
#       multixterm - drive multiple xterms separately or together
256
256
# VERSION
257
257
#!      $::versionString
258
258
#       The latest version of multixterm is available from
259
 
#       http://expect.nist.gov/example/multixterm . However, if your
260
 
#       version of Expect and Tk are too old (see REQUIREMENTS above)
261
 
#       you should download a new version of expect from
262
 
#       http://expect.nist.gov
 
259
#       http://expect.nist.gov/example/multixterm .  If your version of Expect
 
260
#       and Tk are too old (see REQUIREMENTS above), download a new version of
 
261
#       Expect from http://expect.nist.gov
263
262
#
264
263
# DATE
265
264
#!      $::versionDate
269
268
#
270
269
# LICENSE
271
270
#       Multixterm is in the public domain; however the author would
272
 
#       appreciate acknowledgement if multixterm or parts of it are
273
 
#       used.
 
271
#       appreciate acknowledgement if multixterm or parts of it or ideas from
 
272
#       it are used.
274
273
 
275
274
######################################################################
276
275
# user-settable things - override them in the ~/.multixtermrc file
307
306
set versionDate "2004/06/29"
308
307
 
309
308
package require Tcl
310
 
package require Tk
 
309
catch {package require Tk} ;# early versions of Tk had no package
311
310
package require Expect
312
311
 
313
312
proc exit1 {msg} {
985
984
if {[info exists cmdFile]} {
986
985
    openFile $cmdFile
987
986
}
 
987
 
 
988
puts hello